blob: 5805b4f08ad282b89b6d748af043078a528ad871 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
TGtkPrintFunc = procedure (func_data:gpointer; str:Pgchar); cdecl;
PGtkTranslateFunc = ^TGtkTranslateFunc;
TGtkTranslateFunc = gchar;
TGtkItemFactoryCallback = procedure ; cdecl;
TGtkItemFactoryCallback1 = procedure (callback_data:gpointer; callback_action:guint; widget:PGtkWidget); cdecl;
PGtkItemFactory = ^TGtkItemFactory;
TGtkItemFactory = record
anObject : TGtkObject;
path : Pgchar;
accel_group : PGtkAccelGroup;
widget : PGtkWidget;
items : PGSList;
translate_func : TGtkTranslateFunc;
translate_data : gpointer;
translate_notify : TGtkDestroyNotify;
end;
{ Padding for future expansion }
PGtkItemFactoryClass = ^TGtkItemFactoryClass;
TGtkItemFactoryClass = record
object_class : TGtkObjectClass;
item_ht : PGHashTable;
_gtk_reserved1 : procedure ; cdecl;
_gtk_reserved2 : procedure ; cdecl;
_gtk_reserved3 : procedure ; cdecl;
_gtk_reserved4 : procedure ; cdecl;
end;
{ possible values:
NULL -> "<Item>"
"" -> "<Item>"
"<Title>" -> create a title item
"<Item>" -> create a simple item
"<ImageItem>" -> create an item holding an image
"<StockItem>" -> create an item holding a stock image
"<CheckItem>" -> create a check item
"<ToggleItem>" -> create a toggle item
"<RadioItem>" -> create a radio item
<path> -> path of a radio item to link against
"<Separator>" -> create a separator
"<Tearoff>" -> create a tearoff separator
"<Branch>" -> create an item to hold sub items
"<LastBranch>" -> create a right justified item to hold sub items
}
{ Extra data for some item types:
ImageItem -> pointer to inlined pixbuf stream
StockItem -> name of stock item
}
PGtkItemFactoryEntry = ^TGtkItemFactoryEntry;
TGtkItemFactoryEntry = record
path : Pgchar;
accelerator : Pgchar;
callback : TGtkItemFactoryCallback;
callback_action : guint;
item_type : Pgchar;
extra_data : gconstpointer;
end;
PGtkItemFactoryItem = ^TGtkItemFactoryItem;
TGtkItemFactoryItem = record
path : Pgchar;
widgets : PGSList;
end;
{$ifndef GTK_DISABLE_DEPRECATED}
{ Compatibility functions for deprecated GtkMenuFactory code }
TGtkMenuCallback = procedure (widget:PGtkWidget; user_data:gpointer); cdecl;
PGtkMenuEntry = ^TGtkMenuEntry;
TGtkMenuEntry = record
path : Pgchar;
accelerator : Pgchar;
callback : TGtkMenuCallback;
callback_data : gpointer;
widget : PGtkWidget;
end;
TGtkItemFactoryCallback2 = procedure (widget:PGtkWidget; callback_data:gpointer; callback_action:guint); cdecl;
{$endif}
{ GTK_DISABLE_DEPRECATED }
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function GTK_TYPE_ITEM_FACTORY : GType;
function GTK_ITEM_FACTORY(anObject: pointer) : PGtkItemFactory;
function GTK_ITEM_FACTORY_CLASS(klass: pointer) : PGtkItemFactoryClass;
function GTK_IS_ITEM_FACTORY(anObject: pointer) : boolean;
function GTK_IS_ITEM_FACTORY_CLASS(klass: pointer) : boolean;
function GTK_ITEM_FACTORY_GET_CLASS(obj: pointer) : PGtkItemFactoryClass;
function gtk_item_factory_get_type:TGtkType; cdecl; external gtklib;
{ `container_type' must be of GTK_TYPE_MENU_BAR, GTK_TYPE_MENU,
or GTK_TYPE_OPTION_MENU.
}
function gtk_item_factory_new(container_type:TGtkType; path:Pgchar; accel_group:PGtkAccelGroup):PGtkItemFactory; cdecl; external gtklib;
procedure gtk_item_factory_construct(ifactory:PGtkItemFactory; container_type:TGtkType; path:Pgchar; accel_group:PGtkAccelGroup); cdecl; external gtklib;
{ These functions operate on GtkItemFactoryClass basis.
}
procedure gtk_item_factory_add_foreign(accel_widget:PGtkWidget; full_path:Pgchar; accel_group:PGtkAccelGroup; keyval:guint; modifiers:TGdkModifierType); cdecl; external gtklib;
function gtk_item_factory_from_widget(widget:PGtkWidget):PGtkItemFactory; cdecl; external gtklib;
function gtk_item_factory_path_from_widget(widget:PGtkWidget):Pgchar; cdecl; external gtklib;
function gtk_item_factory_get_item(ifactory:PGtkItemFactory; path:Pgchar):PGtkWidget; cdecl; external gtklib;
function gtk_item_factory_get_widget(ifactory:PGtkItemFactory; path:Pgchar):PGtkWidget; cdecl; external gtklib;
function gtk_item_factory_get_widget_by_action(ifactory:PGtkItemFactory; action:guint):PGtkWidget; cdecl; external gtklib;
function gtk_item_factory_get_item_by_action(ifactory:PGtkItemFactory; action:guint):PGtkWidget; cdecl; external gtklib;
procedure gtk_item_factory_create_item(ifactory:PGtkItemFactory; entry:PGtkItemFactoryEntry; callback_data:gpointer; callback_type:guint); cdecl; external gtklib;
procedure gtk_item_factory_create_items(ifactory:PGtkItemFactory; n_entries:guint; entries:PGtkItemFactoryEntry; callback_data:gpointer); cdecl; external gtklib;
procedure gtk_item_factory_delete_item(ifactory:PGtkItemFactory; path:Pgchar); cdecl; external gtklib;
procedure gtk_item_factory_delete_entry(ifactory:PGtkItemFactory; entry:PGtkItemFactoryEntry); cdecl; external gtklib;
procedure gtk_item_factory_delete_entries(ifactory:PGtkItemFactory; n_entries:guint; entries:PGtkItemFactoryEntry); cdecl; external gtklib;
procedure gtk_item_factory_popup(ifactory:PGtkItemFactory; x:guint; y:guint; mouse_button:guint; time:guint32); cdecl; external gtklib;
procedure gtk_item_factory_popup_with_data(ifactory:PGtkItemFactory; popup_data:gpointer; destroy:TGtkDestroyNotify; x:guint; y:guint;
mouse_button:guint; time:guint32); cdecl; external gtklib;
function gtk_item_factory_popup_data(ifactory:PGtkItemFactory):gpointer; cdecl; external gtklib;
function gtk_item_factory_popup_data_from_widget(widget:PGtkWidget):gpointer; cdecl; external gtklib;
procedure gtk_item_factory_set_translate_func(ifactory:PGtkItemFactory; func:TGtkTranslateFunc; data:gpointer; notify:TGtkDestroyNotify); cdecl; external gtklib;
{$ifndef GTK_DISABLE_DEPRECATED}
function gtk_item_factory_from_path(path:Pgchar):PGtkItemFactory; cdecl; external gtklib;
procedure gtk_item_factory_create_menu_entries(n_entries:guint; entries:PGtkMenuEntry); cdecl; external gtklib;
procedure gtk_item_factories_path_delete(ifactory_path:Pgchar; path:Pgchar); cdecl; external gtklib;
procedure gtk_item_factory_create_items_ac(ifactory:PGtkItemFactory; n_entries:guint; entries:PGtkItemFactoryEntry; callback_data:gpointer; callback_type:guint); cdecl; external gtklib;
{$endif}
{ GTK_DISABLE_DEPRECATED }
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_ITEM_FACTORY : GType;
begin
GTK_TYPE_ITEM_FACTORY:=gtk_item_factory_get_type;
end;
function GTK_ITEM_FACTORY(anObject: pointer) : PGtkItemFactory;
begin
GTK_ITEM_FACTORY:=PGtkItemFactory(GTK_CHECK_CAST(anObject,GTK_TYPE_ITEM_FACTORY));
end;
function GTK_ITEM_FACTORY_CLASS(klass: pointer) : PGtkItemFactoryClass;
begin
GTK_ITEM_FACTORY_CLASS:=PGtkItemFactoryClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_ITEM_FACTORY));
end;
function GTK_IS_ITEM_FACTORY(anObject: pointer) : boolean;
begin
GTK_IS_ITEM_FACTORY:=GTK_CHECK_TYPE(anObject,GTK_TYPE_ITEM_FACTORY);
end;
function GTK_IS_ITEM_FACTORY_CLASS(klass: pointer) : boolean;
begin
GTK_IS_ITEM_FACTORY_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_ITEM_FACTORY);
end;
function GTK_ITEM_FACTORY_GET_CLASS(obj: pointer) : PGtkItemFactoryClass;
begin
GTK_ITEM_FACTORY_GET_CLASS:=PGtkItemFactoryClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_ITEM_FACTORY));
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
