blob: 664740defd141653f8911b8b5d7f8c4798c3ac2e (
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
|
{$IfDef read_interface}
type
TGnomeMDIMode = (GNOME_MDI_NOTEBOOK,GNOME_MDI_TOPLEVEL,
GNOME_MDI_MODAL,GNOME_MDI_DEFAULT_MODE := 42);
PGnomeMDI = ^TGnomeMDI;
TGnomeMDI = record
theobject : TGtkObject;
mode : TGnomeMDIMode;
tab_pos : TGtkPositionType;
signal_id : guint;
flag0 : word;
appname : Pgchar;
title : Pgchar;
menu_template : PGnomeUIInfo;
toolbar_template : PGnomeUIInfo;
active_child : PGnomeMDIChild;
active_view : PGtkWidget;
active_window : PGnomeApp;
windows : PGList;
children : PGList;
registered : PGSList;
child_menu_path : Pgchar;
child_list_path : Pgchar;
end;
GNOME_MDI = PGnomeMDI;
const
bm__GnomeMDI_in_drag = $1;
bp__GnomeMDI_in_drag = 0;
function in_drag(var a : TGnomeMDI) : gint;
procedure set_in_drag(var a : TGnomeMDI; __in_drag : gint);
type
PGnomeMDIClass = ^TGnomeMDIClass;
TGnomeMDIClass = record
parent_class : TGtkObjectClass;
add_child : function (_para1:PGnomeMDI; _para2:PGnomeMDIChild):gint;cdecl;
remove_child : function (_para1:PGnomeMDI; _para2:PGnomeMDIChild):gint;cdecl;
add_view : function (_para1:PGnomeMDI; _para2:PGtkWidget):gint;cdecl;
remove_view : function (_para1:PGnomeMDI; _para2:PGtkWidget):gint;cdecl;
child_changed : procedure (_para1:PGnomeMDI; _para2:PGnomeMDIChild);cdecl;
view_changed : procedure (_para1:PGnomeMDI; _para2:PGtkWidget);cdecl;
app_created : procedure (_para1:PGnomeMDI; _para2:PGnomeApp);cdecl;
end;
GNOME_MDI_CLASS = PGnomeMDIClass;
function GNOME_TYPE_MDI : TGTKType;
function GNOME_IS_MDI(obj : Pointer) : Boolean;
function GNOME_IS_MDI_CLASS(klass : Pointer) : Boolean;
function gnome_mdi_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_mdi_get_type';
function gnome_mdi_new(appname:Pgchar; title:Pgchar):PGtkObject;cdecl;external libgnomeuidll name 'gnome_mdi_new';
procedure gnome_mdi_set_mode(mdi:PGnomeMDI; mode:TGnomeMDIMode);cdecl;external libgnomeuidll name 'gnome_mdi_set_mode';
procedure gnome_mdi_set_menubar_template(mdi:PGnomeMDI; menu_tmpl:PGnomeUIInfo);cdecl;external libgnomeuidll name 'gnome_mdi_set_menubar_template';
procedure gnome_mdi_set_toolbar_template(mdi:PGnomeMDI; tbar_tmpl:PGnomeUIInfo);cdecl;external libgnomeuidll name 'gnome_mdi_set_toolbar_template';
procedure gnome_mdi_set_child_menu_path(mdi:PGnomeMDI; path:Pgchar);cdecl;external libgnomeuidll name 'gnome_mdi_set_child_menu_path';
procedure gnome_mdi_set_child_list_path(mdi:PGnomeMDI; path:Pgchar);cdecl;external libgnomeuidll name 'gnome_mdi_set_child_list_path';
function gnome_mdi_add_view(mdi:PGnomeMDI; child:PGnomeMDIChild):gint;cdecl;external libgnomeuidll name 'gnome_mdi_add_view';
function gnome_mdi_add_toplevel_view(mdi:PGnomeMDI; child:PGnomeMDIChild):gint;cdecl;external libgnomeuidll name 'gnome_mdi_add_toplevel_view';
function gnome_mdi_remove_view(mdi:PGnomeMDI; view:PGtkWidget; force:gint):gint;cdecl;external libgnomeuidll name 'gnome_mdi_remove_view';
function gnome_mdi_get_active_view(mdi:PGnomeMDI):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_mdi_get_active_view';
procedure gnome_mdi_set_active_view(mdi:PGnomeMDI; view:PGtkWidget);cdecl;external libgnomeuidll name 'gnome_mdi_set_active_view';
function gnome_mdi_add_child(mdi:PGnomeMDI; child:PGnomeMDIChild):gint;cdecl;external libgnomeuidll name 'gnome_mdi_add_child';
function gnome_mdi_remove_child(mdi:PGnomeMDI; child:PGnomeMDIChild; force:gint):gint;cdecl;external libgnomeuidll name 'gnome_mdi_remove_child';
function gnome_mdi_remove_all(mdi:PGnomeMDI; force:gint):gint;cdecl;external libgnomeuidll name 'gnome_mdi_remove_all';
procedure gnome_mdi_open_toplevel(mdi:PGnomeMDI);cdecl;external libgnomeuidll name 'gnome_mdi_open_toplevel';
procedure gnome_mdi_update_child(mdi:PGnomeMDI; child:PGnomeMDIChild);cdecl;external libgnomeuidll name 'gnome_mdi_update_child';
function gnome_mdi_get_active_child(mdi:PGnomeMDI):PGnomeMDIChild;cdecl;external libgnomeuidll name 'gnome_mdi_get_active_child';
function gnome_mdi_find_child(mdi:PGnomeMDI; name:Pgchar):PGnomeMDIChild;cdecl;external libgnomeuidll name 'gnome_mdi_find_child';
function gnome_mdi_get_active_window(mdi:PGnomeMDI):PGnomeApp;cdecl;external libgnomeuidll name 'gnome_mdi_get_active_window';
procedure gnome_mdi_register(mdi:PGnomeMDI; theobject:PGtkObject);cdecl;external libgnomeuidll name 'gnome_mdi_register';
procedure gnome_mdi_unregister(mdi:PGnomeMDI; theobject:PGtkObject);cdecl;external libgnomeuidll name 'gnome_mdi_unregister';
function gnome_mdi_get_app_from_view(view:PGtkWidget):PGnomeApp;cdecl;external libgnomeuidll name 'gnome_mdi_get_app_from_view';
function gnome_mdi_get_child_from_view(view:PGtkWidget):PGnomeMDIChild;cdecl;external libgnomeuidll name 'gnome_mdi_get_child_from_view';
function gnome_mdi_get_view_from_window(mdi:PGnomeMDI; app:PGnomeApp):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_mdi_get_view_from_window';
function gnome_mdi_get_menubar_info(app:PGnomeApp):PGnomeUIInfo;cdecl;external libgnomeuidll name 'gnome_mdi_get_menubar_info';
function gnome_mdi_get_toolbar_info(app:PGnomeApp):PGnomeUIInfo;cdecl;external libgnomeuidll name 'gnome_mdi_get_toolbar_info';
function gnome_mdi_get_child_menu_info(app:PGnomeApp):PGnomeUIInfo;cdecl;external libgnomeuidll name 'gnome_mdi_get_child_menu_info';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_MDI : TGTKType;
begin
GNOME_TYPE_MDI:=gnome_mdi_get_type;
end;
function GNOME_IS_MDI(obj : Pointer) : Boolean;
begin
GNOME_IS_MDI:=(obj<>nil) and GNOME_IS_MDI_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_MDI_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_MDI_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_MDI);
end;
function in_drag(var a : TGnomeMDI) : gint;
begin
in_drag:=(a.flag0 and bm__GnomeMDI_in_drag) shr bp__GnomeMDI_in_drag;
end;
procedure set_in_drag(var a : TGnomeMDI; __in_drag : gint);
begin
a.flag0:=a.flag0 or ((__in_drag shl bp__GnomeMDI_in_drag) and bm__GnomeMDI_in_drag);
end;
{$Endif read_implementation}
|
