author | Claus Gittinger <cg@exept.de> |
Wed, 11 Feb 2015 13:02:34 +0100 | |
changeset 3183 | cd02c3731897 |
parent 3142 | 908161b62565 |
child 3226 | cd187ade19da |
permissions | -rw-r--r-- |
93 | 1 |
" |
182 | 2 |
COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG |
987 | 3 |
All Rights Reserved |
182 | 4 |
|
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
1408 | 12 |
"{ Package: 'stx:libtool2' }" |
13 |
||
182 | 14 |
ApplicationModel subclass:#UISelectionPanel |
1142 | 15 |
instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection |
16 |
clipBoardSpec' |
|
1044 | 17 |
classVariableNames:'UserClass UserSpecs UserLabels' |
18 |
poolDictionaries:'' |
|
19 |
category:'Interface-UIPainter' |
|
182 | 20 |
! |
21 |
||
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
22 |
Object subclass:#UserDefinedGallery |
1044 | 23 |
instanceVariableNames:'' |
24 |
classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber' |
|
25 |
poolDictionaries:'' |
|
26 |
privateIn:UISelectionPanel |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
27 |
! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
28 |
|
182 | 29 |
!UISelectionPanel class methodsFor:'documentation'! |
30 |
||
31 |
copyright |
|
32 |
" |
|
33 |
COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG |
|
987 | 34 |
All Rights Reserved |
93 | 35 |
|
36 |
This software is furnished under a license and may be used |
|
37 |
only in accordance with the terms of that license and with the |
|
38 |
inclusion of the above copyright notice. This software may not |
|
39 |
be provided or otherwise made available to, or used by, any |
|
40 |
other person. No title to or ownership of the software is |
|
41 |
hereby transferred. |
|
42 |
" |
|
43 |
||
44 |
||
45 |
! |
|
46 |
||
47 |
documentation |
|
48 |
" |
|
49 |
implements a selection panel, keeping widgets which could be placed |
|
50 |
into the UIPainter by drag & drop. |
|
51 |
||
182 | 52 |
[start with:] |
987 | 53 |
UISelectionPanel open |
182 | 54 |
|
93 | 55 |
[author:] |
987 | 56 |
Claus Gittinger |
57 |
Claus Atzkern |
|
93 | 58 |
|
59 |
[see also:] |
|
987 | 60 |
TabView |
61 |
NoteBookView |
|
62 |
UIGalleryView |
|
63 |
UIPainter |
|
104 | 64 |
|
93 | 65 |
" |
66 |
||
67 |
! ! |
|
68 |
||
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
69 |
!UISelectionPanel class methodsFor:'initialization'! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
70 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
71 |
initialize |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
72 |
UserClass := UISelectionPanel::UserDefinedGallery. |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
73 |
UserSpecs := #listOfSelectors. |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
74 |
UserLabels := #listOfLabels. |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
75 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
76 |
"Modified: / 8.12.1997 / 18:53:06 / cg" |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
77 |
! ! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
78 |
|
182 | 79 |
!UISelectionPanel class methodsFor:'accessing'! |
93 | 80 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
81 |
userClass |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
82 |
"return the class which provides the user defined gallery specs." |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
83 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
84 |
^ UserClass |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
85 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
86 |
"Created: / 5.12.1997 / 15:12:50 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
87 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
88 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
89 |
userClass:aClass specSelector:aSpecAccessSelector labelSelector:aLabelListAccessSelector |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
90 |
"change the class which provides the user defined gallery specs." |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
91 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
92 |
UserClass := aClass. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
93 |
UserSpecs := aSpecAccessSelector. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
94 |
UserLabels := aLabelListAccessSelector. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
95 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
96 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
97 |
UISelectionPanel |
987 | 98 |
userClass:UISelectionPanel::VariableUserDefinedGallery |
99 |
specSelector:#listOfSelectors |
|
100 |
labelSelector:#listOfLabels |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
101 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
102 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
103 |
"Modified: / 5.12.1997 / 13:54:47 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
104 |
"Created: / 5.12.1997 / 13:56:10 / cg" |
93 | 105 |
! ! |
106 |
||
1602 | 107 |
!UISelectionPanel class methodsFor:'classAccess'! |
108 |
||
109 |
galleryClass |
|
110 |
||
111 |
^ UserDefinedGallery |
|
112 |
! ! |
|
113 |
||
2562 | 114 |
!UISelectionPanel class methodsFor:'image specs'! |
115 |
||
116 |
sketchImageIcon |
|
2566 | 117 |
^ self sketchImageIcon2 |
118 |
! |
|
119 |
||
120 |
sketchImageIcon1 |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
121 |
<resource: #image> |
2562 | 122 |
"This resource specification was automatically generated |
123 |
by the ImageEditor of ST/X." |
|
124 |
"Do not manually edit this!! If it is corrupted, |
|
125 |
the ImageEditor may not be able to read the specification." |
|
126 |
" |
|
127 |
self sketchImageIcon inspect |
|
128 |
ImageEditor openOnClass:self andSelector:#sketchImageIcon |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
129 |
Icon flushCachedIcons" |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
130 |
|
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
131 |
^ Icon constantNamed:'UISelectionPanel class sketchImageIcon1' |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
132 |
ifAbsentPut:[ |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
133 |
(Depth24Image new) |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
134 |
width:62; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
135 |
height:48; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
136 |
photometric:(#rgb); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
137 |
bitsPerSample:(#[ 8 8 8 ]); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
138 |
samplesPerPixel:(3); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
139 |
bits:(ByteArray |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
140 |
fromPackedString:' |
2562 | 141 |
4M? /<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P |
142 |
/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P |
|
143 |
/<?P4M? /<?P???????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
144 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
145 |
????????????/<?P/<?P???????????????????????????????????????????????????????????????????????????????????????????????????? |
|
146 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
147 |
????????????????????/<?P/<?P???????????????????????????????????????????????????????????????????????????????????????????? |
|
148 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
149 |
????????????????????????????/<?P/<?P???????????????????????????????????????????????????????????????????????????????????? |
|
150 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
151 |
????????????????????????????????????/<?P/<?P???????????????????????????????????????????????????????????????????????????? |
|
152 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
153 |
????????????????????????????????????????????/<?P/<?P????????????????????PICPS9?PS9?PTI?_W:C_W:C_XJ?_XJ?_XJ?_[:?_[:?_XJ?_ |
|
154 |
XJ?_XJ?_XJ?_W:?_W:C_W:C_TJC_TJC_TJC_TJC_TJC_TI?_S9?_S9?_S9?_S9?_PI?PPICPPICPPICPO9CPO8?PO8?PO8?PLH?PLH?OLHCOLHCOK8COK8CO |
|
155 |
K8COK7?OK7?OHG?OHG?OHG?OHGB?HGB?????????????????????/<?P/<?P????????????????????TI?_XJ? [:?0\KC0\KC0_;?0 K?0 LC0#<C0#<C0 |
|
156 |
#<C0#<C0 LC0 LC0_<C0_;??_;?0\K?0\K?0\K?0\K?0\KC0[;C0[;C0[;C0XKC0XKC0XJ? XJ? W:? W:C TJC TJC S9? S9? S9? PIC_PIC_PIC_PH?_ |
|
157 |
O8?_O8?_O8?_LHC_LHCPLHCPLHCPLHCPK7?PK7?O????????????????????/<?P/<?P????????????????????XJ? [;C0\KC0_;?0 LC0#<C0$L??''<?? |
|
158 |
''=C?''=C?''=C?''=C?''<??$L??#<??#<?? L?? LC? LC?_<C?_<C?_<C?_;??_;??\K?0\K?0[;C0[;C0[;C0XJ?0XJ?0W:?0W:C TJC TI? S9? S9? S9C |
|
159 |
PIC_PIC_PH?_O8?_O8?_O8?_LHC_LHC_LHC_LHCPLG?PK7?P????????????????????/<?P/<?P????????????????????XJ? \KC0_;?0#<C0$L?0''<?? |
|
160 |
(MC?+=C?,M??,M??,M??+=??(MC?(MC?''=C?$L??#<??#<?? L?? LC? LC?_<C?_<C?_;??_;?0\K?0\K?0\KC0[;C0[;C0XJ?0XJ?0W:? W:C TJC TJC |
|
161 |
S9? S9? PIC_PIC_PH?_PH?_O8?_O8?_O8C_LHC_LHC_LHCPLG?PK7?P????????????????????/<?P/<?P????????????????????[;C _;?0 K?0$L?0 |
|
162 |
(MC?+=C?0NC?8OC?;?C?;?C?7?C?0NC?/=??+=??(MC?''=C?$MC?$L??#<??#<?? L?? LC? LC? LC?_<C?_;?0_;?0\K?0\KC0[;C0[;C0[:?0XJ?0W:?0 |
|
163 |
W:C TJC TI? S9? S9C PIC_PIC_PH?_O8?_O8?_O8C_LHC_LHC_LHC_LG?PK7?P????????????????????/<?P/<?P????????????????????\KC K?0 |
|
164 |
#<C0(MC?,M??8OC?????????????????????????7>??/>C?,M??+=??(MC?''=C?$L??#<??#<??#<?? L?? LC? LC?_<C0_;?0 LC0#<C0 LC0 K?0_;?0 |
|
165 |
\KC0XJ?0W:C W:C TJC TI? S9? S9C PIC_PH?_O8?_O8?_O8C_LHC_LHC_LHC_LG?PK7?P????????????????????/<?P/<?P???????????????????? |
|
166 |
\KC0#;?0''<?0+=C?7>??????????????????????????????????4N??/>C?,M??+=??''=C?''=C?$MC?#<??#<??#<?? L?? LC? LC?#<??$L??#<C0#<C0 |
|
167 |
LC0 K?0_;?0[;C0XJ? W:C W:C TI? TI? S9C PIC_PIC_PH?_O8?_O8C_LHC_LHC_LHC_LHCPK7?P????????????????????/<?P/<?P???????????? |
|
168 |
????????_;?0#<C0''<?0/=??????????????????????????????????????<O??0NC?/>C?+=??(M??''=C?$MC?$MC?$L??#<??#<?? L?? LC?$L??$L?? |
|
169 |
#<?0#<C0#<C0 K?0 K?0_;?0XJ? W:C W:C TJC TI? TI? W:C W:C W9? TIC_O8?_LHC_LHC_LHC_LHCPK7?P????????????????????/<?P/<?P???? |
|
170 |
????????????????_;?0$LC0(MC?4N??????????????????????????????????????????4N??/>C?,M??+=??(MC?''=C?$MC?$L??$L??#<??#<?? LC? |
|
171 |
$L??$L??$L??#<C0#<C0 LC0 K?0\KC0XJ?0XJ? W:C TJC TI? W:C XJC XJC W:C W9? PH?_LHC_LHC_LHC_LHCPK7?P????????????????????/<?P |
|
172 |
/<?P????????????????????_;?0$LC0(MC?7>??????????????????????????????????????????7?C?0NC?,NC?+=??(M??''=C?''=C?$MC?$L??#<?? |
|
173 |
#<??#<??#<C?#<??#<??#<?0#<C0#<C0_;?0[;C0XJ?0XJ? W:C W:C TI? TI? XJC XJC W:C TI? O8?_LHC_LHC_LHC_LHCPK7?P???????????????? |
|
174 |
????/<?P/<?P????????????????????_;?0$LC0(MC?7>??????????????????????????????????????????4N??0NC?,NC?+=??(M??''=C?''=C?$MC? |
|
175 |
$L??$L??#<??#<??#<?? LC0 LC0_;?0_;?0_;?0\KC0[;C0[:?0XJ? W:? W:C TJC TI? S9? S9?_S9C_PH?_O8?_O8C_LHC_LHC_LHCPK7?P???????? |
|
176 |
????????????/<?P/<?P????????????????????_;?0#<C0(L?00NC?????????????????????????????????????????3>??/>C?,M??+=??(M??''=C? |
|
177 |
''=C?$MC?$MC?$L??#<??#<??#<C? LC0 LC0_;?0_;?0\K?0\KC0[;C0[;C0XJ? XJ? W:C W:C TI? S9? S9C_PIC_PH?_O8?_O8C_LHC_LHC_LHCPK7?P |
|
178 |
????????????????????/<?P/<?P????????????????????\KC0#<C0''<?0+=C?8OC?????????????????????????????????7?C?0NC?/>C?,M??+=?? |
|
179 |
(MC?''=C?''=C?$MC?$L??$L??$L??#<??#<?? LC? LC0_;?0_;?0\K?0\KC0[;C0[;C0XJ? XJ? W:C W:C TI? TI? S9? PIC_PH?_O8?_O8?_LHC_LHC_ |
|
180 |
LHCPK7?P????????????????????/<?P/<?P????????????????????\KC0 K?0$LC0(MC?/=??<O??????????????????????????;?C?0NC?/>C?,M?? |
|
181 |
+=??(M??''=C?''=C?$MC?$MC?$MC?$L??$L??#<??#<?? LC? LC0_<C0_;?0\K?0\KC0[;C0[;C0XJ? XJ? W:C W:C TI? TI? S9C PIC_PIC_O8?_O8?_ |
|
182 |
LHC_LHC_LG?PK7?P????????????????????/<?P/<?P????????????????????[;C _;?0#<C0$L??+=C?,M??7>??<O??????????<O??4N??0NC?/>C? |
|
183 |
,M??+=??(M??(MC?''=C?''=C?$MC?$MC?$L??$L??#<??#<??#<?? LC? LC0_;?0_;?0_;?0\KC0[;C0\KC0\KC0\KC0XJ? W:C TJC TI? S9? S9C_PIC_ |
|
184 |
O8?_O8?_LHC_LHC_LG?PK7?P????????????????????/<?P/<?P????????????????????XJ? \KC0_;?0#<C0''<??(MC?,M??/=??/>C?/>C?/>C?/>C? |
|
185 |
,M??,M??+=??(M??(MC?''=C?''=C?''=C?$MC?$L??$L??$L??#<??#<??#<C? LC0 LC0_<C0_;?0\K?0\KC0[;C0_;?0_;?0_;?0\KC W:C TI? TI? S9? |
|
186 |
S9C_PIC_O8?_O8?_LHC_LHCPLG?PK7?P????????????????????/<?P/<?P????????????????????XJ? [;C0\KC0 K?0#<C0$L??(MC?(MC?+=??+=?? |
|
187 |
+=??+=??+=??(MC?(MC?''=C?''=C?''=C?$MC?$MC?$L??$L??$L??#<??#<??#<??#<C? LC0 LC0_;?0_;?0\K?0\KC0[;C0\KC0\KC0\KC0XJ? W:C TJC |
|
188 |
TI? S9?_PIC_PIC_O8?_O8?_LHC_LHCPLG?PK7?P????????????????????/<?P/<?P????????????????????W:C XJ?0[;C0_;?0 K?0#<C0$L?0$L?? |
|
189 |
''=C?''=C?(MC?(MC?''=C?''=C?''=C?''=C?$MC?$L??$L??$L??$L??#<??#<??#<??#<??#<C? LC0 LC0 LC0_;?0_;?0\K?0\KC0[;C0[:?0XJ? XJ? W:C |
|
190 |
W:C TI? S9? S9?_PIC_PH?_O8?_O8?_LHC_LHCPLG?PK7?P????????????????????/<?P/<?P????????????????????W:C XJ?0XJ?0[;C0\K?0_;?0 |
|
191 |
LC0#<C0#<??$L??$L??$L??$L??$L??$L??$L??$L??$L??$L??#<??#<??#<??#<??#<??#<C? LC0 LC0 LC0_;?0_;?0\K?0\K?0\KC0[;C0XJ? XJ? |
|
192 |
XJ? W:C TJC TI? S9? S9C_PIC_PH?_O8?_O8C_LHC_LG?PLG?PK7?P????????????????????/<?P/<?P????????????????????TJC W:C0XJ?0[:?0 |
|
193 |
[;C0\KC0_;?0_;?0 LC0 LC?#<C?#<??#<??#<??#<??#<??#<??#<??#<??#<??#<??#<??#<C?#<C? LC0 LC0 LC0_;?0_;?0_;?0\K?0\KC0[;C0[;C0 |
|
194 |
XJ? XJ? W:C W:C TJC TI? S9?_S9C_PIC_PH?_O8?_O8C_LHCPLG?PLG?PK7?P????????????????????/<?P/<?P????<OC?<OC?<OC?????TI? W:C |
|
195 |
W:C0XJ?0XKC0[;C0\KC0\K?0_;?0_;?0 LC0 LC? LC? LC?#<C?#<C?#<??#<C?#<??#<C?#<C? LC? LC? LC0 LC0 LC0_;?0_;?0_;?0\K?0\KC0[;C0 |
|
196 |
[;C0[:? XJ? XJ? W:C W:C TI? TI? S9?_PIC_PIC_PH?_O8?_LHC_LHCPLG?PLG?PK7?P????<OC?<OC?<OC?????/<?P/<?P????<OC?<OC?<OC????? |
|
197 |
TI? TJC W:C W:C0XJ?0XJ?0[;C0\KC0\K?0\K?0_;?0_;?0_;?0 LC0 LC0 LC0 LC0 LC0 LC0 LC? LC? LC0 LC0 LC0 LC0_;?0_;?0_;?0\K?0\KC0 |
|
198 |
\KC0[;C0[;C0XJ? XJ? W:C W:C TJC TI? S9? S9C_PIC_PIC_O8?_O8?_LHC_LHCPLG?PK7?PK7?P????<OC?<OC?<OC?????/<?P/<?P????<OC?<OC? |
|
199 |
<OC???C?S9? TJC TJC W:C W:?0XJ?0XKC0[;C0[;C0\KC0\K?0_;?0_;?0_;?0_;?0_<C0 LC0 LC0 LC0 LC0 LC0 LC0 LC0_<C0_;?0_;?0_;?0\K?0 |
|
200 |
\KC0\KC0[;C0[;C0XJ? XJ? XJ? W:C W:C TJC TI? S9?_S9C_PIC_PH?_O8?_O8C_LHCPLHCPLG?PK7?PK7?P??C?<OC?<OC?<OC?????/<?P/<?P???? |
|
201 |
<OC?<OC?<OC???C?3>>04N>07?B/8OB/8O>/8O>/8O>/8O>/8OB/7?B04OB03>>?0N>?/>CO,M?P+=?P''=C_$L? LC0_;?0_;?0_;?0_;?0_;?0_;?0_;?0 |
|
202 |
\K?0\KC0\KC0[;C0[;C0[:? \KC__;?P#<CO$L>?(L>0+=B/,M>//>B 0NB 3>> 4N>P4N>P4N>P4N> 3>> 0NB /=>/,MB/??C?<OC?<OC?<OC?????/<?P |
|
203 |
/<?P????<OC?<OC?<OC?<OC?7?B 7?BP4OBO4OB@4OB@4OB@4OB@4OBO7?BO7?BO7?BO7?BO7?BP7?>P8O>P8O> 8O> 8O> 8OB/4N>?0NCO+=?P''<?_ LC |
|
204 |
\K?0\KC0\KC0_;? #<CP$L>?(MB/,M>P0NBO0NBO0NB@0NB@0NB@/>B@/>A?/>A?/>A?/>A?/>A//>A//>A//>A//>A?0NA?0NA?0NA?<OC?<OC?<OC?<OC? |
|
205 |
????/<?P/<?P????<OC0<OC0<OC0<OC?7?B 3>>@0N=?0N=?3>=?3>=?3>=?3>=?3>=?3>=?3>=?4OB@4OB@4OB@4OB@4OB@4OB@4OB@4OB@7?BO7?BO8O>P |
|
206 |
8O> 7?B/3>>0/>B0,M>/,M>O/=>@,M=?,M=?+==/+=A (MA_(MA_(MA_(MA_(MA_(MA_+=A_+== +== +== +== +== +== ,M= ,M= ,M= ,M= <OC?<OC0 |
|
207 |
<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC?4N>P/>A?/>A//>A//>A/0NA/0NA/0N=?0N=?0N=?0N=?0N=?0N=?3>=?3>=?3>=?3>=?3>=?3>=?3>=? |
|
208 |
4OB@4OB@4OB@4OB@4OBO7?BO7?BP7?BP0NB@,M=/''<=_$L=P$L=P$L=P''<=P''<=P''<=P''<=P''<=_''=A_''=A_(MA_(MA_(MA_(MA_(MA_(MA_(MA_+=A_+== |
|
209 |
<OC?<OC0<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC?3>>O,M=/,M= ,M= ,NA/,NA//>A//>A//>A//>A//>A//>A//>A//>A/0NA/0NA/0N=?0N=? |
|
210 |
0N=?0N=?0N=?0N=?3>=?3>=?3>=?3>=?3>=?3>>@4OB@7?BP3>>O,M=?''<=_#<A@#<A@$LA@$LAP$L=P$L=P$L=P$L=P$L=P$L=P''<=P''<=P''<=P''<=P''<=_ |
|
211 |
''=A_''=A_<OC?<OC0<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC?0NBO+== +== +== +== +== +== +== ,M= ,M= ,M= ,M= ,M= ,NA/,NA//>A/ |
|
212 |
/>A//>A//>A//>A//>A//>A//>A/0NA/0NA/0N=?0N=?0N=?0N=?0N=?3>=?3>>@3>>O,M=?''<=_ K=@ LA@#<A@#<A@#<A@#<A@#<A@#<A@#<A@$LA@$LAP |
|
213 |
$L=P$L=P$L=P$L=P<OC?<OC0<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC0/=>@(MA_''=A_(MA_(MA_(MA_(MA_(MA_(MA_(MA_+=A_+== +== +== |
|
214 |
+== +== +== ,M= ,M= ,M= ,M= ,M= ,NA/,NA//>A//>A//>A//>A//>A//>A//>A//>A/0NA/0N=?0N>@+==/#<AP_;<?_;<? K<? K<? K<? K<? K=@ |
|
215 |
K=@ LA@#<A@#<A@#<A@#<A@<OC0<OC0<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC0,M=?''<=P$L=P$L=P$L=P''<=P''<=P''<=P''<=P''<=_''=A_''=A_ |
|
216 |
(MA_(MA_(MA_(MA_(MA_(MA_(MA_+=A_+== +== +== +== +== +== ,M= ,M= ,M= ,M= ,M= ,NA/,NA//>A//>A//>A?/==?''<=_\K@0\K@0_;@?_;@? |
|
217 |
_;<?_;<?_;<?_;<?_;<?_;<? K<? K<?<OC0<OC0<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC0+=A/#<AP#<A@#<A@#<A@#<A@$LA@$LAP$L=P$L=P |
|
218 |
$L=P$L=P$L=P$L=P''<=P''<=P''<=P''<=P''<=_''=A_''=A_(MA_(MA_(MA_(MA_(MA_(MA_(MA_+=A_+== +== +== +== +== +== ,M= ,M= />A/''<= _;@? |
|
219 |
[;@0\K@0\K@0\K@0\K@0\K@0\K@0\K@0\K@0_;@?<OC0<OC0<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC0(MA K=@ K<? K<? K<? K=@ K=@ LA@ |
|
220 |
#<A@#<A@#<A@#<A@#<A@#<A@#<A@$LA@$LAP$L=P$L=P$L=P$L=P$L=P$L=P''<=P''<=P''<=P''<=P''<=_''=A_''=A_(MA_(MA_(MA_(MA_(MA_(MA_(MA_+=A_ |
|
221 |
+== ''<=_\K@0[:</[:</[:</[:</[:</[:<0[:<0[;@0[;@0<OC0<OC0<OC0<OC0????/<?P/<?P????<OC0<OC0<OC0<OC0''<= _;<?_;@?_;@?_;<?_;<? |
|
222 |
_;<?_;<?_;<?_;<? K<? K<? K<? K<? K=@ K=@ LA@#<A@#<A@#<A@#<A@#<A@#<A@#<A@$LA@$LAP$L=P$L=P$L=P$L=P$L=P$L=P''<=P''<=P''<=P''<=P |
|
223 |
''<=_''=A_''=A_(MA_$LAPXJ</XJ@/XJ</XJ</XJ</XJ</XJ</XJ</XJ</<OC0<OC0<OC0<OC0????/<?P/<?P??C?;>?0;>?0;>?0<OC0$L=_\K@0[;@0\K@0 |
|
224 |
\K@0\K@0\K@0\K@0\K@0\K@0\K@0_;@?_;@?_;<?_;<?_;<?_;<?_;<?_;<? K<? K<? K<? K<? K=@ K=@ LA@#<A@#<A@#<A@#<A@#<A@#<A@#<A@$LA@ |
|
225 |
$LAP$L=P$L=P$L=P$L=P$L=P''<=P K=@W:@_W:@_W:@_W:@_W:@_W:@_W:@_W:@/<OC0;>?0;>?0;>?0??C?/<?P/<?P<OC?;>?0;>?0;>?0<OC0#<AP[:<0 |
|
226 |
XJ</[:</[:</[:</[:</[:</[:<0[:<0[;@0[;@0\K@0\K@0\K@0\K@0\K@0\K@0\K@0\K@0_;@?_;@?_;<?_;<?_;<?_;<?_;<?_;<? K<? K<? K<? K<? |
|
227 |
K=@ K=@ LA@#<A@#<A@#<A@#<A@#<A@#<A@#<A@XJ</TJ@_TJ@_TJ@_TJ@_W:@_W:@_W:@_<OC0;>?0;>?0;>?0<OC?/<?P/<?P<OC?;>?0;>?0;>?0;>?0 |
|
228 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
229 |
????????????????????????????????????????????????????????????????????????????????;>?0;>?0;>?0;>?0<OC?/<?P/<?P<OC?;>?0;>?0 |
|
230 |
;>?0;>?0;>?0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0 |
|
231 |
<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0<OC0;>?0;>?0;>?0;>?0;>?0<OC?/<?P/<?P<OC? |
|
232 |
;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0 |
|
233 |
;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0<OC?/<?P |
|
234 |
/<?P<OC?;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0 |
|
235 |
;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0;>?0 |
|
236 |
<OC?/<?P/<?P????<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC? |
|
237 |
<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC?<OC? |
|
238 |
<OC?<OC?????/<?P4M? /<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P |
|
239 |
/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P/<?P |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
240 |
/<?P/<?P/<?P/<?P/<?P4M? '); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
241 |
mask:((ImageMask new) |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
242 |
width:62; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
243 |
height:48; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
244 |
bits:(ByteArray |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
245 |
fromPackedString:' |
2562 | 246 |
??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?? |
247 |
???????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3????? |
|
248 |
?????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<???????? |
|
249 |
??3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????< |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
250 |
??????????3??????????O?????????<'); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
251 |
yourself); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
252 |
yourself |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
253 |
] |
2566 | 254 |
! |
255 |
||
256 |
sketchImageIcon2 |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
257 |
<resource: #image> |
2566 | 258 |
"This resource specification was automatically generated |
259 |
by the ImageEditor of ST/X." |
|
260 |
"Do not manually edit this!! If it is corrupted, |
|
261 |
the ImageEditor may not be able to read the specification." |
|
262 |
" |
|
263 |
self sketchImageIcon2 inspect |
|
264 |
ImageEditor openOnClass:self andSelector:#sketchImageIcon2 |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
265 |
Icon flushCachedIcons" |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
266 |
|
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
267 |
^ Icon constantNamed:'UISelectionPanel class sketchImageIcon2' |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
268 |
ifAbsentPut:[ |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
269 |
(Depth8Image new) |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
270 |
width:96; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
271 |
height:78; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
272 |
photometric:(#palette); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
273 |
bitsPerSample:(#[ 8 ]); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
274 |
samplesPerPixel:(1); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
275 |
bits:(ByteArray |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
276 |
fromPackedString:' |
2566 | 277 |
PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@ |
278 |
PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@ |
|
279 |
PDA@PDA@PDA@PDA@PC49A9"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X |
|
280 |
&I"X&I"X&I"X&I"X&I"XA3%@PC%0I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\'' |
|
281 |
I2\''I2\''I2\''I2\''I2\''I2\''I2\''HPI@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\'' |
|
282 |
I2\''I2\''I2\''I2\''I2\''I2\''\GA0\G@?O3<?NPA@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\'' |
|
283 |
I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2]0\GA0O3<?O3<=NVM@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\'' |
|
284 |
I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''\GA0\G@?O3<?OS4=NVM@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\'' |
|
285 |
I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2]0\GA0O3<?O3<=OS4=NVM@P@\=I2\''I5]OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=O |
|
286 |
S4=OS4=!!XVE!!XVE!!XVE!!XVE!!XVE!!XVE!!XVE%XVE!!XVE!!YT9NS$9NNS$9NS%NS%T=OS4=NVM@P@\=I2\''I6YGQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]G |
|
287 |
Q4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]DQB</KB0,E84_G22$EB0,KB2$R9VU+9V/B"TJ+3N,R6D=OS4=NVM@P@\=I2\''I6YGQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]G |
|
288 |
Q4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQDP/K20,KB19%YV,+6I6#R0WX$.,+IV/+0(J%RTJ+D-"X&D=OS4=NVM@P@\=I2\''I6YGQ4]GQ4]GQ4]GQ4]GQ4]G |
|
289 |
Q4]GQ4]GQ4]GQ4]GQ4\[F1-GQ4]GQ4]GQ4]GK2</E1^PKI@_R6IKR6IK+:=6#ZRMB *U+J2U+@*,+J1"X&I"X&D=OS4=NVM@P@\=I2\''I6X[F1,[F1,[F1,[ |
|
290 |
F1,[F1,[F1,[F1,[F1,[F1,[K2</K2</K1,[F1,[K2</K1^P^W4_X*2U+62/+D.,+0*,#VJU+IVU]&IK+D.MX(6M#VI"X&D=OS4=NVM@P@\=I2\''I6X/K2</ |
|
291 |
K2</K2</K2</K2</K2</K2</K2</K2</K2</K0LCK2</K2</K2<CE9A=G1=R+9VU%Z03%Z<JIP(JR3^U])U")JQ"+FJM#X6M#VI"X&T=OS4=NVM@P@\=I2\'' |
|
292 |
I6X/K2</K2</K2</K2</K2</K2</K2</K2</K2</K2<C@0LCK0L/K2</K0LW$G%)T*>/+:>UR4.,%P*/B"V/+J1KX*2M)JRMX(5"#X6MX&IK+D8=OS4=NVM@ |
|
293 |
P@\=I2\''I6X/K2</K2</K2</K2</K2</K2</K2</K2</K0LC@0LC@1\W@0LC@0LC@0LCE7%)+9VU+D-KX&IK+IVUB"TJ+A="R4-"R6J$)G%"X&I"X!!=KR6T= |
|
294 |
OS4=NVM@P@\=I2\''I6XC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LCE1\WE0LC@0LC@1\WE7$_+J1KG6I"X*2/+J0JIP*/+FI"+H6MX''&$)G&MR4-K |
|
295 |
G6H_X&D=OS4=NVM@P@\=I2\''I8DC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LCE1\W$IBP$A\WE1\WE9BP$G4_G6I"X&I"X*2/+J<JIS^/+FIK%T-"#W&$ |
|
296 |
^W%K+EJ,R6I"X&D=OS4=NVM@P@\=I2\''I4<WE1\WE1\WE1\WE1\WE1\WE1\WE1\WE1\WE1\W$IBP$IBP$IBP$IBP$IA9^Q=KX&I"X&I"G9VU+J>/B*>UR:2U |
|
297 |
%Z2M^W%9^W%K%YV,R6I"X&D=OS4=NVM@P@\=I2\''I4>P$IBP$IBP$IBP^W&P$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$G%9X!!<_X&I"X&H_R:2,+J>U |
|
298 |
+:>U+EJ,X&I9^W%9^W$_+J2,+D-"#VD=OS4=NVM@P@\=I2\''I4>P$IBP$IBP^W%=G1=9^W%9X''59%IBP$IBP$IBP$IBT^W%9^YRT%IRT^W%9X!!<_X&I"X$-K |
|
299 |
+J2,+J=,+:1KX&I"X*2UR86M#X4_G:2UG:0_X&D=OS4=NVM@P@\=I2\''I4>P$IQ9^W%9^Z1RT%J,+EIRT*2,X''%9^YRT%G%9^W%9^W%9^W%9^W%9^W%9^VIK |
|
300 |
G1<_R4.,+J1R+2T%IP*,G1>,B (%B%I"X&H_+IV,X&IKR6D=OS4=NVM@P@\=I2\''I4>T^W%9^W%"G4.,+:=,[J>/[F1,[A==^W5=_W5=_VI"_W5=_W5=_W59 |
|
301 |
^W%=_VH_+J2,T*2,+J2U+2T%B"TJ+J1R+:=,%Z1"X&IK+A="X&I"X&D=OS4=NVM@P@\=I2\''I3)9^W5"X&J,R:1R+:>,T*2,%Z>/+:<_G1<__W5=G1<_G6I= |
|
302 |
_W5=_W5=_W5=X&I"G1=RT*1RT)V/B*>U+2T%IRT%[J>UR6I"X&I"X&I"X&I"X&D=OS4=NVM@P@\=I2\''I3)=X&H_%YUR+EJ/T*2,+J2,T*>/%UJ,+J2,G1<_ |
|
303 |
G1=)G1<__W5=_W5=_W5"X&I"X!!>/%YV/+9V/+9UR%Z>/[F2/+62/R6I"X&I"X&I"X&I"X&D=OS4=NVM@P@\=I2\''I3)"+EIR+9V/%YV,+D.,+J2U+:>/%Z1R |
|
304 |
T%IRT*1)G6&,+F$_G75=_W5=_VI"X&H_G:1,+:>/+:=,+:2,R4,_G:2,+:=RR1<_G1<_G1<_G6H_G6D=OS4=NVM@P@\=I2\''I2IR%Z>/+:>UT%J,R:2,+J1R |
|
305 |
%YVU+:=,+:>/+9URG1>,T%J,ZQ<_G6I"X&I"G1<_G1=K+J1K+J>/+9V,R4.,R4.,+D.,+D-KR4,_G1<_R4-KG6T=OS4=NVM@P@\=I2\''I2J/+:>/+:>U%UJ, |
|
306 |
+J2,+J2,+EJU+61,+:>/[F1,+5IRT%IRT*2,G1<_G1<_G1<_R4-KR4-KR:2/T*1RR4-KR:2/+5J/B&1,[J=KR4-K+J2,R6T=OS4=NVM@P@\=I2\''I2J/+:>/ |
|
307 |
+:>U+5J,+J2,+J1RT)V/+:>/[F1,[F1,[J>UT%IR%UJ,+J1)G1<_R4-KR4-KR:2,+J<JIP),[J<J+61,+2U,+60%IRT%[J>U+J2,+FT=OS4=NVM@P@\=I2\'' |
|
308 |
I2JU%YVU%UIRT*2,+J2,+EJU%YVU+62/+:>/[@(J+9VU%YURT%IRT%IR+J2,+J2,+J2,+J2,%Z=,B */B"T%IZ>U%V0%B&1,%P(%IRT%IYV,+FT=OS4=NVM@ |
|
309 |
P@\=I2\''I2JUT)VU%Z2,+J2,+J1R%YVU%YV/+:>/+:>/+:>/%YURT%J,+EJU%YVUT%IR+J2,+J2,+J2,%YVU+9VU+:<J+9VU+0(%IRT%+60%[J<JIRV/+FT= |
|
310 |
OS4=NVM@P@\=I2\''I2JU%YVU%Z2,+J2U%YVU%YVU%YVU%YV/[J>/%YVU%YV,+J2,+EJU%YVU%YVU+:>UL:2,B */%YVU%YVU%YU,%YVU+0(JB (J+0),+:>/ |
|
311 |
+60%B$8=OS4=NVM@P@\=I2\''I6VU%YVU%YVU%YVU%YVU%YVU%YVU%YV/+:>/%YVU%Z2,+J2,+IVU%YVU%Z>/+0),%YU,B"T%+9VU%YVU%Z>/%YV/B */+:>/ |
|
312 |
%Z>/+:>/+0(%IS$=OS4=NVM@P@\=I2\''I7TIV''LVE*2U%YU_IG8I\9VU%YVU%YVU+:>/%YVU%SL3+CNU%YVU%YV/[F2/+0(%IRT%B*>/%YVU%YVU%YVU%YV/ |
|
313 |
+:>U%YVU%YV/+:>/+60JB$8=OS4=NVM@P@\=I2\''I1V.+''8$Z&*.V"Q*Z''9>%7NU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%Z=,+:>/+0*/+:>/+:>U%YVU%YVU |
|
314 |
%YVU%YVU%YVU%YVU%Z>/+:>/B"T%IS$=OS4=NVM@P@\=I2\''I1V._'':.+''9>_&)''Z''9>TC!!Y+9VU%YVU%YVU%YVU%YVU%YVU%YVU%YVU+:>/B */+:>/+:>/ |
|
315 |
%YVU%YVU%Z>/+:>/+:>/+:>/+:>/+:>/[@(JIT8=OS4!!T6M@P@\=I2\''I1V.+*9*+*:.+&)*_''9>_%@8VZ>/%YVU%YVU%YVU%YVU%YVU%YVU%YVU+:<JB */ |
|
316 |
+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:=,B (%B$8=ORD!!T6M@P@\=I2\''I1U''Z*:.+*:._&)*_''9>_''9PCHZ/M9VU%YVU%YVU%YVU%YVU%YVU%Z>/ |
|
317 |
M0(%B#\7M3\7M3^/+:>/+:>/+:>/+:>/+:>/+:<7+3\7M0(JB (%IT8!!HRD!!T6M@P@\=I2\''I1U''Y6]*Z*:.+&)*_''8;_''8;BY\M*C\7M3\7+:<7+:>/+3\7 |
|
318 |
+3^/M3\7M0(JB (7M3\7M3\7M3\7+3\7+3^/M3\7M3\7M3\7M3\JB (JB"T%IT8!!HRD!!T6M@P@\=I2\''I1U''Y6]''Y6)*Z''9*_''9>_''8;BP$I[: 7M3\7M3\7 |
|
319 |
M3\7M3\7M3\7M3\7M0(JB#\7M3\7M3\7M3\7M3\7M3\7M3\7M3\7M3\JB (JB (JB"T%B$8!!HRD!!T6M@P@\=I2\''I1U''Y6]''Y6)*Z*9*_''9>_#,;BY\I+ &F |
|
320 |
[7MJ+3\7M3\7M3\7M3\7B#\7B (JB#\7M3\7M3\7M3\7M3\7M3\7M3\7M3\7B (JB (JB (JB (JB$8!!HRD!!T6M@P@\=I2\''I1U''Y6]''Y6]''Z&)*Z&)>_''8; |
|
321 |
BP$IBP$IBS,I,%>(M3\7B (JB (JB (JB (JB (7M3\7M3\7M3\7M0(7B (JB (JB (JB (JB (JB (JB (JB$8!!HRD!!T6M@P@\=I2\''I;Z%Y6]''Y6]''Y6^+ |
|
322 |
SH:N#"A>_#,$I@$IBP$IBP$I\3\JB (JB (JB (JB (JB (7M3\7M3\JB (JB (JB (JB (JB (JB (JB (JB (JB"TJB$8!!HRD!!T6M@P@\=I2\''I02^'':]'' |
|
323 |
H:-L(JB (I:^'')>8.W]>IBR._*8IBZ:.BRR2\ (JB (JB */+:<JB*>/+J2U+3\7+:>/+0(JB (JB (JB (JB (JB (JB (JB"T%IT8!!HRD!!T6M@P@\=I2\'' |
|
324 |
I8VG(JF!!''): (JB (JB ''):_'';!!7]7:.+*:.BRR.+ $IBU<JB (JB%JQG1<_T!!>QZW(_+F%:Y''*:.+)RB (JB (JB (JB (JB (JB (JIRT%IT8!!HRD!!T6M@ |
|
325 |
P@\=I2\''I8VI!!8^!!(I:^!!8^G(JB (I:!!''9>9.[&N+*:.+*:.+*8$+ %3B (JT''6Q$YFQ$YFQ$W*Q+G*:.+(2(:N#S4<HB (JB (JB (JB (%IRT%IRT%IT8!! |
|
326 |
HRD!!A6M@P@\=I2\''I8VI!!4"!!(ZV!!(X^G!!8^G(JB ''):_#+&9.W:.Z&*.+*9*+*8$P4):$YF:.+*:$YFQ$YFQ$YF:.+*#(:N#(:N#S0(%IRT%IRT%IRT%IRT% |
|
327 |
IRT%IS$!!HRD!!A6M@P@\=I2\''I8VI"X&!!)ZV")ZV!!!!8^G!!8^G(JB )X:9.[$4_&*.+*:.Z*9>_!!0DMCR9.[&KAF>:$YFQ$YFQ.+*#(:N#(:N#(3H:[BT%IRT% |
|
328 |
IRT%IRT%IRT%IS$!!HRD!!A6M@P@\=I2\''I8VL"X&I!!8*J)ZV%(X^I"X^G!!8^G!!:F"#*F_#+&N#(:N#(:N.X9^.[&9.[&9.[$0A@$IBP&2WK*:L*N#(:N#(:N# |
|
329 |
(1)!!XRH%IRT%IRT%IRT%IS$!!HRD!!A6M@P@\=I2\''I8VL#H&I"X&I"X&G"(^G"X^I!!8^G!!8]H)ZV%(+"9.[&)#+&9.[%^W#Q^.[&9.X.K"8.9.X.KTE!!\P%"2 |
|
330 |
BSX\.PR2\ZN#(:N:[BT%IRT%IRT%IS$!!HRD<A6M@P@\=I2\''I8VL#H2I"X&I"X&I"X&I"X^G!!8&G!!8^J"*VJ(T"!!RJVN(%:'')ZJ9W+&9W%9^#(:".[&N.[&9 |
|
331 |
LA29.[%[.[$+AC@0LCX>WE11WFD?I2\''I2\''I3$!!HS0<A6M@P@\=I2\''I8VL#H&L#H2I"X&I"X&I"X&I"X&I"X^J"*V%)ZV%RJV''(*J%)ZJ"#%9^W%9^#(:" |
|
332 |
((:"(*J"(%8DW%:9W+&NW#B9#+&9AC@0AA0\G$FROS<?O48<OC0<A6M@P@\=I2\''I8VL#H2I"X2I"X&I"X&I"X&I"X&I"Q!! "&A;RT&%)ZV%)ZV%(*J%($&" |
|
333 |
)ZJ'')5:"(*J")ZV%)ZI^YE:N.U9^V5:9#+%^A@PDV0P0.U,1LSYXQT4<OC0<A6M@P@\=I2\''I8VL#H2L"X&I"X&I"X&I"X&I"X&I"X&IXGQ ]FB%^:U4XH*% |
|
334 |
)ZV"RT%IRT&''RT&''RZJ%)T"%)ZV%(%:"#*I^#(9^W%9^W%8YA@PDA@P1A@PDMQT<OC09A6M@P@\=I2\''I8VL#H&I"X&I"X&I"X&I"X&I"X$XFH&IFA X"&A |
|
335 |
XFB%XFA ^:V%)ZV%)ZUIRZJ"RZV")Q4]GQ4])ZJ")ZJ%(*J''YH9^AE9^W&Q^W%8YAA%[A@<<OC$9A6M@P@\=I2\''I56-+Z6-+Z6-+Z6-+Z6-+P,K%)ZV%+B0 |
|
336 |
,KB0,KB0,KB0,KB1 HB@ I*Z&)*Z&)*Z&)&Y 8L(JI.[&9,PD5!!XVE!!XV%)ZP$H-KR4-J$Y_Q%=_@PT9NS$9A6M@P@\=I2\''I54K%)ZV%)ZV%)ZV%)ZB%(JB |
|
337 |
,[F1,[FB,[F1,XB@ KF@ HBZ&)*@&)*Z!!HRD-8RD!!B (J[\)JQLSD5 SVE!!BD$IBP$I\Q$Y_W4Y_XVU%YVU%R \9NS$9A6M@P@\=I2\''\B6B (JB (JB,XJB |
|
338 |
,[F1 HB@ HB@ HB@&(BZ HBD HRZ!!KRD!!HRD!!K^DJR )JR$)JR%XVE RD%!!.D!!HRD!!IBQ%2&)%=_Q%=_XVU%YT9NR$9NS \9NS$9A6M@P@\=I2]0\E6B (JB |
|
339 |
(JB,[FB,XB1 HB1 HB@ HBZ!!HBD!!AFDDQDQDQD)I"$QDQD)JR$)C"$R''R&]''Y4RD%1\D*Y\QTV&W6F&)%>&)%>***Y!!XVE%YVE!!S \9NS$9A6M@P@\=\GA0 |
|
340 |
\E6B (JB (JB (JB,XB@ HB@ (B@ HA-!!F5-[V-+DQDQI"X)D!!L)I"$)I"X)"H"H''R$)JX"]''R$)"AI\#8=\P%<.)%2&)%=_W6E%A&E!!YVE%*''<9NS$9A6M@ |
|
341 |
P@\=\GA0\E6B (JB &!!(ZHJB HB@ HB@ HA-Z65-[[M+Z;M+DQDQI"X)JR$)JR$)JR$)JR&OJR$RD":OD!!H)K"8.WB:&)*Z*W8>&XU<.W5>*YVV*YVU%*''<9 |
|
342 |
NS$9A6M@P@\=\G@?O7"B (ITU(ITUEQT[UQT[V5-[UQ-[V5+,;LQDQD&I"X)I"$QDR$)JR$)JQH)JR$RD2$RJQLRJR8R)"8R#28.)%2&)(=_*%>&**Y!!YZY!! |
|
343 |
YVUNA T9NS$9A6M@P@\=\C<?O7"B (JBU%QT (ITUF"BZF"BZEQ-,;N3,1F3I!!DQDQDQDQD)I"$)JR$QI"$RJQLRJR$RJQH.D":&D1I\K"8RK":O#:Z&SU=_ |
|
344 |
P*Z*W4:*W5<FR T9NS$9A6M@P@\=O3<?O7"B %QT &!!(ZEQ(UEQTUF5+[[LQDQF3,;N3DQDQDRXQDR$)JR$QJR$)DQD)DQD)DQD&DQH)JR$)JQHRD8=\WJZ& |
|
345 |
W52&WD5\) Z&A&F*W:Z&W:(9NS$9A6M@P@\=O3<=OR5TUEQTUEQTUEQT[V5+[V5+[[V3,1DQ,;LQI!!F3JQD&DQDQDQD&JQL)DR$)JRX)JR$)JQJOWAH.D!!J& |
|
346 |
K"9_WD5%W5>&)*Y\)*ZOWB8.YVV&R T9NS$9A6M@P@\=O34=OR5--UQTUEQTUEQ-[V63,;N3,;N3DQDQJQDQDQD&DQDQDQD&I!!DQJQDQJRX)JQD&JR8)I"$) |
|
347 |
JR$.D!!HRD$6&D!!J&WJX.JU2&K"8SSZZ&W0XR) T9NS$9A6M@P@\=OS4=OR5T[[N3D[N\-[N5-[N3,;N5,;N3,;N3,;N3,1DQDQDQDQD)JR$&DQF3DQDQJRXQ |
|
348 |
D[LQZ;LQDQH)D!!H.WJY_WB9\WJZ&)*Z&)%1\D!!LRW28RK*(9NS$9A6M@P@\=OS4=OR5TUERSUEQTUF!!TUEQT[V63,;N5[[L)JQDQ,1F3DQDQDR$SDRX)DR$) |
|
349 |
JRX)JR$)I"%XJR$)D( .D"$RJQHSK"$R)!!H.JPX.D!!H.D"8.K*Z&W7<9NS$9A6M@P@\=OS4=OR63,;M-UEQT[UQTUF5TUF63D[N5UEQT,;N3,;N3,;LQ,1D& |
|
350 |
DR$)JR$)DRXQDRXQJR$SK!!L)K!!HRD"8SK%2*WB$)K!!LRWJXF)!!I\#:Y_**Z&W7<9NS$9A6M@P@\=OS4=OW!!(ZF!!TZF5TUEQTUF5-[V5-Z65-[V5-[V.D[V.D |
|
351 |
DV--[V.D!!AE-[QDQJQDQDXPQ!!F.DZ1D)JQD)DR:7D45ZVALSSR5_^B&7K%<.D:Z&)*Z**''<9NS$9A6M@P@\=OS4=OS4=OS4=OS4=OS4=OS4=ORD!!HRD!!TUEQ |
|
352 |
TS%QTUD9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4=OS4=OS4=OS4=OS4=OS4=OS4= |
|
353 |
OS4=OS4=OS4=OS4=OS4=HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!OC0<OC0<NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4=OS4=OS4=OS4=OS4= |
|
354 |
OS4=OS4=OS4=OS4=OS4=OS4=OS4!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HS0<OC0<OC09NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4=OS4=OS4= |
|
355 |
OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!OC0<OC0<NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4= |
|
356 |
OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HS0<OC0<OC$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A0A@ |
|
357 |
PC$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NUMST5MST5MST5MST5MST0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\G |
|
358 |
A0\GA0A@PBDG@FM#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M# |
|
359 |
X6M#X6M#X6L@_@]@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@ |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
360 |
PDA@PDA@PDA@PDA@PDA@PDA@'); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
361 |
colorMapFromArray:#[ 176 176 180 176 208 210 192 192 190 96 160 255 96 160 130 192 208 210 176 192 220 208 208 210 192 224 240 112 160 140 224 255 255 48 80 130 144 176 140 128 176 160 96 160 180 144 176 160 112 144 160 80 128 180 112 160 190 112 144 180 96 192 255 160 176 180 160 208 220 96 176 255 48 80 80 80 160 130 160 192 220 80 144 255 112 176 130 64 96 100 128 192 140 160 208 255 96 128 110 240 240 220 208 224 240 80 112 130 112 144 140 240 255 255 80 144 180 255 255 255 96 128 160 96 144 180 144 192 190 80 160 100 80 176 255 144 176 190 128 160 190 80 160 255 96 160 110 96 176 130 144 176 220 176 240 255 96 144 110 96 176 140 112 176 140 208 255 255 128 176 130 224 224 220 192 208 240 112 144 130 240 224 220 240 240 240 112 176 180 240 240 255 0 0 0 160 208 180 128 176 190 144 176 180 64 160 255 112 160 210 144 192 210 64 144 255 64 96 80 64 128 110 192 224 220 160 224 255 80 112 100 160 176 210 208 224 220 176 208 240 112 160 130 224 240 220 192 224 255 224 208 210 48 112 160 224 224 240 48 96 160 224 224 255 112 160 180 160 208 190 128 160 180 80 160 110 128 176 210 144 160 180 80 144 110 160 192 210 48 96 100 176 208 220 144 208 255 176 160 180 80 144 130 192 208 220 160 192 240 80 128 130 48 112 140 176 208 255 96 128 130 64 128 160 224 240 255 64 112 160 112 176 190 128 176 180 255 240 255 112 176 210 160 192 190 160 208 210 48 112 100 176 192 190 144 224 255 96 144 100 144 160 190 128 192 255 160 208 240 64 112 110 192 176 180 144 192 255 96 144 130 192 192 210 64 112 140 176 192 240 48 96 140 96 128 140 80 128 160 144 160 140 144 192 180 48 96 60 96 144 190 48 80 60 48 96 80 96 160 100 48 64 60 128 208 255 80 128 100 128 160 210 112 176 255 144 192 240 208 224 210 32 112 140 128 176 255 192 240 255 48 96 130 128 176 140 208 192 210 80 128 140 80 112 140 96 144 160 48 112 180 96 160 190 64 112 60 64 128 80 64 96 60 64 112 80 64 128 100 128 176 220 112 192 255 64 112 100 144 176 210 80 128 110 192 240 240 112 160 110 176 192 210 80 112 110 176 224 255 48 80 110 96 144 140 208 240 255 64 96 130 64 96 140 112 160 160 64 128 180 80 112 160 64 112 180 160 176 160 96 128 180 80 128 80 80 144 100 144 192 220 ]; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
362 |
mask:((ImageMask new) |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
363 |
width:96; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
364 |
height:78; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
365 |
bits:(ByteArray |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
366 |
fromPackedString:' |
2566 | 367 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
368 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
369 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
370 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
371 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
372 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
373 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
374 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
375 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
376 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
377 |
_??????????????>_??????????????>@@@@@@@@@@@@@@@@'); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
378 |
yourself); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
379 |
yourself |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
380 |
] |
2562 | 381 |
! ! |
382 |
||
2566 | 383 |
!UISelectionPanel class methodsFor:'interface specs'! |
384 |
||
385 |
nameAndSelectorSpec |
|
386 |
"This resource specification was automatically generated |
|
387 |
by the UIPainter of ST/X." |
|
388 |
||
389 |
"Do not manually edit this!! If it is corrupted, |
|
390 |
the UIPainter may not be able to read the specification." |
|
391 |
||
392 |
" |
|
393 |
UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec |
|
394 |
UISelectionPanel new openInterface:#nameAndSelectorSpec |
|
395 |
" |
|
396 |
||
397 |
<resource: #canvas> |
|
398 |
||
399 |
^ |
|
400 |
#(FullSpec |
|
401 |
name: nameAndSelectorSpec |
|
402 |
window: |
|
403 |
(WindowSpec |
|
404 |
label: 'Painter' |
|
405 |
name: 'Painter' |
|
406 |
min: (Point 10 10) |
|
407 |
bounds: (Rectangle 14 46 329 262) |
|
408 |
) |
|
409 |
component: |
|
410 |
(SpecCollection |
|
411 |
collection: ( |
|
412 |
(LabelSpec |
|
413 |
label: 'Class & selectors to access user specs:' |
|
414 |
name: 'title' |
|
415 |
layout: (Point 5 10) |
|
416 |
resizeForLabel: true |
|
417 |
adjust: left |
|
418 |
) |
|
419 |
(LabelSpec |
|
420 |
label: 'Class:' |
|
421 |
name: 'classLabel' |
|
422 |
layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) |
|
423 |
resizeForLabel: true |
|
424 |
adjust: right |
|
425 |
) |
|
426 |
(InputFieldSpec |
|
427 |
name: 'classField' |
|
428 |
layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) |
|
429 |
tabable: true |
|
430 |
model: className |
|
431 |
type: string |
|
432 |
acceptOnPointerLeave: false |
|
433 |
) |
|
434 |
(LabelSpec |
|
435 |
label: 'Labels:' |
|
436 |
name: 'labelsLabel' |
|
437 |
layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) |
|
438 |
resizeForLabel: true |
|
439 |
adjust: right |
|
440 |
) |
|
441 |
(InputFieldSpec |
|
442 |
name: 'labelsField' |
|
443 |
layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) |
|
444 |
tabable: true |
|
445 |
model: labelsKey |
|
446 |
type: symbolOrNil |
|
447 |
acceptOnPointerLeave: false |
|
448 |
) |
|
449 |
(LabelSpec |
|
450 |
label: 'Specifications:' |
|
451 |
name: 'specsLabel' |
|
452 |
layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) |
|
453 |
resizeForLabel: true |
|
454 |
adjust: right |
|
455 |
) |
|
456 |
(InputFieldSpec |
|
457 |
name: 'specsField' |
|
458 |
layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) |
|
459 |
tabable: true |
|
460 |
model: specsKey |
|
461 |
type: symbolOrNil |
|
462 |
acceptOnPointerLeave: false |
|
463 |
) |
|
464 |
(HorizontalPanelViewSpec |
|
465 |
name: 'commitPanel' |
|
466 |
layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) |
|
467 |
horizontalLayout: fitSpace |
|
468 |
verticalLayout: fit |
|
469 |
horizontalSpace: 3 |
|
470 |
verticalSpace: 3 |
|
471 |
reverseOrderIfOKAtLeft: true |
|
472 |
component: |
|
473 |
(SpecCollection |
|
474 |
collection: ( |
|
475 |
(ActionButtonSpec |
|
476 |
label: 'cancel' |
|
477 |
name: 'cancel' |
|
478 |
tabable: true |
|
479 |
model: cancel |
|
480 |
extent: (Point 153 23) |
|
481 |
) |
|
482 |
(ActionButtonSpec |
|
483 |
label: 'ok' |
|
484 |
name: 'accept' |
|
485 |
tabable: true |
|
486 |
model: accept |
|
487 |
isDefault: true |
|
488 |
extent: (Point 153 23) |
|
489 |
) |
|
490 |
) |
|
491 |
||
492 |
) |
|
493 |
) |
|
494 |
(CheckBoxSpec |
|
495 |
label: 'Update Default Resources' |
|
496 |
name: 'updateDefaultResources' |
|
497 |
layout: (Point 5 133) |
|
498 |
model: updateDefaultResources |
|
499 |
) |
|
500 |
) |
|
501 |
||
502 |
) |
|
503 |
) |
|
504 |
! |
|
505 |
||
506 |
windowSpec |
|
507 |
"This resource specification was automatically generated |
|
508 |
by the UIPainter of ST/X." |
|
509 |
||
510 |
"Do not manually edit this!! If it is corrupted, |
|
511 |
the UIPainter may not be able to read the specification." |
|
512 |
||
513 |
" |
|
514 |
UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec |
|
515 |
UISelectionPanel new openInterface:#windowSpec |
|
516 |
UISelectionPanel open |
|
517 |
" |
|
518 |
||
519 |
<resource: #canvas> |
|
520 |
||
521 |
^ |
|
522 |
#(FullSpec |
|
523 |
name: windowSpec |
|
524 |
window: |
|
525 |
(WindowSpec |
|
526 |
label: 'Widget Gallery' |
|
527 |
name: 'Widget Gallery' |
|
528 |
min: (Point 100 280) |
|
529 |
bounds: (Rectangle 14 46 508 348) |
|
530 |
) |
|
531 |
component: |
|
532 |
(SpecCollection |
|
533 |
collection: ( |
|
534 |
(NoteBookViewSpec |
|
535 |
name: 'NoteBook1' |
|
536 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
537 |
model: majorChannel |
|
538 |
menu: majorList |
|
539 |
direction: right |
|
540 |
useIndex: true |
|
541 |
canvas: gallery |
|
542 |
) |
|
543 |
) |
|
544 |
||
545 |
) |
|
546 |
) |
|
547 |
! ! |
|
548 |
||
549 |
!UISelectionPanel class methodsFor:'interface specs-standard gallery'! |
|
182 | 550 |
|
2486 | 551 |
specifications |
552 |
||
553 |
^ #( |
|
554 |
#( 'Standard' #( |
|
555 |
#('Buttons' standardButtons) |
|
556 |
#('Menus' standardMenus) |
|
557 |
#('Text' standardTexts) |
|
558 |
#('Lists' standardLists) |
|
559 |
#('Trees' standardTrees) |
|
560 |
#('Groups' standardGroups) |
|
561 |
#('Embed' standardEmbed) |
|
2506 | 562 |
#('Geometric' standardMorphs1) |
2486 | 563 |
#('Misc' standardMisc) |
564 |
) |
|
565 |
) |
|
566 |
||
567 |
#( 'Clipboard' #( |
|
568 |
#('Copy & Paste Buffer' clipBoardSpec) |
|
569 |
) |
|
570 |
) |
|
571 |
||
572 |
#( 'User Def.' #userDefined ) |
|
573 |
) |
|
574 |
||
575 |
"Modified: / 21.4.1998 / 12:04:22 / cg" |
|
576 |
! |
|
577 |
||
677 | 578 |
standardButtons |
753 | 579 |
"This resource specification was automatically generated |
580 |
by the UIPainter of ST/X." |
|
182 | 581 |
|
753 | 582 |
"Do not manually edit this!! If it is corrupted, |
583 |
the UIPainter may not be able to read the specification." |
|
182 | 584 |
|
585 |
" |
|
677 | 586 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardButtons |
587 |
UISelectionPanel new openInterface:#standardButtons |
|
658 | 588 |
" |
589 |
||
590 |
<resource: #canvas> |
|
591 |
||
1142 | 592 |
^ |
3059 | 593 |
#(FullSpec |
594 |
name: standardButtons |
|
595 |
window: |
|
596 |
(WindowSpec |
|
597 |
label: 'Buttons' |
|
598 |
name: 'Buttons' |
|
599 |
min: (Point 10 10) |
|
3128 | 600 |
bounds: (Rectangle 0 0 477 241) |
3059 | 601 |
) |
602 |
component: |
|
603 |
(SpecCollection |
|
604 |
collection: ( |
|
605 |
(ActionButtonSpec |
|
606 |
label: 'Button' |
|
607 |
name: 'Button' |
|
608 |
layout: (LayoutFrame 2 0 1 0 127 0 23 0) |
|
609 |
) |
|
610 |
(ActionButtonSpec |
|
611 |
label: 'OK' |
|
612 |
name: 'Button - OK' |
|
613 |
layout: (LayoutFrame 2 0 33 0 127 0 55 0) |
|
614 |
translateLabel: true |
|
3128 | 615 |
model: accept |
3059 | 616 |
) |
617 |
(ActionButtonSpec |
|
618 |
label: 'Cancel' |
|
619 |
name: 'Button - Cancel' |
|
620 |
layout: (LayoutFrame 2 0 65 0 127 0 87 0) |
|
621 |
translateLabel: true |
|
3128 | 622 |
model: cancel |
3059 | 623 |
) |
624 |
(ActionButtonSpec |
|
625 |
label: 'Help' |
|
626 |
name: 'Button - Help' |
|
627 |
layout: (LayoutFrame 2 0 97 0 127 0 119 0) |
|
628 |
translateLabel: true |
|
629 |
model: help |
|
630 |
) |
|
631 |
(ActionButtonSpec |
|
632 |
label: 'Close' |
|
633 |
name: 'Button - Close' |
|
634 |
layout: (LayoutFrame 2 0 129 0 127 0 151 0) |
|
635 |
translateLabel: true |
|
636 |
model: closeRequest |
|
637 |
) |
|
638 |
(ToggleSpec |
|
639 |
label: 'Toggle' |
|
640 |
name: 'Toggle' |
|
641 |
layout: (LayoutFrame 144 0 1 0 280 0 23 0) |
|
642 |
isTriggerOnDown: true |
|
643 |
lampColor: (Color 100.0 100.0 0.0) |
|
644 |
) |
|
645 |
(RadioButtonSpec |
|
646 |
label: 'Radio Button' |
|
647 |
name: 'Radio Button' |
|
648 |
layout: (LayoutFrame 144 0.0 33 0 280 0 55 0) |
|
649 |
isTriggerOnDown: true |
|
650 |
) |
|
651 |
(CheckBoxSpec |
|
652 |
label: 'Check Box' |
|
653 |
name: 'Check Box' |
|
654 |
layout: (LayoutFrame 142 0 65 0 278 0 87 0) |
|
1142 | 655 |
) |
3059 | 656 |
(CheckToggleSpec |
657 |
name: 'Check Toggle' |
|
658 |
layout: (LayoutOrigin 146 0 99 0) |
|
659 |
isTriggerOnDown: true |
|
660 |
showLamp: false |
|
661 |
lampColor: (Color 100.0 100.0 0.0) |
|
662 |
) |
|
663 |
(LabelSpec |
|
664 |
label: 'Check Toggle' |
|
665 |
name: 'CheckToggleLabel' |
|
666 |
layout: (AlignmentOrigin 166 0 98 0 0 0) |
|
667 |
resizeForLabel: true |
|
668 |
adjust: left |
|
669 |
canUIDrag: false |
|
670 |
) |
|
671 |
(TriggerBoxSpec |
|
672 |
label: 'Trigger Box' |
|
673 |
name: 'TriggerBox1' |
|
674 |
layout: (LayoutFrame 142 0 129 0 278 0 151 0) |
|
675 |
) |
|
676 |
(ButtonSpec |
|
677 |
label: 'Model Button' |
|
678 |
name: 'Model Button' |
|
679 |
layout: (LayoutFrame 296 0 1 0 432 0 23 0) |
|
680 |
) |
|
681 |
(LabelSpec |
|
682 |
label: 'Spin Button' |
|
683 |
name: 'UpDownButtonLabel' |
|
684 |
layout: (AlignmentOrigin 348 0 35 0 0 0) |
|
685 |
resizeForLabel: true |
|
686 |
adjust: left |
|
687 |
canUIDrag: false |
|
688 |
) |
|
689 |
(UpDownButtonSpec |
|
690 |
name: 'UpDown Button' |
|
691 |
layout: (LayoutFrame 296 0 33 0 341 0 55 0) |
|
692 |
orientation: horizontal |
|
693 |
) |
|
694 |
(LabelSpec |
|
695 |
label: 'Arrow Button' |
|
696 |
name: 'ArrowButtonsLabel' |
|
697 |
layout: (AlignmentOrigin 348 0 69 0 0 0) |
|
698 |
resizeForLabel: true |
|
699 |
adjust: left |
|
700 |
canUIDrag: false |
|
701 |
) |
|
702 |
(ArrowButtonSpec |
|
703 |
name: 'Arrow Button' |
|
704 |
layout: (LayoutFrame 296 0 65 0 318 0 87 0) |
|
705 |
isTriggerOnDown: true |
|
706 |
direction: right |
|
707 |
) |
|
708 |
(ActionButtonSpec |
|
709 |
label: '...' |
|
710 |
name: 'Button1' |
|
3128 | 711 |
layout: (LayoutFrame 296 0 98 0 316 0 120 0) |
3059 | 712 |
translateLabel: true |
713 |
model: someAction |
|
714 |
) |
|
3128 | 715 |
(LabelSpec |
716 |
label: 'Ok/Cancel Panel' |
|
717 |
name: 'Label2' |
|
718 |
layout: (LayoutFrame 3 0 -49 1 208 0 -26 1) |
|
719 |
style: (FontDescription helvetica medium roman 10) |
|
720 |
adjust: left |
|
721 |
canUIDrag: false |
|
722 |
) |
|
723 |
(HorizontalPanelViewSpec |
|
724 |
keepUILayout: true |
|
725 |
name: 'OkCancelPanel' |
|
726 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
727 |
horizontalLayout: center |
|
728 |
verticalLayout: center |
|
729 |
horizontalSpace: 3 |
|
730 |
verticalSpace: 3 |
|
731 |
component: |
|
732 |
(SpecCollection |
|
733 |
collection: ( |
|
734 |
(ActionButtonSpec |
|
735 |
label: 'Cancel' |
|
736 |
name: 'Button2' |
|
737 |
translateLabel: true |
|
738 |
model: cancel |
|
739 |
extent: (Point 125 22) |
|
740 |
) |
|
741 |
(ActionButtonSpec |
|
742 |
label: 'OK' |
|
743 |
name: 'Button3' |
|
744 |
translateLabel: true |
|
745 |
model: accept |
|
746 |
extent: (Point 125 22) |
|
747 |
) |
|
748 |
) |
|
749 |
||
750 |
) |
|
751 |
) |
|
3059 | 752 |
) |
753 |
||
754 |
) |
|
755 |
) |
|
677 | 756 |
! |
757 |
||
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
758 |
standardEmbed |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
759 |
"This resource specification was automatically generated |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
760 |
by the UIPainter of ST/X." |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
761 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
762 |
"Do not manually edit this!! If it is corrupted, |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
763 |
the UIPainter may not be able to read the specification." |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
764 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
765 |
" |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
766 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardEmbed |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
767 |
UISelectionPanel new openInterface:#standardEmbed |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
768 |
" |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
769 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
770 |
<resource: #canvas> |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
771 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
772 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
773 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
774 |
name: standardEmbed |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
775 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
776 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
777 |
label: 'Misc' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
778 |
name: 'Misc' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
779 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
780 |
bounds: (Rectangle 14 46 456 269) |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
781 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
782 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
783 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
784 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
785 |
(ArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
786 |
name: 'Arbitrary Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
787 |
layout: (LayoutFrame 3 0 3 0 128 0 104 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
788 |
hasBorder: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
789 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
790 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
791 |
label: 'Scrollable' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
792 |
name: 'ScrollableArbitraryLabel1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
793 |
layout: (AlignmentOrigin 7 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
794 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
795 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
796 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
797 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
798 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
799 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
800 |
label: 'Arbitrary-' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
801 |
name: 'ScrollableArbitraryLabel2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
802 |
layout: (AlignmentOrigin 7 0 23 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
803 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
804 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
805 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
806 |
canUIDrag: false |
1549
345226e6e7d2
NON-foo is written without an 'E' !
Claus Gittinger <cg@exept.de>
parents:
1500
diff
changeset
|
807 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
808 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
809 |
label: 'Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
810 |
name: 'ScrollableArbitraryLabel3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
811 |
layout: (AlignmentOrigin 7 0 39 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
812 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
813 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
814 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
815 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
816 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
817 |
(UISubSpecification |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
818 |
name: 'SubSpecification' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
819 |
layout: (LayoutFrame 145 0 3 0 280 0 104 0) |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
820 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
821 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
822 |
label: 'SubSpecification' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
823 |
name: 'SubSpecificationLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
824 |
layout: (Point 149 7) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
825 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
826 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
827 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
828 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
829 |
(SubCanvasSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
830 |
name: 'SubCanvas' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
831 |
layout: (LayoutFrame 297 0 3 0 433 0 104 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
832 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
833 |
hasVerticalScrollBar: true |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
834 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
835 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
836 |
label: 'SubCanvas' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
837 |
name: 'SubCanvasLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
838 |
layout: (AlignmentOrigin 324 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
839 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
840 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
841 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
842 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
843 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
844 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
845 |
name: 'NonSrollable Arbitrary Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
846 |
layout: (LayoutFrame 3 0 120 0 128 0 221 0) |
1434 | 847 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
848 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
849 |
label: 'NonScrollable' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
850 |
name: 'NonScrollableArbitraryLabel1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
851 |
layout: (AlignmentOrigin 7 0 124 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
852 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
853 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
854 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
855 |
canUIDrag: false |
1434 | 856 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
857 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
858 |
label: 'Arbitrary-' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
859 |
name: 'NonScrollableArbitraryLabel2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
860 |
layout: (AlignmentOrigin 7 0 140 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
861 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
862 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
863 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
864 |
canUIDrag: false |
1549
345226e6e7d2
NON-foo is written without an 'E' !
Claus Gittinger <cg@exept.de>
parents:
1500
diff
changeset
|
865 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
866 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
867 |
label: 'Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
868 |
name: 'NonScrollableArbitraryLabel3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
869 |
layout: (AlignmentOrigin 7 0 156 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
870 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
871 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
872 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
873 |
canUIDrag: false |
1434 | 874 |
) |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
875 |
) |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
876 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
877 |
) |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
878 |
) |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
879 |
! |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
880 |
|
677 | 881 |
standardGraphs |
1142 | 882 |
"This resource specification was automatically generated |
883 |
by the UIPainter of ST/X." |
|
677 | 884 |
|
1142 | 885 |
"Do not manually edit this!! If it is corrupted, |
886 |
the UIPainter may not be able to read the specification." |
|
677 | 887 |
|
888 |
" |
|
889 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardGraphs |
|
890 |
UISelectionPanel new openInterface:#standardGraphs |
|
891 |
" |
|
892 |
||
893 |
<resource: #canvas> |
|
894 |
||
1142 | 895 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
896 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
897 |
name: standardGraphs |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
898 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
899 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
900 |
label: 'Graphs' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
901 |
name: 'Graphs' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
902 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
903 |
bounds: (Rectangle 14 46 453 161) |
1142 | 904 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
905 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
906 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
907 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
908 |
(GraphColumnView2DSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
909 |
name: 'GraphColumnView2D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
910 |
layout: (LayoutFrame 3 0 3 0 208 0 98 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
911 |
gridX: 0 |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
912 |
gridY: 0 |
1142 | 913 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
914 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
915 |
label: 'GraphColumnViewView2D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
916 |
name: 'GraphColumnView2DLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
917 |
layout: (AlignmentOrigin 7 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
918 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
919 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
920 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
921 |
canUIDrag: false |
1142 | 922 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
923 |
(GraphColumnView3DSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
924 |
name: 'GraphColumnView3D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
925 |
layout: (LayoutFrame 228 0 3 0 433 0 98 0) |
1142 | 926 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
927 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
928 |
label: 'GraphColumnViewView3D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
929 |
name: 'GraphColumnView3DLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
930 |
layout: (AlignmentOrigin 232 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
931 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
932 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
933 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
934 |
canUIDrag: false |
1142 | 935 |
) |
936 |
) |
|
937 |
||
938 |
) |
|
677 | 939 |
) |
940 |
! |
|
941 |
||
942 |
standardGroups |
|
1142 | 943 |
"This resource specification was automatically generated |
944 |
by the UIPainter of ST/X." |
|
677 | 945 |
|
1142 | 946 |
"Do not manually edit this!! If it is corrupted, |
947 |
the UIPainter may not be able to read the specification." |
|
677 | 948 |
|
949 |
" |
|
950 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardGroups |
|
951 |
UISelectionPanel new openInterface:#standardGroups |
|
952 |
" |
|
953 |
||
954 |
<resource: #canvas> |
|
955 |
||
1142 | 956 |
^ |
3128 | 957 |
#(FullSpec |
958 |
name: standardGroups |
|
959 |
window: |
|
960 |
(WindowSpec |
|
961 |
label: 'Groups' |
|
962 |
name: 'Groups' |
|
963 |
min: (Point 10 10) |
|
964 |
bounds: (Rectangle 0 0 450 267) |
|
965 |
) |
|
966 |
component: |
|
967 |
(SpecCollection |
|
968 |
collection: ( |
|
969 |
(ViewSpec |
|
970 |
name: 'Box' |
|
971 |
layout: (LayoutFrame 3 0 3 0 95 0 95 0) |
|
972 |
) |
|
973 |
(TransparentBoxSpec |
|
974 |
name: 'TBox1' |
|
975 |
layout: (LayoutFrame 113 0 3 0 204 0 95 0) |
|
976 |
) |
|
977 |
(LabelSpec |
|
978 |
label: 'TransparentBox' |
|
979 |
name: 'Label1' |
|
980 |
layout: (AlignmentOrigin 106 0 5 0 0 0) |
|
981 |
style: (FontDescription helvetica medium roman 10) |
|
982 |
resizeForLabel: true |
|
983 |
adjust: left |
|
984 |
canUIDrag: false |
|
985 |
) |
|
986 |
(LabelSpec |
|
987 |
label: 'Box' |
|
988 |
name: 'ViewLabel' |
|
989 |
layout: (AlignmentOrigin 6 0 5 0 0 0) |
|
990 |
style: (FontDescription helvetica medium roman 10) |
|
991 |
resizeForLabel: true |
|
992 |
adjust: left |
|
993 |
canUIDrag: false |
|
994 |
) |
|
995 |
(LabelSpec |
|
996 |
label: 'Variable Panels' |
|
997 |
name: 'VPanelLabel' |
|
998 |
layout: (LayoutFrame 3 0 104 0 208 0 127 0) |
|
999 |
style: (FontDescription helvetica medium roman 10) |
|
1000 |
adjust: left |
|
1001 |
canUIDrag: false |
|
1002 |
) |
|
1003 |
(VariableHorizontalPanelSpec |
|
1004 |
name: 'Variable Horizontal Panel' |
|
1005 |
layout: (LayoutFrame 3 0 128 0 98 0 218 0) |
|
1006 |
component: |
|
1007 |
(SpecCollection |
|
1008 |
collection: ( |
|
1009 |
(LabelSpec |
|
1010 |
label: 'A' |
|
1011 |
name: 'label4' |
|
1012 |
style: (FontDescription helvetica medium roman 12) |
|
1013 |
level: 2 |
|
1014 |
canUIDrag: false |
|
1142 | 1015 |
) |
3128 | 1016 |
(LabelSpec |
1017 |
label: 'B' |
|
1018 |
name: 'label5' |
|
1019 |
style: (FontDescription helvetica medium roman 12) |
|
1020 |
level: 2 |
|
1021 |
canUIDrag: false |
|
1022 |
) |
|
1023 |
) |
|
1024 |
||
1025 |
) |
|
1026 |
handles: (Any 0.5 1.0) |
|
1027 |
) |
|
1028 |
(VariableVerticalPanelSpec |
|
1029 |
name: 'Variable Vertical Panel' |
|
1030 |
layout: (LayoutFrame 113 0 128 0 208 0 218 0) |
|
1031 |
component: |
|
1032 |
(SpecCollection |
|
1033 |
collection: ( |
|
1034 |
(LabelSpec |
|
1035 |
label: 'A' |
|
1036 |
name: 'label9' |
|
1037 |
style: (FontDescription helvetica medium roman 12) |
|
1038 |
level: 2 |
|
1039 |
canUIDrag: false |
|
1040 |
) |
|
1041 |
(LabelSpec |
|
1042 |
label: 'B' |
|
1043 |
name: 'label10' |
|
1044 |
style: (FontDescription helvetica medium roman 12) |
|
1045 |
level: 2 |
|
1046 |
canUIDrag: false |
|
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1047 |
) |
3128 | 1048 |
) |
1049 |
||
1050 |
) |
|
1051 |
handles: (Any 0.5 1.0) |
|
1052 |
) |
|
1053 |
(FramedBoxSpec |
|
1054 |
label: 'Framed Box' |
|
1055 |
name: 'Framed Box' |
|
1056 |
layout: (LayoutFrame 228 0 3 0 433 0 98 0) |
|
1057 |
labelPosition: topLeft |
|
1058 |
translateLabel: true |
|
1059 |
) |
|
1060 |
(LabelSpec |
|
1061 |
label: 'Panels' |
|
1062 |
name: 'PanelLabel' |
|
1063 |
layout: (LayoutFrame 228 0 104 0 433 0 127 0) |
|
1064 |
style: (FontDescription helvetica medium roman 10) |
|
1065 |
adjust: left |
|
1066 |
canUIDrag: false |
|
1067 |
) |
|
1068 |
(HorizontalPanelViewSpec |
|
1069 |
name: 'Horizontal Panel' |
|
1070 |
layout: (LayoutFrame 228 0 128 0 312 0 218 0) |
|
1071 |
horizontalLayout: center |
|
1072 |
verticalLayout: center |
|
1073 |
horizontalSpace: 3 |
|
1074 |
verticalSpace: 3 |
|
1075 |
component: |
|
1076 |
(SpecCollection |
|
1077 |
collection: ( |
|
1078 |
(LabelSpec |
|
1079 |
label: 'A' |
|
1080 |
name: 'label1' |
|
1081 |
style: (FontDescription helvetica medium roman 12) |
|
1082 |
level: 2 |
|
1083 |
extent: (Point 23 23) |
|
1084 |
canUIDrag: false |
|
1085 |
) |
|
1086 |
(LabelSpec |
|
1087 |
label: 'B' |
|
1088 |
name: 'label2' |
|
1089 |
style: (FontDescription helvetica medium roman 12) |
|
1090 |
level: 2 |
|
1091 |
extent: (Point 23 23) |
|
1092 |
canUIDrag: false |
|
1093 |
) |
|
1094 |
(LabelSpec |
|
1095 |
label: 'C' |
|
1096 |
name: 'label3' |
|
1097 |
style: (FontDescription helvetica medium roman 12) |
|
1098 |
level: 2 |
|
1099 |
extent: (Point 23 23) |
|
1100 |
canUIDrag: false |
|
1101 |
) |
|
1102 |
) |
|
1103 |
||
1104 |
) |
|
1105 |
) |
|
1106 |
(VerticalPanelViewSpec |
|
1107 |
name: 'Vertical Panel' |
|
1108 |
layout: (LayoutFrame 320 0 128 0 367 0 218 0) |
|
1109 |
horizontalLayout: center |
|
1110 |
verticalLayout: center |
|
1111 |
horizontalSpace: 3 |
|
1112 |
verticalSpace: 3 |
|
1113 |
component: |
|
1114 |
(SpecCollection |
|
1115 |
collection: ( |
|
1116 |
(LabelSpec |
|
1117 |
label: 'A' |
|
1118 |
name: 'label6' |
|
1119 |
style: (FontDescription helvetica medium roman 12) |
|
1120 |
level: 2 |
|
1121 |
extent: (Point 23 23) |
|
1122 |
canUIDrag: false |
|
1142 | 1123 |
) |
3128 | 1124 |
(LabelSpec |
1125 |
label: 'B' |
|
1126 |
name: 'label7' |
|
1127 |
style: (FontDescription helvetica medium roman 12) |
|
1128 |
level: 2 |
|
1129 |
extent: (Point 23 23) |
|
1130 |
canUIDrag: false |
|
1131 |
) |
|
1132 |
(LabelSpec |
|
1133 |
label: 'C' |
|
1134 |
name: 'label8' |
|
1135 |
style: (FontDescription helvetica medium roman 12) |
|
1136 |
level: 2 |
|
1137 |
extent: (Point 23 23) |
|
1138 |
canUIDrag: false |
|
1139 |
) |
|
1140 |
) |
|
1141 |
||
1142 |
) |
|
1143 |
) |
|
1144 |
(PanelViewSpec |
|
1145 |
name: 'Panel' |
|
1146 |
layout: (LayoutFrame 375 0 128 0 433 0 218 0) |
|
1147 |
horizontalLayout: fitSpace |
|
1148 |
verticalLayout: fitSpace |
|
1149 |
horizontalSpace: 3 |
|
1150 |
verticalSpace: 3 |
|
1151 |
component: |
|
1152 |
(SpecCollection |
|
1153 |
collection: ( |
|
1154 |
(LabelSpec |
|
1155 |
label: 'A' |
|
1156 |
name: 'label11' |
|
1157 |
style: (FontDescription helvetica medium roman 12) |
|
1158 |
level: 2 |
|
1159 |
extent: (Point 23 23) |
|
1160 |
canUIDrag: false |
|
1142 | 1161 |
) |
3128 | 1162 |
(LabelSpec |
1163 |
label: 'B' |
|
1164 |
name: 'label12' |
|
1165 |
style: (FontDescription helvetica medium roman 12) |
|
1166 |
level: 2 |
|
1167 |
extent: (Point 23 23) |
|
1168 |
canUIDrag: false |
|
1169 |
) |
|
1170 |
(LabelSpec |
|
1171 |
label: 'C' |
|
1172 |
name: 'label13' |
|
1173 |
style: (FontDescription helvetica medium roman 12) |
|
1174 |
level: 2 |
|
1175 |
extent: (Point 23 23) |
|
1176 |
canUIDrag: false |
|
1142 | 1177 |
) |
3128 | 1178 |
(LabelSpec |
1179 |
label: 'D' |
|
1180 |
name: 'label14' |
|
1181 |
style: (FontDescription helvetica medium roman 12) |
|
1182 |
level: 2 |
|
1183 |
extent: (Point 23 23) |
|
1184 |
canUIDrag: false |
|
1185 |
) |
|
1186 |
(LabelSpec |
|
1187 |
label: 'E' |
|
1188 |
name: 'label15' |
|
1189 |
style: (FontDescription helvetica medium roman 12) |
|
1190 |
level: 2 |
|
1191 |
extent: (Point 23 23) |
|
1192 |
canUIDrag: false |
|
1193 |
) |
|
1194 |
) |
|
1195 |
||
1196 |
) |
|
1142 | 1197 |
) |
3128 | 1198 |
) |
1199 |
||
1200 |
) |
|
1201 |
) |
|
658 | 1202 |
! |
1203 |
||
1204 |
standardLists |
|
797 | 1205 |
"This resource specification was automatically generated |
1206 |
by the UIPainter of ST/X." |
|
142 | 1207 |
|
797 | 1208 |
"Do not manually edit this!! If it is corrupted, |
1209 |
the UIPainter may not be able to read the specification." |
|
142 | 1210 |
|
1211 |
" |
|
658 | 1212 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardLists |
1213 |
UISelectionPanel new openInterface:#standardLists |
|
142 | 1214 |
" |
1215 |
||
1216 |
<resource: #canvas> |
|
1217 |
||
1142 | 1218 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1219 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1220 |
name: standardLists |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1221 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1222 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1223 |
label: 'Lists' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1224 |
name: 'Lists' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1225 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1226 |
bounds: (Rectangle 14 46 455 264) |
1142 | 1227 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1228 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1229 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1230 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1231 |
(SequenceViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1232 |
name: 'List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1233 |
layout: (LayoutFrame 3 0 3 0 208 0 101 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1234 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1235 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1236 |
useIndex: false |
1142 | 1237 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1238 |
(DataSetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1239 |
name: 'Table' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1240 |
layout: (LayoutFrame 228 0 3 0 433 0 101 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1241 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1242 |
hasVerticalScrollBar: true |
1943 | 1243 |
has3Dseparators: false |
1142 | 1244 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1245 |
(SelectionInListModelViewSpec |
2332 | 1246 |
name: 'SelectionInListModelView' |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1247 |
layout: (LayoutFrame 3 0 110 0 208 0 208 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1248 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1249 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1250 |
useIndex: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1251 |
highlightMode: line |
1142 | 1252 |
) |
1253 |
) |
|
1254 |
||
1255 |
) |
|
182 | 1256 |
) |
1257 |
! |
|
1258 |
||
190 | 1259 |
standardMenus |
753 | 1260 |
"This resource specification was automatically generated |
1261 |
by the UIPainter of ST/X." |
|
182 | 1262 |
|
753 | 1263 |
"Do not manually edit this!! If it is corrupted, |
1264 |
the UIPainter may not be able to read the specification." |
|
182 | 1265 |
|
1266 |
" |
|
302 | 1267 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardMenus |
1268 |
UISelectionPanel new openInterface:#standardMenus |
|
182 | 1269 |
" |
1270 |
||
1271 |
<resource: #canvas> |
|
1272 |
||
1142 | 1273 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1274 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1275 |
name: standardMenus |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1276 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1277 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1278 |
label: 'Menus' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1279 |
name: 'Menus' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1280 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1281 |
bounds: (Rectangle 14 46 491 269) |
1142 | 1282 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1283 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1284 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1285 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1286 |
(MenuPanelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1287 |
name: 'Tool Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1288 |
layout: (LayoutFrame 4 0 134 0 129 0 166 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1289 |
textDefault: true |
1142 | 1290 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1291 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1292 |
label: 'Tool Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1293 |
name: 'ToolBarLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1294 |
layout: (AlignmentOrigin 4 0 134 0 0 1) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1295 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1296 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1297 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1298 |
canUIDrag: false |
1142 | 1299 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1300 |
(MenuPanelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1301 |
name: 'Menu Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1302 |
layout: (LayoutFrame 4 0 188 0 129 0 210 0) |
1142 | 1303 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1304 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1305 |
label: 'Menu Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1306 |
name: 'MenuBarLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1307 |
layout: (AlignmentOrigin 4 0 187 0 0 1) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1308 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1309 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1310 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1311 |
canUIDrag: false |
1142 | 1312 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1313 |
(PopUpListSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1314 |
label: 'PopUp List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1315 |
name: 'PopUp List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1316 |
layout: (LayoutFrame 4 0 3 0 129 0 25 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1317 |
tabable: true |
1142 | 1318 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1319 |
(ComboListSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1320 |
name: 'Combo List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1321 |
layout: (LayoutFrame 4 0 33 0 129 0 53 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1322 |
useIndex: false |
1142 | 1323 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1324 |
(ComboBoxSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1325 |
name: 'Combo Box' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1326 |
layout: (LayoutFrame 4 0 61 0 129 0 81 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1327 |
acceptOnPointerLeave: false |
1142 | 1328 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1329 |
(ExtendedComboBoxSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1330 |
name: 'Extended Combo Box' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1331 |
layout: (LayoutFrame 4 0 88 0 129 0 108 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1332 |
miniScrollerHorizontal: true |
1142 | 1333 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1334 |
(TabViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1335 |
name: 'Tab Header' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1336 |
layout: (LayoutFrame 146 0 3 0 281 0 39 0) |
1142 | 1337 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1338 |
(NoteBookViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1339 |
name: 'Note Book' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1340 |
layout: (LayoutFrame 146 0 46 0 281 0 138 0) |
1142 | 1341 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1342 |
(UIGalleryViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1343 |
name: 'Gallery' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1344 |
layout: (LayoutFrame 298 0 3 0 434 0 138 0) |
1142 | 1345 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1346 |
(ColorMenuSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1347 |
name: 'ColorMenu' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1348 |
layout: (LayoutFrame 143 0 188 0 -46 1.0 210 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1349 |
labelsAreColored: true |
1662 | 1350 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1351 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1352 |
label: 'Color Menu' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1353 |
name: 'Label1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1354 |
layout: (AlignmentOrigin 142 0 187 0 0 1) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1355 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1356 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1357 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1358 |
canUIDrag: false |
1662 | 1359 |
) |
1142 | 1360 |
) |
1361 |
||
1362 |
) |
|
142 | 1363 |
) |
1364 |
! |
|
1365 |
||
658 | 1366 |
standardMisc |
753 | 1367 |
"This resource specification was automatically generated |
1368 |
by the UIPainter of ST/X." |
|
93 | 1369 |
|
753 | 1370 |
"Do not manually edit this!! If it is corrupted, |
1371 |
the UIPainter may not be able to read the specification." |
|
93 | 1372 |
|
1373 |
" |
|
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1374 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardMisc |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1375 |
UISelectionPanel new openInterface:#standardMisc |
93 | 1376 |
" |
1377 |
||
1378 |
<resource: #canvas> |
|
1379 |
||
1142 | 1380 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1381 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1382 |
name: standardMisc |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1383 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1384 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1385 |
label: 'NewApplication' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1386 |
name: 'NewApplication' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1387 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1388 |
bounds: (Rectangle 14 46 453 289) |
1142 | 1389 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1390 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1391 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1392 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1393 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1394 |
label: 'StepSlider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1395 |
name: 'StepSliderLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1396 |
layout: (AlignmentOrigin 87 0 9 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1397 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1398 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1399 |
canUIDrag: false |
1142 | 1400 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1401 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1402 |
label: 'Slider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1403 |
name: 'SliderLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1404 |
layout: (AlignmentOrigin 87 0 35 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1405 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1406 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1407 |
canUIDrag: false |
1142 | 1408 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1409 |
(SliderSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1410 |
name: 'Slider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1411 |
layout: (LayoutFrame 88 0 34 0 203 0 52 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1412 |
orientation: horizontal |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1413 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1414 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1415 |
label: 'ThumbWheel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1416 |
name: 'ThumbWheelLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1417 |
layout: (AlignmentOrigin 88 0 62 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1418 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1419 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1420 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1421 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1422 |
(ThumbWheelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1423 |
name: 'Thumb Wheel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1424 |
layout: (LayoutFrame 88 0 60 0 203 0 80 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1425 |
orientation: horizontal |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1426 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1427 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1428 |
label: 'ScrollBar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1429 |
name: 'ScrollBarLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1430 |
layout: (AlignmentOrigin 87 0 103 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1431 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1432 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1433 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1434 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1435 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1436 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1437 |
label: 'Scroller' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1438 |
name: 'ScrollerLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1439 |
layout: (AlignmentOrigin 87 0 130 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1440 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1441 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1442 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1443 |
canUIDrag: false |
1160 | 1444 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1445 |
(ScrollerSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1446 |
name: 'Scroller' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1447 |
layout: (LayoutFrame 88 0 127 0 203 0 145 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1448 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1449 |
orientation: horizontal |
1160 | 1450 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1451 |
(SteppingSliderSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1452 |
name: 'VStepSlider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1453 |
layout: (LayoutFrame 226 0 6 0 244 0 106 0) |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1454 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1455 |
(SliderSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1456 |
name: 'VSlider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1457 |
layout: (LayoutFrame 254 0 6 0 272 0 106 0) |
1142 | 1458 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1459 |
(ThumbWheelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1460 |
name: 'VThumbWheel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1461 |
layout: (LayoutFrame 280 0 6 0 298 0 106 0) |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1462 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1463 |
(ScrollerSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1464 |
name: 'VScroller' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1465 |
layout: (LayoutFrame 345 0 6 0 363 0 106 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1466 |
initiallyInvisible: true |
1142 | 1467 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1468 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1469 |
label: 'Region' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1470 |
name: 'RegionLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1471 |
layout: (AlignmentOrigin 83 0 177 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1472 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1473 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1474 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1475 |
canUIDrag: false |
1142 | 1476 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1477 |
(RegionSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1478 |
name: 'Region' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1479 |
layout: (LayoutFrame 88 0 171 0 203 0 200 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1480 |
lineWidth: 2 |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1481 |
regionType: ellipse |
1142 | 1482 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1483 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1484 |
label: 'Separator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1485 |
name: 'SeparatorLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1486 |
layout: (AlignmentOrigin 83 0 207 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1487 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1488 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1489 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1490 |
canUIDrag: false |
1142 | 1491 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1492 |
(DividerSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1493 |
name: 'Separator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1494 |
layout: (LayoutFrame 88 0 213 0 203 0 217 0) |
1142 | 1495 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1496 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1497 |
label: 'Progress Indicator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1498 |
name: 'ProgressIndicatorsLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1499 |
layout: (AlignmentOrigin 333 0 117 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1500 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1501 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1502 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1503 |
canUIDrag: false |
1142 | 1504 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1505 |
(ProgressIndicatorSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1506 |
name: 'Progress Indicator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1507 |
layout: (LayoutFrame 338 0 114 0 433 0 132 0) |
1142 | 1508 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1509 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1510 |
label: 'Round |
753 | 1511 |
Progress Indicator' |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1512 |
name: 'RoundProgressIndicatorsLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1513 |
layout: (AlignmentOrigin 333 0 167 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1514 |
style: (FontDescription helvetica medium roman 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1515 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1516 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1517 |
canUIDrag: false |
1142 | 1518 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1519 |
(RoundProgressIndicatorSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1520 |
name: 'Round Progress Indicator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1521 |
layout: (LayoutFrame 338 0 136 0 425 0 219 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1522 |
level: 0 |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1523 |
borderWidth: 1 |
1142 | 1524 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1525 |
(ScrollBarSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1526 |
name: 'ScrollBar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1527 |
layout: (LayoutFrame 88 0 100 0 203 0 118 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1528 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1529 |
orientation: horizontal |
1175 | 1530 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1531 |
(ScrollBarSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1532 |
name: 'VScrollBar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1533 |
layout: (LayoutFrame 317 0 6 0 335 0 106 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1534 |
initiallyInvisible: true |
1175 | 1535 |
) |
1142 | 1536 |
) |
1537 |
||
1538 |
) |
|
93 | 1539 |
) |
1540 |
! |
|
1541 |
||
2486 | 1542 |
standardMorphs1 |
1543 |
"This resource specification was automatically generated |
|
1544 |
by the UIPainter of ST/X." |
|
1545 |
||
1546 |
"Do not manually edit this!! If it is corrupted, |
|
1547 |
the UIPainter may not be able to read the specification." |
|
1548 |
||
1549 |
" |
|
1550 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardMorphs1 |
|
1551 |
UISelectionPanel new openInterface:#standardMorphs1 |
|
1552 |
" |
|
1553 |
||
1554 |
<resource: #canvas> |
|
1555 |
||
1556 |
^ |
|
1557 |
#(FullSpec |
|
1558 |
name: standardMorphs1 |
|
1559 |
window: |
|
1560 |
(WindowSpec |
|
1561 |
label: 'Morphs' |
|
1562 |
name: 'Morphs' |
|
1563 |
min: (Point 10 10) |
|
2532 | 1564 |
bounds: (Rectangle 0 0 419 272) |
2486 | 1565 |
) |
1566 |
component: |
|
1567 |
(SpecCollection |
|
1568 |
collection: ( |
|
1569 |
(ArcMorphSpec |
|
2496 | 1570 |
name: 'Circle' |
1571 |
layout: (LayoutFrame 3 0 3 0 63 0 63 0) |
|
2518 | 1572 |
line: true |
2506 | 1573 |
lineColor: (Color 100.0 0.0 0.0) |
2496 | 1574 |
) |
1575 |
(ArcMorphSpec |
|
2517 | 1576 |
name: 'FilledCircle' |
2496 | 1577 |
layout: (LayoutFrame 3 0 70 0 63 0 133 0) |
2506 | 1578 |
foregroundColor: (Color 100.0 100.0 0.0) |
2496 | 1579 |
fill: true |
1580 |
) |
|
1581 |
(ArcMorphSpec |
|
2517 | 1582 |
name: 'FilledCircleL' |
1583 |
layout: (LayoutFrame 3 0 143 0 63 0 206 0) |
|
2506 | 1584 |
foregroundColor: (Color 100.0 100.0 0.0) |
2518 | 1585 |
line: true |
2506 | 1586 |
fill: true |
2517 | 1587 |
lineColor: (Color 100.0 0.0 0.0) |
2496 | 1588 |
) |
2517 | 1589 |
(RectangleMorphSpec |
1590 |
name: 'RectangleMorph1' |
|
1591 |
layout: (LayoutFrame 70 0 3 0 133 0 63 0) |
|
1592 |
foregroundColor: (Color 100.0 100.0 0.0) |
|
2518 | 1593 |
line: true |
2517 | 1594 |
fill: false |
1595 |
lineColor: (Color 100.0 0.0 0.0) |
|
1596 |
) |
|
1597 |
(RectangleMorphSpec |
|
1598 |
name: 'RectangleMorph2' |
|
1599 |
layout: (LayoutFrame 70 0 72 0 133 0 135 0) |
|
2506 | 1600 |
foregroundColor: (Color 100.0 100.0 0.0) |
1601 |
fill: true |
|
2496 | 1602 |
) |
2517 | 1603 |
(RectangleMorphSpec |
1604 |
name: 'RectangleMorph3' |
|
1605 |
layout: (LayoutFrame 70 0 139 0 133 0 202 0) |
|
2506 | 1606 |
foregroundColor: (Color 100.0 100.0 0.0) |
2518 | 1607 |
line: true |
2496 | 1608 |
fill: true |
2506 | 1609 |
lineColor: (Color 100.0 0.0 0.0) |
2486 | 1610 |
) |
1611 |
(ArcMorphSpec |
|
2517 | 1612 |
name: 'FilledPieL' |
2496 | 1613 |
layout: (LayoutFrame 143 0 143 0 206 0 206 0) |
2506 | 1614 |
foregroundColor: (Color 100.0 100.0 0.0) |
2518 | 1615 |
line: true |
2506 | 1616 |
fill: true |
1617 |
lineColor: (Color 100.0 0.0 0.0) |
|
2496 | 1618 |
startAngle: -45 |
1619 |
sweepAngle: 270 |
|
1620 |
pie: true |
|
1621 |
) |
|
1622 |
(ArcMorphSpec |
|
2517 | 1623 |
name: 'FilledPie' |
1624 |
layout: (LayoutFrame 143 0 70 0 206 0 133 0) |
|
2506 | 1625 |
foregroundColor: (Color 100.0 100.0 0.0) |
2496 | 1626 |
fill: true |
1627 |
startAngle: -45 |
|
1628 |
sweepAngle: 270 |
|
2517 | 1629 |
pie: true |
2486 | 1630 |
) |
2496 | 1631 |
(ArcMorphSpec |
2517 | 1632 |
name: 'Pie' |
1633 |
layout: (LayoutFrame 143 0 3 0 206 0 63 0) |
|
2518 | 1634 |
line: true |
2506 | 1635 |
lineColor: (Color 100.0 0.0 0.0) |
2496 | 1636 |
startAngle: -45 |
1637 |
sweepAngle: 270 |
|
1638 |
pie: true |
|
1639 |
) |
|
2517 | 1640 |
(LineSegmentMorphSpec |
2562 | 1641 |
name: 'LineSegmentMorph1' |
1642 |
foregroundColor: (Color 100.0 100.0 0.0) |
|
1643 |
fill: true |
|
1644 |
lineColor: (Color 100.0 0.0 0.0) |
|
1645 |
startPoint: (Point 214 9) |
|
1646 |
endPoint: (Point 254 59) |
|
1647 |
showArrow: true |
|
1648 |
) |
|
1649 |
(LineSegmentMorphSpec |
|
2517 | 1650 |
name: 'Line1' |
2506 | 1651 |
foregroundColor: (Color 100.0 100.0 0.0) |
1652 |
fill: true |
|
1653 |
lineColor: (Color 100.0 0.0 0.0) |
|
2562 | 1654 |
startPoint: (Point 214 75) |
1655 |
endPoint: (Point 254 125) |
|
2506 | 1656 |
) |
2532 | 1657 |
(SketchMorphSpec |
1658 |
name: 'SketchMorph1' |
|
2566 | 1659 |
layout: (LayoutFrame 280 0 10 0 373 0 90 0) |
2562 | 1660 |
image: sketchImageIcon |
2532 | 1661 |
) |
2486 | 1662 |
) |
1663 |
||
1664 |
) |
|
1665 |
) |
|
1666 |
! |
|
1667 |
||
677 | 1668 |
standardTexts |
795
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1669 |
"This resource specification was automatically generated |
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1670 |
by the UIPainter of ST/X." |
93 | 1671 |
|
795
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1672 |
"Do not manually edit this!! If it is corrupted, |
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1673 |
the UIPainter may not be able to read the specification." |
93 | 1674 |
|
1675 |
" |
|
677 | 1676 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardTexts |
1677 |
UISelectionPanel new openInterface:#standardTexts |
|
93 | 1678 |
" |
1679 |
||
1680 |
<resource: #canvas> |
|
1681 |
||
1142 | 1682 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1683 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1684 |
name: standardTexts |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1685 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1686 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1687 |
label: 'Texts' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1688 |
name: 'Texts' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1689 |
min: (Point 10 10) |
2476 | 1690 |
bounds: (Rectangle 0 0 464 224) |
1142 | 1691 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1692 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1693 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1694 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1695 |
(TextEditorSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1696 |
name: 'Text Editor' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1697 |
layout: (LayoutFrame 3 0 3 0 208 0 98 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1698 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1699 |
hasVerticalScrollBar: true |
2476 | 1700 |
hasKeyboardFocusInitially: false |
1142 | 1701 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1702 |
(HTMLViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1703 |
name: 'HTML Browser' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1704 |
layout: (LayoutFrame 228 0 3 0 433 0 98 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1705 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1706 |
hasVerticalScrollBar: true |
1142 | 1707 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1708 |
(InputFieldSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1709 |
name: 'Entry Field' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1710 |
layout: (LayoutFrame 3 0 113 0 208 0 135 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1711 |
acceptOnReturn: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1712 |
acceptOnTab: true |
2320
d8d5a90c290f
Make #acceptOnLeave and #acceptOnPointerLeave the default for InputFields
Stefan Vogel <sv@exept.de>
parents:
2236
diff
changeset
|
1713 |
acceptOnPointerLeave: true |
1408 | 1714 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1715 |
(FilenameInputFieldSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1716 |
name: 'Filename Entry Field' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1717 |
layout: (LayoutFrame 3 0 141 0 208 0 163 0) |
2320
d8d5a90c290f
Make #acceptOnLeave and #acceptOnPointerLeave the default for InputFields
Stefan Vogel <sv@exept.de>
parents:
2236
diff
changeset
|
1718 |
acceptOnPointerLeave: true |
1142 | 1719 |
) |
2374
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1720 |
(FilenameInputFieldSpec |
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1721 |
name: 'Filename + History' |
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1722 |
layout: (LayoutFrame 3 0 171 0 208 0 193 0) |
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1723 |
acceptOnPointerLeave: true |
2476 | 1724 |
viewClassName: FilenameWidgetWithHistory |
2374
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1725 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1726 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1727 |
label: 'Label' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1728 |
name: 'Label' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1729 |
layout: (LayoutFrame 228 0 113 0 433 0 135 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1730 |
translateLabel: true |
1142 | 1731 |
) |
2476 | 1732 |
(LinkButtonSpec |
1733 |
label: 'LinkButton' |
|
1734 |
name: 'LinkButton1' |
|
1735 |
layout: (LayoutFrame 228 0 141 0 433 0 163 0) |
|
1736 |
translateLabel: true |
|
1737 |
) |
|
1142 | 1738 |
) |
1739 |
||
1740 |
) |
|
97 | 1741 |
) |
1742 |
! |
|
1743 |
||
1179 | 1744 |
standardTrees |
1745 |
"This resource specification was automatically generated |
|
1746 |
by the UIPainter of ST/X." |
|
1747 |
||
1748 |
"Do not manually edit this!! If it is corrupted, |
|
1749 |
the UIPainter may not be able to read the specification." |
|
1750 |
||
1751 |
" |
|
1752 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardTrees |
|
1753 |
UISelectionPanel new openInterface:#standardTrees |
|
1754 |
" |
|
1755 |
||
1756 |
<resource: #canvas> |
|
1757 |
||
1758 |
^ |
|
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1759 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1760 |
name: standardTrees |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1761 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1762 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1763 |
label: 'Trees' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1764 |
name: 'Trees' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1765 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1766 |
bounds: (Rectangle 14 46 455 264) |
1179 | 1767 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1768 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1769 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1770 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1771 |
(SelectionInTreeViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1772 |
name: 'Tree List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1773 |
layout: (LayoutFrame 4 0 3 0 209 0 101 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1774 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1775 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1776 |
highlightMode: line |
1179 | 1777 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1778 |
(FileSelectionTreeSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1779 |
name: 'File Tree List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1780 |
layout: (LayoutFrame 229 0 3 0 434 0 101 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1781 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1782 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1783 |
highlightMode: line |
1179 | 1784 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1785 |
(HierarchicalListViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1786 |
name: 'New ModelTree List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1787 |
layout: (LayoutFrame 4 0 110 0 209 0 208 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1788 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1789 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1790 |
highlightMode: line |
1179 | 1791 |
) |
1792 |
) |
|
1793 |
||
1794 |
) |
|
1795 |
) |
|
1796 |
! |
|
1797 |
||
190 | 1798 |
standardUserPanel |
93 | 1799 |
"this window spec was automatically generated by the ST/X UIPainter" |
1800 |
||
1801 |
"do not manually edit this - the painter/builder may not be able to |
|
1802 |
handle the specification if its corrupted." |
|
1803 |
||
1804 |
" |
|
190 | 1805 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardUserPanel |
1806 |
UISelectionPanel new openInterface:#standardUserPanel |
|
182 | 1807 |
" |
1808 |
||
1809 |
<resource: #canvas> |
|
1810 |
||
1811 |
^ |
|
1812 |
||
1813 |
#(#FullSpec |
|
987 | 1814 |
#'window:' |
1815 |
#(#WindowSpec |
|
1816 |
#'name:' 'UserPanel' |
|
1817 |
#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1818 |
#'label:' 'UserPanel' |
|
1819 |
#'bounds:' #(#Rectangle 0 0 445 162) |
|
1820 |
) |
|
1821 |
#'component:' |
|
1822 |
#(#SpecCollection |
|
1823 |
#'collection:' |
|
1824 |
#( |
|
1825 |
#(#LabelSpec |
|
1826 |
#'name:' 'helpText' |
|
1827 |
#'layout:' #(#Point 10 0) |
|
1828 |
#'labelChannel:' #userDefinedHelpText |
|
1829 |
#'resizeForLabel:' true |
|
1830 |
#'canUIDrag:' false |
|
1831 |
) |
|
1832 |
) |
|
1833 |
) |
|
182 | 1834 |
) |
93 | 1835 |
! ! |
1836 |
||
2236
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1837 |
!UISelectionPanel class methodsFor:'menus'! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1838 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1839 |
menuSelected |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1840 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1841 |
<resource: #menu> |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1842 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1843 |
^ #(#Menu #( |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1844 |
#(#MenuItem |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1845 |
#'label:' 'copy' |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1846 |
#'value:' #copy |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1847 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1848 |
#(#MenuItem |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1849 |
#'label:' 'cut' |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1850 |
#'value:' #cut |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1851 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1852 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1853 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1854 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1855 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1856 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1857 |
"Modified: / 29.10.1997 / 03:20:30 / cg" |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1858 |
! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1859 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1860 |
menuUnselected |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1861 |
<resource: #menu> |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1862 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1863 |
^ #(#Menu #( |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1864 |
#(#MenuItem |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1865 |
#'label:' 'paste' |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1866 |
#'value:' #paste |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1867 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1868 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1869 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1870 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1871 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1872 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1873 |
"Modified: / 29.10.1997 / 03:20:38 / cg" |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1874 |
! ! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1875 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1876 |
!UISelectionPanel class methodsFor:'resources'! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1877 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1878 |
classResources |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1879 |
"my translations are found in the UIPainter classes resources" |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1880 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1881 |
^ UIPainter classResources |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1882 |
! ! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1883 |
|
182 | 1884 |
!UISelectionPanel methodsFor:'actions'! |
1885 |
||
1886 |
defineClassAndSelector |
|
1887 |
|bd cls sel lbl| |
|
1888 |
||
1889 |
bd := IdentityDictionary new. |
|
1890 |
bd at:#className put:( userClass asValue). |
|
1891 |
bd at:#specsKey put:( (userSpecs ? '') asValue). |
|
1892 |
bd at:#labelsKey put:( (userLabels ? '') asValue). |
|
1893 |
bd at:#updateDefaultResources put:(false asValue). |
|
1894 |
||
1895 |
(self openDialogInterface:#nameAndSelectorSpec withBindings:bd) ifTrue:[ |
|
987 | 1896 |
( (cls := (bd at:#className) value) notNil |
1897 |
and:[(sel := (bd at:#specsKey) value) notNil |
|
1898 |
and:[(lbl := (bd at:#labelsKey) value) notNil]] |
|
1899 |
) ifTrue:[ |
|
1900 |
userClass := cls. |
|
1901 |
userSpecs := sel. |
|
1902 |
userLabels := lbl. |
|
182 | 1903 |
|
987 | 1904 |
(bd at:#updateDefaultResources) value ifTrue:[ |
1905 |
UserClass := userClass. |
|
1906 |
UserSpecs := userSpecs. |
|
1907 |
UserLabels := userLabels. |
|
1908 |
] |
|
1909 |
] |
|
182 | 1910 |
]. |
1911 |
! |
|
1912 |
||
1913 |
paste:something |
|
2486 | 1914 |
"paste something at a point" |
1915 |
||
1142 | 1916 |
|coll specs point device ext spec| |
182 | 1917 |
|
1918 |
clipBoardSpec isNil ifTrue:[ |
|
987 | 1919 |
clipBoardSpec := SpecCollection new. |
1920 |
clipBoardSpec collection:(OrderedCollection new). |
|
182 | 1921 |
]. |
1142 | 1922 |
coll := clipBoardSpec collection. |
1923 |
device := gallery device. |
|
182 | 1924 |
|
1142 | 1925 |
point := device translatePoint:(device pointerPosition) |
1500
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1926 |
fromView:nil |
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1927 |
toView:(gallery canvas). |
182 | 1928 |
|
1929 |
point y < 1 ifTrue:[point y:1]. |
|
1930 |
ext := gallery extent - (10@10). |
|
93 | 1931 |
|
182 | 1932 |
(specs := something) isCollection ifFalse:[ |
987 | 1933 |
specs := Array with:something |
182 | 1934 |
]. |
1935 |
||
1936 |
specs do:[:aSpec| |
|
987 | 1937 |
point x > ext x ifTrue:[point x:1]. |
1938 |
point y > ext y ifTrue:[point y:1]. |
|
182 | 1939 |
|
987 | 1940 |
spec := aSpec copy. |
3128 | 1941 |
spec keepUILayout ifFalse:[ |
1942 |
spec layout:(LayoutOrigin fromPoint:point). |
|
1943 |
]. |
|
987 | 1944 |
coll add:spec. |
1945 |
point := point + (20@20). |
|
182 | 1946 |
]. |
1947 |
gallery update. |
|
1500
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1948 |
|
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1949 |
"Modified: / 10.10.2001 / 14:14:36 / cg" |
182 | 1950 |
! |
1951 |
||
1952 |
raiseMenu |
|
2486 | 1953 |
"can open menu" |
1954 |
||
251 | 1955 |
|spec menu value paste| |
182 | 1956 |
|
1957 |
spec := self clientSpec value. |
|
112 | 1958 |
|
182 | 1959 |
spec notNil ifTrue:[ |
987 | 1960 |
menu := self class menuSelected decodeAsLiteralArray. |
1961 |
self isClipBoard ifFalse:[ |
|
1962 |
(menu someMenuItemWithValue:#cut) disable. |
|
1963 |
]. |
|
182 | 1964 |
|
987 | 1965 |
(value := menu startUp) == #cut ifTrue:[ |
1966 |
clipBoardSpec collection remove:spec ifAbsent:nil. |
|
1142 | 1967 |
gallery update. |
987 | 1968 |
] ifFalse:[ |
1969 |
value == #copy ifTrue:[ |
|
1870 | 1970 |
self window setClipboardObject:spec |
987 | 1971 |
] |
1972 |
]. |
|
182 | 1973 |
^ self |
1974 |
]. |
|
1975 |
||
1976 |
self isUserBoard ifTrue:[ |
|
987 | 1977 |
^ self defineClassAndSelector |
182 | 1978 |
]. |
1979 |
||
1872 | 1980 |
paste := self window getClipboardObject. |
182 | 1981 |
|
1982 |
(self canPaste:paste) ifTrue:[ |
|
987 | 1983 |
menu := self class menuUnselected decodeAsLiteralArray. |
182 | 1984 |
|
987 | 1985 |
(menu startUp) == #paste ifTrue:[ |
1986 |
self paste:paste |
|
1987 |
] |
|
182 | 1988 |
]. |
112 | 1989 |
! ! |
1990 |
||
1991 |
!UISelectionPanel methodsFor:'aspects'! |
|
1992 |
||
182 | 1993 |
clientSpec |
1142 | 1994 |
^ gallery clientSpecHolder |
93 | 1995 |
! |
1996 |
||
182 | 1997 |
clipBoardSpec |
1998 |
^ clipBoardSpec |
|
1999 |
! |
|
2000 |
||
1142 | 2001 |
gallery |
2002 |
^ gallery |
|
2003 |
! |
|
112 | 2004 |
|
1142 | 2005 |
galleryList |
2006 |
^ gallery listHolder |
|
182 | 2007 |
! |
112 | 2008 |
|
182 | 2009 |
galleryModel |
1142 | 2010 |
^ gallery model |
112 | 2011 |
|
2012 |
! |
|
2013 |
||
182 | 2014 |
majorChannel |
2015 |
|holder| |
|
2016 |
||
2017 |
(holder := builder bindingAt:#majorChannel) isNil ifTrue:[ |
|
987 | 2018 |
holder := AspectAdaptor new subject:self; forAspect:#majorSelection. |
2019 |
builder aspectAt:#majorChannel put:holder. |
|
139 | 2020 |
]. |
182 | 2021 |
^ holder |
2022 |
! |
|
2023 |
||
2024 |
majorList |
|
2486 | 2025 |
^ self class specifications collect:[:el| el first] |
182 | 2026 |
! |
2027 |
||
2028 |
minorKeys |
|
1142 | 2029 |
^ gallery minorKeysHolder |
112 | 2030 |
! ! |
2031 |
||
182 | 2032 |
!UISelectionPanel methodsFor:'change & update'! |
112 | 2033 |
|
182 | 2034 |
update:something with:aParameter from:changedObject |
2486 | 2035 |
"one of my models changed its value" |
2036 |
||
2363 | 2037 |
|label| |
112 | 2038 |
|
2363 | 2039 |
changedObject == self clientSpec ifTrue:[ |
2040 |
(label := changedObject value) notNil ifTrue:[ |
|
2041 |
label := 'Widget Gallery: ' , label name. |
|
987 | 2042 |
] ifFalse:[ |
1587 | 2043 |
label := 'Widget Gallery' |
2044 |
]. |
|
2045 |
builder window topView label:(label , ' ') |
|
93 | 2046 |
]. |
2047 |
||
182 | 2048 |
super update:something with:aParameter from:changedObject. |
112 | 2049 |
! ! |
2050 |
||
182 | 2051 |
!UISelectionPanel methodsFor:'drag & drop'! |
112 | 2052 |
|
2115 | 2053 |
canDropObjects:aCollectionOfDropObjects in:aComponent |
1953 | 2054 |
^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]). |
2115 | 2055 |
|
2056 |
"Created: / 13-10-2006 / 15:53:04 / cg" |
|
112 | 2057 |
! |
2058 |
||
2120 | 2059 |
dropObjects:aCollectionOfDropObjects in:aComponent |
182 | 2060 |
|
2061 |
|spc top| |
|
2062 |
||
1061
7400e3e3daf6
Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents:
1044
diff
changeset
|
2063 |
top := DragAndDropManager dragOriginatorQuerySignal query topView. |
182 | 2064 |
|
2065 |
top == aComponent topView ifTrue:[ |
|
987 | 2066 |
spc := self clientSpec value. |
2067 |
spc isNil ifTrue:[^ self]. |
|
182 | 2068 |
|
987 | 2069 |
(clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[ |
2070 |
^ self |
|
2071 |
]. |
|
182 | 2072 |
] ifFalse:[ |
1953 | 2073 |
spc := aCollectionOfDropObjects collect:[:el| el theObject]. |
182 | 2074 |
]. |
2075 |
self paste:spc. |
|
1061
7400e3e3daf6
Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents:
1044
diff
changeset
|
2076 |
|
2119 | 2077 |
"Modified: / 18-03-1999 / 18:29:19 / stefan" |
2120 | 2078 |
"Created: / 13-10-2006 / 18:25:50 / cg" |
182 | 2079 |
! ! |
2080 |
||
2025 | 2081 |
!UISelectionPanel methodsFor:'initialization'! |
2082 |
||
2083 |
initialize |
|
2084 |
|holder| |
|
2085 |
||
2086 |
super initialize. |
|
2087 |
||
2088 |
userClass := UserClass. |
|
2089 |
userSpecs := UserSpecs. |
|
2090 |
userLabels := UserLabels. |
|
2091 |
||
2092 |
gallery := UIGalleryView new. |
|
2093 |
||
2094 |
gallery model:(ValueHolder new). |
|
2095 |
gallery listHolder:(ValueHolder new). |
|
2096 |
gallery minorKeysHolder:(ValueHolder new). |
|
2097 |
gallery menuSelector:#raiseMenu. |
|
2098 |
||
2099 |
gallery clientSpecHolder:(holder := ValueHolder new). |
|
2100 |
holder addDependent:self. |
|
2101 |
||
2102 |
majorSelection := 0. |
|
2103 |
! ! |
|
2104 |
||
182 | 2105 |
!UISelectionPanel methodsFor:'queries'! |
2106 |
||
2107 |
canPaste:something |
|
2486 | 2108 |
"returns true if something could be paste" |
2109 |
||
182 | 2110 |
(self isClipBoard and:[something notNil]) ifTrue:[ |
987 | 2111 |
something isCollection ifTrue:[ |
2112 |
something notEmpty ifTrue:[ |
|
2113 |
^ (something at:1) isKindOf:UISpecification |
|
2114 |
] |
|
2115 |
] ifFalse:[ |
|
2116 |
^ something isKindOf:UISpecification |
|
2117 |
] |
|
182 | 2118 |
]. |
2119 |
^ false |
|
112 | 2120 |
! |
2121 |
||
182 | 2122 |
isClipBoard |
2486 | 2123 |
"returns true if current view is clip board" |
2124 |
||
291 | 2125 |
majorSelection ~~ 0 ifTrue:[ |
987 | 2126 |
^ (self majorList at:majorSelection) startsWith:'Clip' |
182 | 2127 |
]. |
2486 | 2128 |
^ false |
182 | 2129 |
! |
2130 |
||
2131 |
isUserBoard |
|
2486 | 2132 |
"returns true if current view is clip board" |
2133 |
||
291 | 2134 |
majorSelection ~~ 0 ifTrue:[ |
987 | 2135 |
^ (self majorList at:majorSelection) startsWith:'User' |
182 | 2136 |
]. |
2486 | 2137 |
^ false |
182 | 2138 |
! ! |
2139 |
||
2140 |
!UISelectionPanel methodsFor:'selection'! |
|
2141 |
||
2142 |
majorSelection |
|
291 | 2143 |
^ majorSelection ? 0 |
182 | 2144 |
! |
2145 |
||
2146 |
majorSelection:aSelection |
|
1142 | 2147 |
|spec model| |
112 | 2148 |
|
291 | 2149 |
(majorSelection == aSelection or:[aSelection == 0]) ifTrue:[ |
987 | 2150 |
^ self |
167 | 2151 |
]. |
684 | 2152 |
|
1142 | 2153 |
gallery builder:nil. |
182 | 2154 |
majorSelection := aSelection. |
684 | 2155 |
spec := ((self class specifications) at:majorSelection) last. |
2156 |
||
1142 | 2157 |
model := self galleryModel. |
2158 |
model value:0. |
|
684 | 2159 |
self minorKeys value:nil. |
182 | 2160 |
|
2161 |
spec isSymbol ifFalse:[ |
|
987 | 2162 |
self galleryList value:(spec collect:[:a| a first]). |
2163 |
self minorKeys setValue:(spec collect:[:a| a last]). |
|
182 | 2164 |
] ifTrue:[ |
987 | 2165 |
self perform:spec. |
182 | 2166 |
]. |
1142 | 2167 |
model value:1. |
182 | 2168 |
|
795
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
2169 |
"Modified: / 21.4.1998 / 11:59:08 / cg" |
112 | 2170 |
! ! |
2171 |
||
1716 | 2172 |
!UISelectionPanel methodsFor:'startup & release'! |
112 | 2173 |
|
182 | 2174 |
closeRequest |
2175 |
|sav| |
|
112 | 2176 |
|
182 | 2177 |
(sav := masterApplication) notNil ifTrue:[ |
987 | 2178 |
masterApplication := nil. |
2179 |
sav closeRequestFor:(self window). |
|
2180 |
masterApplication := sav. |
|
182 | 2181 |
] ifFalse:[ |
987 | 2182 |
super closeRequest. |
182 | 2183 |
] |
244
b70597d2a39b
do not send #closeRequest to nil.
Claus Gittinger <cg@exept.de>
parents:
216
diff
changeset
|
2184 |
|
b70597d2a39b
do not send #closeRequest to nil.
Claus Gittinger <cg@exept.de>
parents:
216
diff
changeset
|
2185 |
"Modified: 28.7.1997 / 09:44:40 / cg" |
182 | 2186 |
! |
112 | 2187 |
|
684 | 2188 |
postOpenWith:aBuilder |
182 | 2189 |
self majorChannel value:1. |
2025 | 2190 |
super postOpenWith:aBuilder. |
112 | 2191 |
! ! |
2192 |
||
182 | 2193 |
!UISelectionPanel methodsFor:'user defined'! |
2194 |
||
2195 |
userDefined |
|
2196 |
|cls lbl sel builder| |
|
329 | 2197 |
|
2198 |
cls := self resolveName:userClass. |
|
2199 |
||
2200 |
(cls notNil and:[(cls respondsTo:userLabels)]) ifTrue:[ |
|
987 | 2201 |
lbl := cls perform:userLabels. |
2202 |
sel := Array new:(lbl size) withAll:#userDefinedSpec. |
|
2203 |
self galleryList value:lbl. |
|
2204 |
self minorKeys value:sel. |
|
329 | 2205 |
] ifFalse:[ |
987 | 2206 |
builder := UIBuilder new isEditing:true. |
397 | 2207 |
|
987 | 2208 |
builder application:self. |
1142 | 2209 |
gallery builder:builder. |
987 | 2210 |
self galleryList value:#( '???' ). |
2211 |
self minorKeys value:#( standardUserPanel ). |
|
329 | 2212 |
] |
182 | 2213 |
! |
147 | 2214 |
|
182 | 2215 |
userDefinedHelpText |
2216 |
||
2217 |
^ ' |
|
2218 |
no user defined specifications are configured yet. To assign |
|
2486 | 2219 |
user defined specifications to the gallery, press the middle |
182 | 2220 |
button of your mouse to open a dialog. |
2221 |
' |
|
2222 |
! |
|
2223 |
||
2224 |
userDefinedSpec |
|
2225 |
|cls spc idx| |
|
93 | 2226 |
|
329 | 2227 |
cls := self resolveName:userClass. |
182 | 2228 |
|
329 | 2229 |
(cls notNil and:[(cls respondsTo:userSpecs)]) ifTrue:[ |
987 | 2230 |
spc := cls perform:userSpecs. |
2231 |
idx := self galleryModel value. |
|
329 | 2232 |
|
987 | 2233 |
idx <= spc size ifTrue:[ |
2234 |
spc := spc at:idx. |
|
2235 |
(cls respondsTo:spc) ifTrue:[ |
|
2236 |
^ cls perform:spc |
|
2237 |
] |
|
2238 |
] |
|
93 | 2239 |
]. |
147 | 2240 |
^ nil |
93 | 2241 |
! ! |
2242 |
||
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2243 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'class initialization'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2244 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2245 |
initialize |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2246 |
"initialize my default user-def from the superclasses specs. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2247 |
I.e. provide a clocks entry" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2248 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2249 |
LabelList := self defaultListOfLabels asOrderedCollection. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2250 |
SelectorList := self defaultListOfSelectors asOrderedCollection. |
3142 | 2251 |
HolderList := OrderedCollection newWithSize:(SelectorList size). |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2252 |
NextUniqueNumber := 1. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2253 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2254 |
UISelectionPanel |
987 | 2255 |
userClass:self |
2256 |
specSelector:#listOfSelectors |
|
2257 |
labelSelector:#listOfLabels. |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2258 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2259 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2260 |
self initialize |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2261 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2262 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2263 |
"Modified: / 5.12.1997 / 14:25:22 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2264 |
"Created: / 8.12.1997 / 18:49:42 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2265 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2266 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2267 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'defaults'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2268 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2269 |
defaultListOfLabels |
987 | 2270 |
^ #( 'Clocks etc.' 'Business Graphics' ) |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2271 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2272 |
"Created: / 8.12.1997 / 18:50:06 / cg" |
864 | 2273 |
"Modified: / 16.6.1998 / 10:20:12 / cg" |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2274 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2275 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2276 |
defaultListOfSelectors |
987 | 2277 |
^ #( clocksSpec businessGraphicsSpec) |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2278 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2279 |
"Modified: / 5.12.1997 / 14:03:55 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2280 |
"Created: / 8.12.1997 / 18:50:21 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2281 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2282 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2283 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'documentation'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2284 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2285 |
copyright |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2286 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2287 |
COPYRIGHT (c) 1997 by eXept Software AG |
987 | 2288 |
All Rights Reserved |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2289 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2290 |
This software is furnished under a license and may be used |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2291 |
only in accordance with the terms of that license and with the |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2292 |
inclusion of the above copyright notice. This software may not |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2293 |
be provided or otherwise made available to, or used by, any |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2294 |
other person. No title to or ownership of the software is |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2295 |
hereby transferred. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2296 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2297 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2298 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2299 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2300 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2301 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2302 |
documentation |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2303 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2304 |
The standard user-defined selectionPanel entry. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2305 |
Here, a single item named 'clocks' is provided, containing |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2306 |
an analog and digital clock. |
2216 | 2307 |
This is a dumb example; the actual user-defined panel may be |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2308 |
extended dynamically. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2309 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2310 |
Frameworks which provide additional widgets may dynamically |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2311 |
add more entries, by sending #addUserSpecHolder:label: |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2312 |
or #removeUserSpecWithLabel:. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2313 |
Typically, this is done when a framework is loaded, by one of the |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2314 |
frameworks class-initialization methods. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2315 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2316 |
[start with:] |
987 | 2317 |
UISelectionPanel open |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2318 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2319 |
[author:] |
987 | 2320 |
Claus Gittinger |
2321 |
Claus Atzkern |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2322 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2323 |
[see also:] |
987 | 2324 |
TabView |
2325 |
NoteBookView |
|
2326 |
UIGalleryView |
|
2327 |
UIPainter |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2328 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2329 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2330 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2331 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2332 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'installation / deinstallation'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2333 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2334 |
addUserSpecHolder:aValueHolder label:aLabelString |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2335 |
"add a new entry with the given label. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2336 |
The specHolder is typically either a spec, a valueHolder or a block. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2337 |
In any case, it should return a valid spec from the #value message. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2338 |
This spec is installed under that label." |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2339 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2340 |
|syntheticSelector idx| |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2341 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2342 |
syntheticSelector := ('userSpec' , NextUniqueNumber printString) asSymbol. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2343 |
NextUniqueNumber := NextUniqueNumber + 1. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2344 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2345 |
idx := LabelList indexOf:aLabelString. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2346 |
idx ~~ 0 ifTrue:[ |
987 | 2347 |
SelectorList at:idx put:syntheticSelector. |
2348 |
HolderList at:idx put:aValueHolder |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2349 |
] ifFalse:[ |
987 | 2350 |
LabelList addLast:aLabelString. |
2351 |
SelectorList addLast:syntheticSelector. |
|
2352 |
HolderList addLast:aValueHolder |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2353 |
] |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2354 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2355 |
"Modified: / 5.12.1997 / 14:13:17 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2356 |
"Created: / 8.12.1997 / 18:50:55 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2357 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2358 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2359 |
removeUserSpecWithLabel:aLabelString |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2360 |
"remove the spec which was previously installed under the given label" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2361 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2362 |
|idx| |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2363 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2364 |
idx := LabelList indexOf:aLabelString. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2365 |
idx ~~ 0 ifTrue:[ |
987 | 2366 |
LabelList removeIndex:idx. |
2367 |
SelectorList removeIndex:idx. |
|
2368 |
HolderList removeIndex:idx |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2369 |
]. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2370 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2371 |
"Modified: / 5.12.1997 / 14:13:45 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2372 |
"Created: / 8.12.1997 / 18:51:03 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2373 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2374 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2375 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'user defined gallery'! |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2376 |
|
987 | 2377 |
businessGraphicsSpec |
2378 |
"This resource specification was automatically generated |
|
2379 |
by the UIPainter of ST/X." |
|
2380 |
||
2381 |
"Do not manually edit this!! If it is corrupted, |
|
2382 |
the UIPainter may not be able to read the specification." |
|
2383 |
||
2384 |
" |
|
2385 |
UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#businessGraphicsSpec |
|
2386 |
" |
|
2387 |
||
2388 |
<resource: #canvas> |
|
2389 |
||
1456 | 2390 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2391 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2392 |
name: businessGraphicsSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2393 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2394 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2395 |
label: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2396 |
name: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2397 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2398 |
bounds: (Rectangle 14 46 394 317) |
1456 | 2399 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2400 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2401 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2402 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2403 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2404 |
label: 'PieChart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2405 |
name: 'Label2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2406 |
layout: (LayoutFrame 5 0 5 0 126 0 20 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2407 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2408 |
canUIDrag: false |
1456 | 2409 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2410 |
(PieChartWidgetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2411 |
name: 'PIE Chart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2412 |
layout: (LayoutFrame 15 0 21 0 103 0 141 0) |
1456 | 2413 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2414 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2415 |
label: 'ChartDescription' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2416 |
name: 'Label1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2417 |
layout: (LayoutFrame 8 0.0 153 0 131 0 168 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2418 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2419 |
canUIDrag: false |
1456 | 2420 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2421 |
(ChartDescriptionSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2422 |
name: 'Chart Legend' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2423 |
layout: (LayoutFrame 14 0.0 -9 0.656827 14 0.323684 -9 1.0) |
1456 | 2424 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2425 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2426 |
label: 'BarChart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2427 |
name: 'Label3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2428 |
layout: (LayoutFrame 115 0 5 0 237 0 20 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2429 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2430 |
canUIDrag: false |
1456 | 2431 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2432 |
(BarChartWidgetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2433 |
name: 'Bar Chart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2434 |
layout: (LayoutFrame 121 0 21 0 232 0 141 0) |
1456 | 2435 |
) |
2436 |
) |
|
2437 |
||
2438 |
) |
|
987 | 2439 |
) |
2440 |
! |
|
2441 |
||
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2442 |
clocksSpec |
864 | 2443 |
"This resource specification was automatically generated |
2444 |
by the UIPainter of ST/X." |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2445 |
|
864 | 2446 |
"Do not manually edit this!! If it is corrupted, |
2447 |
the UIPainter may not be able to read the specification." |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2448 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2449 |
" |
726 | 2450 |
UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#clocksSpec |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2451 |
" |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2452 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2453 |
<resource: #canvas> |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2454 |
|
1456 | 2455 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2456 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2457 |
name: clocksSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2458 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2459 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2460 |
label: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2461 |
name: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2462 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2463 |
bounds: (Rectangle 14 46 439 319) |
1456 | 2464 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2465 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2466 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2467 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2468 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2469 |
name: 'Analog Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2470 |
layout: (LayoutFrame 15 0 39 0 129 0 151 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2471 |
hasBorder: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2472 |
component: ClockView |
1456 | 2473 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2474 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2475 |
name: 'Digital Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2476 |
layout: (LayoutOrigin 15 0 176 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2477 |
hasBorder: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2478 |
component: DigitalClockView |
1456 | 2479 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2480 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2481 |
name: 'Digital Number display' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2482 |
layout: (LayoutOrigin 142 0 39 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2483 |
hasBorder: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2484 |
component: DigitalLedDisplay |
1456 | 2485 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2486 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2487 |
label: 'Analog Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2488 |
name: 'Label1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2489 |
layout: (LayoutFrame 15 0 16 0 128 0 38 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2490 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2491 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2492 |
canUIDrag: false |
1456 | 2493 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2494 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2495 |
label: 'Number Display' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2496 |
name: 'Label2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2497 |
layout: (LayoutFrame 142 0 16 0 270 0 38 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2498 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2499 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2500 |
canUIDrag: false |
1456 | 2501 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2502 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2503 |
label: 'Digital Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2504 |
name: 'Label3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2505 |
layout: (LayoutFrame 15 0 155 0 128 0 177 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2506 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2507 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2508 |
canUIDrag: false |
1456 | 2509 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2510 |
(MeterWidgetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2511 |
name: 'Meter Widget' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2512 |
layout: (Rectangle 143 99 259 216) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2513 |
model: meterValue |
1456 | 2514 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2515 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2516 |
label: 'Meter Widget' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2517 |
name: 'Label4' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2518 |
layout: (LayoutFrame 142 0 77 0 269 0 99 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2519 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2520 |
canUIDrag: false |
1456 | 2521 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2522 |
(MeterClackCounterSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2523 |
name: 'Meter Clack Counter' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2524 |
layout: (Rectangle 291 40 387 72) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2525 |
model: model |
1456 | 2526 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2527 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2528 |
label: 'Meter Clack Counter' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2529 |
name: 'Label5' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2530 |
layout: (LayoutFrame 290 0 16 0 417 0 38 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2531 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2532 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2533 |
canUIDrag: false |
1456 | 2534 |
) |
2535 |
) |
|
2536 |
||
2537 |
) |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2538 |
) |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2539 |
! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2540 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2541 |
listOfLabels |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2542 |
^ LabelList |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2543 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2544 |
"Created: / 5.12.1997 / 13:43:03 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2545 |
"Modified: / 8.12.1997 / 18:51:20 / cg" |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2546 |
! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2547 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2548 |
listOfSelectors |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2549 |
^ SelectorList |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2550 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2551 |
"Created: / 5.12.1997 / 13:43:13 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2552 |
"Modified: / 8.12.1997 / 18:51:28 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2553 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2554 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2555 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'user spec access'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2556 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2557 |
doesNotUnderstand:aMessage |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2558 |
"catch queries for a userSpec" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2559 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2560 |
|sel idx| |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2561 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2562 |
((sel := aMessage selector) startsWith:'userSpec') ifTrue:[ |
987 | 2563 |
idx := SelectorList indexOf:sel. |
2564 |
idx ~~ 0 ifTrue:[ |
|
2565 |
^ (HolderList at:idx) value |
|
2566 |
] |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2567 |
]. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2568 |
^ super doesNotUnderstand:aMessage |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2569 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2570 |
"Modified: / 5.12.1997 / 14:23:24 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2571 |
"Created: / 8.12.1997 / 18:51:50 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2572 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2573 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2574 |
respondsTo:aSelector |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2575 |
"catch queries for a userSpec" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2576 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2577 |
|idx| |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2578 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2579 |
(aSelector startsWith:'userSpec') ifTrue:[ |
987 | 2580 |
idx := Number fromString:(aSelector copyFrom:9). |
2581 |
idx := SelectorList indexOf:aSelector. |
|
2582 |
idx ~~ 0 ifTrue:[^ true]. |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2583 |
]. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2584 |
^ super respondsTo:aSelector |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2585 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2586 |
"Modified: / 5.12.1997 / 14:19:55 / cg" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2587 |
"Created: / 8.12.1997 / 18:51:57 / cg" |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2588 |
! ! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2589 |
|
93 | 2590 |
!UISelectionPanel class methodsFor:'documentation'! |
2591 |
||
2592 |
version |
|
2593 |
^ '$Header$' |
|
2713 | 2594 |
! |
2595 |
||
2596 |
version_CVS |
|
2597 |
^ '$Header$' |
|
93 | 2598 |
! ! |
1628
bc3362031d0b
Fix default actions for OKButton and CancelButton to #doAccept and
Stefan Vogel <sv@exept.de>
parents:
1602
diff
changeset
|
2599 |
|
3059 | 2600 |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2601 |
UISelectionPanel initialize! |
1628
bc3362031d0b
Fix default actions for OKButton and CancelButton to #doAccept and
Stefan Vogel <sv@exept.de>
parents:
1602
diff
changeset
|
2602 |
UISelectionPanel::UserDefinedGallery initialize! |