← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk/gtk/gtktree.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk/gtk/gtktree.pp
1
 
{
2
 
}
3
 
 
4
 
{****************************************************************************
5
 
                                 Interface
6
 
****************************************************************************}
7
 
 
8
 
{$ifdef read_interface}
9
 
 
10
 
  type
11
 
     TGtkTreeViewMode = longint;
12
 
  const
13
 
     GTK_TREE_VIEW_LINE = 0;
14
 
     GTK_TREE_VIEW_ITEM = 1;
15
 
 
16
 
  type
17
 
     PGtkTree = ^TGtkTree;
18
 
     TGtkTree = record
19
 
          container : TGtkContainer;
20
 
          children : PGList;
21
 
          root_tree : PGtkTree;
22
 
          tree_owner : PGtkWidget;
23
 
          selection : PGList;
24
 
          level : guint;
25
 
          indent_value : guint;
26
 
          current_indent : guint;
27
 
          flag0 : {$ifdef win32}longint{$else}word{$endif};
28
 
       end;
29
 
 
30
 
  const
31
 
     bm_TGtkTree_selection_mode = $3;
32
 
     bp_TGtkTree_selection_mode = 0;
33
 
     bm_TGtkTree_view_mode = $4;
34
 
     bp_TGtkTree_view_mode = 2;
35
 
     bm_TGtkTree_view_line = $8;
36
 
     bp_TGtkTree_view_line = 3;
37
 
function  selection_mode(var a : TGtkTree) : guint;
38
 
procedure set_selection_mode(var a : TGtkTree; __selection_mode : guint);
39
 
function  view_mode(var a : TGtkTree) : guint;
40
 
procedure set_view_mode(var a : TGtkTree; __view_mode : guint);
41
 
function  view_line(var a : TGtkTree) : guint;
42
 
procedure set_view_line(var a : TGtkTree; __view_line : guint);
43
 
 
44
 
  type
45
 
     PGtkTreeClass = ^TGtkTreeClass;
46
 
     TGtkTreeClass = record
47
 
          parent_class : TGtkContainerClass;
48
 
          selection_changed : procedure (tree:PGtkTree); cdecl;
49
 
          select_child : procedure (tree:PGtkTree; child:PGtkWidget); cdecl;
50
 
          unselect_child : procedure (tree:PGtkTree; child:PGtkWidget); cdecl;
51
 
       end;
52
 
 
53
 
Type
54
 
  GTK_TREE = PGtkTree;
55
 
  GTK_TREE_CLASS = PGtkTreeClass;
56
 
 
57
 
function  GTK_IS_ROOT_TREE(obj : PGtkTree) : gboolean;
58
 
function  GTK_TREE_ROOT_TREE(obj : PGtkTree) : PGtkTree;
59
 
function  GTK_TREE_SELECTION(obj : PGtkTree) : PGList;
60
 
 
61
 
function  gtk_tree_get_type:TGtkType;cdecl;external gtkdll name 'gtk_tree_get_type';
62
 
function  gtk_tree_new:PGtkWidget;cdecl;external gtkdll name 'gtk_tree_new';
63
 
procedure gtk_tree_append(tree:PGtkTree; tree_item:PGtkWidget);cdecl;external gtkdll name 'gtk_tree_append';
64
 
procedure gtk_tree_prepend(tree:PGtkTree; tree_item:PGtkWidget);cdecl;external gtkdll name 'gtk_tree_prepend';
65
 
procedure gtk_tree_insert(tree:PGtkTree; tree_item:PGtkWidget; position:gint);cdecl;external gtkdll name 'gtk_tree_insert';
66
 
procedure gtk_tree_remove_items(tree:PGtkTree; items:PGList);cdecl;external gtkdll name 'gtk_tree_remove_items';
67
 
procedure gtk_tree_clear_items(tree:PGtkTree; start:gint; theend:gint);cdecl;external gtkdll name 'gtk_tree_clear_items';
68
 
procedure gtk_tree_select_item(tree:PGtkTree; item:gint);cdecl;external gtkdll name 'gtk_tree_select_item';
69
 
procedure gtk_tree_unselect_item(tree:PGtkTree; item:gint);cdecl;external gtkdll name 'gtk_tree_unselect_item';
70
 
