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