← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/gtk/gtk/gtksocket.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/gtk/gtk/gtksocket.pp
1
 
{
2
 
   $Id: gtksocket.pp,v 1.1.2.1 2000/09/09 18:42:53 peter Exp $
3
 
}
4
 
 
5
 
{****************************************************************************
6
 
                                 Interface
7
 
****************************************************************************}
8
 
 
9
 
{$ifdef read_interface}
10
 
 
11
 
  type
12
 
     PGtkSocket = ^TGtkSocket;
13
 
     TGtkSocket = record
14
 
          container : TGtkContainer;
15
 
          request_width : guint16;
16
 
          request_height : guint16;
17
 
          current_width : guint16;
18
 
          current_height : guint16;
19
 
          plug_window : PGdkWindow;
20
 
          flag0 : {$ifdef win32}longint{$else}word{$endif};
21
 
       end;
22
 
 
23
 
  const
24
 
     bm_TGtkSocket_same_app = $1;
25
 
     bp_TGtkSocket_same_app = 0;
26
 
     bm_TGtkSocket_focus_in = $2;
27
 
     bp_TGtkSocket_focus_in = 1;
28
 
     bm_TGtkSocket_have_size = $4;
29
 
     bp_TGtkSocket_have_size = 2;
30
 
     bm_TGtkSocket_need_map = $8;
31
 
     bp_TGtkSocket_need_map = 3;
32
 
function  same_app(var a : TGtkSocket) : guint;
33
 
procedure set_same_app(var a : TGtkSocket; __same_app : guint);
34
 
function  focus_in(var a : TGtkSocket) : guint;
35
 
procedure set_focus_in(var a : TGtkSocket; __focus_in : guint);
36
 
function  have_size(var a : TGtkSocket) : guint;
37
 
procedure set_have_size(var a : TGtkSocket; __have_size : guint);
38
 
function  need_map(var a : TGtkSocket) : guint;
39
 
procedure set_need_map(var a : TGtkSocket; __need_map : guint);
40
 
 
41
 
  type
42
 
     PGtkSocketClass = ^TGtkSocketClass;
43
 
     TGtkSocketClass = record
44
 
          parent_class : TGtkContainerClass;
45
 
       end;
46
 
 
47
 
type
48
 
  GTK_SOCKET=PGtkSocket;
49
 
  GTK_SOCKET_CLASS=PGtkSocket;
50
 
 
51
 
{$ifndef gtkwin}
52
 
function  gtk_socket_new:PGtkWidget;cdecl;external gtkdll name 'gtk_socket_new';
53
 
function  gtk_socket_get_type:guint;cdecl;external gtkdll name 'gtk_socket_get_type';
54
 
procedure gtk_socket_steal(socket:PGtkSocket; wid:guint32);cdecl;external gtkdll name 'gtk_socket_steal';
55
 
{$endif}
56
 
 
57
 
{$endif read_interface}
58
 
 
59
 
 
60
 
{****************************************************************************
61
 
                              Implementation
62
 
****************************************************************************}
63
 
 
64
 
{$ifdef read_implementation}
65
 
 
66
 
function  same_app(var a : TGtkSocket) : guint;
67
 
    begin
68
 
       same_app:=(a.flag0 and bm_TGtkSocket_same_app) shr bp_TGtkSocket_same_app;
69
 
    end;
70
 
 
71
 
procedure set_same_app(var a : TGtkSocket; __same_app : guint);
72
 
    begin
73
 
       a.flag0:=a.flag0 or ((__same_app shl bp_TGtkSocket_same_app) and bm_TGtkSocket_same_app);
74
 
    end;
75
 
 
76
 
function  focus_in(var a : TGtkSocket) : guint;
77
 
    begin
78
 
       focus_in:=(a.flag0 and bm_TGtkSocket_focus_in) shr bp_TGtkSocket_focus_in;
79
 
    end;
80
 
 
81
 
procedure set_focus_in(var a : TGtkSocket; __focus_in : guint);
82
 
    begin
83
 
       a.flag0:=a.flag0 or ((__focus_in shl bp_TGtkSocket_focus_in) and bm_TGtkSocket_focus_in);
84
 
    end;
85
 
 
86
 
function  have_size(var a : TGtkSocket) : guint;
87
 
    begin
88
 
       have_size:=(a.flag0 and bm_TGtkSocket_have_size) shr bp_TGtkSocket_have_size;
89
 
    end;
90
 
 
91
 
procedure set_have_size(var a : TGtkSocket; __have_size : guint);
92
 
    begin
93
 
       a.flag0:=a.flag0 or ((__have_size shl bp_TGtkSocket_have_size) and bm_TGtkSocket_have_size);
94
 
    end;
95
 
 
96
 
function  need_map(var a : TGtkSocket) : guint;
97
 
    begin
98
 
       need_map:=(a.flag0 and bm_TGtkSocket_need_map) shr bp_TGtkSocket_need_map;
99
 
    end;
100
 
 
101
 
procedure set_need_map(var a : TGtkSocket; __need_map : guint);
102
 
    begin
103
 
       a.flag0:=a.flag0 or ((__need_map shl bp_TGtkSocket_need_map) and bm_TGtkSocket_need_map);
104
 
    end;
105
 
 
106
 
{$endif read_implementation}
107
 
 
108
 
 
109
 
{
110
 
  $Log: gtksocket.pp,v $
111
 
  Revision 1.1.2.1  2000/09/09 18:42:53  peter
112
 
    * gtk win32 fixes
113
 
 
114
 
  Revision 1.1  2000/07/13 06:34:06  michael
115
 
  + Initial import
116
 
 
117
 
  Revision 1.1  1999/11/24 23:36:36  peter
118
 
    * moved to packages dir
119
 
 
120
 
  Revision 1.5  1999/10/06 17:42:50  peter
121
 
    * external is now only in the interface
122
 
    * removed gtk 1.0 support
123
 
 
124
 
  Revision 1.4  1999/07/23 16:13:08  peter
125
 
    * use packrecords C
126
 
 
127
 
  Revision 1.3  1999/05/11 00:39:26  peter
128
 
    * win32 fixes
129
 
 
130
 
  Revision 1.2  1999/05/10 15:20:24  peter
131
 
    * cdecl fixes
132
 
 
133
 
  Revision 1.1  1999/05/10 09:14:00  peter
134
 
    + new gtk 1.2 files
135
 
 
136
 
}
137