1"======================================================================
2|
3|   Smalltalk Gtk+ bindings (loading script).
4|
5 ======================================================================"
6
7"======================================================================
8|
9| Copyright 2001, 2003, 2009 Free Software Foundation, Inc.
10| Written by Paolo Bonzini.
11|
12| This file is part of the GNU Smalltalk class library.
13|
14| The GNU Smalltalk class library is free software; you can redistribute it
15| and/or modify it under the terms of the GNU Lesser General Public License
16| as published by the Free Software Foundation; either version 2.1, or (at
17| your option) any later version.
18|
19| The GNU Smalltalk class library is distributed in the hope that it will be
20| useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
21| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser
22| General Public License for more details.
23|
24| You should have received a copy of the GNU Lesser General Public License
25| along with the GNU Smalltalk class library; see the file COPYING.LESSER.
26| If not, write to the Free Software Foundation, 59 Temple Place - Suite
27| 330, Boston, MA 02110-1301, USA.
28|
29 ======================================================================"
30
31
32
33Object subclass: Pango [
34
35    <category: 'Gtk'>
36    <comment: nil>
37]
38
39
40
41Object subclass: Gdk [
42
43    <category: 'Gtk'>
44    <comment: nil>
45]
46
47
48
49Object subclass: Gtk [
50
51    <category: 'Gtk'>
52    <comment: nil>
53]
54
55
56
57Object subclass: Atk [
58
59    <category: 'Gtk'>
60    <comment: nil>
61]
62
63
64
65Object subclass: GLib [
66
67    <category: 'Gtk'>
68    <comment: nil>
69
70    GLib class [
71	| gtkTypes |
72
73    ]
74
75    GLib class >> registerAllTypes [
76	<category: 'registering GObject types'>
77	gtkTypes isNil ifTrue: [gtkTypes := OrderedCollection new].
78	gtkTypes do: [:each | self register: each forType: each getType]
79    ]
80
81    GLib class >> registerType: aClass [
82	<category: 'registering GObject types'>
83	gtkTypes isNil ifTrue: [gtkTypes := OrderedCollection new].
84	gtkTypes addLast: aClass
85    ]
86
87    GLib class >> update: anObject [
88	<category: 'registering GObject types'>
89	anObject == #returnFromSnapshot ifTrue: [self registerAllTypes]
90    ]
91]
92
93
94
95Object subclass: GQuark [
96
97    <category: 'Gtk'>
98    <comment: nil>
99]
100
101
102
103CObject subclass: GList [
104
105    <shape: #word>
106    <category: 'Gtk'>
107    <comment: nil>
108]
109
110
111
112CObject subclass: GSList [
113
114    <shape: #word>
115    <category: 'Gtk'>
116    <comment: nil>
117]
118
119
120
121CObject subclass: GdkEvent [
122
123    <shape: #word>
124    <category: 'Gtk'>
125    <comment: nil>
126]
127
128
129
130Eval [
131    ObjectMemory addDependent: GLib
132]
133
134