← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gnome1/gnome/libgnomeui/gnomeiconitem.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:
packages/extra/gnome1/gnome/libgnomeui/gnomeiconitem.inc
1
 
{$IfDef read_interface}
2
 
 
3
 
type
4
 
   PGnomeIconTextItem = ^TGnomeIconTextItem;
5
 
   TGnomeIconTextItem = record
6
 
        canvas_item : TGnomeCanvasItem;
7
 
        x : longint;
8
 
        y : longint;
9
 
        width : longint;
10
 
        fontname : pchar;
11
 
        priv : gpointer;
12
 
        pad1 : gpointer;
13
 
        pad2 : gpointer;
14
 
        thetext : pchar;
15
 
        ti : PGnomeIconTextInfo;
16
 
        flag0 : word;
17
 
        pad3 : dword;
18
 
        flag1 : word;
19
 
     end;
20
 
   GNOME_ICON_TEXT_ITEM = PGnomeIconTextItem;
21
 
     
22
 
const
23
 
   bm_GnomeIconTextItem_editing = $1;
24
 
   bp_GnomeIconTextItem_editing = 0;
25
 
   bm_GnomeIconTextItem_selected = $2;
26
 
   bp_GnomeIconTextItem_selected = 1;
27
 
   bm_GnomeIconTextItem_selecting = $1;
28
 
   bp_GnomeIconTextItem_selecting = 0;
29
 
   bm_GnomeIconTextItem_is_editable = $2;
30
 
   bp_GnomeIconTextItem_is_editable = 1;
31
 
   bm_GnomeIconTextItem_is_text_allocated = $4;
32
 
   bp_GnomeIconTextItem_is_text_allocated = 2;
33
 
 
34
 
function editing(var a : TGnomeIconTextItem) : dword;
35
 
procedure set_editing(var a : TGnomeIconTextItem; __editing : dword);
36
 
function selected(var a : TGnomeIconTextItem) : dword;
37
 
procedure set_selected(var a : TGnomeIconTextItem; __selected : dword);
38
 
function selecting(var a : TGnomeIconTextItem) : dword;
39
 
procedure set_selecting(var a : TGnomeIconTextItem; __selecting : dword);
40
 
function is_editable(var a : TGnomeIconTextItem) : dword;
41
 
procedure set_is_editable(var a : TGnomeIconTextItem; __is_editable : dword);
42
 
function is_text_allocated(var a : TGnomeIconTextItem) : dword;
43
 
procedure set_is_text_allocated(var a : TGnomeIconTextItem; __is_text_allocated : dword);
44
 
 
45
 
type
46
 
   PGnomeIconTextItemClass = ^TGnomeIconTextItemClass;
47
 
   TGnomeIconTextItemClass = record
48
 
        parent_class : TGnomeCanvasItemClass;
49
 
        text_changed : function (iti:PGnomeIconTextItem):longint;cdecl;
50
 
        height_changed : procedure (iti:PGnomeIconTextItem);cdecl;
51
 
        width_changed : procedure (iti:PGnomeIconTextItem);cdecl;
52
 
        editing_started : procedure (iti:PGnomeIconTextItem);cdecl;
53
 
        editing_stopped : procedure (iti:PGnomeIconTextItem);cdecl;
54
 
        selection_started : procedure (iti:PGnomeIconTextItem);cdecl;
55
 
        selection_stopped : procedure (iti:PGnomeIconTextItem);cdecl;
56
 
     end;
57
 
   GNOME_ICON_TEXT_ITEM_CLASS = PGnomeIconTextItemClass;
58
 
 
59
 
function GNOME_TYPE_ICON_TEXT_ITEM : TGTKType;
60
 
function GNOME_IS_ICON_TEXT_ITEM(obj : Pointer) : Boolean;
61
 
function GNOME_IS_ICON_TEXT_ITEM_CLASS(klass : Pointer) : Boolean;
62
 
 
63
 
function gnome_icon_text_item_get_type:TGtkType;cdecl;external libgnomeuidll name 'gnome_icon_text_item_get_type';
64
 
procedure gnome_icon_text_item_configure(iti:PGnomeIconTextItem; x:longint; y:longint; width:longint; fontname:Pchar; 
65
 
            thetext:Pchar; is_editable:gboolean; is_static:gboolean);cdecl;external libgnomeuidll name 'gnome_icon_text_item_configure';
66
 
procedure gnome_icon_text_item_setxy(iti:PGnomeIconTextItem; x:longint; y:longint);cdecl;external libgnomeuidll name 'gnome_icon_text_item_setxy';
67
 
