author | Claus Gittinger <cg@exept.de> |
Fri, 01 Sep 2017 10:28:33 +0200 | |
changeset 3478 | 1b4386fd1953 |
parent 3403 | 5725611d7f35 |
child 3579 | a2dc71824029 |
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 |
||
3226 | 14 |
"{ NameSpace: Smalltalk }" |
15 |
||
182 | 16 |
ApplicationModel subclass:#UISelectionPanel |
1142 | 17 |
instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection |
18 |
clipBoardSpec' |
|
1044 | 19 |
classVariableNames:'UserClass UserSpecs UserLabels' |
20 |
poolDictionaries:'' |
|
21 |
category:'Interface-UIPainter' |
|
182 | 22 |
! |
23 |
||
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
24 |
Object subclass:#UserDefinedGallery |
1044 | 25 |
instanceVariableNames:'' |
26 |
classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber' |
|
27 |
poolDictionaries:'' |
|
28 |
privateIn:UISelectionPanel |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
29 |
! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
30 |
|
182 | 31 |
!UISelectionPanel class methodsFor:'documentation'! |
32 |
||
33 |
copyright |
|
34 |
" |
|
35 |
COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG |
|
987 | 36 |
All Rights Reserved |
93 | 37 |
|
38 |
This software is furnished under a license and may be used |
|
39 |
only in accordance with the terms of that license and with the |
|
40 |
inclusion of the above copyright notice. This software may not |
|
41 |
be provided or otherwise made available to, or used by, any |
|
42 |
other person. No title to or ownership of the software is |
|
43 |
hereby transferred. |
|
44 |
" |
|
45 |
||
46 |
||
47 |
! |
|
48 |
||
49 |
documentation |
|
50 |
" |
|
51 |
implements a selection panel, keeping widgets which could be placed |
|
52 |
into the UIPainter by drag & drop. |
|
53 |
||
182 | 54 |
[start with:] |
987 | 55 |
UISelectionPanel open |
182 | 56 |
|
93 | 57 |
[author:] |
987 | 58 |
Claus Gittinger |
59 |
Claus Atzkern |
|
93 | 60 |
|
61 |
[see also:] |
|
987 | 62 |
TabView |
63 |
NoteBookView |
|
64 |
UIGalleryView |
|
65 |
UIPainter |
|
104 | 66 |
|
93 | 67 |
" |
68 |
||
69 |
! ! |
|
70 |
||
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
71 |
!UISelectionPanel class methodsFor:'initialization'! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
72 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
73 |
initialize |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
74 |
UserClass := UISelectionPanel::UserDefinedGallery. |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
75 |
UserSpecs := #listOfSelectors. |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
76 |
UserLabels := #listOfLabels. |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
77 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
78 |
"Modified: / 8.12.1997 / 18:53:06 / cg" |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
79 |
! ! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
80 |
|
182 | 81 |
!UISelectionPanel class methodsFor:'accessing'! |
93 | 82 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
83 |
userClass |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
84 |
"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
|
85 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
86 |
^ UserClass |
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 |
"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
|
89 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
90 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
91 |
userClass:aClass specSelector:aSpecAccessSelector labelSelector:aLabelListAccessSelector |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
92 |
"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
|
93 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
94 |
UserClass := aClass. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
95 |
UserSpecs := aSpecAccessSelector. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
96 |
UserLabels := aLabelListAccessSelector. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
97 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
98 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
99 |
UISelectionPanel |
987 | 100 |
userClass:UISelectionPanel::VariableUserDefinedGallery |
101 |
specSelector:#listOfSelectors |
|
102 |
labelSelector:#listOfLabels |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
103 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
104 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
105 |
"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
|
106 |
"Created: / 5.12.1997 / 13:56:10 / cg" |
93 | 107 |
! ! |
108 |
||
1602 | 109 |
!UISelectionPanel class methodsFor:'classAccess'! |
110 |
||
111 |
galleryClass |
|
112 |
||
113 |
^ UserDefinedGallery |
|
114 |
! ! |
|
115 |
||
2562 | 116 |
!UISelectionPanel class methodsFor:'image specs'! |
117 |
||
118 |
sketchImageIcon |
|
2566 | 119 |
^ self sketchImageIcon2 |
120 |
! |
|
121 |
||
122 |
sketchImageIcon1 |
|
2562 | 123 |
"This resource specification was automatically generated |
124 |
by the ImageEditor of ST/X." |
|
3226 | 125 |
|
2562 | 126 |
"Do not manually edit this!! If it is corrupted, |
127 |
the ImageEditor may not be able to read the specification." |
|
3226 | 128 |
|
2562 | 129 |
" |
3226 | 130 |
self sketchImageIcon1 inspect |
131 |
ImageEditor openOnClass:self andSelector:#sketchImageIcon1 |
|
132 |
Icon flushCachedIcons |
|
133 |
" |
|
134 |
||
135 |
<resource: #image> |
|
136 |
||
137 |
^Icon |
|
138 |
constantNamed:'UISelectionPanel sketchImageIcon1' |
|
139 |
ifAbsentPut:[(Depth8Image new) width:62; height:48; bits:(ByteArray fromPackedString:' |
|
140 |
&RH"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H)$"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
141 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
142 |
@@@@@@@"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
143 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
144 |
@@@@@@@@@@@@@@@"H @@@@@@(+Z6O*6-D1LSX6LSD1LSB*6-,[F1,[D>W%9^W&&"(*H[S4=OED*D!!H>O#5)Z]GQ4$9L@@@@@@BH"@@@@@@@>G(Z[&51;\%]W |
|
145 |
U5]2\%L-WH.K"8.[_W5=[V4^G& O)*Z;.;.]''Y6R"H"HMH6M#X59V @@@@@@H"H@@@@@@A9=&512U40HJR$)JP!!L@0L2 XD9NS$-KX.K_W5=-KRVC:YH.;,$ |
|
146 |
''Y6R"H"HMCP4#Q%9@@@@@@@"H @@@@@@G)-\U:PH+:(QDQD]+:<)S@LCL(FANS$-WH.K&75=-KQ(C:Z&.;.]''YJR"H!!EMCRMFW$@@@@@@BH"@@@@@@ANWG.$ |
|
147 |
+:)6YP0LQ7Z_GZ<)FD0C@3JA XD9WE2K&75=!!+RVC:YH.2R]''YJH"DT4MCPY^P@@@@@@H"H@@@@@@DI;U:<QYP@@@@@@@K!!,DQ6/JT0C@0L2 XESWGIW\''-\ |
|
148 |
&;POC:YH.2R]$("HQSP4MA%9@@@@@@@"H @@@@@@&3Y *+ @@@@@@@@@@F),DQ4)JQ C@0L2 XDCSE]W\''-\_Q8OC4!!HII6]$(!!EMCP4#W$@@@@@@BH"@@@@ |
|
149 |
@@A\U6B_@@@@@@@@@@@@LGY,GX()FA!!L@0L2 T1L\U]W^7-\G <O)$!!HC0>U^H 4MCRM^P@@@@@@H"H@@@@@@E23+6(@@@@@@@@@@@@@Z&0QGZ<)FD1L@0NA |
|
150 |
SD1LU5]2^9.4G >&R@<B@ >U$#P4MH59@@@@@@@"H @@@@@@WKN/.@@@@@@@@@@@@@AG])(]""$)FD0C@0L=@0M1U5]\_[P^C0=HR@HBC4"HMCP4#W$@@@@@ |
|
151 |
@BH"@@@@@@A\,:>8@@@@@@@@@@@@@F)6&!!6JJR$XSD0C@0M2\%1\WI-=!!!!9(C:YH.59/$(!!EMCRM^P@@@@@@H"H@@@@@@E1WE''X@@@@@@@@@@@@@HV0QGX() |
|
152 |
JQ XS@LCOWI2WE2K&75=G!!8OC4";[96R"DT4MH59@@@@@@@"H @@@@@@&5] *&T@@@@@@@@@@D]6[AD]+2$)FD1LS@LC WI\WH.[_W4^G <ORD";''YJH"CP4 |
|
153 |
#W$@@@@@@BH"@@@@@@B[^;N/''3@@@@@@@@@L]&0QGX()JQ XFD1L@0NA\%M\"9-=_Q8^C0=HRBR]''X"HMCPY^P@@@@@@H"H@@@@@@D9\U42*D[ 0@@@0Z''Y, |
|
154 |
DQ6J+2$)FA!!LS@LC@8E2WE1\&76[&9,^C:YH.6>]"H 4MA%9@@@@@@@"H @@@@@@G)-\U0"/DY=,[F1,DQD]"*<)JR$XSD1L@0L=\''ISWH.[_U1\WDHORD"; |
|
155 |
[96H"CRMFW$@@@@@@BH"@@@@@@@^_Y-;U42/+14]GQ4]+:<)JR$XFD1LS@LC@352\%1\"9-=&9.[G >&RE:]''X"HMH4Y^P@@@@@@H"H@@@@@@@>4_U1;U:QL |
|
156 |
JR&/+2$)JR$XSD1LS@LC@0L=\''I2WE2K&76FG!!8OC4";W)6R"H 4#Q%9@@@@@@@"H @@@@@@C;R4_X-\\%\CSD1LSD1LSD1LS@LC@0LCOWI2\%1\"8.[_Q8^ |
|
157 |
G >&RK-/''YJHQSPYFW$@@@@@@BH"@@@@@@B&Y;RF_Y-\WGJAOPLC@0LC@0LC@0LCOS52\''I\WE2K&75=G!!8OC:YHW&>]$(!!E#Q$Y^P@@@@@@H"H@J"(*@D O |
|
158 |
Y;Q-_Y.KWE12 XFAOS4COPL=OXFA\''I2WE1\"9-=_R0^G <ORD!!^''Y6R"CRMFQ%9@B(*J @"H @*J"(@RJXOY;R4_Y.K"51\WGI2\''I2\(FA\''I2\%1\WH.[ |
|
159 |
&75=G!!8OC:YH.6>]''X"HMH4Y^W$@J"(*@BH"@B(*J"Z;)*XO%+Q-_W6["51\WE1S\''I2\''I2\%M\WE2K&9-=_Q8^G <O)$!!^[96R"DVM#Q%9^RX*J"(@H"H@ |
|
160 |
J"(*I)DG&JF:.+*:(P8(NEH_R5YI]WI\WE1\WE1\"9.[_W4,X''0E#DMT-R<#SZV%)XAMH7N\I"(*J @"H @*J"(*BU%>A XFA''9PTEAPVSLR*Z&)(Q\<U&YA |
|
161 |
"9.[Z7^L ;^''):2,+C,1LSD1%IRT%CE:^''(*J"(*@BH"@A(ZF"(IQDA@(:N#(:N#(0XFA XFA XFTE@R*Y"QW[U.%1TUV8TA@PDA@PFP''):^''):^*J"(*B(Z |
|
162 |
F!!(@H"H@F!!(ZJ*T1%IRTB0-@PDA@PDB#(:N#(:N#A XFA''9PVU&,DB-!!XVF.+*:.J:B @PDA@PDA@YB^J!!(ZF @"H @ZF!!(*O1B(*A0\%IRT%IRT%IPKB4A@ |
|
163 |
PDA@PJN#(:N#Q@YYO1T+CP5UQ&E!!XVE!!XZ:.+*8+(J@*F!!(Z@BH"@A(ZF"*''''):^''):^''*"(*J"(GA2T%IRT%IRT%@,KPDA@PDB#QC<UJ;B9CP4MCP4MCUUF |
|
164 |
XVE!!XR(ZF!!(@H"H@F!!(ZF)\A(@DA@PDA@PFP''):^''):^*J"(*J \GIRT%IRT%IRTB4B2V2^G!!5EQTUF0,K$MCP4MF!!(ZF @"H @ZF!!(ZEZ9!!XVF.+*:.J:B |
|
165 |
@PDA@PDA@YB^''):^''):(*J"(*A0\%IP1N",%IPPD!!8^G!!8^GTUDZF!!(Z@BH"@A(ZF!!)?I04MCP5UQ&E!!XVE!!XZ:.+*8+(J@A@PDA@PDA$I:^''):^''*"(%CTD |
|
166 |
K"T%IRT%IRT%AA(ZF!!(@H"H@F!!(ZF%>0TUEQ,KB9CP4MCP4MCUUFXVE!!XVE!!+*:.+". (@DA@PDA@PFP''",%VE!!XVE 7M28.F!!(ZF @"H @ZF!!(ZMX\DAH^G |
|
167 |
!!8^G!!5EQTUF0,K$MCP4MCP4MUTY!!XVE!!XVF.+*:.J:B @TX "@ HB@ HB@ZF!!(Z@BH"I*.+*1)0IR8%IRT%IRT%IPPD!!8^G!!8^GTUEQT[B0.P4MCP4MCP5U |
|
168 |
Q&E!!XVE!!++BI"X&I"X&IYA*+*:,&H"H**:.+F"\7HE!!XVE!!XM3\.K"T%IRT%IRT%A@RG!!8^G!!8]QTUEQ,KB9CP4MCP4MCRBN#(:N"X&IF*.+*2("H"*+*:.+ |
|
169 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B+*:.+J"H"J*.+*:.+F!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(Z |
|
170 |
F!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(Z*:.+*:,*H"H**:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*2(" |
|
171 |
H"*+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+J"H"@B(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(* |
|
172 |
J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(@H)$"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H" |
|
173 |
H"H"H"JY') ; colorMapFromArray:#[255 255 255 160 208 95 96 160 224 143 207 255 127 176 63 143 192 207 208 240 128 208 239 176 159 207 255 223 240 160 95 175 223 192 224 111 239 240 255 143 192 64 223 240 176 95 160 224 176 223 111 176 223 255 224 255 144 96 175 223 48 143 208 176 223 127 160 207 240 208 239 191 144 208 255 48 127 208 240 240 240 63 144 208 176 224 111 175 223 255 96 175 224 191 224 207 96 175 47 207 239 255 191 207 208 192 224 160 79 144 224 112 176 48 255 240 255 143 192 80 208 240 176 159 208 255 240 240 255 159 207 95 111 175 224 127 191 255 111 176 48 191 224 160 240 255 255 191 224 127 128 207 255 223 255 144 48 128 223 159 207 96 143 191 240 111 175 48 207 239 191 127 192 255 191 223 127 191 224 128 192 224 207 143 192 255 80 159 223 207 239 143 192 239 127 128 192 224 112 176 224 160 207 176 207 239 128 63 128 223 144 192 80 223 240 255 80 159 224 159 208 223 48 143 207 176 223 208 144 207 255 207 239 160 111 176 224 63 143 208 223 240 143 128 191 63 192 239 191 127 192 240 175 208 175 144 192 64 175 223 208 143 192 240 111 175 47 223 240 144 47 127 207 175 223 111 127 191 240 191 224 176 79 159 223 160 208 96 159 207 240 144 207 80 112 176 223 111 175 223 95 160 47 224 240 255 159 207 223 95 160 240 95 175 224 64 159 208 208 239 255 127 191 224 191 224 255 96 176 240 176 223 143 79 144 223 144 207 95 143 207 240 128 192 240 191 223 175 32 127 207 144 207 224 192 224 255 143 192 208 80 144 223 47 127 208 192 224 127 128 191 240 127 191 208 111 176 240 208 240 143 175 208 111 208 239 160 128 192 255 96 160 47 160 208 175 48 128 207 175 208 96 111 175 240 127 191 63 63 143 223 95 160 31 160 223 255 112 191 240 144 207 191 48 128 208 80 160 31 47 128 207 175 208 95 207 239 176 64 143 223 32 112 191 191 224 111 95 159 224 95 175 240 191 223 128 223 240 175 208 223 224 176 224 255 112 176 240 176 208 175 64 144 223 175 223 96 191 223 255 159 208 95 224 240 175 64 144 208 207 239 127 144 207 240 208 239 144 80 160 224 192 224 143 176 223 96 224 255 160 175 208 255 239 239 240 192 224 128 95 160 223 159 207 80 160 208 255 128 191 64 80 160 223 192 239 128 144 192 240 96 175 240 176 223 175 79 159 208 176 223 144 223 239 255 128 192 64 224 255 175 79 159 224]; mask:((ImageMask new) width:62; height:48; bits:(ByteArray fromPackedString:' |
|
2562 | 174 |
??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?? |
175 |
???????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3????? |
|
176 |
?????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<???????? |
|
177 |
??3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????< |
|
3226 | 178 |
??????????3??????????O?????????<') ; yourself); yourself] |
2566 | 179 |
! |
180 |
||
181 |
sketchImageIcon2 |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
182 |
<resource: #image> |
2566 | 183 |
"This resource specification was automatically generated |
184 |
by the ImageEditor of ST/X." |
|
185 |
"Do not manually edit this!! If it is corrupted, |
|
186 |
the ImageEditor may not be able to read the specification." |
|
187 |
" |
|
188 |
self sketchImageIcon2 inspect |
|
189 |
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
|
190 |
Icon flushCachedIcons" |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
191 |
|
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
192 |
^ 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
|
193 |
ifAbsentPut:[ |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
194 |
(Depth8Image new) |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
195 |
width:96; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
196 |
height:78; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
197 |
photometric:(#palette); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
198 |
bitsPerSample:(#[ 8 ]); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
199 |
samplesPerPixel:(1); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
200 |
bits:(ByteArray |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
201 |
fromPackedString:' |
2566 | 202 |
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@ |
203 |
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@ |
|
204 |
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 |
|
205 |
&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\'' |
|
206 |
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\'' |
|
207 |
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\'' |
|
208 |
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\'' |
|
209 |
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\'' |
|
210 |
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 |
|
211 |
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 |
|
212 |
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 |
|
213 |
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 |
|
214 |
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,[ |
|
215 |
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</ |
|
216 |
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\'' |
|
217 |
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@ |
|
218 |
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= |
|
219 |
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 |
|
220 |
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&$ |
|
221 |
^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 |
|
222 |
%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 |
|
223 |
+:>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 |
|
224 |
+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 |
|
225 |
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 |
|
226 |
^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= |
|
227 |
_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<_ |
|
228 |
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 |
|
229 |
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 |
|
230 |
%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, |
|
231 |
+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/+:>/ |
|
232 |
+:>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\'' |
|
233 |
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@ |
|
234 |
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= |
|
235 |
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),+:>/ |
|
236 |
+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 */+:>/ |
|
237 |
%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/ |
|
238 |
+:>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 |
|
239 |
%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 */+:>/+:>/ |
|
240 |
%YVU%YVU%Z>/+:>/+:>/+:>/+:>/+:>/[@(JIT8=OS4!!T6M@P@\=I2\''I1V.+*9*+*:.+&)*_''9>_%@8VZ>/%YVU%YVU%YVU%YVU%YVU%YVU%YVU+:<JB */ |
|
241 |
+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:=,B (%B$8=ORD!!T6M@P@\=I2\''I1U''Z*:.+*:._&)*_''9>_''9PCHZ/M9VU%YVU%YVU%YVU%YVU%YVU%Z>/ |
|
242 |
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 |
|
243 |
+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 |
|
244 |
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 |
|
245 |
[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; |
|
246 |
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^+ |
|
247 |
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^'':]'' |
|
248 |
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\'' |
|
249 |
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@ |
|
250 |
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!! |
|
251 |
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% |
|
252 |
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% |
|
253 |
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# |
|
254 |
(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 |
|
255 |
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 |
|
256 |
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^#(:" |
|
257 |
((:"(*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%($&" |
|
258 |
)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*% |
|
259 |
)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 |
|
260 |
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 |
|
261 |
,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 |
|
262 |
,[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 |
|
263 |
,[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 |
|
264 |
(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 |
|
265 |
\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@ |
|
266 |
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 |
|
267 |
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!! |
|
268 |
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=_ |
|
269 |
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& |
|
270 |
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& |
|
271 |
K"9_WD5%W5>&)*Y\)*ZOWB8.YVV&R T9NS$9A6M@P@\=O34=OR5--UQTUEQTUEQ-[V63,;N3,;N3DQDQJQDQDQD&DQDQDQD&I!!DQJQDQJRX)JQD&JR8)I"$) |
|
272 |
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 |
|
273 |
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$) |
|
274 |
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& |
|
275 |
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 |
|
276 |
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 |
|
277 |
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= |
|
278 |
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= |
|
279 |
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= |
|
280 |
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= |
|
281 |
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@ |
|
282 |
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 |
|
283 |
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# |
|
284 |
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
|
285 |
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
|
286 |
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
|
287 |
mask:((ImageMask new) |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
288 |
width:96; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
289 |
height:78; |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
290 |
bits:(ByteArray |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
291 |
fromPackedString:' |
2566 | 292 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
293 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
294 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
295 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
296 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
297 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
298 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
299 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
300 |
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? |
|
301 |
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> |
|
3115
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
302 |
_??????????????>_??????????????>@@@@@@@@@@@@@@@@'); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
303 |
yourself); |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
304 |
yourself |
b67cec807e78
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3059
diff
changeset
|
305 |
] |
2562 | 306 |
! ! |
307 |
||
2566 | 308 |
!UISelectionPanel class methodsFor:'interface specs'! |
309 |
||
310 |
nameAndSelectorSpec |
|
311 |
"This resource specification was automatically generated |
|
312 |
by the UIPainter of ST/X." |
|
313 |
||
314 |
"Do not manually edit this!! If it is corrupted, |
|
315 |
the UIPainter may not be able to read the specification." |
|
316 |
||
317 |
" |
|
318 |
UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec |
|
319 |
UISelectionPanel new openInterface:#nameAndSelectorSpec |
|
320 |
" |
|
321 |
||
322 |
<resource: #canvas> |
|
323 |
||
324 |
^ |
|
325 |
#(FullSpec |
|
326 |
name: nameAndSelectorSpec |
|
327 |
window: |
|
328 |
(WindowSpec |
|
329 |
label: 'Painter' |
|
330 |
name: 'Painter' |
|
331 |
min: (Point 10 10) |
|
332 |
bounds: (Rectangle 14 46 329 262) |
|
333 |
) |
|
334 |
component: |
|
335 |
(SpecCollection |
|
336 |
collection: ( |
|
337 |
(LabelSpec |
|
338 |
label: 'Class & selectors to access user specs:' |
|
339 |
name: 'title' |
|
340 |
layout: (Point 5 10) |
|
341 |
resizeForLabel: true |
|
342 |
adjust: left |
|
343 |
) |
|
344 |
(LabelSpec |
|
345 |
label: 'Class:' |
|
346 |
name: 'classLabel' |
|
347 |
layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) |
|
348 |
resizeForLabel: true |
|
349 |
adjust: right |
|
350 |
) |
|
351 |
(InputFieldSpec |
|
352 |
name: 'classField' |
|
353 |
layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) |
|
354 |
tabable: true |
|
355 |
model: className |
|
356 |
type: string |
|
357 |
acceptOnPointerLeave: false |
|
358 |
) |
|
359 |
(LabelSpec |
|
360 |
label: 'Labels:' |
|
361 |
name: 'labelsLabel' |
|
362 |
layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) |
|
363 |
resizeForLabel: true |
|
364 |
adjust: right |
|
365 |
) |
|
366 |
(InputFieldSpec |
|
367 |
name: 'labelsField' |
|
368 |
layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) |
|
369 |
tabable: true |
|
370 |
model: labelsKey |
|
371 |
type: symbolOrNil |
|
372 |
acceptOnPointerLeave: false |
|
373 |
) |
|
374 |
(LabelSpec |
|
375 |
label: 'Specifications:' |
|
376 |
name: 'specsLabel' |
|
377 |
layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) |
|
378 |
resizeForLabel: true |
|
379 |
adjust: right |
|
380 |
) |
|
381 |
(InputFieldSpec |
|
382 |
name: 'specsField' |
|
383 |
layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) |
|
384 |
tabable: true |
|
385 |
model: specsKey |
|
386 |
type: symbolOrNil |
|
387 |
acceptOnPointerLeave: false |
|
388 |
) |
|
389 |
(HorizontalPanelViewSpec |
|
390 |
name: 'commitPanel' |
|
391 |
layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) |
|
392 |
horizontalLayout: fitSpace |
|
393 |
verticalLayout: fit |
|
394 |
horizontalSpace: 3 |
|
395 |
verticalSpace: 3 |
|
396 |
reverseOrderIfOKAtLeft: true |
|
397 |
component: |
|
398 |
(SpecCollection |
|
399 |
collection: ( |
|
400 |
(ActionButtonSpec |
|
401 |
label: 'cancel' |
|
402 |
name: 'cancel' |
|
403 |
tabable: true |
|
404 |
model: cancel |
|
405 |
extent: (Point 153 23) |
|
406 |
) |
|
407 |
(ActionButtonSpec |
|
408 |
label: 'ok' |
|
409 |
name: 'accept' |
|
410 |
tabable: true |
|
411 |
model: accept |
|
412 |
isDefault: true |
|
413 |
extent: (Point 153 23) |
|
414 |
) |
|
415 |
) |
|
416 |
||
417 |
) |
|
418 |
) |
|
419 |
(CheckBoxSpec |
|
420 |
label: 'Update Default Resources' |
|
421 |
name: 'updateDefaultResources' |
|
422 |
layout: (Point 5 133) |
|
423 |
model: updateDefaultResources |
|
424 |
) |
|
425 |
) |
|
426 |
||
427 |
) |
|
428 |
) |
|
429 |
! |
|
430 |
||
431 |
windowSpec |
|
432 |
"This resource specification was automatically generated |
|
433 |
by the UIPainter of ST/X." |
|
434 |
||
435 |
"Do not manually edit this!! If it is corrupted, |
|
436 |
the UIPainter may not be able to read the specification." |
|
437 |
||
438 |
" |
|
439 |
UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec |
|
440 |
UISelectionPanel new openInterface:#windowSpec |
|
441 |
UISelectionPanel open |
|
442 |
" |
|
443 |
||
444 |
<resource: #canvas> |
|
445 |
||
446 |
^ |
|
447 |
#(FullSpec |
|
448 |
name: windowSpec |
|
449 |
window: |
|
450 |
(WindowSpec |
|
451 |
label: 'Widget Gallery' |
|
452 |
name: 'Widget Gallery' |
|
453 |
min: (Point 100 280) |
|
454 |
bounds: (Rectangle 14 46 508 348) |
|
455 |
) |
|
456 |
component: |
|
457 |
(SpecCollection |
|
458 |
collection: ( |
|
459 |
(NoteBookViewSpec |
|
460 |
name: 'NoteBook1' |
|
461 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
462 |
model: majorChannel |
|
463 |
menu: majorList |
|
464 |
direction: right |
|
465 |
useIndex: true |
|
466 |
canvas: gallery |
|
467 |
) |
|
468 |
) |
|
469 |
||
470 |
) |
|
471 |
) |
|
472 |
! ! |
|
473 |
||
474 |
!UISelectionPanel class methodsFor:'interface specs-standard gallery'! |
|
182 | 475 |
|
2486 | 476 |
specifications |
477 |
||
478 |
^ #( |
|
479 |
#( 'Standard' #( |
|
480 |
#('Buttons' standardButtons) |
|
481 |
#('Menus' standardMenus) |
|
482 |
#('Text' standardTexts) |
|
483 |
#('Lists' standardLists) |
|
484 |
#('Trees' standardTrees) |
|
485 |
#('Groups' standardGroups) |
|
486 |
#('Embed' standardEmbed) |
|
2506 | 487 |
#('Geometric' standardMorphs1) |
2486 | 488 |
#('Misc' standardMisc) |
489 |
) |
|
490 |
) |
|
491 |
||
492 |
#( 'Clipboard' #( |
|
493 |
#('Copy & Paste Buffer' clipBoardSpec) |
|
494 |
) |
|
495 |
) |
|
496 |
||
497 |
#( 'User Def.' #userDefined ) |
|
498 |
) |
|
499 |
||
500 |
"Modified: / 21.4.1998 / 12:04:22 / cg" |
|
501 |
! |
|
502 |
||
677 | 503 |
standardButtons |
753 | 504 |
"This resource specification was automatically generated |
505 |
by the UIPainter of ST/X." |
|
182 | 506 |
|
753 | 507 |
"Do not manually edit this!! If it is corrupted, |
508 |
the UIPainter may not be able to read the specification." |
|
182 | 509 |
|
510 |
" |
|
677 | 511 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardButtons |
512 |
UISelectionPanel new openInterface:#standardButtons |
|
658 | 513 |
" |
514 |
||
515 |
<resource: #canvas> |
|
516 |
||
1142 | 517 |
^ |
3059 | 518 |
#(FullSpec |
519 |
name: standardButtons |
|
520 |
window: |
|
521 |
(WindowSpec |
|
522 |
label: 'Buttons' |
|
523 |
name: 'Buttons' |
|
524 |
min: (Point 10 10) |
|
3128 | 525 |
bounds: (Rectangle 0 0 477 241) |
3059 | 526 |
) |
527 |
component: |
|
528 |
(SpecCollection |
|
529 |
collection: ( |
|
530 |
(ActionButtonSpec |
|
531 |
label: 'Button' |
|
532 |
name: 'Button' |
|
533 |
layout: (LayoutFrame 2 0 1 0 127 0 23 0) |
|
534 |
) |
|
535 |
(ActionButtonSpec |
|
536 |
label: 'OK' |
|
537 |
name: 'Button - OK' |
|
538 |
layout: (LayoutFrame 2 0 33 0 127 0 55 0) |
|
539 |
translateLabel: true |
|
3128 | 540 |
model: accept |
3059 | 541 |
) |
542 |
(ActionButtonSpec |
|
543 |
label: 'Cancel' |
|
544 |
name: 'Button - Cancel' |
|
545 |
layout: (LayoutFrame 2 0 65 0 127 0 87 0) |
|
546 |
translateLabel: true |
|
3128 | 547 |
model: cancel |
3059 | 548 |
) |
549 |
(ActionButtonSpec |
|
550 |
label: 'Help' |
|
551 |
name: 'Button - Help' |
|
552 |
layout: (LayoutFrame 2 0 97 0 127 0 119 0) |
|
553 |
translateLabel: true |
|
554 |
model: help |
|
555 |
) |
|
556 |
(ActionButtonSpec |
|
557 |
label: 'Close' |
|
558 |
name: 'Button - Close' |
|
559 |
layout: (LayoutFrame 2 0 129 0 127 0 151 0) |
|
560 |
translateLabel: true |
|
561 |
model: closeRequest |
|
562 |
) |
|
563 |
(ToggleSpec |
|
564 |
label: 'Toggle' |
|
565 |
name: 'Toggle' |
|
566 |
layout: (LayoutFrame 144 0 1 0 280 0 23 0) |
|
567 |
isTriggerOnDown: true |
|
568 |
lampColor: (Color 100.0 100.0 0.0) |
|
569 |
) |
|
570 |
(RadioButtonSpec |
|
571 |
label: 'Radio Button' |
|
572 |
name: 'Radio Button' |
|
573 |
layout: (LayoutFrame 144 0.0 33 0 280 0 55 0) |
|
574 |
isTriggerOnDown: true |
|
575 |
) |
|
576 |
(CheckBoxSpec |
|
577 |
label: 'Check Box' |
|
578 |
name: 'Check Box' |
|
579 |
layout: (LayoutFrame 142 0 65 0 278 0 87 0) |
|
1142 | 580 |
) |
3059 | 581 |
(CheckToggleSpec |
582 |
name: 'Check Toggle' |
|
583 |
layout: (LayoutOrigin 146 0 99 0) |
|
584 |
isTriggerOnDown: true |
|
585 |
showLamp: false |
|
586 |
lampColor: (Color 100.0 100.0 0.0) |
|
587 |
) |
|
588 |
(LabelSpec |
|
589 |
label: 'Check Toggle' |
|
590 |
name: 'CheckToggleLabel' |
|
591 |
layout: (AlignmentOrigin 166 0 98 0 0 0) |
|
592 |
resizeForLabel: true |
|
593 |
adjust: left |
|
594 |
canUIDrag: false |
|
595 |
) |
|
596 |
(TriggerBoxSpec |
|
597 |
label: 'Trigger Box' |
|
598 |
name: 'TriggerBox1' |
|
599 |
layout: (LayoutFrame 142 0 129 0 278 0 151 0) |
|
600 |
) |
|
601 |
(ButtonSpec |
|
602 |
label: 'Model Button' |
|
603 |
name: 'Model Button' |
|
604 |
layout: (LayoutFrame 296 0 1 0 432 0 23 0) |
|
605 |
) |
|
606 |
(LabelSpec |
|
607 |
label: 'Spin Button' |
|
608 |
name: 'UpDownButtonLabel' |
|
609 |
layout: (AlignmentOrigin 348 0 35 0 0 0) |
|
610 |
resizeForLabel: true |
|
611 |
adjust: left |
|
612 |
canUIDrag: false |
|
613 |
) |
|
614 |
(UpDownButtonSpec |
|
615 |
name: 'UpDown Button' |
|
616 |
layout: (LayoutFrame 296 0 33 0 341 0 55 0) |
|
617 |
orientation: horizontal |
|
618 |
) |
|
619 |
(LabelSpec |
|
620 |
label: 'Arrow Button' |
|
621 |
name: 'ArrowButtonsLabel' |
|
622 |
layout: (AlignmentOrigin 348 0 69 0 0 0) |
|
623 |
resizeForLabel: true |
|
624 |
adjust: left |
|
625 |
canUIDrag: false |
|
626 |
) |
|
627 |
(ArrowButtonSpec |
|
628 |
name: 'Arrow Button' |
|
629 |
layout: (LayoutFrame 296 0 65 0 318 0 87 0) |
|
630 |
isTriggerOnDown: true |
|
631 |
direction: right |
|
632 |
) |
|
633 |
(ActionButtonSpec |
|
634 |
label: '...' |
|
635 |
name: 'Button1' |
|
3128 | 636 |
layout: (LayoutFrame 296 0 98 0 316 0 120 0) |
3059 | 637 |
translateLabel: true |
638 |
model: someAction |
|
639 |
) |
|
3128 | 640 |
(LabelSpec |
641 |
label: 'Ok/Cancel Panel' |
|
642 |
name: 'Label2' |
|
643 |
layout: (LayoutFrame 3 0 -49 1 208 0 -26 1) |
|
644 |
adjust: left |
|
645 |
canUIDrag: false |
|
646 |
) |
|
647 |
(HorizontalPanelViewSpec |
|
648 |
keepUILayout: true |
|
649 |
name: 'OkCancelPanel' |
|
650 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
3279 | 651 |
reverseOrderIfOKAtLeft: true |
3128 | 652 |
horizontalLayout: center |
653 |
verticalLayout: center |
|
654 |
horizontalSpace: 3 |
|
655 |
verticalSpace: 3 |
|
656 |
component: |
|
657 |
(SpecCollection |
|
658 |
collection: ( |
|
659 |
(ActionButtonSpec |
|
660 |
label: 'Cancel' |
|
661 |
name: 'Button2' |
|
662 |
translateLabel: true |
|
663 |
model: cancel |
|
664 |
extent: (Point 125 22) |
|
665 |
) |
|
666 |
(ActionButtonSpec |
|
667 |
label: 'OK' |
|
668 |
name: 'Button3' |
|
669 |
translateLabel: true |
|
670 |
model: accept |
|
671 |
extent: (Point 125 22) |
|
672 |
) |
|
673 |
) |
|
674 |
||
675 |
) |
|
676 |
) |
|
3059 | 677 |
) |
678 |
||
679 |
) |
|
680 |
) |
|
677 | 681 |
! |
682 |
||
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
683 |
standardEmbed |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
684 |
"This resource specification was automatically generated |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
685 |
by the UIPainter of ST/X." |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
686 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
687 |
"Do not manually edit this!! If it is corrupted, |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
688 |
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
|
689 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
690 |
" |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
691 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardEmbed |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
692 |
UISelectionPanel new openInterface:#standardEmbed |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
693 |
" |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
694 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
695 |
<resource: #canvas> |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
696 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
697 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
698 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
699 |
name: standardEmbed |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
700 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
701 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
702 |
label: 'Misc' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
703 |
name: 'Misc' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
704 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
705 |
bounds: (Rectangle 14 46 456 269) |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
706 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
707 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
708 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
709 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
710 |
(ArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
711 |
name: 'Arbitrary Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
712 |
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
|
713 |
hasBorder: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
714 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
715 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
716 |
label: 'Scrollable' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
717 |
name: 'ScrollableArbitraryLabel1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
718 |
layout: (AlignmentOrigin 7 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
719 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
720 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
721 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
722 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
723 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
724 |
label: 'Arbitrary-' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
725 |
name: 'ScrollableArbitraryLabel2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
726 |
layout: (AlignmentOrigin 7 0 23 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
727 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
728 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
729 |
canUIDrag: false |
1549
345226e6e7d2
NON-foo is written without an 'E' !
Claus Gittinger <cg@exept.de>
parents:
1500
diff
changeset
|
730 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
731 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
732 |
label: 'Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
733 |
name: 'ScrollableArbitraryLabel3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
734 |
layout: (AlignmentOrigin 7 0 39 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
735 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
736 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
737 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
738 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
739 |
(UISubSpecification |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
740 |
name: 'SubSpecification' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
741 |
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
|
742 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
743 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
744 |
label: 'SubSpecification' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
745 |
name: 'SubSpecificationLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
746 |
layout: (Point 149 7) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
747 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
748 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
749 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
750 |
(SubCanvasSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
751 |
name: 'SubCanvas' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
752 |
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
|
753 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
754 |
hasVerticalScrollBar: true |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
755 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
756 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
757 |
label: 'SubCanvas' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
758 |
name: 'SubCanvasLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
759 |
layout: (AlignmentOrigin 324 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
760 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
761 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
762 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
763 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
764 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
765 |
name: 'NonSrollable Arbitrary Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
766 |
layout: (LayoutFrame 3 0 120 0 128 0 221 0) |
1434 | 767 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
768 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
769 |
label: 'NonScrollable' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
770 |
name: 'NonScrollableArbitraryLabel1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
771 |
layout: (AlignmentOrigin 7 0 124 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
772 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
773 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
774 |
canUIDrag: false |
1434 | 775 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
776 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
777 |
label: 'Arbitrary-' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
778 |
name: 'NonScrollableArbitraryLabel2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
779 |
layout: (AlignmentOrigin 7 0 140 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
780 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
781 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
782 |
canUIDrag: false |
1549
345226e6e7d2
NON-foo is written without an 'E' !
Claus Gittinger <cg@exept.de>
parents:
1500
diff
changeset
|
783 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
784 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
785 |
label: 'Component' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
786 |
name: 'NonScrollableArbitraryLabel3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
787 |
layout: (AlignmentOrigin 7 0 156 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
788 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
789 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
790 |
canUIDrag: false |
1434 | 791 |
) |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
792 |
) |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
793 |
|
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
794 |
) |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
795 |
) |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
796 |
! |
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
797 |
|
677 | 798 |
standardGraphs |
1142 | 799 |
"This resource specification was automatically generated |
800 |
by the UIPainter of ST/X." |
|
677 | 801 |
|
1142 | 802 |
"Do not manually edit this!! If it is corrupted, |
803 |
the UIPainter may not be able to read the specification." |
|
677 | 804 |
|
805 |
" |
|
806 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardGraphs |
|
807 |
UISelectionPanel new openInterface:#standardGraphs |
|
808 |
" |
|
809 |
||
810 |
<resource: #canvas> |
|
811 |
||
1142 | 812 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
813 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
814 |
name: standardGraphs |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
815 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
816 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
817 |
label: 'Graphs' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
818 |
name: 'Graphs' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
819 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
820 |
bounds: (Rectangle 14 46 453 161) |
1142 | 821 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
822 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
823 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
824 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
825 |
(GraphColumnView2DSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
826 |
name: 'GraphColumnView2D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
827 |
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
|
828 |
gridX: 0 |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
829 |
gridY: 0 |
1142 | 830 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
831 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
832 |
label: 'GraphColumnViewView2D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
833 |
name: 'GraphColumnView2DLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
834 |
layout: (AlignmentOrigin 7 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
835 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
836 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
837 |
canUIDrag: false |
1142 | 838 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
839 |
(GraphColumnView3DSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
840 |
name: 'GraphColumnView3D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
841 |
layout: (LayoutFrame 228 0 3 0 433 0 98 0) |
1142 | 842 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
843 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
844 |
label: 'GraphColumnViewView3D' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
845 |
name: 'GraphColumnView3DLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
846 |
layout: (AlignmentOrigin 232 0 7 0 0 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
847 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
848 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
849 |
canUIDrag: false |
1142 | 850 |
) |
851 |
) |
|
852 |
||
853 |
) |
|
677 | 854 |
) |
855 |
! |
|
856 |
||
857 |
standardGroups |
|
1142 | 858 |
"This resource specification was automatically generated |
859 |
by the UIPainter of ST/X." |
|
677 | 860 |
|
1142 | 861 |
"Do not manually edit this!! If it is corrupted, |
862 |
the UIPainter may not be able to read the specification." |
|
677 | 863 |
|
864 |
" |
|
865 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardGroups |
|
866 |
UISelectionPanel new openInterface:#standardGroups |
|
867 |
" |
|
868 |
||
869 |
<resource: #canvas> |
|
870 |
||
1142 | 871 |
^ |
3128 | 872 |
#(FullSpec |
873 |
name: standardGroups |
|
874 |
window: |
|
875 |
(WindowSpec |
|
876 |
label: 'Groups' |
|
877 |
name: 'Groups' |
|
878 |
min: (Point 10 10) |
|
879 |
bounds: (Rectangle 0 0 450 267) |
|
880 |
) |
|
881 |
component: |
|
882 |
(SpecCollection |
|
883 |
collection: ( |
|
884 |
(ViewSpec |
|
885 |
name: 'Box' |
|
886 |
layout: (LayoutFrame 3 0 3 0 95 0 95 0) |
|
887 |
) |
|
888 |
(TransparentBoxSpec |
|
889 |
name: 'TBox1' |
|
890 |
layout: (LayoutFrame 113 0 3 0 204 0 95 0) |
|
891 |
) |
|
892 |
(LabelSpec |
|
893 |
label: 'TransparentBox' |
|
894 |
name: 'Label1' |
|
895 |
layout: (AlignmentOrigin 106 0 5 0 0 0) |
|
3323 | 896 |
translateLabel: true |
3128 | 897 |
resizeForLabel: true |
898 |
adjust: left |
|
899 |
canUIDrag: false |
|
900 |
) |
|
901 |
(LabelSpec |
|
902 |
label: 'Box' |
|
903 |
name: 'ViewLabel' |
|
904 |
layout: (AlignmentOrigin 6 0 5 0 0 0) |
|
3323 | 905 |
translateLabel: true |
3128 | 906 |
resizeForLabel: true |
907 |
adjust: left |
|
908 |
canUIDrag: false |
|
909 |
) |
|
910 |
(LabelSpec |
|
911 |
label: 'Variable Panels' |
|
912 |
name: 'VPanelLabel' |
|
913 |
layout: (LayoutFrame 3 0 104 0 208 0 127 0) |
|
3323 | 914 |
translateLabel: true |
3128 | 915 |
adjust: left |
916 |
canUIDrag: false |
|
917 |
) |
|
918 |
(VariableHorizontalPanelSpec |
|
919 |
name: 'Variable Horizontal Panel' |
|
920 |
layout: (LayoutFrame 3 0 128 0 98 0 218 0) |
|
921 |
component: |
|
922 |
(SpecCollection |
|
923 |
collection: ( |
|
924 |
(LabelSpec |
|
925 |
label: 'A' |
|
926 |
name: 'label4' |
|
927 |
level: 2 |
|
3323 | 928 |
translateLabel: true |
3128 | 929 |
canUIDrag: false |
1142 | 930 |
) |
3128 | 931 |
(LabelSpec |
932 |
label: 'B' |
|
933 |
name: 'label5' |
|
934 |
level: 2 |
|
3323 | 935 |
translateLabel: true |
3128 | 936 |
canUIDrag: false |
937 |
) |
|
938 |
) |
|
939 |
||
940 |
) |
|
941 |
handles: (Any 0.5 1.0) |
|
942 |
) |
|
943 |
(VariableVerticalPanelSpec |
|
944 |
name: 'Variable Vertical Panel' |
|
945 |
layout: (LayoutFrame 113 0 128 0 208 0 218 0) |
|
946 |
component: |
|
947 |
(SpecCollection |
|
948 |
collection: ( |
|
949 |
(LabelSpec |
|
950 |
label: 'A' |
|
951 |
name: 'label9' |
|
952 |
level: 2 |
|
3323 | 953 |
translateLabel: true |
3128 | 954 |
canUIDrag: false |
955 |
) |
|
956 |
(LabelSpec |
|
957 |
label: 'B' |
|
958 |
name: 'label10' |
|
959 |
level: 2 |
|
3323 | 960 |
translateLabel: true |
3128 | 961 |
canUIDrag: false |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
962 |
) |
3128 | 963 |
) |
964 |
||
965 |
) |
|
966 |
handles: (Any 0.5 1.0) |
|
967 |
) |
|
968 |
(FramedBoxSpec |
|
969 |
label: 'Framed Box' |
|
970 |
name: 'Framed Box' |
|
971 |
layout: (LayoutFrame 228 0 3 0 433 0 98 0) |
|
972 |
labelPosition: topLeft |
|
973 |
translateLabel: true |
|
974 |
) |
|
975 |
(LabelSpec |
|
976 |
label: 'Panels' |
|
977 |
name: 'PanelLabel' |
|
978 |
layout: (LayoutFrame 228 0 104 0 433 0 127 0) |
|
3323 | 979 |
translateLabel: true |
3128 | 980 |
adjust: left |
981 |
canUIDrag: false |
|
982 |
) |
|
983 |
(HorizontalPanelViewSpec |
|
984 |
name: 'Horizontal Panel' |
|
985 |
layout: (LayoutFrame 228 0 128 0 312 0 218 0) |
|
986 |
horizontalLayout: center |
|
987 |
verticalLayout: center |
|
988 |
horizontalSpace: 3 |
|
989 |
verticalSpace: 3 |
|
990 |
component: |
|
991 |
(SpecCollection |
|
992 |
collection: ( |
|
993 |
(LabelSpec |
|
994 |
label: 'A' |
|
995 |
name: 'label1' |
|
996 |
level: 2 |
|
3323 | 997 |
translateLabel: true |
3128 | 998 |
extent: (Point 23 23) |
999 |
canUIDrag: false |
|
1000 |
) |
|
1001 |
(LabelSpec |
|
1002 |
label: 'B' |
|
1003 |
name: 'label2' |
|
1004 |
level: 2 |
|
3323 | 1005 |
translateLabel: true |
3128 | 1006 |
extent: (Point 23 23) |
1007 |
canUIDrag: false |
|
1008 |
) |
|
1009 |
(LabelSpec |
|
1010 |
label: 'C' |
|
1011 |
name: 'label3' |
|
1012 |
level: 2 |
|
3323 | 1013 |
translateLabel: true |
3128 | 1014 |
extent: (Point 23 23) |
1015 |
canUIDrag: false |
|
1016 |
) |
|
1017 |
) |
|
1018 |
||
1019 |
) |
|
1020 |
) |
|
1021 |
(VerticalPanelViewSpec |
|
1022 |
name: 'Vertical Panel' |
|
1023 |
layout: (LayoutFrame 320 0 128 0 367 0 218 0) |
|
1024 |
horizontalLayout: center |
|
1025 |
verticalLayout: center |
|
1026 |
horizontalSpace: 3 |
|
1027 |
verticalSpace: 3 |
|
1028 |
component: |
|
1029 |
(SpecCollection |
|
1030 |
collection: ( |
|
1031 |
(LabelSpec |
|
1032 |
label: 'A' |
|
1033 |
name: 'label6' |
|
1034 |
level: 2 |
|
3323 | 1035 |
translateLabel: true |
3128 | 1036 |
extent: (Point 23 23) |
1037 |
canUIDrag: false |
|
1142 | 1038 |
) |
3128 | 1039 |
(LabelSpec |
1040 |
label: 'B' |
|
1041 |
name: 'label7' |
|
1042 |
level: 2 |
|
3323 | 1043 |
translateLabel: true |
3128 | 1044 |
extent: (Point 23 23) |
1045 |
canUIDrag: false |
|
1046 |
) |
|
1047 |
(LabelSpec |
|
1048 |
label: 'C' |
|
1049 |
name: 'label8' |
|
1050 |
level: 2 |
|
3323 | 1051 |
translateLabel: true |
3128 | 1052 |
extent: (Point 23 23) |
1053 |
canUIDrag: false |
|
1054 |
) |
|
1055 |
) |
|
1056 |
||
1057 |
) |
|
1058 |
) |
|
1059 |
(PanelViewSpec |
|
1060 |
name: 'Panel' |
|
1061 |
layout: (LayoutFrame 375 0 128 0 433 0 218 0) |
|
1062 |
horizontalLayout: fitSpace |
|
1063 |
verticalLayout: fitSpace |
|
1064 |
horizontalSpace: 3 |
|
1065 |
verticalSpace: 3 |
|
1066 |
component: |
|
1067 |
(SpecCollection |
|
1068 |
collection: ( |
|
1069 |
(LabelSpec |
|
1070 |
label: 'A' |
|
1071 |
name: 'label11' |
|
1072 |
level: 2 |
|
3323 | 1073 |
translateLabel: true |
3128 | 1074 |
extent: (Point 23 23) |
1075 |
canUIDrag: false |
|
1142 | 1076 |
) |
3128 | 1077 |
(LabelSpec |
1078 |
label: 'B' |
|
1079 |
name: 'label12' |
|
1080 |
level: 2 |
|
3323 | 1081 |
translateLabel: true |
3128 | 1082 |
extent: (Point 23 23) |
1083 |
canUIDrag: false |
|
1084 |
) |
|
1085 |
(LabelSpec |
|
1086 |
label: 'C' |
|
1087 |
name: 'label13' |
|
1088 |
level: 2 |
|
3323 | 1089 |
translateLabel: true |
3128 | 1090 |
extent: (Point 23 23) |
1091 |
canUIDrag: false |
|
1142 | 1092 |
) |
3128 | 1093 |
(LabelSpec |
1094 |
label: 'D' |
|
1095 |
name: 'label14' |
|
1096 |
level: 2 |
|
3323 | 1097 |
translateLabel: true |
3128 | 1098 |
extent: (Point 23 23) |
1099 |
canUIDrag: false |
|
1100 |
) |
|
1101 |
(LabelSpec |
|
1102 |
label: 'E' |
|
1103 |
name: 'label15' |
|
1104 |
level: 2 |
|
3323 | 1105 |
translateLabel: true |
3128 | 1106 |
extent: (Point 23 23) |
1107 |
canUIDrag: false |
|
1108 |
) |
|
1109 |
) |
|
1110 |
||
1111 |
) |
|
1142 | 1112 |
) |
3128 | 1113 |
) |
1114 |
||
1115 |
) |
|
1116 |
) |
|
658 | 1117 |
! |
1118 |
||
1119 |
standardLists |
|
797 | 1120 |
"This resource specification was automatically generated |
1121 |
by the UIPainter of ST/X." |
|
142 | 1122 |
|
797 | 1123 |
"Do not manually edit this!! If it is corrupted, |
1124 |
the UIPainter may not be able to read the specification." |
|
142 | 1125 |
|
1126 |
" |
|
658 | 1127 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardLists |
1128 |
UISelectionPanel new openInterface:#standardLists |
|
142 | 1129 |
" |
1130 |
||
1131 |
<resource: #canvas> |
|
1132 |
||
1142 | 1133 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1134 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1135 |
name: standardLists |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1136 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1137 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1138 |
label: 'Lists' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1139 |
name: 'Lists' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1140 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1141 |
bounds: (Rectangle 14 46 455 264) |
1142 | 1142 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1143 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1144 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1145 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1146 |
(SequenceViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1147 |
name: 'List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1148 |
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
|
1149 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1150 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1151 |
useIndex: false |
1142 | 1152 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1153 |
(DataSetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1154 |
name: 'Table' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1155 |
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
|
1156 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1157 |
hasVerticalScrollBar: true |
1943 | 1158 |
has3Dseparators: false |
1142 | 1159 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1160 |
(SelectionInListModelViewSpec |
2332 | 1161 |
name: 'SelectionInListModelView' |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1162 |
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
|
1163 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1164 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1165 |
useIndex: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1166 |
highlightMode: line |
1142 | 1167 |
) |
1168 |
) |
|
1169 |
||
1170 |
) |
|
182 | 1171 |
) |
1172 |
! |
|
1173 |
||
190 | 1174 |
standardMenus |
753 | 1175 |
"This resource specification was automatically generated |
1176 |
by the UIPainter of ST/X." |
|
182 | 1177 |
|
753 | 1178 |
"Do not manually edit this!! If it is corrupted, |
1179 |
the UIPainter may not be able to read the specification." |
|
182 | 1180 |
|
1181 |
" |
|
302 | 1182 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardMenus |
1183 |
UISelectionPanel new openInterface:#standardMenus |
|
182 | 1184 |
" |
1185 |
||
1186 |
<resource: #canvas> |
|
1187 |
||
1142 | 1188 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1189 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1190 |
name: standardMenus |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1191 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1192 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1193 |
label: 'Menus' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1194 |
name: 'Menus' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1195 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1196 |
bounds: (Rectangle 14 46 491 269) |
1142 | 1197 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1198 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1199 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1200 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1201 |
(MenuPanelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1202 |
name: 'Tool Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1203 |
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
|
1204 |
textDefault: true |
1142 | 1205 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1206 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1207 |
label: 'Tool Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1208 |
name: 'ToolBarLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1209 |
layout: (AlignmentOrigin 4 0 134 0 0 1) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1210 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1211 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1212 |
canUIDrag: false |
1142 | 1213 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1214 |
(MenuPanelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1215 |
name: 'Menu Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1216 |
layout: (LayoutFrame 4 0 188 0 129 0 210 0) |
1142 | 1217 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1218 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1219 |
label: 'Menu Bar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1220 |
name: 'MenuBarLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1221 |
layout: (AlignmentOrigin 4 0 187 0 0 1) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1222 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1223 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1224 |
canUIDrag: false |
1142 | 1225 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1226 |
(PopUpListSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1227 |
label: 'PopUp List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1228 |
name: 'PopUp List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1229 |
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
|
1230 |
tabable: true |
1142 | 1231 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1232 |
(ComboListSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1233 |
name: 'Combo List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1234 |
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
|
1235 |
useIndex: false |
1142 | 1236 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1237 |
(ComboBoxSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1238 |
name: 'Combo Box' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1239 |
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
|
1240 |
acceptOnPointerLeave: false |
1142 | 1241 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1242 |
(ExtendedComboBoxSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1243 |
name: 'Extended Combo Box' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1244 |
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
|
1245 |
miniScrollerHorizontal: true |
1142 | 1246 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1247 |
(TabViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1248 |
name: 'Tab Header' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1249 |
layout: (LayoutFrame 146 0 3 0 281 0 39 0) |
1142 | 1250 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1251 |
(NoteBookViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1252 |
name: 'Note Book' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1253 |
layout: (LayoutFrame 146 0 46 0 281 0 138 0) |
1142 | 1254 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1255 |
(UIGalleryViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1256 |
name: 'Gallery' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1257 |
layout: (LayoutFrame 298 0 3 0 434 0 138 0) |
1142 | 1258 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1259 |
(ColorMenuSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1260 |
name: 'ColorMenu' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1261 |
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
|
1262 |
labelsAreColored: true |
1662 | 1263 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1264 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1265 |
label: 'Color Menu' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1266 |
name: 'Label1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1267 |
layout: (AlignmentOrigin 142 0 187 0 0 1) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1268 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1269 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1270 |
canUIDrag: false |
1662 | 1271 |
) |
1142 | 1272 |
) |
1273 |
||
1274 |
) |
|
142 | 1275 |
) |
1276 |
! |
|
1277 |
||
658 | 1278 |
standardMisc |
753 | 1279 |
"This resource specification was automatically generated |
1280 |
by the UIPainter of ST/X." |
|
93 | 1281 |
|
753 | 1282 |
"Do not manually edit this!! If it is corrupted, |
1283 |
the UIPainter may not be able to read the specification." |
|
93 | 1284 |
|
1285 |
" |
|
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1286 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardMisc |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1287 |
UISelectionPanel new openInterface:#standardMisc |
93 | 1288 |
" |
1289 |
||
1290 |
<resource: #canvas> |
|
1291 |
||
1142 | 1292 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1293 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1294 |
name: standardMisc |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1295 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1296 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1297 |
label: 'NewApplication' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1298 |
name: 'NewApplication' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1299 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1300 |
bounds: (Rectangle 14 46 453 289) |
1142 | 1301 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1302 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1303 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1304 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1305 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1306 |
label: 'StepSlider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1307 |
name: 'StepSliderLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1308 |
layout: (AlignmentOrigin 87 0 9 0 1 0) |
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 |
canUIDrag: false |
1142 | 1311 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1312 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1313 |
label: 'Slider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1314 |
name: 'SliderLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1315 |
layout: (AlignmentOrigin 87 0 35 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1316 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1317 |
canUIDrag: false |
1142 | 1318 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1319 |
(SliderSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1320 |
name: 'Slider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1321 |
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
|
1322 |
orientation: horizontal |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1323 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1324 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1325 |
label: 'ThumbWheel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1326 |
name: 'ThumbWheelLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1327 |
layout: (AlignmentOrigin 88 0 62 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1328 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1329 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1330 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1331 |
(ThumbWheelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1332 |
name: 'Thumb Wheel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1333 |
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
|
1334 |
orientation: horizontal |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1335 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1336 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1337 |
label: 'ScrollBar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1338 |
name: 'ScrollBarLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1339 |
layout: (AlignmentOrigin 87 0 103 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1340 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1341 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1342 |
canUIDrag: false |
1168
d297bc428326
separated misc into embed & misc;
Claus Gittinger <cg@exept.de>
parents:
1160
diff
changeset
|
1343 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1344 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1345 |
label: 'Scroller' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1346 |
name: 'ScrollerLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1347 |
layout: (AlignmentOrigin 87 0 130 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1348 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1349 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1350 |
canUIDrag: false |
1160 | 1351 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1352 |
(ScrollerSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1353 |
name: 'Scroller' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1354 |
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
|
1355 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1356 |
orientation: horizontal |
1160 | 1357 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1358 |
(SteppingSliderSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1359 |
name: 'VStepSlider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1360 |
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
|
1361 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1362 |
(SliderSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1363 |
name: 'VSlider' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1364 |
layout: (LayoutFrame 254 0 6 0 272 0 106 0) |
1142 | 1365 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1366 |
(ThumbWheelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1367 |
name: 'VThumbWheel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1368 |
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
|
1369 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1370 |
(ScrollerSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1371 |
name: 'VScroller' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1372 |
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
|
1373 |
initiallyInvisible: true |
1142 | 1374 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1375 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1376 |
label: 'Region' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1377 |
name: 'RegionLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1378 |
layout: (AlignmentOrigin 83 0 177 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1379 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1380 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1381 |
canUIDrag: false |
1142 | 1382 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1383 |
(RegionSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1384 |
name: 'Region' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1385 |
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
|
1386 |
lineWidth: 2 |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1387 |
regionType: ellipse |
1142 | 1388 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1389 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1390 |
label: 'Separator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1391 |
name: 'SeparatorLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1392 |
layout: (AlignmentOrigin 83 0 207 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1393 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1394 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1395 |
canUIDrag: false |
1142 | 1396 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1397 |
(DividerSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1398 |
name: 'Separator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1399 |
layout: (LayoutFrame 88 0 213 0 203 0 217 0) |
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: 'Progress Indicator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1403 |
name: 'ProgressIndicatorsLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1404 |
layout: (AlignmentOrigin 333 0 117 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1405 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1406 |
adjust: left |
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 |
(ProgressIndicatorSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1410 |
name: 'Progress Indicator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1411 |
layout: (LayoutFrame 338 0 114 0 433 0 132 0) |
1142 | 1412 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1413 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1414 |
label: 'Round |
753 | 1415 |
Progress Indicator' |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1416 |
name: 'RoundProgressIndicatorsLabel' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1417 |
layout: (AlignmentOrigin 333 0 167 0 1 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1418 |
resizeForLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1419 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1420 |
canUIDrag: false |
1142 | 1421 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1422 |
(RoundProgressIndicatorSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1423 |
name: 'Round Progress Indicator' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1424 |
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
|
1425 |
level: 0 |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1426 |
borderWidth: 1 |
1142 | 1427 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1428 |
(ScrollBarSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1429 |
name: 'ScrollBar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1430 |
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
|
1431 |
initiallyInvisible: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1432 |
orientation: horizontal |
1175 | 1433 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1434 |
(ScrollBarSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1435 |
name: 'VScrollBar' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1436 |
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
|
1437 |
initiallyInvisible: true |
1175 | 1438 |
) |
1142 | 1439 |
) |
1440 |
||
1441 |
) |
|
93 | 1442 |
) |
1443 |
! |
|
1444 |
||
2486 | 1445 |
standardMorphs1 |
1446 |
"This resource specification was automatically generated |
|
1447 |
by the UIPainter of ST/X." |
|
1448 |
||
1449 |
"Do not manually edit this!! If it is corrupted, |
|
1450 |
the UIPainter may not be able to read the specification." |
|
1451 |
||
1452 |
" |
|
1453 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardMorphs1 |
|
1454 |
UISelectionPanel new openInterface:#standardMorphs1 |
|
1455 |
" |
|
1456 |
||
1457 |
<resource: #canvas> |
|
1458 |
||
1459 |
^ |
|
1460 |
#(FullSpec |
|
1461 |
name: standardMorphs1 |
|
1462 |
window: |
|
1463 |
(WindowSpec |
|
1464 |
label: 'Morphs' |
|
1465 |
name: 'Morphs' |
|
1466 |
min: (Point 10 10) |
|
2532 | 1467 |
bounds: (Rectangle 0 0 419 272) |
2486 | 1468 |
) |
1469 |
component: |
|
1470 |
(SpecCollection |
|
1471 |
collection: ( |
|
1472 |
(ArcMorphSpec |
|
2496 | 1473 |
name: 'Circle' |
1474 |
layout: (LayoutFrame 3 0 3 0 63 0 63 0) |
|
2518 | 1475 |
line: true |
2506 | 1476 |
lineColor: (Color 100.0 0.0 0.0) |
2496 | 1477 |
) |
1478 |
(ArcMorphSpec |
|
2517 | 1479 |
name: 'FilledCircle' |
2496 | 1480 |
layout: (LayoutFrame 3 0 70 0 63 0 133 0) |
2506 | 1481 |
foregroundColor: (Color 100.0 100.0 0.0) |
2496 | 1482 |
fill: true |
1483 |
) |
|
1484 |
(ArcMorphSpec |
|
2517 | 1485 |
name: 'FilledCircleL' |
1486 |
layout: (LayoutFrame 3 0 143 0 63 0 206 0) |
|
2506 | 1487 |
foregroundColor: (Color 100.0 100.0 0.0) |
2518 | 1488 |
line: true |
2506 | 1489 |
fill: true |
2517 | 1490 |
lineColor: (Color 100.0 0.0 0.0) |
2496 | 1491 |
) |
2517 | 1492 |
(RectangleMorphSpec |
1493 |
name: 'RectangleMorph1' |
|
1494 |
layout: (LayoutFrame 70 0 3 0 133 0 63 0) |
|
1495 |
foregroundColor: (Color 100.0 100.0 0.0) |
|
2518 | 1496 |
line: true |
2517 | 1497 |
fill: false |
1498 |
lineColor: (Color 100.0 0.0 0.0) |
|
1499 |
) |
|
1500 |
(RectangleMorphSpec |
|
1501 |
name: 'RectangleMorph2' |
|
1502 |
layout: (LayoutFrame 70 0 72 0 133 0 135 0) |
|
2506 | 1503 |
foregroundColor: (Color 100.0 100.0 0.0) |
1504 |
fill: true |
|
2496 | 1505 |
) |
2517 | 1506 |
(RectangleMorphSpec |
1507 |
name: 'RectangleMorph3' |
|
1508 |
layout: (LayoutFrame 70 0 139 0 133 0 202 0) |
|
2506 | 1509 |
foregroundColor: (Color 100.0 100.0 0.0) |
2518 | 1510 |
line: true |
2496 | 1511 |
fill: true |
2506 | 1512 |
lineColor: (Color 100.0 0.0 0.0) |
2486 | 1513 |
) |
1514 |
(ArcMorphSpec |
|
2517 | 1515 |
name: 'FilledPieL' |
2496 | 1516 |
layout: (LayoutFrame 143 0 143 0 206 0 206 0) |
2506 | 1517 |
foregroundColor: (Color 100.0 100.0 0.0) |
2518 | 1518 |
line: true |
2506 | 1519 |
fill: true |
1520 |
lineColor: (Color 100.0 0.0 0.0) |
|
2496 | 1521 |
startAngle: -45 |
1522 |
sweepAngle: 270 |
|
1523 |
pie: true |
|
1524 |
) |
|
1525 |
(ArcMorphSpec |
|
2517 | 1526 |
name: 'FilledPie' |
1527 |
layout: (LayoutFrame 143 0 70 0 206 0 133 0) |
|
2506 | 1528 |
foregroundColor: (Color 100.0 100.0 0.0) |
2496 | 1529 |
fill: true |
1530 |
startAngle: -45 |
|
1531 |
sweepAngle: 270 |
|
2517 | 1532 |
pie: true |
2486 | 1533 |
) |
2496 | 1534 |
(ArcMorphSpec |
2517 | 1535 |
name: 'Pie' |
1536 |
layout: (LayoutFrame 143 0 3 0 206 0 63 0) |
|
2518 | 1537 |
line: true |
2506 | 1538 |
lineColor: (Color 100.0 0.0 0.0) |
2496 | 1539 |
startAngle: -45 |
1540 |
sweepAngle: 270 |
|
1541 |
pie: true |
|
1542 |
) |
|
2517 | 1543 |
(LineSegmentMorphSpec |
2562 | 1544 |
name: 'LineSegmentMorph1' |
1545 |
foregroundColor: (Color 100.0 100.0 0.0) |
|
1546 |
fill: true |
|
1547 |
lineColor: (Color 100.0 0.0 0.0) |
|
1548 |
startPoint: (Point 214 9) |
|
1549 |
endPoint: (Point 254 59) |
|
1550 |
showArrow: true |
|
1551 |
) |
|
1552 |
(LineSegmentMorphSpec |
|
2517 | 1553 |
name: 'Line1' |
2506 | 1554 |
foregroundColor: (Color 100.0 100.0 0.0) |
1555 |
fill: true |
|
1556 |
lineColor: (Color 100.0 0.0 0.0) |
|
2562 | 1557 |
startPoint: (Point 214 75) |
1558 |
endPoint: (Point 254 125) |
|
2506 | 1559 |
) |
2532 | 1560 |
(SketchMorphSpec |
1561 |
name: 'SketchMorph1' |
|
2566 | 1562 |
layout: (LayoutFrame 280 0 10 0 373 0 90 0) |
2562 | 1563 |
image: sketchImageIcon |
2532 | 1564 |
) |
2486 | 1565 |
) |
1566 |
||
1567 |
) |
|
1568 |
) |
|
1569 |
! |
|
1570 |
||
677 | 1571 |
standardTexts |
795
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1572 |
"This resource specification was automatically generated |
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1573 |
by the UIPainter of ST/X." |
93 | 1574 |
|
795
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1575 |
"Do not manually edit this!! If it is corrupted, |
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
1576 |
the UIPainter may not be able to read the specification." |
93 | 1577 |
|
1578 |
" |
|
677 | 1579 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardTexts |
1580 |
UISelectionPanel new openInterface:#standardTexts |
|
93 | 1581 |
" |
1582 |
||
1583 |
<resource: #canvas> |
|
1584 |
||
1142 | 1585 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1586 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1587 |
name: standardTexts |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1588 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1589 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1590 |
label: 'Texts' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1591 |
name: 'Texts' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1592 |
min: (Point 10 10) |
2476 | 1593 |
bounds: (Rectangle 0 0 464 224) |
1142 | 1594 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1595 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1596 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1597 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1598 |
(TextEditorSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1599 |
name: 'Text Editor' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1600 |
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
|
1601 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1602 |
hasVerticalScrollBar: true |
2476 | 1603 |
hasKeyboardFocusInitially: false |
1142 | 1604 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1605 |
(HTMLViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1606 |
name: 'HTML Browser' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1607 |
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
|
1608 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1609 |
hasVerticalScrollBar: true |
1142 | 1610 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1611 |
(InputFieldSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1612 |
name: 'Entry Field' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1613 |
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
|
1614 |
acceptOnReturn: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1615 |
acceptOnTab: true |
2320
d8d5a90c290f
Make #acceptOnLeave and #acceptOnPointerLeave the default for InputFields
Stefan Vogel <sv@exept.de>
parents:
2236
diff
changeset
|
1616 |
acceptOnPointerLeave: true |
1408 | 1617 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1618 |
(FilenameInputFieldSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1619 |
name: 'Filename Entry Field' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1620 |
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
|
1621 |
acceptOnPointerLeave: true |
1142 | 1622 |
) |
2374
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1623 |
(FilenameInputFieldSpec |
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1624 |
name: 'Filename + History' |
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1625 |
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
|
1626 |
acceptOnPointerLeave: true |
2476 | 1627 |
viewClassName: FilenameWidgetWithHistory |
2374
09f112698a15
+fileNameField with history and browse
Claus Gittinger <cg@exept.de>
parents:
2363
diff
changeset
|
1628 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1629 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1630 |
label: 'Label' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1631 |
name: 'Label' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1632 |
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
|
1633 |
translateLabel: true |
1142 | 1634 |
) |
2476 | 1635 |
(LinkButtonSpec |
1636 |
label: 'LinkButton' |
|
1637 |
name: 'LinkButton1' |
|
1638 |
layout: (LayoutFrame 228 0 141 0 433 0 163 0) |
|
1639 |
translateLabel: true |
|
1640 |
) |
|
1142 | 1641 |
) |
1642 |
||
1643 |
) |
|
97 | 1644 |
) |
1645 |
! |
|
1646 |
||
1179 | 1647 |
standardTrees |
1648 |
"This resource specification was automatically generated |
|
1649 |
by the UIPainter of ST/X." |
|
1650 |
||
1651 |
"Do not manually edit this!! If it is corrupted, |
|
1652 |
the UIPainter may not be able to read the specification." |
|
1653 |
||
1654 |
" |
|
1655 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardTrees |
|
1656 |
UISelectionPanel new openInterface:#standardTrees |
|
1657 |
" |
|
1658 |
||
1659 |
<resource: #canvas> |
|
1660 |
||
1661 |
^ |
|
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1662 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1663 |
name: standardTrees |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1664 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1665 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1666 |
label: 'Trees' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1667 |
name: 'Trees' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1668 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1669 |
bounds: (Rectangle 14 46 455 264) |
1179 | 1670 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1671 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1672 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1673 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1674 |
(SelectionInTreeViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1675 |
name: 'Tree List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1676 |
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
|
1677 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1678 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1679 |
highlightMode: line |
1179 | 1680 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1681 |
(FileSelectionTreeSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1682 |
name: 'File Tree List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1683 |
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
|
1684 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1685 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1686 |
highlightMode: line |
1179 | 1687 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1688 |
(HierarchicalListViewSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1689 |
name: 'New ModelTree List' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1690 |
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
|
1691 |
hasHorizontalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1692 |
hasVerticalScrollBar: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
1693 |
highlightMode: line |
1179 | 1694 |
) |
1695 |
) |
|
1696 |
||
1697 |
) |
|
1698 |
) |
|
1699 |
! |
|
1700 |
||
190 | 1701 |
standardUserPanel |
93 | 1702 |
"this window spec was automatically generated by the ST/X UIPainter" |
1703 |
||
1704 |
"do not manually edit this - the painter/builder may not be able to |
|
3403 | 1705 |
handle the specification if it's corrupted." |
93 | 1706 |
|
1707 |
" |
|
190 | 1708 |
UIPainter new openOnClass:UISelectionPanel andSelector:#standardUserPanel |
1709 |
UISelectionPanel new openInterface:#standardUserPanel |
|
182 | 1710 |
" |
1711 |
||
1712 |
<resource: #canvas> |
|
1713 |
||
1714 |
^ |
|
1715 |
||
1716 |
#(#FullSpec |
|
987 | 1717 |
#'window:' |
1718 |
#(#WindowSpec |
|
1719 |
#'name:' 'UserPanel' |
|
1720 |
#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1721 |
#'label:' 'UserPanel' |
|
1722 |
#'bounds:' #(#Rectangle 0 0 445 162) |
|
1723 |
) |
|
1724 |
#'component:' |
|
1725 |
#(#SpecCollection |
|
1726 |
#'collection:' |
|
1727 |
#( |
|
1728 |
#(#LabelSpec |
|
1729 |
#'name:' 'helpText' |
|
1730 |
#'layout:' #(#Point 10 0) |
|
1731 |
#'labelChannel:' #userDefinedHelpText |
|
1732 |
#'resizeForLabel:' true |
|
1733 |
#'canUIDrag:' false |
|
1734 |
) |
|
1735 |
) |
|
1736 |
) |
|
182 | 1737 |
) |
3403 | 1738 |
|
1739 |
"Modified (comment): / 13-02-2017 / 20:33:44 / cg" |
|
93 | 1740 |
! ! |
1741 |
||
2236
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1742 |
!UISelectionPanel class methodsFor:'menus'! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1743 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1744 |
menuSelected |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1745 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1746 |
<resource: #menu> |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1747 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1748 |
^ #(#Menu #( |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1749 |
#(#MenuItem |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1750 |
#'label:' 'copy' |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1751 |
#'value:' #copy |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1752 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1753 |
#(#MenuItem |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1754 |
#'label:' 'cut' |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1755 |
#'value:' #cut |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1756 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1757 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1758 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1759 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1760 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1761 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1762 |
"Modified: / 29.10.1997 / 03:20:30 / cg" |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1763 |
! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1764 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1765 |
menuUnselected |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1766 |
<resource: #menu> |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1767 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1768 |
^ #(#Menu #( |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1769 |
#(#MenuItem |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1770 |
#'label:' 'paste' |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1771 |
#'value:' #paste |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1772 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1773 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1774 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1775 |
nil |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1776 |
) |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1777 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1778 |
"Modified: / 29.10.1997 / 03:20:38 / cg" |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1779 |
! ! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1780 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1781 |
!UISelectionPanel class methodsFor:'resources'! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1782 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1783 |
classResources |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1784 |
"my translations are found in the UIPainter classes resources" |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1785 |
|
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1786 |
^ UIPainter classResources |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1787 |
! ! |
cc2b26c0d7f0
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2216
diff
changeset
|
1788 |
|
182 | 1789 |
!UISelectionPanel methodsFor:'actions'! |
1790 |
||
1791 |
defineClassAndSelector |
|
1792 |
|bd cls sel lbl| |
|
1793 |
||
1794 |
bd := IdentityDictionary new. |
|
1795 |
bd at:#className put:( userClass asValue). |
|
1796 |
bd at:#specsKey put:( (userSpecs ? '') asValue). |
|
1797 |
bd at:#labelsKey put:( (userLabels ? '') asValue). |
|
1798 |
bd at:#updateDefaultResources put:(false asValue). |
|
1799 |
||
1800 |
(self openDialogInterface:#nameAndSelectorSpec withBindings:bd) ifTrue:[ |
|
987 | 1801 |
( (cls := (bd at:#className) value) notNil |
1802 |
and:[(sel := (bd at:#specsKey) value) notNil |
|
1803 |
and:[(lbl := (bd at:#labelsKey) value) notNil]] |
|
1804 |
) ifTrue:[ |
|
1805 |
userClass := cls. |
|
1806 |
userSpecs := sel. |
|
1807 |
userLabels := lbl. |
|
182 | 1808 |
|
987 | 1809 |
(bd at:#updateDefaultResources) value ifTrue:[ |
1810 |
UserClass := userClass. |
|
1811 |
UserSpecs := userSpecs. |
|
1812 |
UserLabels := userLabels. |
|
1813 |
] |
|
1814 |
] |
|
182 | 1815 |
]. |
1816 |
! |
|
1817 |
||
1818 |
paste:something |
|
2486 | 1819 |
"paste something at a point" |
1820 |
||
3259 | 1821 |
|coll specs point gallerysDevice ext spec| |
182 | 1822 |
|
1823 |
clipBoardSpec isNil ifTrue:[ |
|
987 | 1824 |
clipBoardSpec := SpecCollection new. |
1825 |
clipBoardSpec collection:(OrderedCollection new). |
|
182 | 1826 |
]. |
1142 | 1827 |
coll := clipBoardSpec collection. |
3259 | 1828 |
gallerysDevice := gallery device. |
182 | 1829 |
|
3259 | 1830 |
point := gallerysDevice translatePoint:(gallerysDevice pointerPosition) |
1500
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1831 |
fromView:nil |
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1832 |
toView:(gallery canvas). |
182 | 1833 |
|
1834 |
point y < 1 ifTrue:[point y:1]. |
|
1835 |
ext := gallery extent - (10@10). |
|
93 | 1836 |
|
182 | 1837 |
(specs := something) isCollection ifFalse:[ |
987 | 1838 |
specs := Array with:something |
182 | 1839 |
]. |
1840 |
||
1841 |
specs do:[:aSpec| |
|
987 | 1842 |
point x > ext x ifTrue:[point x:1]. |
1843 |
point y > ext y ifTrue:[point y:1]. |
|
182 | 1844 |
|
987 | 1845 |
spec := aSpec copy. |
3128 | 1846 |
spec keepUILayout ifFalse:[ |
1847 |
spec layout:(LayoutOrigin fromPoint:point). |
|
1848 |
]. |
|
987 | 1849 |
coll add:spec. |
1850 |
point := point + (20@20). |
|
182 | 1851 |
]. |
1852 |
gallery update. |
|
1500
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1853 |
|
36c0b4b268b8
use new translatePoint:fromView:toView:
Claus Gittinger <cg@exept.de>
parents:
1475
diff
changeset
|
1854 |
"Modified: / 10.10.2001 / 14:14:36 / cg" |
182 | 1855 |
! |
1856 |
||
1857 |
raiseMenu |
|
2486 | 1858 |
"can open menu" |
1859 |
||
251 | 1860 |
|spec menu value paste| |
182 | 1861 |
|
1862 |
spec := self clientSpec value. |
|
112 | 1863 |
|
182 | 1864 |
spec notNil ifTrue:[ |
987 | 1865 |
menu := self class menuSelected decodeAsLiteralArray. |
1866 |
self isClipBoard ifFalse:[ |
|
1867 |
(menu someMenuItemWithValue:#cut) disable. |
|
1868 |
]. |
|
182 | 1869 |
|
987 | 1870 |
(value := menu startUp) == #cut ifTrue:[ |
1871 |
clipBoardSpec collection remove:spec ifAbsent:nil. |
|
1142 | 1872 |
gallery update. |
987 | 1873 |
] ifFalse:[ |
1874 |
value == #copy ifTrue:[ |
|
1870 | 1875 |
self window setClipboardObject:spec |
987 | 1876 |
] |
1877 |
]. |
|
182 | 1878 |
^ self |
1879 |
]. |
|
1880 |
||
1881 |
self isUserBoard ifTrue:[ |
|
987 | 1882 |
^ self defineClassAndSelector |
182 | 1883 |
]. |
1884 |
||
1872 | 1885 |
paste := self window getClipboardObject. |
182 | 1886 |
|
1887 |
(self canPaste:paste) ifTrue:[ |
|
987 | 1888 |
menu := self class menuUnselected decodeAsLiteralArray. |
182 | 1889 |
|
987 | 1890 |
(menu startUp) == #paste ifTrue:[ |
1891 |
self paste:paste |
|
1892 |
] |
|
182 | 1893 |
]. |
112 | 1894 |
! ! |
1895 |
||
1896 |
!UISelectionPanel methodsFor:'aspects'! |
|
1897 |
||
182 | 1898 |
clientSpec |
1142 | 1899 |
^ gallery clientSpecHolder |
93 | 1900 |
! |
1901 |
||
182 | 1902 |
clipBoardSpec |
1903 |
^ clipBoardSpec |
|
1904 |
! |
|
1905 |
||
1142 | 1906 |
gallery |
1907 |
^ gallery |
|
1908 |
! |
|
112 | 1909 |
|
1142 | 1910 |
galleryList |
1911 |
^ gallery listHolder |
|
182 | 1912 |
! |
112 | 1913 |
|
182 | 1914 |
galleryModel |
1142 | 1915 |
^ gallery model |
112 | 1916 |
|
1917 |
! |
|
1918 |
||
182 | 1919 |
majorChannel |
1920 |
|holder| |
|
1921 |
||
1922 |
(holder := builder bindingAt:#majorChannel) isNil ifTrue:[ |
|
987 | 1923 |
holder := AspectAdaptor new subject:self; forAspect:#majorSelection. |
1924 |
builder aspectAt:#majorChannel put:holder. |
|
139 | 1925 |
]. |
182 | 1926 |
^ holder |
1927 |
! |
|
1928 |
||
1929 |
majorList |
|
2486 | 1930 |
^ self class specifications collect:[:el| el first] |
182 | 1931 |
! |
1932 |
||
1933 |
minorKeys |
|
1142 | 1934 |
^ gallery minorKeysHolder |
112 | 1935 |
! ! |
1936 |
||
182 | 1937 |
!UISelectionPanel methodsFor:'change & update'! |
112 | 1938 |
|
182 | 1939 |
update:something with:aParameter from:changedObject |
2486 | 1940 |
"one of my models changed its value" |
1941 |
||
2363 | 1942 |
|label| |
112 | 1943 |
|
2363 | 1944 |
changedObject == self clientSpec ifTrue:[ |
1945 |
(label := changedObject value) notNil ifTrue:[ |
|
1946 |
label := 'Widget Gallery: ' , label name. |
|
987 | 1947 |
] ifFalse:[ |
1587 | 1948 |
label := 'Widget Gallery' |
1949 |
]. |
|
1950 |
builder window topView label:(label , ' ') |
|
93 | 1951 |
]. |
1952 |
||
182 | 1953 |
super update:something with:aParameter from:changedObject. |
112 | 1954 |
! ! |
1955 |
||
182 | 1956 |
!UISelectionPanel methodsFor:'drag & drop'! |
112 | 1957 |
|
2115 | 1958 |
canDropObjects:aCollectionOfDropObjects in:aComponent |
1953 | 1959 |
^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]). |
2115 | 1960 |
|
1961 |
"Created: / 13-10-2006 / 15:53:04 / cg" |
|
112 | 1962 |
! |
1963 |
||
2120 | 1964 |
dropObjects:aCollectionOfDropObjects in:aComponent |
182 | 1965 |
|
1966 |
|spc top| |
|
1967 |
||
1061
7400e3e3daf6
Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents:
1044
diff
changeset
|
1968 |
top := DragAndDropManager dragOriginatorQuerySignal query topView. |
182 | 1969 |
|
1970 |
top == aComponent topView ifTrue:[ |
|
987 | 1971 |
spc := self clientSpec value. |
1972 |
spc isNil ifTrue:[^ self]. |
|
182 | 1973 |
|
987 | 1974 |
(clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[ |
1975 |
^ self |
|
1976 |
]. |
|
182 | 1977 |
] ifFalse:[ |
1953 | 1978 |
spc := aCollectionOfDropObjects collect:[:el| el theObject]. |
182 | 1979 |
]. |
1980 |
self paste:spc. |
|
1061
7400e3e3daf6
Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents:
1044
diff
changeset
|
1981 |
|
2119 | 1982 |
"Modified: / 18-03-1999 / 18:29:19 / stefan" |
2120 | 1983 |
"Created: / 13-10-2006 / 18:25:50 / cg" |
182 | 1984 |
! ! |
1985 |
||
2025 | 1986 |
!UISelectionPanel methodsFor:'initialization'! |
1987 |
||
1988 |
initialize |
|
1989 |
|holder| |
|
1990 |
||
1991 |
super initialize. |
|
1992 |
||
1993 |
userClass := UserClass. |
|
1994 |
userSpecs := UserSpecs. |
|
1995 |
userLabels := UserLabels. |
|
1996 |
||
1997 |
gallery := UIGalleryView new. |
|
1998 |
||
1999 |
gallery model:(ValueHolder new). |
|
2000 |
gallery listHolder:(ValueHolder new). |
|
2001 |
gallery minorKeysHolder:(ValueHolder new). |
|
2002 |
gallery menuSelector:#raiseMenu. |
|
2003 |
||
2004 |
gallery clientSpecHolder:(holder := ValueHolder new). |
|
2005 |
holder addDependent:self. |
|
2006 |
||
2007 |
majorSelection := 0. |
|
2008 |
! ! |
|
2009 |
||
182 | 2010 |
!UISelectionPanel methodsFor:'queries'! |
2011 |
||
2012 |
canPaste:something |
|
2486 | 2013 |
"returns true if something could be paste" |
2014 |
||
182 | 2015 |
(self isClipBoard and:[something notNil]) ifTrue:[ |
987 | 2016 |
something isCollection ifTrue:[ |
2017 |
something notEmpty ifTrue:[ |
|
2018 |
^ (something at:1) isKindOf:UISpecification |
|
2019 |
] |
|
2020 |
] ifFalse:[ |
|
2021 |
^ something isKindOf:UISpecification |
|
2022 |
] |
|
182 | 2023 |
]. |
2024 |
^ false |
|
112 | 2025 |
! |
2026 |
||
182 | 2027 |
isClipBoard |
2486 | 2028 |
"returns true if current view is clip board" |
2029 |
||
291 | 2030 |
majorSelection ~~ 0 ifTrue:[ |
987 | 2031 |
^ (self majorList at:majorSelection) startsWith:'Clip' |
182 | 2032 |
]. |
2486 | 2033 |
^ false |
182 | 2034 |
! |
2035 |
||
2036 |
isUserBoard |
|
2486 | 2037 |
"returns true if current view is clip board" |
2038 |
||
291 | 2039 |
majorSelection ~~ 0 ifTrue:[ |
987 | 2040 |
^ (self majorList at:majorSelection) startsWith:'User' |
182 | 2041 |
]. |
2486 | 2042 |
^ false |
182 | 2043 |
! ! |
2044 |
||
2045 |
!UISelectionPanel methodsFor:'selection'! |
|
2046 |
||
2047 |
majorSelection |
|
291 | 2048 |
^ majorSelection ? 0 |
182 | 2049 |
! |
2050 |
||
2051 |
majorSelection:aSelection |
|
1142 | 2052 |
|spec model| |
112 | 2053 |
|
291 | 2054 |
(majorSelection == aSelection or:[aSelection == 0]) ifTrue:[ |
987 | 2055 |
^ self |
167 | 2056 |
]. |
684 | 2057 |
|
1142 | 2058 |
gallery builder:nil. |
182 | 2059 |
majorSelection := aSelection. |
684 | 2060 |
spec := ((self class specifications) at:majorSelection) last. |
2061 |
||
1142 | 2062 |
model := self galleryModel. |
2063 |
model value:0. |
|
684 | 2064 |
self minorKeys value:nil. |
182 | 2065 |
|
2066 |
spec isSymbol ifFalse:[ |
|
987 | 2067 |
self galleryList value:(spec collect:[:a| a first]). |
2068 |
self minorKeys setValue:(spec collect:[:a| a last]). |
|
182 | 2069 |
] ifTrue:[ |
987 | 2070 |
self perform:spec. |
182 | 2071 |
]. |
1142 | 2072 |
model value:1. |
182 | 2073 |
|
795
9987c25de0f9
ALWAYS USE DEFAULT FONTS !!!!!!!
Claus Gittinger <cg@exept.de>
parents:
753
diff
changeset
|
2074 |
"Modified: / 21.4.1998 / 11:59:08 / cg" |
112 | 2075 |
! ! |
2076 |
||
1716 | 2077 |
!UISelectionPanel methodsFor:'startup & release'! |
112 | 2078 |
|
182 | 2079 |
closeRequest |
2080 |
|sav| |
|
112 | 2081 |
|
182 | 2082 |
(sav := masterApplication) notNil ifTrue:[ |
987 | 2083 |
masterApplication := nil. |
2084 |
sav closeRequestFor:(self window). |
|
2085 |
masterApplication := sav. |
|
182 | 2086 |
] ifFalse:[ |
987 | 2087 |
super closeRequest. |
182 | 2088 |
] |
244
b70597d2a39b
do not send #closeRequest to nil.
Claus Gittinger <cg@exept.de>
parents:
216
diff
changeset
|
2089 |
|
b70597d2a39b
do not send #closeRequest to nil.
Claus Gittinger <cg@exept.de>
parents:
216
diff
changeset
|
2090 |
"Modified: 28.7.1997 / 09:44:40 / cg" |
182 | 2091 |
! |
112 | 2092 |
|
684 | 2093 |
postOpenWith:aBuilder |
182 | 2094 |
self majorChannel value:1. |
2025 | 2095 |
super postOpenWith:aBuilder. |
112 | 2096 |
! ! |
2097 |
||
182 | 2098 |
!UISelectionPanel methodsFor:'user defined'! |
2099 |
||
2100 |
userDefined |
|
2101 |
|cls lbl sel builder| |
|
329 | 2102 |
|
2103 |
cls := self resolveName:userClass. |
|
2104 |
||
2105 |
(cls notNil and:[(cls respondsTo:userLabels)]) ifTrue:[ |
|
987 | 2106 |
lbl := cls perform:userLabels. |
2107 |
sel := Array new:(lbl size) withAll:#userDefinedSpec. |
|
2108 |
self galleryList value:lbl. |
|
2109 |
self minorKeys value:sel. |
|
329 | 2110 |
] ifFalse:[ |
987 | 2111 |
builder := UIBuilder new isEditing:true. |
397 | 2112 |
|
987 | 2113 |
builder application:self. |
1142 | 2114 |
gallery builder:builder. |
987 | 2115 |
self galleryList value:#( '???' ). |
2116 |
self minorKeys value:#( standardUserPanel ). |
|
329 | 2117 |
] |
182 | 2118 |
! |
147 | 2119 |
|
182 | 2120 |
userDefinedHelpText |
2121 |
||
2122 |
^ ' |
|
2123 |
no user defined specifications are configured yet. To assign |
|
2486 | 2124 |
user defined specifications to the gallery, press the middle |
182 | 2125 |
button of your mouse to open a dialog. |
2126 |
' |
|
2127 |
! |
|
2128 |
||
2129 |
userDefinedSpec |
|
2130 |
|cls spc idx| |
|
93 | 2131 |
|
329 | 2132 |
cls := self resolveName:userClass. |
182 | 2133 |
|
329 | 2134 |
(cls notNil and:[(cls respondsTo:userSpecs)]) ifTrue:[ |
987 | 2135 |
spc := cls perform:userSpecs. |
2136 |
idx := self galleryModel value. |
|
329 | 2137 |
|
987 | 2138 |
idx <= spc size ifTrue:[ |
2139 |
spc := spc at:idx. |
|
2140 |
(cls respondsTo:spc) ifTrue:[ |
|
2141 |
^ cls perform:spc |
|
2142 |
] |
|
2143 |
] |
|
93 | 2144 |
]. |
147 | 2145 |
^ nil |
93 | 2146 |
! ! |
2147 |
||
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2148 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'class initialization'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2149 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2150 |
initialize |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2151 |
"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
|
2152 |
I.e. provide a clocks entry" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2153 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2154 |
LabelList := self defaultListOfLabels asOrderedCollection. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2155 |
SelectorList := self defaultListOfSelectors asOrderedCollection. |
3142 | 2156 |
HolderList := OrderedCollection newWithSize:(SelectorList size). |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2157 |
NextUniqueNumber := 1. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2158 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2159 |
UISelectionPanel |
987 | 2160 |
userClass:self |
2161 |
specSelector:#listOfSelectors |
|
2162 |
labelSelector:#listOfLabels. |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2163 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2164 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2165 |
self initialize |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2166 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2167 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2168 |
"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
|
2169 |
"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
|
2170 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2171 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2172 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'defaults'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2173 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2174 |
defaultListOfLabels |
987 | 2175 |
^ #( 'Clocks etc.' 'Business Graphics' ) |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2176 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2177 |
"Created: / 8.12.1997 / 18:50:06 / cg" |
864 | 2178 |
"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
|
2179 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2180 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2181 |
defaultListOfSelectors |
987 | 2182 |
^ #( clocksSpec businessGraphicsSpec) |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2183 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2184 |
"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
|
2185 |
"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
|
2186 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2187 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2188 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'documentation'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2189 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2190 |
copyright |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2191 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2192 |
COPYRIGHT (c) 1997 by eXept Software AG |
987 | 2193 |
All Rights Reserved |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2194 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2195 |
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
|
2196 |
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
|
2197 |
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
|
2198 |
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
|
2199 |
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
|
2200 |
hereby transferred. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2201 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2202 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2203 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2204 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2205 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2206 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2207 |
documentation |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2208 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2209 |
The standard user-defined selectionPanel entry. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2210 |
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
|
2211 |
an analog and digital clock. |
2216 | 2212 |
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
|
2213 |
extended dynamically. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2214 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2215 |
Frameworks which provide additional widgets may dynamically |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2216 |
add more entries, by sending #addUserSpecHolder:label: |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2217 |
or #removeUserSpecWithLabel:. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2218 |
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
|
2219 |
frameworks class-initialization methods. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2220 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2221 |
[start with:] |
987 | 2222 |
UISelectionPanel open |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2223 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2224 |
[author:] |
987 | 2225 |
Claus Gittinger |
2226 |
Claus Atzkern |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2227 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2228 |
[see also:] |
987 | 2229 |
TabView |
2230 |
NoteBookView |
|
2231 |
UIGalleryView |
|
2232 |
UIPainter |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2233 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2234 |
" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2235 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2236 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2237 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'installation / deinstallation'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2238 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2239 |
addUserSpecHolder:aValueHolder label:aLabelString |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2240 |
"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
|
2241 |
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
|
2242 |
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
|
2243 |
This spec is installed under that label." |
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 |
|syntheticSelector idx| |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2246 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2247 |
syntheticSelector := ('userSpec' , NextUniqueNumber printString) asSymbol. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2248 |
NextUniqueNumber := NextUniqueNumber + 1. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2249 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2250 |
idx := LabelList indexOf:aLabelString. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2251 |
idx ~~ 0 ifTrue:[ |
987 | 2252 |
SelectorList at:idx put:syntheticSelector. |
2253 |
HolderList at:idx put:aValueHolder |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2254 |
] ifFalse:[ |
987 | 2255 |
LabelList addLast:aLabelString. |
2256 |
SelectorList addLast:syntheticSelector. |
|
2257 |
HolderList addLast:aValueHolder |
|
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 |
"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
|
2261 |
"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
|
2262 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2263 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2264 |
removeUserSpecWithLabel:aLabelString |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2265 |
"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
|
2266 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2267 |
|idx| |
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 |
idx := LabelList indexOf:aLabelString. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2270 |
idx ~~ 0 ifTrue:[ |
987 | 2271 |
LabelList removeIndex:idx. |
2272 |
SelectorList removeIndex:idx. |
|
2273 |
HolderList removeIndex:idx |
|
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 |
"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
|
2277 |
"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
|
2278 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2279 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2280 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'user defined gallery'! |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2281 |
|
987 | 2282 |
businessGraphicsSpec |
2283 |
"This resource specification was automatically generated |
|
2284 |
by the UIPainter of ST/X." |
|
2285 |
||
2286 |
"Do not manually edit this!! If it is corrupted, |
|
2287 |
the UIPainter may not be able to read the specification." |
|
2288 |
||
2289 |
" |
|
2290 |
UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#businessGraphicsSpec |
|
2291 |
" |
|
2292 |
||
2293 |
<resource: #canvas> |
|
2294 |
||
1456 | 2295 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2296 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2297 |
name: businessGraphicsSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2298 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2299 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2300 |
label: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2301 |
name: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2302 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2303 |
bounds: (Rectangle 14 46 394 317) |
1456 | 2304 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2305 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2306 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2307 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2308 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2309 |
label: 'PieChart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2310 |
name: 'Label2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2311 |
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
|
2312 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2313 |
canUIDrag: false |
1456 | 2314 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2315 |
(PieChartWidgetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2316 |
name: 'PIE Chart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2317 |
layout: (LayoutFrame 15 0 21 0 103 0 141 0) |
1456 | 2318 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2319 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2320 |
label: 'ChartDescription' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2321 |
name: 'Label1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2322 |
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
|
2323 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2324 |
canUIDrag: false |
1456 | 2325 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2326 |
(ChartDescriptionSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2327 |
name: 'Chart Legend' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2328 |
layout: (LayoutFrame 14 0.0 -9 0.656827 14 0.323684 -9 1.0) |
1456 | 2329 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2330 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2331 |
label: 'BarChart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2332 |
name: 'Label3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2333 |
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
|
2334 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2335 |
canUIDrag: false |
1456 | 2336 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2337 |
(BarChartWidgetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2338 |
name: 'Bar Chart' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2339 |
layout: (LayoutFrame 121 0 21 0 232 0 141 0) |
1456 | 2340 |
) |
2341 |
) |
|
2342 |
||
2343 |
) |
|
987 | 2344 |
) |
2345 |
! |
|
2346 |
||
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2347 |
clocksSpec |
864 | 2348 |
"This resource specification was automatically generated |
2349 |
by the UIPainter of ST/X." |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2350 |
|
864 | 2351 |
"Do not manually edit this!! If it is corrupted, |
2352 |
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
|
2353 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2354 |
" |
726 | 2355 |
UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#clocksSpec |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2356 |
" |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2357 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2358 |
<resource: #canvas> |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2359 |
|
1456 | 2360 |
^ |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2361 |
#(FullSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2362 |
name: clocksSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2363 |
window: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2364 |
(WindowSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2365 |
label: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2366 |
name: 'Interface Builder' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2367 |
min: (Point 10 10) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2368 |
bounds: (Rectangle 14 46 439 319) |
1456 | 2369 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2370 |
component: |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2371 |
(SpecCollection |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2372 |
collection: ( |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2373 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2374 |
name: 'Analog Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2375 |
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
|
2376 |
hasBorder: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2377 |
component: ClockView |
1456 | 2378 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2379 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2380 |
name: 'Digital Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2381 |
layout: (LayoutOrigin 15 0 176 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2382 |
hasBorder: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2383 |
component: DigitalClockView |
1456 | 2384 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2385 |
(NonScrollableArbitraryComponentSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2386 |
name: 'Digital Number display' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2387 |
layout: (LayoutOrigin 142 0 39 0) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2388 |
hasBorder: false |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2389 |
component: DigitalLedDisplay |
1456 | 2390 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2391 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2392 |
label: 'Analog Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2393 |
name: 'Label1' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2394 |
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
|
2395 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2396 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2397 |
canUIDrag: false |
1456 | 2398 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2399 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2400 |
label: 'Number Display' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2401 |
name: 'Label2' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2402 |
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
|
2403 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2404 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2405 |
canUIDrag: false |
1456 | 2406 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2407 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2408 |
label: 'Digital Clock' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2409 |
name: 'Label3' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2410 |
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
|
2411 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2412 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2413 |
canUIDrag: false |
1456 | 2414 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2415 |
(MeterWidgetSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2416 |
name: 'Meter Widget' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2417 |
layout: (Rectangle 143 99 259 216) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2418 |
model: meterValue |
1456 | 2419 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2420 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2421 |
label: 'Meter Widget' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2422 |
name: 'Label4' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2423 |
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
|
2424 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2425 |
canUIDrag: false |
1456 | 2426 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2427 |
(MeterClackCounterSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2428 |
name: 'Meter Clack Counter' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2429 |
layout: (Rectangle 291 40 387 72) |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2430 |
model: model |
1456 | 2431 |
) |
1737
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2432 |
(LabelSpec |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2433 |
label: 'Meter Clack Counter' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2434 |
name: 'Label5' |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2435 |
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
|
2436 |
translateLabel: true |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2437 |
adjust: left |
de6abd3c55d2
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1716
diff
changeset
|
2438 |
canUIDrag: false |
1456 | 2439 |
) |
2440 |
) |
|
2441 |
||
2442 |
) |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2443 |
) |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2444 |
! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2445 |
|
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2446 |
listOfLabels |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2447 |
^ LabelList |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2448 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2449 |
"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
|
2450 |
"Modified: / 8.12.1997 / 18:51:20 / cg" |
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 |
listOfSelectors |
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2454 |
^ SelectorList |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2455 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2456 |
"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
|
2457 |
"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
|
2458 |
! ! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2459 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2460 |
!UISelectionPanel::UserDefinedGallery class methodsFor:'user spec access'! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2461 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2462 |
doesNotUnderstand:aMessage |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2463 |
"catch queries for a userSpec" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2464 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2465 |
|sel idx| |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2466 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2467 |
((sel := aMessage selector) startsWith:'userSpec') ifTrue:[ |
987 | 2468 |
idx := SelectorList indexOf:sel. |
2469 |
idx ~~ 0 ifTrue:[ |
|
2470 |
^ (HolderList at:idx) value |
|
2471 |
] |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2472 |
]. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2473 |
^ super doesNotUnderstand:aMessage |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2474 |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2475 |
"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
|
2476 |
"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
|
2477 |
! |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2478 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2479 |
respondsTo:aSelector |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2480 |
"catch queries for a userSpec" |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2481 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2482 |
|idx| |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2483 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2484 |
(aSelector startsWith:'userSpec') ifTrue:[ |
987 | 2485 |
idx := Number fromString:(aSelector copyFrom:9). |
2486 |
idx := SelectorList indexOf:aSelector. |
|
2487 |
idx ~~ 0 ifTrue:[^ true]. |
|
387
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2488 |
]. |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2489 |
^ super respondsTo:aSelector |
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2490 |
|
8fa6afe1b929
allow dynamic change of user defined selectionPanel
Claus Gittinger <cg@exept.de>
parents:
359
diff
changeset
|
2491 |
"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
|
2492 |
"Created: / 8.12.1997 / 18:51:57 / cg" |
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2493 |
! ! |
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2494 |
|
93 | 2495 |
!UISelectionPanel class methodsFor:'documentation'! |
2496 |
||
2497 |
version |
|
2498 |
^ '$Header$' |
|
2713 | 2499 |
! |
2500 |
||
2501 |
version_CVS |
|
2502 |
^ '$Header$' |
|
93 | 2503 |
! ! |
1628
bc3362031d0b
Fix default actions for OKButton and CancelButton to #doAccept and
Stefan Vogel <sv@exept.de>
parents:
1602
diff
changeset
|
2504 |
|
3059 | 2505 |
|
207
a31cc933368a
set user defined specification during initialization of class
ca
parents:
190
diff
changeset
|
2506 |
UISelectionPanel initialize! |
1628
bc3362031d0b
Fix default actions for OKButton and CancelButton to #doAccept and
Stefan Vogel <sv@exept.de>
parents:
1602
diff
changeset
|
2507 |
UISelectionPanel::UserDefinedGallery initialize! |