← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gtk/gtk/gtkentry.pp

  • 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/gtk/gtk/gtkentry.pp
1
 
{
2
 
   $Id: gtkentry.pp,v 1.2 2002/09/07 15:42:59 peter Exp $
3
 
}
4
 
 
5
 
{****************************************************************************
6
 
                                 Interface
7
 
****************************************************************************}
8
 
 
9
 
{$ifdef read_interface}
10
 
 
11
 
  type
12
 
     PGtkEntry = ^TGtkEntry;
13
 
     TGtkEntry = record
14
 
          editable : TGtkEditable;
15
 
          text_area : PGdkWindow;
16
 
          backing_pixmap : PGdkPixmap;
17
 
          cursor : PGdkCursor;
18
 
          text : PGdkWChar;
19
 
          text_size : guint16;
20
 
          text_length : guint16;
21
 
          text_max_length : guint16;
22
 
          scroll_offset : gint;
23
 
          flag0 : {$ifdef win32}longint{$else}word{$endif};
24
 
          timer : guint32;
25
 
          button : guint;
26
 
          char_offset : Pgint;
27
 
          text_mb : Pgchar;
28
 
          flag1 : {$ifdef win32}longint{$else}word{$endif};
29
 
       end;
30
 
 
31
 
  const
32
 
     bm_TGtkEntry_visible = $1;
33
 
     bp_TGtkEntry_visible = 0;
34
 
     bm_TGtkEntry_text_mb_dirty = $1;
35
 
     bp_TGtkEntry_text_mb_dirty = 0;
36
 
     bm_TGtkEntry_use_wchar = $2;
37
 
     bp_TGtkEntry_use_wchar = 1;
38
 
function  visible(var a : TGtkEntry) : guint;
39
 
procedure set_visible(var a : TGtkEntry; __visible : guint);
40
 
function  text_mb_dirty(var a : TGtkEntry) : guint;
41
 
procedure set_text_mb_dirty(var a : TGtkEntry; __text_mb_dirty : guint);
42
 
function  use_wchar(var a : TGtkEntry) : guint;
43
 
procedure set_use_wchar(var a : TGtkEntry; __use_wchar : guint);
44
 
 
45
 
  type
46
 
     PGtkEntryClass = ^TGtkEntryClass;
47
 
     TGtkEntryClass = record
48
 
          parent_class : TGtkEditableClass;
49
 
       end;
50
 
 
51
 
Type
52
 
  GTK_ENTRY=PGtkEntry;
53
 
  GTK_ENTRY_CLASS=PGtkEntryClass;
54
 
 
55
 
function  GTK_ENTRY_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_entry_get_type';
56
 
function  GTK_IS_ENTRY(obj:pointer):boolean;
57
 
function  GTK_IS_ENTRY_CLASS(klass:pointer):boolean;
58
 
 
59
 
function  gtk_entry_get_type:TGtkType;cdecl;external gtkdll name 'gtk_entry_get_type';
60
 
function  gtk_entry_new :PGtkWidget;cdecl;external gtkdll name 'gtk_entry_new';
61
 
function  gtk_entry_new_with_max_length (max:guint16):PGtkWidget;cdecl;external gtkdll name 'gtk_entry_new_with_max_length';
62
 
procedure gtk_entry_set_text(entry:PGtkEntry; text:Pgchar);cdecl;external gtkdll name 'gtk_entry_set_text';
63
 
procedure gtk_entry_append_text(entry:PGtkEntry; text:Pgchar);cdecl;external gtkdll name 'gtk_entry_append_text';
64
 
procedure gtk_entry_prepend_text(entry:PGtkEntry; text:Pgchar);cdecl;external gtkdll name 'gtk_entry_prepend_text';
65
 
procedure gtk_entry_set_position(entry:PGtkEntry; position:gint);cdecl;external gtkdll name 'gtk_entry_set_position';
66
 
function  gtk_entry_get_text (entry:PGtkEntry):Pgchar;cdecl;external gtkdll name 'gtk_entry_get_text';
67
 
procedure gtk_entry_select_region(entry:PGtkEntry; start:gint; theend:gint);cdecl;external gtkdll name 'gtk_entry_select_region';
68
 
procedure gtk_entry_set_visibility(entry:PGtkEntry; visible:gboolean);cdecl;external gtkdll name 'gtk_entry_set_visibility';
69
 
procedure gtk_entry_set_editable(entry:PGtkEntry; editable:gboolean);cdecl;external gtkdll name 'gtk_entry_set_editable';
70
 
procedure gtk_entry_set_max_length(entry:PGtkEntry; max:guint16);cdecl;external gtkdll name 'gtk_entry_set_max_length';
71
 
 
72
 
{$endif read_interface}
73
 
 
74
 
 
75
 
{****************************************************************************
76
 
                              Implementation
77
 
****************************************************************************}
78
 
 
79
 
{$ifdef read_implementation}
80
 
 
81
 
function  visible(var a : TGtkEntry) : guint;
82
 
    begin
83
 
       visible:=(a.flag0 and bm_TGtkEntry_visible) shr bp_TGtkEntry_visible;
84
 
    end;
85
 
 
86
 
procedure set_visible(var a : TGtkEntry; __visible : guint);
87
 
    begin
88
 
       a.flag0:=a.flag0 or ((__visible shl bp_TGtkEntry_visible) and bm_TGtkEntry_visible);
89
 
    end;
90
 
 
91
 
function  text_mb_dirty(var a : TGtkEntry) : guint;
92
 
    begin
93
 
       text_mb_dirty:=(a.flag1 and bm_TGtkEntry_text_mb_dirty) shr bp_TGtkEntry_text_mb_dirty;
94
 
    end;
95
 
 
96
 
procedure set_text_mb_dirty(var a : TGtkEntry; __text_mb_dirty : guint);
97
 
    begin
98
 
       a.flag1:=a.flag1 or ((__text_mb_dirty shl bp_TGtkEntry_text_mb_dirty) and bm_TGtkEntry_text_mb_dirty);
99
 
    end;
100
 
 
101
 
function  use_wchar(var a : TGtkEntry) : guint;
102
 
    begin
103
 
       use_wchar:=(a.flag1 and bm_TGtkEntry_use_wchar) shr bp_TGtkEntry_use_wchar;
104
 
    end;
105
 
 
106
 
procedure set_use_wchar(var a : TGtkEntry; __use_wchar : guint);
107
 
    begin
108
 
       a.flag1:=a.flag1 or ((__use_wchar shl bp_TGtkEntry_use_wchar) and bm_TGtkEntry_use_wchar);
109
 
    end;
110
 
 
111
 
function  GTK_IS_ENTRY(obj:pointer):boolean;
112
 
begin
113
 
  GTK_IS_ENTRY:=(obj<>nil) and GTK_IS_ENTRY_CLASS(PGtkTypeObject(obj)^.klass);
114
 
end;
115
 
 
116
 
function  GTK_IS_ENTRY_CLASS(klass:pointer):boolean;
117
 
begin
118
 
  GTK_IS_ENTRY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ENTRY_TYPE);
119
 
end;
120
 
 
121
 
{$endif read_implementation}
122
 
 
123
 
 
124
 
{
125
 
  $Log: gtkentry.pp,v $
126
 
  Revision 1.2  2002/09/07 15:42:59  peter
127
 
    * old logs removed and tabs fixed
128
 
 
129
 
  Revision 1.1  2002/01/29 17:55:10  peter
130
 
    * splitted to base and extra
131
 
 
132
 
}