procedure gnome_icon_text_item_select(iti:PGnomeIconTextItem; sel:longint);cdecl;external libgnomeuidll name 'gnome_icon_text_item_select';
68
 
function gnome_icon_text_item_get_text(iti:PGnomeIconTextItem):Pchar;cdecl;external libgnomeuidll name 'gnome_icon_text_item_get_text';
69
 
procedure gnome_icon_text_item_start_editing(iti:PGnomeIconTextItem);cdecl;external libgnomeuidll name 'gnome_icon_text_item_start_editing';
70
 
procedure gnome_icon_text_item_stop_editing(iti:PGnomeIconTextItem; accept:gboolean);cdecl;external libgnomeuidll name 'gnome_icon_text_item_stop_editing';
71
 
 
72
 
{$EndIf read_interface}
73
 
 
74
 
{$Ifdef read_implementation}
75
 
 
76
 
function GNOME_TYPE_ICON_TEXT_ITEM : TGTKType;
77
 
begin
78
 
  GNOME_TYPE_ICON_TEXT_ITEM:=gnome_icon_text_item_get_type;
79
 
end;
80
 
 
81
 
function GNOME_IS_ICON_TEXT_ITEM(obj : Pointer) : Boolean;
82
 
begin
83
 
   GNOME_IS_ICON_TEXT_ITEM:=(obj<>nil) and GNOME_IS_ICON_TEXT_ITEM_CLASS(PGtkTypeObject(obj)^.klass);
84
 
end;
85
 
 
86
 
function GNOME_IS_ICON_TEXT_ITEM_CLASS(klass : Pointer) : Boolean;
87
 
begin
88
 
   GNOME_IS_ICON_TEXT_ITEM_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_ICON_TEXT_ITEM);
89
 
end;
90
 
 
91
 
function editing(var a : TGnomeIconTextItem) : dword;
92
 
begin
93
 
   editing:=(a.flag0 and bm_GnomeIconTextItem_editing) shr bp_GnomeIconTextItem_editing;
94
 
end;
95
 
 
96
 
procedure set_editing(var a : TGnomeIconTextItem; __editing : dword);
97
 
begin
98
 
   a.flag0:=a.flag0 or ((__editing shl bp_GnomeIconTextItem_editing) and bm_GnomeIconTextItem_editing);
99
 
end;
100
 
 
101
 
function selected(var a : TGnomeIconTextItem) : dword;
102
 
begin
103
 
   selected:=(a.flag0 and bm_GnomeIconTextItem_selected) shr bp_GnomeIconTextItem_selected;
104
 
end;
105
 
 
106
 
procedure set_selected(var a : TGnomeIconTextItem; __selected : dword);
107
 
begin
108
 
   a.flag0:=a.flag0 or ((__selected shl bp_GnomeIconTextItem_selected) and bm_GnomeIconTextItem_selected);
109
 
end;
110
 
 
111
 
function selecting(var a : TGnomeIconTextItem) : dword;
112
 
begin
113
 
   selecting:=(a.flag1 and bm_GnomeIconTextItem_selecting) shr bp_GnomeIconTextItem_selecting;
114
 
end;
115
 
 
116
 
procedure set_selecting(var a : TGnomeIconTextItem; __selecting : dword);
117
 
begin
118
 
   a.flag1:=a.flag1 or ((__selecting shl bp_GnomeIconTextItem_selecting) and bm_GnomeIconTextItem_selecting);
119
 
end;
120
 
 
121
 
function is_editable(var a : TGnomeIconTextItem) : dword;
122
 
begin
123
 
   is_editable:=(a.flag1 and bm_GnomeIconTextItem_is_editable) shr bp_GnomeIconTextItem_is_editable;
124
 
end;
125
 
 
126
 
procedure set_is_editable(var a : TGnomeIconTextItem; __is_editable : dword);
127
 
begin
128
 
   a.flag1:=a.flag1 or ((__is_editable shl bp_GnomeIconTextItem_is_editable) and bm_GnomeIconTextItem_is_editable);
129
 
end;
130
 
 
131
 
function is_text_allocated(var a : TGnomeIconTextItem) : dword;
132
 
begin
133
 
   is_text_allocated:=(a.flag1 and bm_GnomeIconTextItem_is_text_allocated) shr bp_GnomeIconTextItem_is_text_allocated;
134
 
end;
135
 
 
136
 
procedure set_is_text_allocated(var a : TGnomeIconTextItem; __is_text_allocated : dword);
137
 
begin
138
 
   a.flag1:=a.flag1 or ((__is_text_allocated shl bp_GnomeIconTextItem_is_text_allocated) and bm_GnomeIconTextItem_is_text_allocated);
139
 
end;
140
 
 
141
 
{$Endif read_implementation}