← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/gtk/gtk/gtktearoffmenuitem.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2001-08-29 23:15:17 UTC
  • Revision ID: james.westby@ubuntu.com-20010829231517-thxsp7ctuab584ia
Tags: upstream-1.0.4
Import upstream version 1.0.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/gtk/gtk/gtktearoffmenuitem.pp
 
1
{
 
2
   $Id: gtktearoffmenuitem.pp,v 1.1 2000/07/13 06:34:06 michael Exp $
 
3
}
 
4
 
 
5
{****************************************************************************
 
6
                                 Interface
 
7
****************************************************************************}
 
8
 
 
9
{$ifdef read_interface}
 
10
 
 
11
  type
 
12
     PGtkTearoffMenuItem = ^TGtkTearoffMenuItem;
 
13
     TGtkTearoffMenuItem = record
 
14
          menu_item : TGtkMenuItem;
 
15
          flag0 : longint;
 
16
       end;
 
17
 
 
18
  const
 
19
     bm_TGtkTearoffMenuItem_torn_off = $1;
 
20
     bp_TGtkTearoffMenuItem_torn_off = 0;
 
21
function  torn_off(var a : TGtkTearoffMenuItem) : guint;
 
22
procedure set_torn_off(var a : TGtkTearoffMenuItem; __torn_off : guint);
 
23
 
 
24
  type
 
25
     PGtkTearoffMenuItemClass = ^TGtkTearoffMenuItemClass;
 
26
     TGtkTearoffMenuItemClass = record
 
27
          parent_class : TGtkMenuItemClass;
 
28
       end;
 
29
 
 
30
type
 
31
  GTK_TEAROFF_MENU_ITEM=PGtkTearoffMenuItem;
 
32
  GTK_TEAROFF_MENU_ITEM_CLASS=PGtkTearoffMenuItemClass;
 
33
 
 
34
function  GTK_TEAROFF_MENU_ITEM_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_tearoff_menu_item_get_type';
 
35
function  GTK_IS_TEAROFF_MENU_ITEM(obj:pointer):boolean;
 
36
function  GTK_IS_TEAROFF_MENU_ITEM_CLASS(klass:pointer):boolean;
 
37
 
 
38
function  gtk_tearoff_menu_item_get_type:TGtkType;cdecl;external gtkdll name 'gtk_tearoff_menu_item_get_type';
 
39
function  gtk_tearoff_menu_item_new:PGtkWidget;cdecl;external gtkdll name 'gtk_tearoff_menu_item_new';
 
40
 
 
41
{$endif read_interface}
 
42
 
 
43
 
 
44
{****************************************************************************
 
45
                              Implementation
 
46
****************************************************************************}
 
47
 
 
48
{$ifdef read_implementation}
 
49
 
 
50
 
 
51
function  torn_off(var a : TGtkTearoffMenuItem) : guint;
 
52
    begin
 
53
       torn_off:=(a.flag0 and bm_TGtkTearoffMenuItem_torn_off) shr bp_TGtkTearoffMenuItem_torn_off;
 
54
    end;
 
55
 
 
56
procedure set_torn_off(var a : TGtkTearoffMenuItem; __torn_off : guint);
 
57
    begin
 
58
       a.flag0:=a.flag0 or ((__torn_off shl bp_TGtkTearoffMenuItem_torn_off) and bm_TGtkTearoffMenuItem_torn_off);
 
59
    end;
 
60
 
 
61
function  GTK_IS_TEAROFF_MENU_ITEM(obj:pointer):boolean;
 
62
begin
 
63
  GTK_IS_TEAROFF_MENU_ITEM:=(obj<>nil) and GTK_IS_TEAROFF_MENU_ITEM_CLASS(PGtkTypeObject(obj)^.klass);
 
64
end;
 
65
 
 
66
function  GTK_IS_TEAROFF_MENU_ITEM_CLASS(klass:pointer):boolean;
 
67
begin
 
68
  GTK_IS_TEAROFF_MENU_ITEM_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_TEAROFF_MENU_ITEM_TYPE);
 
69
end;
 
70
 
 
71
{$endif read_implementation}
 
72
 
 
73
 
 
74
{
 
75
  $Log: gtktearoffmenuitem.pp,v $
 
76
  Revision 1.1  2000/07/13 06:34:06  michael
 
77
  + Initial import
 
78
 
 
79
  Revision 1.1  1999/11/24 23:36:36  peter
 
80
    * moved to packages dir
 
81
 
 
82
  Revision 1.6  1999/10/06 17:42:50  peter
 
83
    * external is now only in the interface
 
84
    * removed gtk 1.0 support
 
85
 
 
86
  Revision 1.5  1999/10/05 09:28:27  peter
 
87
    * patches from Frank Loemker
 
88
 
 
89
  Revision 1.4  1999/07/23 16:13:13  peter
 
90
    * use packrecords C
 
91
 
 
92
  Revision 1.3  1999/05/11 00:39:31  peter
 
93
    * win32 fixes
 
94
 
 
95
  Revision 1.2  1999/05/10 15:20:30  peter
 
96
    * cdecl fixes
 
97
 
 
98
  Revision 1.1  1999/05/10 09:14:00  peter
 
99
    + new gtk 1.2 files
 
100
 
 
101
}
 
102