← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gnome1/gnome/libgnomeui/gnomemdi.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gnome1/gnome/libgnomeui/gnomemdi.inc
 
1
{$IfDef read_interface}
 
2
 
 
3
type
 
4
   TGnomeMDIMode = (GNOME_MDI_NOTEBOOK,GNOME_MDI_TOPLEVEL,
 
5
     GNOME_MDI_MODAL,GNOME_MDI_DEFAULT_MODE := 42);
 
6
 
 
7
   PGnomeMDI = ^TGnomeMDI;
 
8
   TGnomeMDI = record
 
9
        theobject : TGtkObject;
 
10
        mode : TGnomeMDIMode;
 
11
        tab_pos : TGtkPositionType;
 
12
        signal_id : guint;
 
13
        flag0 : word;
 
14
        appname : Pgchar;
 
15
        title : Pgchar;
 
16
        menu_template : PGnomeUIInfo;
 
17
        toolbar_template : PGnomeUIInfo;
 
18
        active_child : PGnomeMDIChild;
 
19
        active_view : PGtkWidget;
 
20
        active_window : PGnomeApp;
 
21
        windows : PGList;
 
22
        children : PGList;
 
23
        registered : PGSList;
 
24
        child_menu_path : Pgchar;
 
25
        child_list_path : Pgchar;
 
26
     end;
 
27
   GNOME_MDI = PGnomeMDI;
 
28
 
 
29
const
 
30
   bm__GnomeMDI_in_drag = $1;
 
31
   bp__GnomeMDI_in_drag = 0;
 
32
function in_drag(var a : TGnomeMDI) : gint;
 
33
procedure set_in_drag(var a : TGnomeMDI; __in_drag : gint);
 
34
 
 
35
type
 
36
   PGnomeMDIClass = ^TGnomeMDIClass;
 
37
   TGnomeMDIClass = record
 
38
        parent_class : TGtkObjectClass;
 
39
        add_child : function (_para1:PGnomeMDI; _para2:PGnomeMDIChild):gint;cdecl;
 
40
        remove_child : function (_para1:PGnomeMDI; _para2:PGnomeMDIChild):gint;cdecl;
 
41
        add_view : function (_para1:PGnomeMDI; _para2:PGtkWidget):gint;cdecl;
 
42
        remove_view : function (_para1:PGnomeMDI; _para2:PGtkWidget):gint;cdecl;
 
43
        child_changed : procedure (_para1:PGnomeMDI; _para2:PGnomeMDIChild);cdecl;
 
44
        view_changed : procedure (_para1:PGnomeMDI; _para2:PGtkWidget);cdecl;
 
45
        app_created : procedure (_para1:PGnomeMDI; _para2:PGnomeApp);cdecl;
 
46
     end;
 
47
   GNOME_MDI_CLASS = PGnomeMDIClass;
 
48
 
 
49
function GNOME_TYPE_MDI : TGTKType;
 
50
function GNOME_IS_MDI(obj : Pointer) : Boolean;
 
51
function GNOME_IS_MDI_CLASS(klass : Pointer) : Boolean;
 
52
 
 
53
function gnome_mdi_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_mdi_get_type';
 
54
function gnome_mdi_new(appname:Pgchar; title:Pgchar):PGtkObject;cdecl;external libgnomeuidll name 'gnome_mdi_new';
 
55
procedure gnome_mdi_set_mode(mdi:PGnomeMDI; mode:TGnomeMDIMode);cdecl;external libgnomeuidll name 'gnome_mdi_set_mode';
 
56
procedure gnome_mdi_set_menubar_template(mdi:PGnomeMDI; menu_tmpl:PGnomeUIInfo);cdecl;external libgnomeuidll name 'gnome_mdi_set_menubar_template';
 
57
procedure gnome_mdi_set_toolbar_template(mdi:PGnomeMDI; tbar_tmpl:PGnomeUIInfo);cdecl;external libgnomeuidll name 'gnome_mdi_set_toolbar_template';
 
58
procedure gnome_mdi_set_child_menu_path(mdi:PGnomeMDI; path:Pgchar);cdecl;external libgnomeuidll name 'gnome_mdi_set_child_menu_path';
 
59
procedure gnome_mdi_set_child_list_path(mdi:PGnomeMDI; path:Pgchar);cdecl;external libgnomeuidll name 'gnome_mdi_set_child_list_path';
 
60
function gnome_mdi_add_view(mdi:PGnomeMDI; child:PGnomeMDIChild):gint;cdecl;external libgnomeuidll name 'gnome_mdi_add_view';
 
61
function gnome_mdi_add_toplevel_view(mdi:PGnomeMDI; child:PGnomeMDIChild):gint;cdecl;external libgnomeuidll name 'gnome_mdi_add_toplevel_view';
 
