author | Claus Gittinger <cg@exept.de> |
Tue, 14 Mar 2017 20:30:21 +0100 | |
changeset 17465 | 27a2e4012a0a |
parent 17285 | f923dd150c2f |
child 17379 | 028adf14bc05 |
child 17551 | 005205c23e37 |
permissions | -rw-r--r-- |
9195 | 1 |
" |
2 |
COPYRIGHT (c) 2009 by eXept Software AG |
|
9216 | 3 |
All Rights Reserved |
9195 | 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 |
" |
|
12 |
"{ Package: 'stx:libtool' }" |
|
13 |
||
14 |
"{ NameSpace: Tools }" |
|
15 |
||
16 |
SimpleDialog subclass:#NewClassWizardDialog |
|
9218 | 17 |
instanceVariableNames:'compilerProviderBlock createdClass languageHolder indexType |
18 |
packageHolder classNameHolder instVarNamesHolder openClassChooser |
|
19 |
superclassNameHolder createRequiredMethodsHolder |
|
20 |
createPrintMethodHolder createAccessorsHolder |
|
21 |
createUpdateMethodHolder createInitializerHolder |
|
22 |
createInitialGUICodeHolder classInstVarNamesHolder |
|
23 |
classVarNamesHolder nameSpaceHolder categoryHolder |
|
16926 | 24 |
stereotypeHolder isCreatingClassHolder listOfSuperclassesHolder |
25 |
canDisableTemplateCreationHolder' |
|
9218 | 26 |
classVariableNames:'LastLanguage LastSuperclass LastPackage LastNamespace |
27 |
LastCategory' |
|
28 |
poolDictionaries:'' |
|
29 |
category:'Interface-Browsers-New' |
|
9195 | 30 |
! |
31 |
||
32 |
!NewClassWizardDialog class methodsFor:'documentation'! |
|
33 |
||
34 |
copyright |
|
35 |
" |
|
36 |
COPYRIGHT (c) 2009 by eXept Software AG |
|
9216 | 37 |
All Rights Reserved |
9195 | 38 |
|
39 |
This software is furnished under a license and may be used |
|
40 |
only in accordance with the terms of that license and with the |
|
41 |
inclusion of the above copyright notice. This software may not |
|
42 |
be provided or otherwise made available to, or used by, any |
|
43 |
other person. No title to or ownership of the software is |
|
44 |
hereby transferred. |
|
45 |
" |
|
46 |
! |
|
47 |
||
48 |
documentation |
|
49 |
" |
|
50 |
documentation to be added. |
|
51 |
||
52 |
[author:] |
|
9216 | 53 |
cg (cg@CG-PC) |
9195 | 54 |
|
55 |
[instance variables:] |
|
56 |
||
57 |
[class variables:] |
|
58 |
||
59 |
[see also:] |
|
60 |
||
61 |
" |
|
62 |
! |
|
63 |
||
64 |
examples |
|
65 |
" |
|
66 |
Starting the application: |
|
9216 | 67 |
[exBegin] |
9195 | 68 |
Tools::NewClassDialog open |
69 |
||
9216 | 70 |
[exEnd] |
9195 | 71 |
|
72 |
more examples to be added: |
|
9216 | 73 |
[exBegin] |
9205 | 74 |
... add code fragment for |
9195 | 75 |
... executable example here ... |
9216 | 76 |
[exEnd] |
9195 | 77 |
" |
78 |
! ! |
|
79 |
||
80 |
!NewClassWizardDialog class methodsFor:'help specs'! |
|
81 |
||
82 |
flyByHelpSpec |
|
83 |
"This resource specification was automatically generated |
|
84 |
by the UIHelpTool of ST/X." |
|
85 |
||
86 |
"Do not manually edit this!! If it is corrupted, |
|
87 |
the UIHelpTool may not be able to read the specification." |
|
88 |
||
89 |
" |
|
9205 | 90 |
UIHelpTool openOnClass:Tools::NewClassDialog |
9195 | 91 |
" |
92 |
||
93 |
<resource: #help> |
|
94 |
||
95 |
^ super flyByHelpSpec addPairsFrom:#( |
|
96 |
||
97 |
#chooseSuperclass |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
98 |
'Open a dialog for superclass selection' |
9195 | 99 |
|
100 |
#classInstVariableNames |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
101 |
'Special: instance variables of the CLASS object (separated by blanks)' |
9195 | 102 |
|
9282 | 103 |
#stereotype |
104 |
'Some often used class creation templates' |
|
105 |
||
9195 | 106 |
#className |
107 |
'The name of the new class (without namespace prefix)' |
|
108 |
||
109 |
#classVariableNames |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
110 |
'Special: class variables (separated by blanks)' |
9195 | 111 |
|
112 |
#createAccessors |
|
113 |
'Create getters and setters for all instance variables' |
|
114 |
||
115 |
#createInitializer |
|
116 |
'Create an initial initialize method template' |
|
117 |
||
118 |
#createPrintMethod |
|
119 |
'Create an initial print method template' |
|
120 |
||
121 |
#createRequiredMethods |
|
122 |
'Create all methods which have been declared as required by a superclass (subclass responsibility)' |
|
123 |
||
124 |
#createUpdateMethod |
|
125 |
'Create an initial update method template' |
|
126 |
||
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
127 |
#createInitialGUICode |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
128 |
'Create initial template code (mostly useful for applications)' |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
129 |
|
9195 | 130 |
#instanceVariableNames |
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
131 |
'Instance variables (separated by spaces)' |
9195 | 132 |
|
133 |
#namespace |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
134 |
'Optional namespace in which this class is to be created (default: Smalltalk).\Notice: namespaces are used to avoid name conflicts, not for organization\(that is what categries are for)' |
9195 | 135 |
|
136 |
#namespaceChooser |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
137 |
'Open a dialog for namespace selection' |
9195 | 138 |
|
139 |
#package |
|
16926 | 140 |
'Packages are units for deployment\(separately compiled & deployable libraries and applications).\For class creation, choose the package into which this class should be placed.\For package creation, define the packageID of the new package.\ID must be of the form: "<module>:<path>", for example: "myname:demos/myFirstDemoProgram"' |
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
141 |
|
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
142 |
#project |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
143 |
'Project-ID (aka package) into which this class should be placed' |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
144 |
|
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
145 |
#category |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
146 |
'Category into which the new class should be organized (in the browser)' |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
147 |
|
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
148 |
#categoryChooser |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
149 |
'Open a dialog for category selection' |
9195 | 150 |
|
151 |
#packageChooser |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
152 |
'Open a dialog for package selection' |
9195 | 153 |
|
154 |
#programmingLanguage |
|
155 |
'Programming Language to use for code in this class' |
|
156 |
||
157 |
#superclass |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
158 |
'Superclass of the new class' |
9195 | 159 |
|
160 |
) |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
161 |
|
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
162 |
"Modified: / 27-01-2012 / 14:41:44 / cg" |
9195 | 163 |
! ! |
164 |
||
165 |
!NewClassWizardDialog class methodsFor:'image specs'! |
|
166 |
||
167 |
wizardIcon |
|
14394
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
168 |
<resource: #image> |
9195 | 169 |
"This resource specification was automatically generated |
170 |
by the ImageEditor of ST/X." |
|
171 |
"Do not manually edit this!! If it is corrupted, |
|
172 |
the ImageEditor may not be able to read the specification." |
|
173 |
" |
|
174 |
self wizardIcon inspect |
|
175 |
ImageEditor openOnClass:self andSelector:#wizardIcon |
|
14394
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
176 |
Icon flushCachedIcons" |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
177 |
|
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
178 |
^ Icon constantNamed:'Tools::NewClassDialog class wizardIcon' |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
179 |
ifAbsentPut:[ |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
180 |
(Depth8Image new) |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
181 |
width:80; |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
182 |
height:80; |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
183 |
photometric:(#palette); |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
184 |
bitsPerSample:(#[ 8 ]); |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
185 |
samplesPerPixel:(1); |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
186 |
bits:(ByteArray |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
187 |
fromPackedString:' |
9195 | 188 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
189 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
190 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
191 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
192 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
193 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_IX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
194 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M8@@@@@@@@@@@@@@@BVU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
195 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC^3 @@@@@@@@@@@@@@@IYT% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
196 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L/K2 @@@@@@@@@@@@@@%%ITZ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
197 |
@@@@@@@@@@C,;N/^7,?+:N0@;N0@@@@@@@B-T%QT% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M3(:>_'' |
|
198 |
9.[&9.[''9>_Z7P@@@@@@@J5BT%Q(2P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C^4=O(9.[&9^W%9.[''4=+Z |
|
199 |
9.0@@@@@2DIRZF!!>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS4>[%9]7\7M7]7];S4=L@@@@@@@CHSIOH |
|
200 |
UF!!T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N_&9]7\7M3[7]7^7]7(7P@@@@@@@@ALT%ITZG2V@@@@@@@@ |
|
201 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C(9.[]7M/]7]/(;^3]7.#,@@@@@@@@@D1@P%ITZEQR@@@@@@@@@@@@@@@@@@@@ |
|
202 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N#&9^W\7MO&6._,7-7^:N0@@@@@@@@@YTABT%QT_$H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
203 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,9>#-9-/\3M;Z6=/\7];(@@@@@@@@@@A%PDARUEQ>%$H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
204 |
@@@@@@@@@@@@@@@@@N#&9^#[6=/M4=+[6=7]9>$@@@@@@@@@@FU@PDIRUL"VZIX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
205 |
@@C,:N[]7M3[6=OL7M3\7];N3>$@@@@@@@@@]4A@PEIT2\"-P%H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3''9-7\6=/[ |
|
206 |
6,3]7M3]9-[_@@@@@@@@@@A7PDA@T%JV_*5TI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4=;%7M3[6=/[4>[\7];''@@@@ |
|
207 |
@@@@@@@@@G\:PDABT%Q(ZL!!<T @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:MOS4=3\6>_Z6-. S6C&:N$@@@@@@@@@@@@@]3)L |
|
208 |
N$ART%QT2N5@+P@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:MOS9]3];^#''6-,#N=;(@@@@@@@@@@@@@@BMN$1%PDIRUF"V;V!!R |
|
209 |
@@@@@@@@@@@@@@@@@@@@@@C 50@@@@@@@@@@@@@@@@@@@@@@@@@@@@C(9=;]6=/-;]3[60YN#0@@@@@@@@@@@@@@@H42_C)@PEIR%$NV;RQB@L#H@@@@@@@@ |
|
210 |
@@@@@@@@@K2<@@@@8N$@@@@@@@@@@@@@@@@@@@@@@N3''9-7[6.[]7]/\GYQM@@@@@@@@@@@@@@@@#SI(N$A@P%JV;^7-$4ARZEI@PFT@@@@@@@@@@@@@-[VH |
|
211 |
-]__70@@@@@@@@@@@@@@@@@@@@@@;N_&7M/[6=+[7M6N$T8@@@@@@@@@@@@@@@BMKT!!%PDABT&"/2J?-%"QR_EI@N''0@@@@@@@@@@NF5''[WP5=__@@@@@@@@ |
|
212 |
@@@@@@@@@@@@@@C,9>[\6=/[6-/\7\IO$P@@@@@@@@@@@@@@@H4-N#(:PDABUIY>%.7HP%I<P$@:$0@@@@@@@@@@1I*]-]CW6N$@@@@@@@@@@@@@@@@@@@@@ |
|
213 |
@N3&9-3[6=+[7M7^:@ZU+@@@@@@@@@@@@@A%L!! 2RC(:PDAR%*=(;Z=<%%I@PIL@@@@@@@@@@@B^!!I&66ND@@@@@@@@@@@@@@@@@@@@@@@@@;N[T3-/[6-3\ |
|
214 |
7-;,A$=N@@@@@@@@@@B-C0 WFCI_N#)@PDI<+YZV%%IBPDBS@@@@@@@@@@@@ZE.@ 0@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,9,;J3-+[7M7^:@AOB#2,@@@@ |
|
215 |
@@@@HQ@OC102L$ :N$AL_IZSZDI@PDA$@@@@@@@@@@@@@M1;RZL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3&5\+$6=/\7^_(@IPEXW$@@@@@@@@PDA@\HS(: |
|
216 |
N$1LYW1<YUI@PDA@PL\@@@@@@@@@@@CH9*0=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N[&7]3[7M7^:N0@@GKPO@@@@@@@@A@PDA@PGBD9NS$9N$A@PBQA |
|
217 |
P0DL1:,@@@@@@@@@+9[-2F @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,9>[]7M3]3,;,@@CP5;7V50@@@@@@+S$PDA@PDA@SH"H!!HQTV/]]:%+7H*:0@@@@@ |
|
218 |
@ERV;^/GZ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3''9-7]7]7J2 @@/-CW/[65@@@@@@@@@@CH2C4^FSMX 7M>ZV''P5=[P-,"T%@@@@EQ>;^7H7J)>@@@@ |
|
219 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N_&7]7]7-W''@@B>-]^54HP@@@@@@@@@@@@@S$5F[(NZ4G6.0;WP-\R,+IRT@@A>%.7-2ES[*YX@@@@@@@@@@@@@@@@@ |
|
220 |
@@@@@@@@@@@@@@@@:N_^7]7^9> @@N*Z-XV2M@@@@@@@@@@@@@A9$XVC!!I&2-[V=:*OE:^7G%IUTUJ>/_"YBP-*O% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
221 |
@@C(9=O^7-;(;@@@@I6D[0(<@@@@@@@@@@@@@G%9%HR@!!I&Y2^6#-[WH+L"QUIZVP$IBP$IP6''*/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N#''7];^9> @ |
|
222 |
@@@@@K:DAYE(@@@@@@@@@@@@$VJQ%IVH!!JS-1:?-;^7H17-BP$IBP$IBP''OSPP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:N#''7-;'':P@@@@@@@HLY%S9T |
|
223 |
@@@@@@@@@@CHX''&Q%J2++N6T1^7-;\#G^4IBP$IBP%J-#*E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C):N_^9>#,@@@@@@@@@E%&MTK%*G8@@@@@@@@@ |
|
224 |
XW&Q$YR,2IR,2N7H+J1#N$A@PDA@PDCS\4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3(9>_'':@@@@@@@@@BJI1D^I^7-;YY(P4IBP6 ?XW!!9^YSG%IFT |
|
225 |
+IRT%D,:PDA@PDA@N-I@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N''(9>_(@@@@@@@@@D\''A#0T;^7-;^7H+:>V%%HNM&E9%J2,^YFT$YFTPC)@PDA@ |
|
226 |
PC(:4#)_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N#(:N @@@@@@@@@I2\B$QG-7Y[H%%QBP$IBT"D[A0NQ%IQ9XWQ!!$Y@:N#(:N#(:N(&4N*4@@@@@ |
|
227 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:N#(:P@@@@@@@@@*J@6TON#ST%I@PDA@PDA@PD@ C!!*Q$YE!!S''&Q^#(:N#)%N#*L5U:S@@@@@@@@@@@@@@@@@@@@ |
|
228 |
@@@@@@@@@@@@@@@@@@C):N#)@@@@@@@@+B(*J#6T7K%@PDA@PDA@PC(:PDA@BW&Q$YE9$YA@N#(:N#)L#[?UL @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
229 |
@@@@@N''(:N0@@@@@@@BKJ"(*B9KS(C(:SC(:N#(:N#(:PD@RG9BP$IBP$C(:N#(:RH6''1*YL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N'');@@@ |
|
230 |
@@@@@HEEQTT/N-JHN$1<N#(:N#(:N#(:PC$NAIFP$IA#N#)_@@@@+]Y0N @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:^$@@@@@@@C*[UUUQS@: |
|
231 |
4%0:N$!!HSE=7NSD:N''0:PBDOA9BP]S(:S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@@@@@@@LU+UUUUL%3NW'']_$0@@@@A% |
|
232 |
LS(2N#(:N#([F6L:L''O\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,@@@@@@@@/6-+Z6(:"+6MW< @@@@@@J42N#(:N#(:N#$[ |
|
233 |
NC)56-L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B%_61+Z4">#G\@@@@@@@@@7=>B!!GA\WGFI)N3+9.W@+P@@@@@@ |
|
234 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I=?_7=-!!-H@@@@@@@@@@@CG09"3.K''Z6-/&1:1SP$MT@@@@@@@@@@@@@@@@@@@@ |
|
235 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-7=?_3G^@@@@@@@@@@@@+TBVPDA@PDIBUEQBP$JV+2Z-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
236 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B7_7=?L @@@@@@@@@@@@A%SG1@PDA@%,#H+4IBP&#HI)X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
237 |
@@@@@@@@@@@@@@@@@K>W%9\@@@@@@@@@@@@@@DA<PDA@PDJV2L"-P$H&P*=B_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
238 |
@@@@:+F0) @@@@@@@@@@@@BVYW1@PDA@P)[H2IYBP&"/%$I(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8^(@@@@@ |
|
239 |
@@@@@@@@2DA<YYY@PDIB%*>/UC=BUF!!>P%P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BSPFUR |
|
240 |
%$A@P$JV+Z=TO$IBP''9BT @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C)%PDA@PDABP)ZV%$H. |
|
241 |
O4IBZDIB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B-SFU@PDA@PDIB+YZVP",?P$IRP$H@@@@@ |
|
242 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G]%T$A@PDA@%*7H%)YBJ#=BP%IBP@@@@@@@@@@@@@@@@@@@ |
|
243 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N$1@PDA@PDAR+Z6V_DH''O4A@P$A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
244 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E=LN$A@PDA@P%I<_''9TP"\8PDA@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
245 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:N$A@PDA@PDA@ZG1<ZDH>JR9@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
246 |
@@@@@@@@@@@@@@@@@C)LN$A@PDA@PDI(ZF!!TP#\)K$A@PDA@2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
247 |
@@@:N#(:PDA@PIY@P&!!(ZDIBU4T*PD@:N#*S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B-N#(:N#)@PDA@ |
|
248 |
PDIRUEQTP"Y,UTQ@N#(:N#*V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%#(:N#(:N$A@PDA@P$IRUDIBPW=V |
|
249 |
UU(:N$1@N#(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL:N#(:N#(:PDA@PDABP$IBP"YJ_61U LD9N#(2L,P@ |
|
250 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AHN#(:N#(:N$ABPDA@P$IBP$H&(''=?[F1EKH#Z6]KR3U:S2@@@@@@@@@@@ |
|
251 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI3[-0NSH:N#(:PDA@PDA@P$IBY.I?_8FJ"9FQ]#H2N#H:%, @@@@@@@@@@@@@@@@@@@@@@@@@ |
|
252 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CHW3(:$-OL3Y-]N#(:PDA@PEB(7NKATYJR$)JU%YVV+Z6-+Z7H2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
253 |
@@@@@@@@@@@@@@@@@@@@N#)_"97L4]J[!!8%3"X:!!6.K#^TJR$)JR%YVU%YZ-+Z6-+\ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
254 |
@@@@@@@@@IL:N#(:WX"\.[&:#(=PI"Y''^9JR$)JU%YVV+Z6-+Z6-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
255 |
+YMLN#)@PDA@P%I;$)JR$)JR%YVU%*6-+Z6-1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N+H2J6- |
|
256 |
+Z6-+Z6-+Z6-+Z7F2L#H2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C*2L#H2L#* |
|
257 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
258 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
14394
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
259 |
@@@@@@@@@@@@@@@a'); |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
260 |
colorMapFromArray:#[ 0 0 0 0 90 210 36 30 50 36 30 130 36 30 140 36 60 80 36 60 100 60 30 140 60 30 180 60 60 180 60 90 100 60 90 130 60 150 220 84 30 80 84 60 180 84 60 210 84 60 220 84 90 130 84 90 210 84 90 220 84 120 210 84 120 220 84 150 220 96 30 220 96 30 255 96 60 50 96 60 140 96 60 210 96 60 220 96 90 100 96 90 130 96 90 140 96 90 210 96 90 220 96 90 255 96 120 140 96 120 255 96 150 220 96 150 255 120 0 80 120 0 100 120 30 80 120 30 100 120 30 130 120 30 140 120 30 255 120 60 140 120 60 180 120 60 210 120 60 220 120 60 255 120 90 50 120 90 80 120 90 100 120 90 140 120 90 180 120 90 210 120 90 220 120 90 255 120 120 100 120 120 130 120 120 140 120 120 210 120 120 220 120 120 255 120 150 220 120 150 255 120 180 255 144 30 80 144 30 100 144 60 50 144 90 130 144 90 255 144 120 140 144 120 180 144 120 220 144 120 255 144 150 130 144 150 140 144 150 180 144 150 210 144 150 220 144 150 255 144 180 220 144 180 255 156 30 100 156 60 100 156 60 130 156 90 50 156 90 130 156 90 180 156 120 140 156 120 180 156 120 210 156 120 220 156 120 255 156 150 100 156 150 140 156 150 180 156 150 210 156 150 220 156 150 255 156 180 210 156 180 220 156 180 255 156 210 255 180 30 80 180 30 100 180 60 100 180 60 130 180 90 50 180 120 100 180 120 140 180 120 180 180 150 130 180 150 140 180 150 180 180 150 210 180 150 220 180 150 255 180 180 140 180 180 180 180 180 210 180 180 220 180 180 255 180 210 220 180 210 255 204 60 100 204 90 50 204 90 140 204 120 50 204 120 80 204 120 100 204 120 130 204 120 140 204 150 100 204 150 130 204 150 140 204 150 180 204 150 210 204 150 220 204 150 255 204 180 130 204 180 140 204 180 180 204 180 210 204 180 220 204 180 255 204 210 210 204 210 220 204 210 255 216 60 100 216 120 0 216 120 100 216 120 130 216 150 50 216 150 100 216 150 130 216 150 140 216 150 180 216 180 50 216 180 100 216 180 130 216 180 140 216 180 180 216 180 210 216 180 220 216 180 255 216 210 130 216 210 140 216 210 180 216 210 210 216 210 220 216 210 255 216 240 220 216 240 255 240 60 100 240 90 130 240 120 130 240 150 0 240 150 80 240 150 130 240 150 140 240 150 180 240 180 30 240 180 50 240 180 80 240 180 100 240 180 130 240 180 140 240 180 180 240 180 210 240 210 80 240 210 100 240 210 140 240 210 180 240 210 210 240 210 220 240 210 255 240 240 220 240 240 255 240 255 255 252 90 30 252 120 30 252 150 0 252 150 30 252 150 50 252 150 80 252 150 130 252 180 0 252 180 30 252 180 50 252 180 80 252 180 100 252 180 130 252 180 140 252 180 180 252 210 30 252 210 50 252 210 80 252 210 100 252 210 130 252 210 140 252 210 180 252 210 210 252 210 220 252 240 50 252 240 80 252 240 100 252 240 130 252 240 140 252 240 180 252 240 210 252 240 220 252 240 255 252 255 210 252 255 220 252 255 255 ]; |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
261 |
mask:((ImageMask new) |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
262 |
width:80; |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
263 |
height:80; |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
264 |
bits:(ByteArray |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
265 |
fromPackedString:' |
9195 | 266 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0@@@@@@@@@@P@L@@@@@@@@@@\@C @@@@@@ |
267 |
@@@C @<@@@@@@@@@O>0O @@@@@@@@_?<C<@@@@@@@@O??0?@@@@@@@@A??0O8@@@@@@@@??<A?@@@@@@@@O??@_8@@@@@@@C??0G>@@@@@@@A??8A?0@@@@@ |
|
268 |
@@_?>@_>@@@@@@@O??0G?0@@@@@@C??8A?<@@@@@@@??8@_? @@@@@@??>@G?<@@B@@@G??@A??@@A @@A?? @_?;@@X0@@_?8@G??>@G<@@G?>@A???0C?@ |
|
269 |
@A?? @_??<@?0@@_?<@O??>@O0@@G??@O???@G @@A?=8G???@C0@@@_?^A???0A8@@@G?3 _??>@>@@@A?9<G???0_ @@@_<?@O??<_8@@@C?O0@???O>@@ |
|
270 |
@@?3<@O???? @@@O<_@C????8@@@C>C8@????<@@@@? _@O????@@@@O8C>@????0@@@C<A??????<@@@@_@_??????@@@@G0G??????0@@@@<A??????8@@ |
|
271 |
@@O@??????<@@@@C0O??????@@@@@<C?????G @@@@FA????? @@@@@@ _?!!??8@@@@@@HG?0_?>@@@@@@@A?0G?? @@@@@@@_0A??8@@@@@@@G8@???@@@@ |
|
272 |
@@@A<@O??0@@@@@@@^@C??<@@@@@@@G A???@@@@@@@@0@???0@@@@@@@@@O??<@@@@@@@@@C???@@@@@@@@@A???0@@@@@@@@@_??<@@@@@@@@@G???@@@@ |
|
273 |
@@@@@C???0@@@@@@@@A???<@@@@@@@@@_??? @@@@@@@@O???8@@@@@@@@O????@@@@@@@@G????0@@@@@@@C????>@@@@@@@A?????<@@@@@@A?????>@@@ |
|
14394
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
274 |
@@@A?????? @@@@@@G?????0@@@@@@@_????8@@@@@@@@????<@@@@@@@@@_??<@@@@@@@@@@A?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b'); |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
275 |
yourself); |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
276 |
yourself |
2fbd45bcf5ac
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
13941
diff
changeset
|
277 |
] |
9195 | 278 |
! ! |
279 |
||
280 |
!NewClassWizardDialog class methodsFor:'interface specs'! |
|
281 |
||
282 |
windowSpec |
|
283 |
"This resource specification was automatically generated |
|
284 |
by the UIPainter of ST/X." |
|
285 |
||
286 |
"Do not manually edit this!! If it is corrupted, |
|
287 |
the UIPainter may not be able to read the specification." |
|
288 |
||
289 |
" |
|
9216 | 290 |
UIPainter new openOnClass:Tools::NewClassWizardDialog andSelector:#windowSpec |
291 |
Tools::NewClassWizardDialog new openInterface:#windowSpec |
|
292 |
Tools::NewClassWizardDialog open |
|
9195 | 293 |
" |
294 |
||
295 |
<resource: #canvas> |
|
296 |
||
9216 | 297 |
^ |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
298 |
#(FullSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
299 |
name: windowSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
300 |
window: |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
301 |
(WindowSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
302 |
label: 'Class Creation Wizard' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
303 |
name: 'Class Creation Wizard' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
304 |
min: (Point 10 10) |
16895 | 305 |
bounds: (Rectangle 0 0 592 639) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
306 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
307 |
component: |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
308 |
(SpecCollection |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
309 |
collection: ( |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
310 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
311 |
label: 'wizardIcon' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
312 |
name: 'Label10' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
313 |
layout: (LayoutFrame 0 0 0 0 100 0 90 0) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
314 |
hasCharacterOrientedLabel: false |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
315 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
316 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
317 |
(LabelSpec |
16926 | 318 |
label: 'Class/Package Creation Wizard' |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
319 |
name: 'Label11' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
320 |
layout: (LayoutFrame 100 0 10 0 390 0 50 0) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
321 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
322 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
323 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
324 |
label: 'Stereotype:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
325 |
name: 'Label13' |
16926 | 326 |
layout: (LayoutFrame 10 0 91 0 180 0 113 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
327 |
activeHelpKey: stereotype |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
328 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
329 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
330 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
331 |
(ComboListSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
332 |
name: 'ComboList3' |
16926 | 333 |
layout: (LayoutFrame 190 0 91 0 -32 1 113 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
334 |
activeHelpKey: stereotype |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
335 |
model: stereotypeHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
336 |
comboList: listOfStereotypes |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
337 |
useIndex: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
338 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
339 |
(LabelSpec |
16926 | 340 |
label: 'Programming Language:' |
341 |
name: 'Label9' |
|
342 |
layout: (LayoutFrame 7 0 126 0 301 0 148 0) |
|
343 |
activeHelpKey: programmingLanguage |
|
344 |
visibilityChannel: isCreatingClassHolder |
|
345 |
translateLabel: true |
|
346 |
adjust: right |
|
347 |
) |
|
348 |
(ComboListSpec |
|
349 |
name: 'ComboList1' |
|
350 |
layout: (LayoutFrame 308 0 126 0 -32 1 148 0) |
|
351 |
activeHelpKey: programmingLanguage |
|
352 |
visibilityChannel: isCreatingClassHolder |
|
353 |
model: languageHolder |
|
354 |
comboList: listOfLanguages |
|
355 |
useIndex: true |
|
356 |
) |
|
357 |
(LabelSpec |
|
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
358 |
label: 'Class Name:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
359 |
name: 'Label1' |
16895 | 360 |
layout: (LayoutFrame 10 0 172 0 180 0 194 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
361 |
activeHelpKey: className |
16926 | 362 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
363 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
364 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
365 |
) |
16926 | 366 |
(LabelSpec |
367 |
label: '*' |
|
368 |
name: 'Label14' |
|
369 |
layout: (LayoutFrame 180 0 173 0 190 0 195 0) |
|
370 |
visibilityChannel: isCreatingClassHolder |
|
371 |
translateLabel: true |
|
372 |
) |
|
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
373 |
(InputFieldSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
374 |
name: 'EntryField1' |
16895 | 375 |
layout: (LayoutFrame 190 0 172 0 -32 1 194 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
376 |
activeHelpKey: className |
16926 | 377 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
378 |
model: classNameHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
379 |
acceptOnReturn: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
380 |
acceptOnTab: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
381 |
acceptOnLostFocus: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
382 |
acceptOnPointerLeave: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
383 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
384 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
385 |
label: 'Superclass:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
386 |
name: 'Label2' |
16895 | 387 |
layout: (LayoutFrame 10 0 202 0 180 0 224 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
388 |
activeHelpKey: superclass |
16926 | 389 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
390 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
391 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
392 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
393 |
(ComboBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
394 |
name: 'ComboBox1' |
16895 | 395 |
layout: (LayoutFrame 190 0 202 0 -32 1 224 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
396 |
activeHelpKey: superclass |
16926 | 397 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
398 |
model: superclassNameHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
399 |
acceptOnLostFocus: true |
16926 | 400 |
comboList: listOfSuperclassesHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
401 |
useIndex: false |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
402 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
403 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
404 |
label: '*' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
405 |
name: 'Label15' |
16895 | 406 |
layout: (LayoutFrame 180 0 202 0 190 0 224 0) |
16926 | 407 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
408 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
409 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
410 |
(ActionButtonSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
411 |
label: '...' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
412 |
name: 'Button1' |
16895 | 413 |
layout: (LayoutFrame -22 1 202 0 -2 1 224 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
414 |
activeHelpKey: chooseSuperclass |
16926 | 415 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
416 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
417 |
model: openSuperClassChooser |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
418 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
419 |
(LabelSpec |
16349 | 420 |
label: 'Package ID:' |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
421 |
name: 'Label3' |
16895 | 422 |
layout: (LayoutFrame 10 0 243 0 180 0 265 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
423 |
activeHelpKey: package |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
424 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
425 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
426 |
) |
16926 | 427 |
(LabelSpec |
428 |
label: '*' |
|
429 |
name: 'Label16' |
|
430 |
layout: (LayoutFrame 180 0 245 0 190 0 267 0) |
|
431 |
visibilityChannel: isCreatingPackageHolder |
|
432 |
translateLabel: true |
|
433 |
) |
|
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
434 |
(ComboBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
435 |
name: 'ComboBox2' |
16895 | 436 |
layout: (LayoutFrame 190 0 242 0 -32 1 264 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
437 |
activeHelpKey: package |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
438 |
model: packageHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
439 |
acceptOnReturn: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
440 |
acceptOnTab: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
441 |
acceptOnLostFocus: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
442 |
acceptOnPointerLeave: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
443 |
comboList: listOfPackages |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
444 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
445 |
(ActionButtonSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
446 |
label: '...' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
447 |
name: 'Button4' |
16895 | 448 |
layout: (LayoutFrame -22 1 242 0 -2 1 264 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
449 |
activeHelpKey: packageChooser |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
450 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
451 |
model: openPackageChooser |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
452 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
453 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
454 |
label: 'Namespace:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
455 |
name: 'Label4' |
16895 | 456 |
layout: (LayoutFrame 10 0 272 0 180 0 294 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
457 |
activeHelpKey: namespace |
16926 | 458 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
459 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
460 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
461 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
462 |
(ComboListSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
463 |
name: 'ComboList2' |
16895 | 464 |
layout: (LayoutFrame 190 0 272 0 -32 1 294 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
465 |
activeHelpKey: namespace |
16926 | 466 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
467 |
model: nameSpaceHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
468 |
comboList: listOfNamespaces |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
469 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
470 |
(ActionButtonSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
471 |
label: '...' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
472 |
name: 'Button5' |
16895 | 473 |
layout: (LayoutFrame -22 1 272 0 -2 1 294 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
474 |
activeHelpKey: namespaceChooser |
16926 | 475 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
476 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
477 |
model: openNamespaceChooser |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
478 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
479 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
480 |
label: 'Category:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
481 |
name: 'Label12' |
16895 | 482 |
layout: (LayoutFrame 10 0 302 0 180 0 324 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
483 |
activeHelpKey: category |
16926 | 484 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
485 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
486 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
487 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
488 |
(ComboBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
489 |
name: 'ComboBox3' |
16895 | 490 |
layout: (LayoutFrame 190 0 302 0 -32 1 324 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
491 |
activeHelpKey: category |
16926 | 492 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
493 |
model: categoryHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
494 |
acceptOnLostFocus: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
495 |
comboList: listOfCategories |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
496 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
497 |
(ActionButtonSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
498 |
label: '...' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
499 |
name: 'Button6' |
16895 | 500 |
layout: (LayoutFrame -22 1 302 0 -2 1 324 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
501 |
activeHelpKey: categoryChooser |
16926 | 502 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
503 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
504 |
model: openCategoryChooser |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
505 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
506 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
507 |
label: 'Instance Variables:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
508 |
name: 'Label5' |
16895 | 509 |
layout: (LayoutFrame 10 0 342 0 180 0 364 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
510 |
activeHelpKey: instanceVariableNames |
16926 | 511 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
512 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
513 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
514 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
515 |
(InputFieldSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
516 |
name: 'EntryField4' |
16895 | 517 |
layout: (LayoutFrame 190 0 342 0 -32 1 364 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
518 |
activeHelpKey: instanceVariableNames |
16926 | 519 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
520 |
model: instVarNamesHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
521 |
acceptOnReturn: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
522 |
acceptOnTab: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
523 |
acceptOnLostFocus: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
524 |
acceptOnPointerLeave: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
525 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
526 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
527 |
label: 'Class Variables:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
528 |
name: 'Label6' |
16895 | 529 |
layout: (LayoutFrame 10 0 372 0 180 0 394 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
530 |
activeHelpKey: classVariableNames |
16926 | 531 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
532 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
533 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
534 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
535 |
(InputFieldSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
536 |
name: 'EntryField5' |
16895 | 537 |
layout: (LayoutFrame 190 0 372 0 -32 1 394 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
538 |
activeHelpKey: classVariableNames |
16926 | 539 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
540 |
model: classVarNamesHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
541 |
acceptOnReturn: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
542 |
acceptOnTab: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
543 |
acceptOnLostFocus: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
544 |
acceptOnPointerLeave: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
545 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
546 |
(LabelSpec |
16895 | 547 |
label: 'Class InstVars:' |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
548 |
name: 'Label7' |
16895 | 549 |
layout: (LayoutFrame 10 0 402 0 180 0 424 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
550 |
activeHelpKey: classInstVariableNames |
16926 | 551 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
552 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
553 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
554 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
555 |
(InputFieldSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
556 |
name: 'EntryField6' |
16895 | 557 |
layout: (LayoutFrame 190 0 402 0 -32 1 424 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
558 |
activeHelpKey: classInstVariableNames |
16926 | 559 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
560 |
model: classInstVarNamesHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
561 |
acceptOnReturn: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
562 |
acceptOnTab: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
563 |
acceptOnLostFocus: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
564 |
acceptOnPointerLeave: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
565 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
566 |
(LabelSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
567 |
label: 'Create:' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
568 |
name: 'Label8' |
16895 | 569 |
layout: (LayoutFrame 10 0 442 0 110 0 464 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
570 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
571 |
adjust: right |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
572 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
573 |
(CheckBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
574 |
label: 'Accessors' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
575 |
name: 'CheckBox1' |
16895 | 576 |
layout: (LayoutFrame 120 0 442 0 280 0 464 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
577 |
activeHelpKey: createAccessors |
16926 | 578 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
579 |
model: createAccessorsHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
580 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
581 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
582 |
(CheckBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
583 |
label: 'Initial Template Code' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
584 |
name: 'CheckBox6' |
16895 | 585 |
layout: (LayoutFrame 310 0 442 0 -36 1 464 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
586 |
activeHelpKey: createInitialGUICode |
16926 | 587 |
enableChannel: canDisableTemplateCreationHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
588 |
model: createInitialGUICodeHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
589 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
590 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
591 |
(CheckBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
592 |
label: 'Initializer' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
593 |
name: 'CheckBox2' |
16895 | 594 |
layout: (LayoutFrame 120 0 472 0 0 1 494 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
595 |
activeHelpKey: createInitializer |
16926 | 596 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
597 |
model: createInitializerHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
598 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
599 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
600 |
(CheckBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
601 |
label: 'Update Method' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
602 |
name: 'CheckBox5' |
16895 | 603 |
layout: (LayoutFrame 120 0 502 0 0 1 524 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
604 |
activeHelpKey: createUpdateMethod |
16926 | 605 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
606 |
model: createUpdateMethodHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
607 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
608 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
609 |
(CheckBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
610 |
label: 'Required Methods (Subclass responsibilities)' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
611 |
name: 'CheckBox3' |
16895 | 612 |
layout: (LayoutFrame 120 0 532 0 0 1 554 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
613 |
activeHelpKey: createRequiredMethods |
16926 | 614 |
visibilityChannel: isCreatingClassHolder |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
615 |
model: createRequiredMethodsHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
616 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
617 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
618 |
(CheckBoxSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
619 |
label: 'Print Method' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
620 |
name: 'CheckBox4' |
16895 | 621 |
layout: (LayoutFrame 120 0 562 0 0 1 584 0) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
622 |
activeHelpKey: createPrintMethod |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
623 |
visibilityChannel: false |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
624 |
model: createPrintMethodHolder |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
625 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
626 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
627 |
(HorizontalPanelViewSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
628 |
name: 'HorizontalPanel1' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
629 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
630 |
horizontalLayout: center |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
631 |
verticalLayout: center |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
632 |
horizontalSpace: 3 |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
633 |
verticalSpace: 3 |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
634 |
reverseOrderIfOKAtLeft: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
635 |
component: |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
636 |
(SpecCollection |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
637 |
collection: ( |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
638 |
(ActionButtonSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
639 |
label: 'Cancel' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
640 |
name: 'Button3' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
641 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
642 |
model: doCancel |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
643 |
extent: (Point 125 22) |
9216 | 644 |
) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
645 |
(ActionButtonSpec |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
646 |
label: 'OK' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
647 |
name: 'Button2' |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
648 |
translateLabel: true |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
649 |
model: doAccept |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
650 |
extent: (Point 125 22) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
651 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
652 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
653 |
|
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
654 |
) |
9216 | 655 |
) |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
656 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
657 |
|
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
658 |
) |
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
659 |
) |
9195 | 660 |
! ! |
661 |
||
662 |
!NewClassWizardDialog class methodsFor:'menu specs'! |
|
663 |
||
664 |
mainMenu |
|
665 |
"This resource specification was automatically generated by the CodeGeneratorTool." |
|
666 |
||
667 |
"Do not manually edit this!! If it is corrupted, |
|
668 |
the MenuEditor may not be able to read the specification." |
|
669 |
||
670 |
" |
|
671 |
MenuEditor new openOnClass:Tools::NewClassDialog andSelector:#mainMenu |
|
672 |
" |
|
673 |
||
674 |
<resource: #menu> |
|
675 |
||
676 |
^ #(#Menu |
|
9216 | 677 |
#( |
678 |
#(#MenuItem |
|
679 |
#label: 'File' |
|
680 |
#translateLabel: true |
|
681 |
#submenu: |
|
682 |
#(#Menu |
|
683 |
#( |
|
684 |
#(#MenuItem |
|
685 |
#label: 'New' |
|
686 |
#translateLabel: true |
|
687 |
#value: #menuNew |
|
688 |
) |
|
689 |
#(#MenuItem |
|
690 |
#label: '-' |
|
691 |
) |
|
692 |
#(#MenuItem |
|
693 |
#label: 'Open...' |
|
694 |
#translateLabel: true |
|
695 |
#value: #menuOpen |
|
696 |
) |
|
697 |
#(#MenuItem |
|
698 |
#label: '-' |
|
699 |
) |
|
700 |
#(#MenuItem |
|
701 |
#label: 'Save' |
|
702 |
#translateLabel: true |
|
703 |
#value: #menuSave |
|
704 |
) |
|
705 |
#(#MenuItem |
|
706 |
#label: 'Save As...' |
|
707 |
#translateLabel: true |
|
708 |
#value: #menuSaveAs |
|
709 |
) |
|
710 |
#(#MenuItem |
|
711 |
#label: '-' |
|
712 |
) |
|
713 |
#(#MenuItem |
|
714 |
#label: 'Exit' |
|
715 |
#translateLabel: true |
|
716 |
#value: #closeRequest |
|
717 |
) |
|
718 |
) nil |
|
719 |
nil |
|
720 |
) |
|
721 |
) |
|
722 |
#(#MenuItem |
|
15397
d8b138e50a72
help menu layout and title (Menu_Help instead of Help)
Claus Gittinger <cg@exept.de>
parents:
15296
diff
changeset
|
723 |
label: 'MENU_Help' |
d8b138e50a72
help menu layout and title (Menu_Help instead of Help)
Claus Gittinger <cg@exept.de>
parents:
15296
diff
changeset
|
724 |
startGroup: conditionalRight |
9216 | 725 |
#translateLabel: true |
726 |
#submenu: |
|
727 |
#(#Menu |
|
728 |
#( |
|
729 |
#(#MenuItem |
|
730 |
#label: 'Documentation' |
|
731 |
#translateLabel: true |
|
732 |
#value: #openDocumentation |
|
733 |
) |
|
734 |
#(#MenuItem |
|
735 |
#label: '-' |
|
736 |
) |
|
737 |
#(#MenuItem |
|
738 |
#label: 'About this Application...' |
|
739 |
#translateLabel: true |
|
740 |
#value: #openAboutThisApplication |
|
741 |
) |
|
742 |
) nil |
|
743 |
nil |
|
744 |
) |
|
745 |
) |
|
746 |
) nil |
|
747 |
nil |
|
9195 | 748 |
) |
749 |
! |
|
750 |
||
751 |
toolbarMenu |
|
752 |
"This resource specification was automatically generated by the CodeGeneratorTool." |
|
753 |
||
754 |
"Do not manually edit this!! If it is corrupted, |
|
755 |
the MenuEditor may not be able to read the specification." |
|
756 |
||
757 |
" |
|
758 |
MenuEditor new openOnClass:Tools::NewClassDialog andSelector:#toolbarMenu |
|
759 |
" |
|
760 |
||
761 |
<resource: #menu> |
|
762 |
||
763 |
^ #(Menu ((MenuItem label: 'Reload' itemValue: menuReload translateLabel: true labelImage: (ResourceRetriever ToolbarIconLibrary reload24x24Icon))) nil nil) |
|
764 |
! ! |
|
765 |
||
766 |
!NewClassWizardDialog methodsFor:'accessing'! |
|
767 |
||
768 |
compilerProviderBlock:aBlock |
|
769 |
"/ see NewSystemBrowser on how to use this |
|
770 |
compilerProviderBlock := aBlock. |
|
771 |
! |
|
772 |
||
773 |
createdClass |
|
774 |
^ createdClass |
|
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
775 |
! |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
776 |
|
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
777 |
language |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
778 |
|languageName languageClass| |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
779 |
|
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
780 |
languageName := self listOfLanguages at:(languageHolder value). |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
781 |
languageClass := ProgrammingLanguage allSubclasses |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
782 |
detect:[:l | l instance name = languageName] |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
783 |
ifNone:[ SmalltalkLanguage]. |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
784 |
^ languageClass instance |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
785 |
|
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
786 |
"Created: / 30-01-2011 / 09:35:19 / cg" |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
787 |
"Modified: / 30-01-2011 / 10:40:35 / cg" |
9195 | 788 |
! ! |
789 |
||
790 |
!NewClassWizardDialog methodsFor:'actions'! |
|
791 |
||
792 |
doAccept |
|
16926 | 793 |
self isCreatingPackageHolder value ifFalse:[ |
794 |
self doAcceptForNewClass ifFalse:[^ self]. |
|
795 |
] ifTrue:[ |
|
796 |
self doAcceptForNewPackage ifFalse:[^ self]. |
|
797 |
]. |
|
798 |
super doAccept. |
|
799 |
! |
|
800 |
||
801 |
doAcceptForNewClass |
|
9195 | 802 |
|newClassName superclassName superclass package answer| |
803 |
||
804 |
newClassName := self classNameHolder value. |
|
805 |
newClassName isEmptyOrNil ifTrue:[ |
|
16926 | 806 |
self warn:('No Classname entered'). |
807 |
^ false. |
|
9195 | 808 |
]. |
809 |
newClassName isValidSmalltalkIdentifier ifFalse:[ |
|
16926 | 810 |
self warn:'No valid Classname entered (must be alphaNumeric)'. |
811 |
^ false. |
|
9195 | 812 |
]. |
813 |
newClassName first isUppercase ifFalse:[ |
|
16926 | 814 |
self warn:'No valid Classname entered (first Character must be uppercase)'. |
815 |
^ false. |
|
9195 | 816 |
]. |
817 |
||
818 |
superclassName := self superclassNameHolder value. |
|
819 |
superclass := Smalltalk classNamed:superclassName. |
|
820 |
superclass isNil ifTrue:[ |
|
9207 | 821 |
(superclassName knownAsSymbol and:[Smalltalk includesKey:superclassName asSymbol]) ifFalse:[ |
16926 | 822 |
self warn:'No such Superclass'. |
823 |
^ false. |
|
9207 | 824 |
]. |
825 |
(Smalltalk at:superclassName asSymbol) isBehavior ifFalse:[ |
|
16926 | 826 |
self warn:'"%1" refers to a global which is not a class (%2)' |
827 |
with:superclassName |
|
828 |
with:superclass className. |
|
829 |
^ false. |
|
9207 | 830 |
]. |
9195 | 831 |
]. |
832 |
||
833 |
package := self packageHolder value. |
|
9211 | 834 |
package notEmptyOrNil ifTrue:[ |
835 |
(package asPackageId module isEmptyOrNil |
|
836 |
or:[ package asPackageId directory isEmptyOrNil ]) ifTrue:[ |
|
16926 | 837 |
self warn:'The packageID "%1" must be of the form "module:directory" (for the source repository management)' |
838 |
with:package. |
|
839 |
^ false. |
|
9211 | 840 |
]. |
9207 | 841 |
|
842 |
(ProjectDefinition definitionClassForPackage:package) isNil ifTrue:[ |
|
843 |
answer := Dialog |
|
844 |
choose:('Create a new ProjectDefinition for "%1" ? |
|
9195 | 845 |
|
9205 | 846 |
This can also be done later. |
9195 | 847 |
Create the definition as: |
848 |
' bindWith:package) |
|
9207 | 849 |
fromList:nil values:nil |
850 |
buttons:#('GUI Application' 'non-GUI Application' 'Library') |
|
851 |
values:#(guiApplicationType #nonGuiApplicationType #libraryType) |
|
852 |
lines:nil cancel:false. |
|
9195 | 853 |
|
16926 | 854 |
answer == false ifTrue:[^ false]. |
9195 | 855 |
|
9207 | 856 |
ProjectDefinition |
857 |
definitionClassForPackage:package |
|
858 |
projectType: (ProjectDefinition perform:answer) |
|
859 |
createIfAbsent:true. |
|
860 |
]. |
|
9195 | 861 |
]. |
862 |
||
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
863 |
"/ done in caller (for undo handling...) |
9205 | 864 |
"/ createdClass := |
9195 | 865 |
"/ superclass |
9205 | 866 |
"/ subclass: newClassName asSymbol |
867 |
"/ instanceVariableNames: instVarNamesHolder value |
|
868 |
"/ classVariableNames: classVarNamesHolder value |
|
9195 | 869 |
"/ poolDictionaries: ' ' |
870 |
"/ category: '* as yet uncategorized *'. |
|
871 |
"/ |
|
872 |
"/ classInstVarNamesHolder value notEmptyOrNil ifTrue:[ |
|
873 |
"/ createdClass class instanceVariableNames: classInstVarNamesHolder value |
|
874 |
"/ ]. |
|
875 |
||
9216 | 876 |
LastCategory := categoryHolder value. |
877 |
LastPackage := packageHolder value. |
|
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
878 |
LastLanguage := self listOfLanguages at:(languageHolder value). |
9216 | 879 |
|
16926 | 880 |
^ true |
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
881 |
|
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
882 |
"Modified: / 30-01-2011 / 09:33:28 / cg" |
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
883 |
"Modified (comment): / 27-01-2012 / 14:53:02 / cg" |
9195 | 884 |
! |
885 |
||
16926 | 886 |
doAcceptForNewPackage |
887 |
|package projectType| |
|
888 |
||
889 |
package := self packageHolder value. |
|
890 |
package isEmptyOrNil ifTrue:[ |
|
891 |
self warn:'Missing packageID'. |
|
892 |
^ false. |
|
893 |
]. |
|
894 |
||
895 |
(package asPackageId module isEmptyOrNil |
|
896 |
or:[ package asPackageId directory isEmptyOrNil ]) ifTrue:[ |
|
897 |
self warn:'The packageID "%1" must be of the form "module:directory" (for the source repository management)' |
|
898 |
with:package. |
|
899 |
^ false. |
|
900 |
]. |
|
901 |
||
902 |
(ProjectDefinition definitionClassForPackage:package) notNil ifTrue:[ |
|
903 |
self warn:'Package already exists'. |
|
904 |
^ false. |
|
905 |
]. |
|
906 |
self stereotypeSymbol == #GUIProject ifTrue:[ |
|
907 |
projectType := ProjectDefinition guiApplicationType |
|
908 |
] ifFalse:[ |
|
909 |
self stereotypeSymbol == #NonGUIProject ifTrue:[ |
|
910 |
projectType := ProjectDefinition nonGuiApplicationType |
|
911 |
] ifFalse:[ |
|
912 |
self stereotypeSymbol == #LibraryProject ifTrue:[ |
|
913 |
projectType := ProjectDefinition libraryType |
|
914 |
] ifFalse:[ |
|
915 |
self warn:'oops - what kind of package is this'. |
|
916 |
^ false. |
|
917 |
] |
|
918 |
]. |
|
919 |
]. |
|
920 |
ProjectDefinition |
|
921 |
definitionClassForPackage:package |
|
922 |
projectType:projectType |
|
923 |
createIfAbsent:true. |
|
924 |
||
925 |
self doCancel. "/ hack - for now. |
|
926 |
^ false. |
|
927 |
! |
|
928 |
||
9195 | 929 |
doCancel |
930 |
self closeRequest. |
|
931 |
! |
|
932 |
||
9248 | 933 |
openCategoryChooser |
934 |
|category| |
|
935 |
||
936 |
category := Dialog |
|
9282 | 937 |
choose:(resources string:'Select a Category') |
9248 | 938 |
fromList:(Smalltalk allClassCategories asSortedCollection) |
939 |
lines:15. |
|
940 |
category isNil ifTrue:[^ self]. |
|
941 |
||
942 |
self categoryHolder value:category. |
|
9195 | 943 |
! |
944 |
||
945 |
openNamespaceChooser |
|
9249 | 946 |
"(mis)use the browser's namespace dialog" |
947 |
||
9248 | 948 |
|browser namespaceString existing| |
949 |
||
950 |
(browser := masterApplication) isNil ifTrue:[ |
|
951 |
browser := Tools::NewSystemBrowser basicNew |
|
952 |
]. |
|
953 |
||
9282 | 954 |
namespaceString := browser |
955 |
askForNameSpace:(resources string:'Select or Enter a Namespace') |
|
956 |
title:(resources string:'Namespace selection') |
|
957 |
initialText:'Smalltalk'. |
|
9248 | 958 |
namespaceString isNil ifTrue:[^ self]. |
959 |
||
960 |
existing := Smalltalk classNamed:namespaceString. |
|
10590
1a41a0700e59
changed: #openNamespaceChooser
Claus Gittinger <cg@exept.de>
parents:
9726
diff
changeset
|
961 |
(existing notNil and:[existing isNameSpace]) ifTrue:[ |
9248 | 962 |
"/ exists |
963 |
] ifFalse:[ |
|
964 |
(existing notNil) ifTrue:[ |
|
965 |
Dialog warn:('"%1" is already defined, but not a namespace' bindWith:namespaceString). |
|
966 |
^ self |
|
967 |
]. |
|
968 |
]. |
|
969 |
Class withoutUpdatingChangesDo:[ |
|
970 |
NameSpace name:namespaceString. |
|
971 |
]. |
|
972 |
self nameSpaceHolder value:namespaceString. |
|
10590
1a41a0700e59
changed: #openNamespaceChooser
Claus Gittinger <cg@exept.de>
parents:
9726
diff
changeset
|
973 |
|
1a41a0700e59
changed: #openNamespaceChooser
Claus Gittinger <cg@exept.de>
parents:
9726
diff
changeset
|
974 |
"Modified: / 19-08-2011 / 01:00:52 / cg" |
9195 | 975 |
! |
976 |
||
977 |
openPackageChooser |
|
9249 | 978 |
"(mis)use the browser's package dialog" |
979 |
||
9248 | 980 |
|browser package| |
981 |
||
982 |
(browser := masterApplication) isNil ifTrue:[ |
|
983 |
browser := Tools::NewSystemBrowser basicNew |
|
984 |
]. |
|
985 |
||
9282 | 986 |
package := browser askForProject:(resources string:'Select or Enter a Package-ID'). |
9248 | 987 |
package isNil ifTrue:[^ self]. |
988 |
||
989 |
self packageHolder value:package. |
|
990 |
! |
|
991 |
||
992 |
openSuperClassChooser |
|
9249 | 993 |
"(mis)use the browser's class dialog" |
994 |
||
9248 | 995 |
|browser class classValid classNameOrNil| |
996 |
||
997 |
(browser := masterApplication) isNil ifTrue:[ |
|
998 |
browser := Tools::NewSystemBrowser basicNew |
|
999 |
]. |
|
1000 |
||
1001 |
classValid := false. |
|
1002 |
[ classValid ] whileFalse:[ |
|
1003 |
classNameOrNil := browser |
|
1004 |
askForClassToSearch:nil |
|
1005 |
single:true |
|
9282 | 1006 |
msgTail:(resources string:'Select a Class') |
9248 | 1007 |
resources:nil |
1008 |
thenDo:nil. |
|
1009 |
||
1010 |
classNameOrNil isNil ifTrue:[^ self]. |
|
1011 |
class := Smalltalk classNamed:classNameOrNil. |
|
1012 |
classValid := class notNil |
|
1013 |
]. |
|
1014 |
self superclassNameHolder value:class name. |
|
9218 | 1015 |
! |
1016 |
||
1017 |
stereotypeChanged |
|
16926 | 1018 |
|stereoTypeSymbol| |
9218 | 1019 |
|
16926 | 1020 |
self listOfSuperclassesHolder value:self listOfSuperclasses. |
1021 |
||
1022 |
stereoTypeSymbol := self stereotypeSymbol. |
|
1023 |
||
1024 |
(stereoTypeSymbol = #'GUIProject' |
|
1025 |
or:[ stereoTypeSymbol = #'NonGUIProject' |
|
1026 |
or:[ stereoTypeSymbol = #'LibraryProject' ]]) ifTrue:[ |
|
1027 |
self isCreatingClassHolder value:false. |
|
1028 |
self canDisableTemplateCreationHolder value:false. |
|
1029 |
self createInitialGUICodeHolder value:true. |
|
1030 |
] ifFalse:[ |
|
1031 |
self isCreatingClassHolder value:true. |
|
1032 |
self canDisableTemplateCreationHolder value:true. |
|
1033 |
]. |
|
1034 |
||
17285 | 1035 |
stereoTypeSymbol isNil ifTrue:[ |
9282 | 1036 |
self createInitializerHolder value:true. |
1037 |
self createPrintMethodHolder value:false. |
|
1038 |
self createAccessorsHolder value:true. |
|
1039 |
self createInitialGUICodeHolder value:false. |
|
9726 | 1040 |
self createUpdateMethodHolder value:false. |
9282 | 1041 |
]. |
1042 |
||
16926 | 1043 |
stereoTypeSymbol = #'DataObject' ifTrue:[ |
9719 | 1044 |
self superclassNameHolder value:'Model'. |
1045 |
self createAccessorsHolder value:true. |
|
1046 |
self createInitialGUICodeHolder value:false. |
|
9726 | 1047 |
self createUpdateMethodHolder value:false. |
9719 | 1048 |
]. |
16926 | 1049 |
"/ stereoTypeSymbol = #'Enumeration' ifTrue:[ |
9719 | 1050 |
"/ self superclassNameHolder value:'Enumeration'. |
1051 |
"/ self createInitializerHolder value:true. |
|
1052 |
"/ self createAccessorsHolder value:false. |
|
1053 |
"/ self createInitialGUICodeHolder value:false. |
|
1054 |
"/ ]. |
|
16926 | 1055 |
stereoTypeSymbol = #'GUIApplication' ifTrue:[ |
9282 | 1056 |
self superclassNameHolder value:'ApplicationModel'. |
1057 |
self createInitializerHolder value:false. |
|
1058 |
self createPrintMethodHolder value:false. |
|
1059 |
self createInitialGUICodeHolder value:true. |
|
9726 | 1060 |
self createUpdateMethodHolder value:true. |
9282 | 1061 |
]. |
16926 | 1062 |
stereoTypeSymbol = #'SharedPool' ifTrue:[ |
9719 | 1063 |
self superclassNameHolder value:'SharedPool'. |
1064 |
self createAccessorsHolder value:false. |
|
1065 |
self createInitializerHolder value:true. |
|
1066 |
self createPrintMethodHolder value:false. |
|
9282 | 1067 |
self createInitialGUICodeHolder value:false. |
9719 | 1068 |
self createUpdateMethodHolder value:false. |
9218 | 1069 |
]. |
16926 | 1070 |
(stereoTypeSymbol = #'StartupClass') ifTrue:[ |
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1071 |
self superclassNameHolder value:'StandaloneStartup'. |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1072 |
self createAccessorsHolder value:false. |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1073 |
self createInitializerHolder value:true. |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1074 |
self createPrintMethodHolder value:false. |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1075 |
self createInitialGUICodeHolder value:true. |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1076 |
self createUpdateMethodHolder value:false. |
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1077 |
]. |
16926 | 1078 |
stereoTypeSymbol = #'TestCase' ifTrue:[ |
9719 | 1079 |
self superclassNameHolder value:'TestCase'. |
1080 |
self createAccessorsHolder value:false. |
|
9282 | 1081 |
self createInitializerHolder value:false. |
1082 |
self createPrintMethodHolder value:false. |
|
9719 | 1083 |
self createInitialGUICodeHolder value:true. |
9726 | 1084 |
self createUpdateMethodHolder value:false. |
9218 | 1085 |
]. |
16926 | 1086 |
stereoTypeSymbol = #'WebService' ifTrue:[ |
9282 | 1087 |
self superclassNameHolder value:'HTTPService'. |
1088 |
self createAccessorsHolder value:false. |
|
1089 |
self createInitializerHolder value:false. |
|
1090 |
self createPrintMethodHolder value:false. |
|
1091 |
self createInitialGUICodeHolder value:true. |
|
9726 | 1092 |
self createUpdateMethodHolder value:false. |
9218 | 1093 |
]. |
16926 | 1094 |
stereoTypeSymbol = #'Widget' ifTrue:[ |
9719 | 1095 |
self superclassNameHolder value:'View'. |
9282 | 1096 |
self createInitializerHolder value:false. |
1097 |
self createPrintMethodHolder value:false. |
|
9719 | 1098 |
self createInitialGUICodeHolder value:false. |
9726 | 1099 |
self createUpdateMethodHolder value:true. |
9218 | 1100 |
]. |
9719 | 1101 |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1102 |
"Modified: / 27-01-2012 / 14:47:20 / cg" |
16926 | 1103 |
! |
1104 |
||
1105 |
stereotypeSymbol |
|
1106 |
|stereoTypeIndex stereoTypeSpec stereoTypeSymbol| |
|
1107 |
||
1108 |
stereoTypeIndex := self stereotypeHolder value. |
|
1109 |
stereoTypeIndex isNil ifTrue:[^ nil]. |
|
1110 |
||
1111 |
stereoTypeSpec := self stereotypeSpec at:stereoTypeIndex. |
|
1112 |
stereoTypeSymbol := stereoTypeSpec first. |
|
1113 |
^ stereoTypeSymbol |
|
9195 | 1114 |
! ! |
1115 |
||
1116 |
!NewClassWizardDialog methodsFor:'aspects'! |
|
1117 |
||
16926 | 1118 |
canDisableTemplateCreationHolder |
1119 |
<resource: #uiAspect> |
|
1120 |
||
1121 |
canDisableTemplateCreationHolder isNil ifTrue:[ |
|
1122 |
canDisableTemplateCreationHolder := true asValue. |
|
1123 |
]. |
|
1124 |
^ canDisableTemplateCreationHolder. |
|
1125 |
! |
|
1126 |
||
9216 | 1127 |
categoryHolder |
1128 |
<resource: #uiAspect> |
|
1129 |
||
1130 |
categoryHolder isNil ifTrue:[ |
|
15296
c6ecd82484fc
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
14394
diff
changeset
|
1131 |
categoryHolder := LastCategory asValue. |
9216 | 1132 |
]. |
1133 |
^ categoryHolder. |
|
1134 |
! |
|
1135 |
||
9195 | 1136 |
classInstVarNamesHolder |
1137 |
<resource: #uiAspect> |
|
1138 |
||
1139 |
classInstVarNamesHolder isNil ifTrue:[ |
|
9216 | 1140 |
classInstVarNamesHolder := ValueHolder new. |
9195 | 1141 |
]. |
1142 |
^ classInstVarNamesHolder. |
|
1143 |
! |
|
1144 |
||
1145 |
classNameHolder |
|
1146 |
<resource: #uiAspect> |
|
1147 |
||
1148 |
classNameHolder isNil ifTrue:[ |
|
9216 | 1149 |
classNameHolder := ValueHolder new. |
9195 | 1150 |
]. |
1151 |
^ classNameHolder. |
|
1152 |
! |
|
1153 |
||
16926 | 1154 |
classNameVisibleHolder |
1155 |
<resource: #uiAspect> |
|
1156 |
||
1157 |
^ self isCreatingClassHolder |
|
1158 |
! |
|
1159 |
||
9195 | 1160 |
classVarNamesHolder |
1161 |
<resource: #uiAspect> |
|
1162 |
||
1163 |
classVarNamesHolder isNil ifTrue:[ |
|
9216 | 1164 |
classVarNamesHolder := ValueHolder new. |
9195 | 1165 |
]. |
1166 |
^ classVarNamesHolder. |
|
1167 |
! |
|
1168 |
||
1169 |
createAccessors |
|
1170 |
^ self createAccessorsHolder value |
|
1171 |
! |
|
1172 |
||
1173 |
createAccessorsHolder |
|
1174 |
<resource: #uiAspect> |
|
1175 |
||
9205 | 1176 |
createAccessorsHolder isNil ifTrue:[ |
9216 | 1177 |
createAccessorsHolder := true asValue. |
9195 | 1178 |
]. |
9205 | 1179 |
^ createAccessorsHolder. |
9195 | 1180 |
! |
1181 |
||
1182 |
createInitialGUICode |
|
1183 |
^ self createInitialGUICodeHolder value |
|
1184 |
! |
|
1185 |
||
1186 |
createInitialGUICodeHolder |
|
1187 |
<resource: #uiAspect> |
|
1188 |
||
1189 |
createInitialGUICodeHolder isNil ifTrue:[ |
|
9216 | 1190 |
createInitialGUICodeHolder := true asValue. |
9195 | 1191 |
]. |
1192 |
^ createInitialGUICodeHolder. |
|
1193 |
! |
|
1194 |
||
1195 |
createInitializer |
|
1196 |
^ self createInitializerHolder value |
|
1197 |
! |
|
1198 |
||
1199 |
createInitializerHolder |
|
1200 |
<resource: #uiAspect> |
|
1201 |
||
1202 |
createInitializerHolder isNil ifTrue:[ |
|
9216 | 1203 |
createInitializerHolder := true asValue. |
9195 | 1204 |
]. |
1205 |
^ createInitializerHolder. |
|
1206 |
! |
|
1207 |
||
1208 |
createPrintMethod |
|
1209 |
^ self createPrintMethodHolder value |
|
1210 |
! |
|
1211 |
||
1212 |
createPrintMethodHolder |
|
1213 |
<resource: #uiAspect> |
|
1214 |
||
1215 |
createPrintMethodHolder isNil ifTrue:[ |
|
9216 | 1216 |
createPrintMethodHolder := true asValue. |
9195 | 1217 |
]. |
1218 |
^ createPrintMethodHolder. |
|
1219 |
! |
|
1220 |
||
1221 |
createRequiredMethods |
|
1222 |
^ self createRequiredMethodsHolder value |
|
1223 |
! |
|
1224 |
||
1225 |
createRequiredMethodsHolder |
|
1226 |
<resource: #uiAspect> |
|
1227 |
||
1228 |
createRequiredMethodsHolder isNil ifTrue:[ |
|
9216 | 1229 |
createRequiredMethodsHolder := true asValue. |
9195 | 1230 |
]. |
1231 |
^ createRequiredMethodsHolder. |
|
1232 |
! |
|
1233 |
||
1234 |
createUpdateMethod |
|
1235 |
^ self createUpdateMethodHolder value |
|
1236 |
! |
|
1237 |
||
1238 |
createUpdateMethodHolder |
|
1239 |
<resource: #uiAspect> |
|
1240 |
||
1241 |
createUpdateMethodHolder isNil ifTrue:[ |
|
9216 | 1242 |
createUpdateMethodHolder := true asValue. |
9195 | 1243 |
]. |
1244 |
^ createUpdateMethodHolder. |
|
1245 |
! |
|
1246 |
||
1247 |
instVarNamesHolder |
|
1248 |
<resource: #uiAspect> |
|
1249 |
||
1250 |
instVarNamesHolder isNil ifTrue:[ |
|
9216 | 1251 |
instVarNamesHolder := ValueHolder new. |
9195 | 1252 |
]. |
1253 |
^ instVarNamesHolder. |
|
1254 |
! |
|
1255 |
||
16926 | 1256 |
isCreatingClassHolder |
1257 |
<resource: #uiAspect> |
|
1258 |
||
1259 |
isCreatingClassHolder isNil ifTrue:[ |
|
1260 |
isCreatingClassHolder := true asValue |
|
1261 |
]. |
|
1262 |
^ isCreatingClassHolder. |
|
1263 |
! |
|
1264 |
||
1265 |
isCreatingPackageHolder |
|
1266 |
^ BlockValue forLogicalNot:self isCreatingClassHolder. |
|
1267 |
! |
|
1268 |
||
9195 | 1269 |
languageHolder |
1270 |
<resource: #uiAspect> |
|
1271 |
||
1272 |
|idx| |
|
1273 |
||
1274 |
languageHolder isNil ifTrue:[ |
|
9222 | 1275 |
(self listOfLanguages size == 1) ifTrue:[ |
9216 | 1276 |
idx := 1. |
1277 |
] ifFalse:[ |
|
9222 | 1278 |
idx := self listOfLanguages indexOf:(LastLanguage ? 'Smalltalk'). |
9216 | 1279 |
]. |
1280 |
languageHolder := idx asValue. |
|
9205 | 1281 |
|
9195 | 1282 |
]. |
1283 |
^ languageHolder. |
|
1284 |
! |
|
1285 |
||
9216 | 1286 |
listOfCategories |
16752 | 1287 |
^ Smalltalk allClassCategories asNewOrderedCollection sort |
9216 | 1288 |
! |
1289 |
||
9195 | 1290 |
listOfLanguages |
9205 | 1291 |
^ ProgrammingLanguage allSubclasses collect:[:l | l instance name]. |
9195 | 1292 |
! |
1293 |
||
1294 |
listOfNamespaces |
|
9205 | 1295 |
^ ((NameSpace allNameSpacesIn:Smalltalk) |
9216 | 1296 |
asOrderedCollection |
1297 |
collect:[:ns | ns name]) |
|
1298 |
sort |
|
9195 | 1299 |
! |
1300 |
||
1301 |
listOfPackages |
|
16205 | 1302 |
^ Smalltalk allPackageIDs copy sort |
9195 | 1303 |
! |
1304 |
||
16926 | 1305 |
listOfStereotypeSymbols |
1306 |
"program readable list" |
|
1307 |
^ self stereotypeSpec collect:[:each | each isNil ifTrue:[nil] ifFalse:[each first]]. |
|
1308 |
! |
|
1309 |
||
9218 | 1310 |
listOfStereotypes |
16926 | 1311 |
"human readable list" |
1312 |
^ self stereotypeSpec collect:[:each | each isNil ifTrue:[nil] ifFalse:[each second]]. |
|
9218 | 1313 |
! |
1314 |
||
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1315 |
listOfSuperclasses |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1316 |
<resource: #uiAspect> |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1317 |
|
16926 | 1318 |
|l superClassName |
1319 |
stereoTypeSymbol more |
|
1320 |
includeObject includeModel includeApplicationModel includeView |
|
1321 |
includeStandaloneStartup| |
|
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1322 |
|
16926 | 1323 |
stereoTypeSymbol := self stereotypeSymbol. |
1324 |
||
1325 |
includeObject := includeModel := includeApplicationModel := includeView := true. |
|
1326 |
includeStandaloneStartup := false. |
|
1327 |
||
1328 |
stereoTypeSymbol = #'DataObject' ifTrue:[ |
|
1329 |
includeApplicationModel := includeView := false. |
|
1330 |
]. |
|
1331 |
stereoTypeSymbol = #'Enumeration' ifTrue:[ |
|
1332 |
includeModel := includeApplicationModel := includeView := false. |
|
1333 |
]. |
|
1334 |
stereoTypeSymbol = #'GUIApplication' ifTrue:[ |
|
1335 |
includeModel := includeView := includeObject := false. |
|
1336 |
]. |
|
1337 |
stereoTypeSymbol = #'ConsoleProgram' ifTrue:[ |
|
1338 |
includeModel := includeApplicationModel := includeView := includeObject := false. |
|
1339 |
includeStandaloneStartup := true. |
|
1340 |
]. |
|
1341 |
stereoTypeSymbol = #'SharedPool' ifTrue:[ |
|
1342 |
includeModel := includeApplicationModel := includeView := includeObject := false. |
|
1343 |
]. |
|
1344 |
(stereoTypeSymbol = #'StartupClass') ifTrue:[ |
|
1345 |
includeModel := includeApplicationModel := includeView := includeObject := false. |
|
1346 |
includeStandaloneStartup := true. |
|
1347 |
]. |
|
1348 |
stereoTypeSymbol = #'TestCase' ifTrue:[ |
|
1349 |
includeModel := includeApplicationModel := includeView := includeObject := false. |
|
1350 |
]. |
|
1351 |
stereoTypeSymbol = #'WebService' ifTrue:[ |
|
1352 |
includeModel := includeApplicationModel := includeView := includeObject := false. |
|
1353 |
]. |
|
1354 |
stereoTypeSymbol = #'Widget' ifTrue:[ |
|
1355 |
includeModel := includeApplicationModel := includeObject := false. |
|
1356 |
]. |
|
1357 |
||
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1358 |
l := OrderedCollection new. |
16926 | 1359 |
(includeObject and:[superClassName ~= 'Object']) ifTrue:[ |
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1360 |
l add:'Object' |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1361 |
]. |
16926 | 1362 |
(includeModel and:[superClassName ~= 'Model']) ifTrue:[ |
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1363 |
l add:'Model' |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1364 |
]. |
16926 | 1365 |
(includeView and:[superClassName ~= 'View']) ifTrue:[ |
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1366 |
l add:'View' |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1367 |
]. |
16926 | 1368 |
(includeApplicationModel and:[superClassName ~= 'ApplicationModel']) ifTrue:[ |
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1369 |
l add:'ApplicationModel' |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1370 |
]. |
16926 | 1371 |
|
1372 |
includeStandaloneStartup ifTrue:[ |
|
1373 |
superClassName ~= 'StandaloneStartup' ifTrue:[ |
|
1374 |
l add:'StandaloneStartup' |
|
1375 |
]. |
|
1376 |
superClassName ~= 'StandaloneStartupHeadless' ifTrue:[ |
|
1377 |
l add:'StandaloneStartupHeadless' |
|
1378 |
]. |
|
1379 |
]. |
|
1380 |
||
1381 |
more := UserPreferences systemBrowserClass visitedClassNamesHistory. |
|
1382 |
more notEmptyOrNil ifTrue:[ |
|
1383 |
l add:'-'. |
|
1384 |
l addAll:more. |
|
1385 |
]. |
|
9721
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1386 |
^ l |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1387 |
|
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1388 |
"Created: / 30-01-2011 / 10:34:44 / cg" |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1389 |
! |
47aa8329ff01
care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents:
9719
diff
changeset
|
1390 |
|
16926 | 1391 |
listOfSuperclassesHolder |
1392 |
<resource: #uiAspect> |
|
1393 |
||
1394 |
listOfSuperclassesHolder isNil ifTrue:[ |
|
1395 |
listOfSuperclassesHolder := self listOfSuperclasses asValue. |
|
1396 |
]. |
|
1397 |
^ listOfSuperclassesHolder. |
|
1398 |
! |
|
1399 |
||
9195 | 1400 |
nameSpaceHolder |
1401 |
<resource: #uiAspect> |
|
1402 |
||
1403 |
nameSpaceHolder isNil ifTrue:[ |
|
9216 | 1404 |
nameSpaceHolder := ValueHolder new. |
9195 | 1405 |
"/ nameSpaceHolder addDependent:self. |
1406 |
"/ nameSpaceHolder onChangeSend:#nameSpaceHolderChanged to:self. |
|
1407 |
]. |
|
1408 |
^ nameSpaceHolder. |
|
1409 |
! |
|
1410 |
||
1411 |
packageHolder |
|
1412 |
<resource: #uiAspect> |
|
1413 |
||
1414 |
packageHolder isNil ifTrue:[ |
|
9216 | 1415 |
packageHolder := (LastPackage ? nil "PackageId noProjectID") asValue. |
9195 | 1416 |
]. |
1417 |
^ packageHolder. |
|
1418 |
! |
|
1419 |
||
1420 |
recentlyVisitedClasses |
|
1421 |
<resource: #uiAspect> |
|
1422 |
||
1423 |
^ SystemBrowser visitedClassNamesHistory |
|
1424 |
! |
|
1425 |
||
9218 | 1426 |
stereotypeHolder |
1427 |
<resource: #uiAspect> |
|
1428 |
||
1429 |
stereotypeHolder isNil ifTrue:[ |
|
1430 |
stereotypeHolder := ValueHolder new. |
|
1431 |
stereotypeHolder onChangeSend:#stereotypeChanged to:self. |
|
1432 |
]. |
|
1433 |
^ stereotypeHolder. |
|
1434 |
! |
|
1435 |
||
16926 | 1436 |
stereotypeSpec |
1437 |
^ #( |
|
1438 |
( nil '<none>' ) |
|
1439 |
( DataObject 'Data Object' ) |
|
1440 |
"/ ( Enumeration Enumeration ) |
|
1441 |
( GUIApplication 'GUI Application') |
|
1442 |
( ConsoleProgram 'Console Program') |
|
1443 |
( SharedPool 'Shared Pool') |
|
1444 |
( TestCase TestCase ) |
|
1445 |
( WebService 'Web Service' ) |
|
1446 |
( Widget Widget) |
|
1447 |
( StartupClass 'Startup Class (main entry for standalone apps)' ) |
|
1448 |
nil |
|
1449 |
( GUIProject 'GUI Project') |
|
1450 |
( NonGUIProject 'Non-GUI Project') |
|
1451 |
( LibraryProject 'Library Project') |
|
1452 |
) |
|
1453 |
||
1454 |
"Modified: / 27-01-2012 / 14:46:39 / cg" |
|
1455 |
! |
|
1456 |
||
9195 | 1457 |
superclassNameHolder |
1458 |
<resource: #uiAspect> |
|
1459 |
||
1460 |
superclassNameHolder isNil ifTrue:[ |
|
16926 | 1461 |
superclassNameHolder := (LastSuperclass ? ''"'Object'") asValue. |
9195 | 1462 |
]. |
1463 |
^ superclassNameHolder. |
|
11224
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1464 |
|
6f7da28fcedd
comment/format in: #doAccept
Claus Gittinger <cg@exept.de>
parents:
10590
diff
changeset
|
1465 |
"Modified: / 27-01-2012 / 14:49:43 / cg" |
9195 | 1466 |
! ! |
1467 |
||
1468 |
!NewClassWizardDialog class methodsFor:'documentation'! |
|
1469 |
||
1470 |
version_CVS |
|
16205 | 1471 |
^ '$Header$' |
9195 | 1472 |
! ! |
13941
f3193680050b
class: Tools::NewClassWizardDialog
Claus Gittinger <cg@exept.de>
parents:
11224
diff
changeset
|
1473 |