procedure gtk_tree_select_child(tree:PGtkTree; tree_item:PGtkWidget);cdecl;external gtkdll name 'gtk_tree_select_child';
71
 
procedure gtk_tree_unselect_child(tree:PGtkTree; tree_item:PGtkWidget);cdecl;external gtkdll name 'gtk_tree_unselect_child';
72
 
function  gtk_tree_child_position(tree:PGtkTree; child:PGtkWidget):gint;cdecl;external gtkdll name 'gtk_tree_child_position';
73
 
procedure gtk_tree_set_selection_mode(tree:PGtkTree; mode:TGtkSelectionMode);cdecl;external gtkdll name 'gtk_tree_set_selection_mode';
74
 
procedure gtk_tree_set_view_mode(tree:PGtkTree; mode:TGtkTreeViewMode);cdecl;external gtkdll name 'gtk_tree_set_view_mode';
75
 
procedure gtk_tree_set_view_lines(tree:PGtkTree; flag:guint);cdecl;external gtkdll name 'gtk_tree_set_view_lines';
76
 
procedure gtk_tree_remove_item(tree:PGtkTree; child:PGtkWidget);cdecl;external gtkdll name 'gtk_tree_remove_item';
77
 
 
78
 
{$endif read_interface}
79
 
 
80
 
 
81
 
{****************************************************************************
82
 
                              Implementation
83
 
****************************************************************************}
84
 
 
85
 
{$ifdef read_implementation}
86
 
 
87
 
function  selection_mode(var a : TGtkTree) : guint;
88
 
    begin
89
 
       selection_mode:=(a.flag0 and bm_TGtkTree_selection_mode) shr bp_TGtkTree_selection_mode;
90
 
    end;
91
 
 
92
 
procedure set_selection_mode(var a : TGtkTree; __selection_mode : guint);
93
 
    begin
94
 
       a.flag0:=a.flag0 or ((__selection_mode shl bp_TGtkTree_selection_mode) and bm_TGtkTree_selection_mode);
95
 
    end;
96
 
 
97
 
function  view_mode(var a : TGtkTree) : guint;
98
 
    begin
99
 
       view_mode:=(a.flag0 and bm_TGtkTree_view_mode) shr bp_TGtkTree_view_mode;
100
 
    end;
101
 
 
102
 
procedure set_view_mode(var a : TGtkTree; __view_mode : guint);
103
 
    begin
104
 
       a.flag0:=a.flag0 or ((__view_mode shl bp_TGtkTree_view_mode) and bm_TGtkTree_view_mode);
105
 
    end;
106
 
 
107
 
function  view_line(var a : TGtkTree) : guint;
108
 
    begin
109
 
       view_line:=(a.flag0 and bm_TGtkTree_view_line) shr bp_TGtkTree_view_line;
110
 
    end;
111
 
 
112
 
procedure set_view_line(var a : TGtkTree; __view_line : guint);
113
 
    begin
114
 
       a.flag0:=a.flag0 or ((__view_line shl bp_TGtkTree_view_line) and bm_TGtkTree_view_line);
115
 
    end;
116
 
 
117
 
function  GTK_IS_ROOT_TREE(obj : PGtkTree) : gboolean;
118
 
begin
119
 
  GTK_IS_ROOT_TREE:=(obj^.root_tree=obj);
120
 
end;
121
 
 
122
 
function  GTK_TREE_ROOT_TREE(obj : PGtkTree) : PGtkTree;
123
 
begin
124
 
  if (GTK_TREE(obj))^.root_tree<>nil then
125
 
    GTK_TREE_ROOT_TREE:=(GTK_TREE(obj))^.root_tree
126
 
  else
127
 
    GTK_TREE_ROOT_TREE:=GTK_TREE(obj);
128
 
end;
129
 
 
130
 
function  GTK_TREE_SELECTION(obj : PGtkTree) : PGList;
131
 
begin
132
 
  GTK_TREE_SELECTION:=(GTK_TREE_ROOT_TREE(obj))^.selection;
133
 
end;
134
 
 
135
 
{$endif read_implementation}
136
 
 
137