62
function gnome_mdi_remove_view(mdi:PGnomeMDI; view:PGtkWidget; force:gint):gint;cdecl;external libgnomeuidll name 'gnome_mdi_remove_view';
 
63
function gnome_mdi_get_active_view(mdi:PGnomeMDI):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_mdi_get_active_view';
 
64
procedure gnome_mdi_set_active_view(mdi:PGnomeMDI; view:PGtkWidget);cdecl;external libgnomeuidll name 'gnome_mdi_set_active_view';
 
65
function gnome_mdi_add_child(mdi:PGnomeMDI; child:PGnomeMDIChild):gint;cdecl;external libgnomeuidll name 'gnome_mdi_add_child';
 
66
function gnome_mdi_remove_child(mdi:PGnomeMDI; child:PGnomeMDIChild; force:gint):gint;cdecl;external libgnomeuidll name 'gnome_mdi_remove_child';
 
67
function gnome_mdi_remove_all(mdi:PGnomeMDI; force:gint):gint;cdecl;external libgnomeuidll name 'gnome_mdi_remove_all';
 
68
procedure gnome_mdi_open_toplevel(mdi:PGnomeMDI);cdecl;external libgnomeuidll name 'gnome_mdi_open_toplevel';
 
69
procedure gnome_mdi_update_child(mdi:PGnomeMDI; child:PGnomeMDIChild);cdecl;external libgnomeuidll name 'gnome_mdi_update_child';
 
70
function gnome_mdi_get_active_child(mdi:PGnomeMDI):PGnomeMDIChild;cdecl;external libgnomeuidll name 'gnome_mdi_get_active_child';
 
71
function gnome_mdi_find_child(mdi:PGnomeMDI; name:Pgchar):PGnomeMDIChild;cdecl;external libgnomeuidll name 'gnome_mdi_find_child';
 
72
function gnome_mdi_get_active_window(mdi:PGnomeMDI):PGnomeApp;cdecl;external libgnomeuidll name 'gnome_mdi_get_active_window';
 
73
procedure gnome_mdi_register(mdi:PGnomeMDI; theobject:PGtkObject);cdecl;external libgnomeuidll name 'gnome_mdi_register';
 
74
procedure gnome_mdi_unregister(mdi:PGnomeMDI; theobject:PGtkObject);cdecl;external libgnomeuidll name 'gnome_mdi_unregister';
 
75
function gnome_mdi_get_app_from_view(view:PGtkWidget):PGnomeApp;cdecl;external libgnomeuidll name 'gnome_mdi_get_app_from_view';
 
76
function gnome_mdi_get_child_from_view(view:PGtkWidget):PGnomeMDIChild;cdecl;external libgnomeuidll name 'gnome_mdi_get_child_from_view';
 
77
function gnome_mdi_get_view_from_window(mdi:PGnomeMDI; app:PGnomeApp):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_mdi_get_view_from_window';
 
78
function gnome_mdi_get_menubar_info(app:PGnomeApp):PGnomeUIInfo;cdecl;external libgnomeuidll name 'gnome_mdi_get_menubar_info';
 
79
function gnome_mdi_get_toolbar_info(app:PGnomeApp):PGnomeUIInfo;cdecl;external libgnomeuidll name 'gnome_mdi_get_toolbar_info';
 
80
function gnome_mdi_get_child_menu_info(app:PGnomeApp):PGnomeUIInfo;cdecl;external libgnomeuidll name 'gnome_mdi_get_child_menu_info';
 
81
 
 
82
{$EndIf read_interface}
 
83
 
 
84
{$Ifdef read_implementation}
 
85
 
 
86
function GNOME_TYPE_MDI : TGTKType;
 
87
begin
 
88
  GNOME_TYPE_MDI:=gnome_mdi_get_type;
 
89
end;
 
90
 
 
91
function GNOME_IS_MDI(obj : Pointer) : Boolean;
 
92
begin
 
93
   GNOME_IS_MDI:=(obj<>nil) and GNOME_IS_MDI_CLASS(PGtkTypeObject(obj)^.klass);
 
94
end;
 
95
 
 
96
function GNOME_IS_MDI_CLASS(klass : Pointer) : Boolean;
 
97
begin
 
98
   GNOME_IS_MDI_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_MDI);
 
99
end;
 
100
 
 
101
function in_drag(var a : TGnomeMDI) : gint;
 
102
begin
 
103
   in_drag:=(a.flag0 and bm__GnomeMDI_in_drag) shr bp__GnomeMDI_in_drag;
 
104
end;
 
105
 
 
106
procedure set_in_drag(var a : TGnomeMDI; __in_drag : gint);
 
107
begin
 
108
   a.flag0:=a.flag0 or ((__in_drag shl bp__GnomeMDI_in_drag) and bm__GnomeMDI_in_drag);
 
109
end;
 
110
 
 
111
{$Endif read_implementation}