| author | vranyj1 |
| Fri, 10 Aug 2012 17:33:42 +0000 | |
| branch | jk_new_structure |
| changeset 1590 | b977644c9b69 |
| parent 1586 | 45694b771d99 |
| child 1592 | bb8a44ebac3c |
| permissions | -rw-r--r-- |
| 1530 | 1 |
"{ Package: 'stx:libjava/tools' }"
|
2 |
||
3 |
AbstractSettingsApplication subclass:#JavaSettingsApplication |
|
| 1558 | 4 |
instanceVariableNames:'javaReleaseHolder javaReleaseList javaHomeHolder |
| 1569 | 5 |
javaReleaseIsCustomHolder javaClassPathHolder |
| 1590 | 6 |
javaSourceDirectoriesHolder infoPanel' |
| 1530 | 7 |
classVariableNames:'' |
8 |
poolDictionaries:'' |
|
9 |
category:'Languages-Java-Tools' |
|
10 |
! |
|
11 |
||
| 1561 | 12 |
ApplicationModel subclass:#PathEditor |
| 1571 | 13 |
instanceVariableNames:'selectionHolder pathListEffectiveHolder pathListHolder pathList |
14 |
treeList treeView treeListItemForUserDefined' |
|
| 1561 | 15 |
classVariableNames:'' |
16 |
poolDictionaries:'' |
|
17 |
privateIn:JavaSettingsApplication |
|
18 |
! |
|
19 |
||
| 1571 | 20 |
HierarchicalList subclass:#PathElementList |
21 |
instanceVariableNames:'userItem userCategory' |
|
| 1561 | 22 |
classVariableNames:'' |
23 |
poolDictionaries:'' |
|
24 |
privateIn:JavaSettingsApplication::PathEditor |
|
25 |
! |
|
26 |
||
| 1571 | 27 |
HierarchicalItem subclass:#Category |
28 |
instanceVariableNames:'origin label' |
|
29 |
classVariableNames:'' |
|
30 |
poolDictionaries:'' |
|
31 |
privateIn:JavaSettingsApplication::PathEditor::PathElementList |
|
32 |
! |
|
33 |
||
34 |
HierarchicalItem subclass:#Item |
|
| 1569 | 35 |
instanceVariableNames:'element x' |
| 1561 | 36 |
classVariableNames:'' |
37 |
poolDictionaries:'' |
|
| 1571 | 38 |
privateIn:JavaSettingsApplication::PathEditor::PathElementList |
| 1561 | 39 |
! |
40 |
||
| 1530 | 41 |
|
42 |
!JavaSettingsApplication class methodsFor:'initialization'! |
|
43 |
||
44 |
initialize |
|
45 |
||
46 |
self installInSettings |
|
47 |
||
48 |
"Created: / 23-06-2005 / 09:27:10 / masca" |
|
49 |
! |
|
50 |
||
51 |
installInSettings |
|
52 |
||
53 |
Smalltalk addStartBlock:[ |
|
54 |
AbstractLauncherApplication |
|
55 |
addSettingsApplicationByClass:self name withName:'Java' icon:self defaultIcon |
|
56 |
] |
|
57 |
||
58 |
"Created: / 23-06-2005 / 09:27:10 / masca" |
|
59 |
"Modified: / 19-07-2012 / 11:26:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
60 |
! ! |
|
61 |
||
62 |
!JavaSettingsApplication class methodsFor:'image specs'! |
|
63 |
||
64 |
defaultIcon |
|
65 |
^ self libjavaCupIconInTree |
|
66 |
||
67 |
"Created: / 19-07-2012 / 11:26:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
68 |
! |
|
69 |
||
70 |
libjavaCupIcon |
|
71 |
"This resource specification was automatically generated |
|
72 |
by the ImageEditor of ST/X." |
|
73 |
||
74 |
"Do not manually edit this!! If it is corrupted, |
|
75 |
the ImageEditor may not be able to read the specification." |
|
76 |
||
77 |
" |
|
78 |
self libjavaCupIcon inspect |
|
79 |
ImageEditor openOnClass:self andSelector:#libjavaCupIcon |
|
80 |
Icon flushCachedIcons |
|
81 |
" |
|
82 |
||
83 |
<resource: #image> |
|
84 |
||
85 |
^Icon |
|
86 |
constantNamed:'JavaSettingsApplication libjavaCupIcon' |
|
87 |
ifAbsentPut:[(Depth24Image new) width: 66; height: 66; photometric:(#rgb); bitsPerSample:(#(8 8 8)); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
88 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
89 |
?????????????????????????????????_O)?/_1???????????????????????????????????????????????????????????????????????????????? |
|
90 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
91 |
?????????????????????????????????????????????????????????/+7<+E4???????????????????????????????????????????????????????? |
|
92 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
93 |
????????????????????????????????????????????????????????????????????????????????????:8X(?/#2???????????????????????????? |
|
94 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
95 |
????????????????????????????????????????????????????????????????????????????????????????????????????????????:(D >MZ6???? |
|
96 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
97 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
98 |
??????????;>:G\N=\FQ???????????????????????????????????????????????????????????????????????????????????????????????????? |
|
99 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
100 |
?????????????????????????????????N7_96<@<;*D???????????????????????????????????????????????????????????????????????????? |
|
101 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
102 |
????????????????????????????????????????????????????????=\FQ96<@=,&_???????????????????????????????????????????????????? |
|
103 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
104 |
??????????????????????????????????????????????????????????????????????????????;=:8 ,96<@>>#W???????????????????????????? |
|
105 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
106 |
????????????????????????????????????????????????????????????????????????????????????????????????????=,"]96<@:8$.???????? |
|
107 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
108 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
109 |
?N/\:G\N96<@=,&_???????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
110 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
111 |
?????????????????????_G'':(L$96<@:8X)??7;???????????????????????????????????????????????????????????????????????????????? |
|
112 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
113 |
?????????????????????????????????????????_G'':(P%96<@97DC>.GJ???????????????????????????????????????????????????????????? |
|
114 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
115 |
?????????????????????????????????????????????????????????????OC$;H,196<@96<@<;"A???????????????????????????????????????? |
|
116 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
117 |
????????????????????????????????????????????????????????????????????????????????>.KL:W8Z96<@96<@;99T??;>???????????????? |
|
118 |
?????????????????_W.???????????????????????????????????????????????????????????????????????????????????????????????????? |
|
119 |
????????????????????????????????????????????????????????????????????????????????????????????????????=<6'':GTJ96<@96<@;))M |
|
120 |
?//8????????????????????????>>[S<;Y>=\JS?_W.???????????????????????????????????????????????????????????????????????????? |
|
121 |
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????/39 |
|
122 |
<Z5.96<@96<@96<@;95R?/39?????????????????/''5=\VY;H,2;Y@;>>WQ???????????????????????????????????????????????????????????? |
|
123 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
124 |
?????????????????_K(;I@:96<@96<@96<@<*90??7<?????????????/39=\NT:''8[:GPH=\FR??7<???????????????????????????????????????? |
|
125 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
126 |
?????????????????????????????????????N+Z:(L#96<@96<@97DC=\NT????????????????>]&;:(H!!96<@:8 ->>''X???????????????????????? |
|
127 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
128 |
????????????????????????????????????????????????????????>.GJ:W,U96<@96<@:GXL>MV4??????????????7;<;U<97@B96<@;:AW?/#2???? |
|
129 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
130 |
????????????????????????????????????????????????????????????????????????????>>SP:W$Q96<@96<@:GXL>-?F?????????????//8;)%J |
|
131 |
96<@96<@<Z-+??;>???????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
132 |
?????????????????????????????????????????????????????????????????????????????????????????????????/_0:(H"96<@96<@97DD>]": |
|
133 |
??????????????;>;)1O96<@96<@<Z))??;>???????????????????????????????????????????????????????????????????????????????????? |
|
134 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
135 |
<Z-*96<@96<@96<@=K.F????????????????=\FQ96<@96<@;H04??7<???????????????????????????????????????????????????????????????? |
|
136 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
137 |
?????????????????????_W.:GLG96<@96<@:(L$??7;?????????????/''5:W$Q96<@96<@==F-???????????????????????????????????????????? |
|
138 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
139 |
????????????????????????????????????????????>M^896<@96<@96<@=\BP????????????????=,2$96<@96<@96<@?_K(???????????????????? |
|
140 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
141 |
????????????????????????????????????????????????????????????????????>MR296<@96<@96<@>>#V????????????????<;Q;96<@96<@96<@ |
|
142 |
>>_T???????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
143 |
?????????????????????????????????????????????????????????????????????????????????????????????OC$96<@96<@96<@?/#2???????? |
|
144 |
????????<Z-+96<@96<@96<@<;"B???????????????????????????????????????????????????????????????????????????????????????????? |
|
145 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
146 |
:8 -96<@96<@?OC$????????????????=\NT96<@96<@96<@:W$Q?_O*???????????????????????????????????????????????????????????????? |
|
147 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
148 |
????????????????????????=<6&96<@96<@==F.????????????????>>[R96<@96<@96<@96<@<J]$???????????????????????????????????????? |
|
149 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
150 |
??????????????????????????????????????????????????7<;H8796<@;))M????????????????????;)]F96<@96<@96<@96<@=<:)???????????? |
|
151 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
152 |
?????????????????????????????????????????????????????????????????????????????N3^:G\N96<@>.KL????????????????>].?97@B96<@ |
|
153 |
96<@96<@:W0W?/_0???????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
154 |
????????????????????????????????????????????????????????????????????????????????????????????????????????=<6''97@A;)]G??;> |
|
155 |
????????????????<;Q;96<@96<@96<@96<@=K6K???????????????????????????????????????????????????????????????????????????????? |
|
156 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
157 |
????????????=\VX96<@=\VY??????????????????7;;I@:96<@96<@96<@;91P???????????????????????????????????????????????????????? |
|
158 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
159 |
????????????????????????????????????????<;]?:W P?N?#????????????????>>#W:GLG96<@96<@;9=U???????????????????????????????? |
|
160 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
161 |
????????????????????????????????????????????????????????????????????=\RW;YH>??7<????????????????;))M96<@96<@=<:(???????? |
|
162 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
163 |
????????????????????????????????????????????????????????????????????????????????????????????????=\NT=,&_???????????????? |
|
164 |
<*9096<@:(L$?/+7???????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
165 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
166 |
????>]*=?/''5????????????;99S:GPH>.KK????????????????????????????????????????9.713M+#2-#"9>72???????????????????????????? |
|
167 |
????????????????????????????????????????????????????????????????????????????????????????????????????>O+;6NO*-\''V*LCO2-#" |
|
168 |
:^?3??????????????????????????????;=?????????_G'':W0W>].?????????????????????????????????????9.71);?O+LOR$J?CV8"%T8J!!_*F9 |
|
169 |
7>#.????????????????????????????????????????????????????????????????????????????????????????????????????????????:?G4+<WT |
|
170 |
]Y.4W(*''$;GD3M+#>/3<??????????????????????????????????????????????;><;"A>>#W???????????????????????????????????????????? |
|
171 |
????????????=/#:"**?T8J!!V(^%6^O*???????????????????????????????????????????????????????????????????????????????????????? |
|
172 |
????????5>K)"Z&>UXN"T8J!!''[_I=O_9?????????????????????????????????????????????????????????/_1??7<???????????????????????? |
|
173 |
????????>O+;9^31?/??????????????????????>/3<ZYJ-T8J!![)Z0?/?????????????????????????????????????????????????????????????? |
|
174 |
????????????????????????????.<7ZUHJ!!T8J!!T8J!!T8J!!,L[T;/O6???????????????????????????????????????????????????????????????? |
|
175 |
=?'';8.+/3]/$.,7Y)[;N$Z?C_JB7Z)N.'';''J<?[8????????????????????????????);?OT8J!!T8J!!7._-???????????????????????????????????? |
|
176 |
????????????????????????????????????????????????????8^''. JN:UXN"T8J!!T8J!!T8J!!T8J!!ZYJ-^Y:6!!ZZ<$J?C&KSG&KSG&KSG&KSG%;SF#J3@ |
|
177 |
!!ZZ<_:J9]Y.3Z)N.XH.(U(R"T8J!!T8J!!T8J!!U8V#\9*3%KGD-L''V9^31????????????????????????????????????-\+WT8J!!T8J!!4=?''???????????? |
|
178 |
????????????????????????????????????????????????????????????????????????????????????<_W72=''#*<KQ&+WH"Z&>^):6Z)N.W(*''W(*'' |
|
179 |
VHZ$T8J!!T8J!!T8J!!UHJ!!W(*''XH2(Z)N.[YV/_ZF8$+CC)K7M-\+W2-#"7>_-?O7=????????????????????????????????????????????????????%+OF |
|
180 |
T8J!!UHJ!!<OS7???????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
181 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
182 |
????????????????<_W7WH"&T8J!!"Z&>???????????????????????????????????????????????????????????????????????????????????????? |
|
183 |
????????????????????????????????????=O_9???????????????????????????????????????????????????????????????????????????????? |
|
184 |
?????????????????????????????????????/??":/@T8J!!XX2):^?3???????????????????????????????????????????????????????????????? |
|
185 |
????????????????????????????????????????????????????:N;2"**?.,7Y???????????????????????????????????????????????????????? |
|
186 |
????????????????????????????????????????????????????????????([/LT8J!!XH2(6>W+???????????????????????????????????????????? |
|
187 |
????????????????????????????????????????????????????????????????????????8>/0WH"&T8J!!);?O>/3<???????????????????????????? |
|
188 |
????????????????????????????>O+;7N[,/-C\(+/L4-?''????????????????????????????>/3<$+CDT8J!!^I65:N;2???????????????????????? |
|
189 |
????????????????????????????????????????????????????????????????????????????????????????????????5NC''UHJ!!T8J!!T8J!!VHZ$]925 |
|
190 |
!!*^=$Z?C''[_I*LCO+<WS+<WS+<WS+<WS*LCO&;[H#*7A JJ9ZYJ-UHJ!!T8J!!T8J!!T8J!!UXN"''K_I;/O6????????????????8^''/\)&2Z9R.0MG\?/?????? |
|
191 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
192 |
????3=3%_ZF8UHN"T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!U(R#\)&2&[WG1MS_;?S7????????=/#:*\CP |
|
193 |
#J/@3M+#?/;>???????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
194 |
????????????????????????????????????<OS72M_!!*\GP%+OF!!JZ<\I^1Z)N.Z)N.Z)N.Z)N.Z)N.Z)N.\9*3 JJ9$+CC*,GQ0-O^7._->?3=???????? |
|
195 |
????????????????6^O*>O+;???????????????????????????????????????????????????????????????????????????????????????????????? |
|
196 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
197 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
198 |
?????????????????????????????????????????????????????????????????????????????????????????????O7=???????????????????????? |
|
199 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
200 |
????????????????????????????????????????????????????????????????????????????????????????????????????????????5>K)!!JZ<;_K5 |
|
201 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
202 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
203 |
????????4M7%UHJ!!T8J!!"**?0-K]8.+/<OS7?_;>?????????????????????/;>;/O66.S+/,?[(;3M"J&>,,_U>/3<???????????????????????????? |
|
204 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
205 |
????????????????????????????????4-?''UHN"T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!W(*''Z)N.Z)N.Z)N.Y)B+U(R#T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!X86)*\GP |
|
206 |
;?S7???????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
207 |
????????????????????????????????????????????????????????????4-?'']).4T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!! |
|
208 |
T8J!!T8J!!T8J!!UHN"_ZB8/=C\>O+;???????????????????????????????????????????????????????????????????????????????????????????? |
|
209 |
????????????????????????????????????????????????????????;/O64-;&1=[ 1-W =O_9????????????????8^''.+\OR!!JZ<XH.(T8J!!T8J!!T8J!! |
|
210 |
T8J!!T8J!!T8J!!T8J!!T8J!!XH2(_ZF8&+WH1]W_</W8???????????????????????????????????????????????????????????????????????????????? |
|
211 |
????????????????????????????????????????????????????????????????????9^31'';''K[)Z0]).4+,SS6.S+=/'':???????????????????????? |
|
212 |
????????????=_#98N#.7^[,7^[,7^[,7>#.;_K5>/3<????????????????????????????????????????????????????????????????????5^C(=?''; |
|
213 |
????????????????????????????????????????????????????????????????????????????????????9^31!!*^=UHJ!!]Y.36>W+???????????????? |
|
214 |
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
215 |
????????????????''[#J1-W ????????????????????????????????????????????????????????????????????????????????0MG\U8V#T8J!!T8J!! |
|
216 |
+,SS???????????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
217 |
????????????????????????????>_/<2=''# :V;#J3@>//<???????????????????????????????????????????????????????????????????????? |
|
218 |
????????^Y66T8J!!T8J!!T8J!!T8J!![)Z0(;3M2=''#;OG5?/?????????????????????????????????????????????????????????????????????????? |
|
219 |
????????????????????????????????</W86>W+1MS_(K+K^Y66WH"&#J/@5^G(?????????????_;>=O_9???????????????????????????????????? |
|
220 |
????????????????????????????????9>;2%[KEYH:*T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!VHZ$[9^0"J">''+#J*\GP-L''V0MG\2-''"4];&4];&4];&4];&4];& |
|
221 |
4];&4];&4];&4];&1-W 1-W 1MS_-</X*,GQ''[#J$J?C!!JV<\9&2WH&&T8J!!UHJ!![9Z0&[WG1-[ =O_9????????????????:/C4#J/@=_#9???????????? |
|
222 |
????????????????????????????????????????????????????????????????????;_K55NC''/L;[)[7N#J3@]925YX>+U(R"T8J!!T8J!!T8J!!T8J!!T8J!! |
|
223 |
T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!U8V#Y9B,_ZB8%+OF,L[T3-3$=O_9?????????????????????/;>3=3%#J/@ |
|
224 |
XX2)5NC''???????????????????????????????????????????????????????????????????????????????????????????????????????????????? |
|
225 |
?/??;?O67>_-4];&1-[ /L;[,,_U*LCO(;3M(;3M(;3M(;3M(;3M)+;N+<WS,\_U/,?[2-#"5.G)8.+/</W8?????????????????????????????????/?? |
|
226 |
9^310]K]$+CCXX2)U8V#%[KE:?C4???????????????????????????????????????????????????????????????????????????????????????????? |
|
227 |
?????????????????/??7>#.;_K5?/;>???????????????????????????????????????????????????????????????????????????????????????? |
|
228 |
</W85>K).,7Y''K_I_*F9WX&''T8J!!UHN"]925+\OR;?O6???????????????????????????????????????????????????????????????????????????? |
|
229 |
????????????????????????????????????????????=O_9.,7Y&KSG"**? JN:$Z?C([/L(;3M);?O+<WS+<WS.L3X.,7Y.,7Y.,7Y.,7Y.,7Y-</X*<KQ |
|
230 |
(K+K%KKE"**?^):6ZIF,VHV$T8J!!T8J!!WX&''\9&2$+CC,<#U4=?''=O_9???????????????????????????????????????????????????????????????? |
|
231 |
????????????????????????????????????????????????????????????????????????????????????????<OS78^''.3-3$/=C\+<WT*,GQ(;3M&+WH |
|
232 |
&KSG&KSG&KSG&KSG&KSG&KSG&KSG(;3M+\OR-\''V/,?[3=3%8>+0=?'';???????????????????????????????????????????????????????????????? |
|
233 |
????????????????????????') ; yourself] |
|
234 |
! |
|
235 |
||
236 |
libjavaCupIconInTree |
|
237 |
"This resource specification was automatically generated |
|
238 |
by the ImageEditor of ST/X." |
|
239 |
||
240 |
"Do not manually edit this!! If it is corrupted, |
|
241 |
the ImageEditor may not be able to read the specification." |
|
242 |
||
243 |
" |
|
244 |
self libjavaCupIconInTree inspect |
|
245 |
ImageEditor openOnClass:self andSelector:#libjavaCupIconInTree |
|
246 |
Icon flushCachedIcons |
|
247 |
" |
|
248 |
||
249 |
<resource: #image> |
|
250 |
||
251 |
^Icon |
|
252 |
constantNamed:'JavaSettingsApplication libjavaCupIconInTree' |
|
253 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
254 |
G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_C1<_G1<_G1<_G1<_ |
|
255 |
G1<_G1<_G1<_DA<_G1<_G1<_G1<_G1<_G1<_G1<_DA<_DQ<_G1<_G1<_G1<_G1<_G1<_DA<_D!!<_G1<_G1<_G1<_G1<_G1<_DA<_DA<_G1<_G1<_G1<_G1<_ |
|
256 |
G1<_G1@_G1@_G1<_G1<_G1<_G1<_G1<_G1<NG1<PC1<_G1<_G1<_G1<_G1<_G1<_G08_G1@_G1<_G1<_G1<_G1<_G1<_G1<_G1<PG1<_G1<_G1<_G1<_G1<_ |
|
257 |
G1<_G1<_G1<_G1<HG1<_G1<_G1<_BP0B@ HCB H_G1<_G0 _G1<_G1<_G1<_G1<_G1<_G1<_G04_G1<_G1<_G1<_B ,B@ HMA $_G1<_G1<_G1<_G1<_G1<_ |
|
258 |
G1<_G1<_G1<_G1<_G1<_G1<_G1<_BQ<_G1<HG1<_G1<_G1<_G1<_G1<_G1<DCP4GG1<_G1<_G1<_G1<_G0$_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G0(AB (J |
|
259 |
B TA@A<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[82 129 161 83 129 160 83 129 161 83 129 162 84 129 160 84 129 161 82 130 161 82 130 162 83 130 160 83 130 161 83 130 162 84 130 161 82 131 161 83 131 161 231 110 0 230 111 0 231 111 0 231 112 0 232 112 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@ @@A@@@BP@@D @@I@@@I@@@I @@D @@@ @@@A@A? @@A@@?0@@@@@@P @@O@@D@@@A?0@@@@@') ; yourself); yourself] |
|
260 |
! ! |
|
261 |
||
262 |
!JavaSettingsApplication class methodsFor:'interface opening'! |
|
263 |
||
264 |
open |
|
265 |
||
266 |
| settingsApp | |
|
267 |
||
268 |
settingsApp := SettingsDialog new. |
|
269 |
settingsApp addApplClass:self fullName |
|
270 |
withName:'Java'. |
|
271 |
settingsApp showRoot: false. |
|
272 |
settingsApp selectedItem value: |
|
273 |
(settingsApp applicationList root children anyOne). |
|
274 |
settingsApp open. |
|
275 |
||
276 |
"Created: / 19-07-2012 / 11:25:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
277 |
! ! |
|
278 |
||
279 |
!JavaSettingsApplication class methodsFor:'interface specs'! |
|
280 |
||
281 |
windowSpec |
|
282 |
"This resource specification was automatically generated |
|
283 |
by the UIPainter of ST/X." |
|
284 |
||
285 |
"Do not manually edit this!! If it is corrupted, |
|
286 |
the UIPainter may not be able to read the specification." |
|
287 |
||
288 |
" |
|
289 |
UIPainter new openOnClass:JavaSettingsApplication andSelector:#windowSpec |
|
290 |
JavaSettingsApplication new openInterface:#windowSpec |
|
291 |
JavaSettingsApplication open |
|
292 |
" |
|
293 |
||
294 |
<resource: #canvas> |
|
295 |
||
296 |
^ |
|
297 |
#(FullSpec |
|
298 |
name: windowSpec |
|
299 |
window: |
|
300 |
(WindowSpec |
|
| 1558 | 301 |
label: 'Java Settings' |
302 |
name: 'Java Settings' |
|
| 1530 | 303 |
min: (Point 10 10) |
304 |
bounds: (Rectangle 0 0 695 627) |
|
305 |
) |
|
306 |
component: |
|
307 |
(SpecCollection |
|
308 |
collection: ( |
|
309 |
(LabelSpec |
|
310 |
label: ' Java Settings' |
|
311 |
name: 'SubVersiSettingsTitle' |
|
312 |
layout: (LayoutFrame 0 0 0 0 0 1 66 0) |
|
313 |
style: (FontDescription helvetica medium roman 18 #'iso10646-1') |
|
314 |
backgroundColor: (Color 100.0 100.0 100.0) |
|
315 |
translateLabel: true |
|
316 |
adjust: left |
|
317 |
) |
|
318 |
(LabelSpec |
|
319 |
label: 'Icon' |
|
| 1561 | 320 |
name: 'JavaIcon' |
| 1530 | 321 |
layout: (LayoutFrame -75 1 0 0 0 1 66 0) |
322 |
hasCharacterOrientedLabel: false |
|
323 |
backgroundColor: (Color 100.0 100.0 100.0) |
|
324 |
translateLabel: true |
|
325 |
labelChannel: libjavaCupIcon |
|
326 |
) |
|
| 1590 | 327 |
(SubCanvasSpec |
328 |
name: 'InfoPanel' |
|
329 |
layout: (LayoutFrame 0 0 67 0 0 1 107 0) |
|
330 |
level: 0 |
|
331 |
initiallyInvisible: true |
|
332 |
hasHorizontalScrollBar: false |
|
333 |
hasVerticalScrollBar: false |
|
334 |
clientKey: infoPanel |
|
335 |
createNewBuilder: false |
|
336 |
) |
|
| 1530 | 337 |
(VerticalPanelViewSpec |
338 |
name: 'Controls' |
|
339 |
layout: (LayoutFrame 0 0 70 0 0 1 0 1) |
|
340 |
horizontalLayout: fit |
|
341 |
verticalLayout: topFit |
|
342 |
horizontalSpace: 3 |
|
343 |
verticalSpace: 3 |
|
344 |
component: |
|
345 |
(SpecCollection |
|
346 |
collection: ( |
|
| 1558 | 347 |
(FramedBoxSpec |
348 |
label: 'Basic Settings' |
|
349 |
name: 'JavaReleasePanel' |
|
350 |
labelPosition: topLeft |
|
351 |
translateLabel: true |
|
352 |
component: |
|
353 |
(SpecCollection |
|
354 |
collection: ( |
|
355 |
(ComboListSpec |
|
356 |
name: 'ReleaseList' |
|
357 |
layout: (LayoutFrame 100 0 0 0 0 1 25 0) |
|
358 |
model: javaReleaseHolder |
|
359 |
comboList: javaReleaseList |
|
360 |
useIndex: false |
|
361 |
) |
|
362 |
(LabelSpec |
|
363 |
label: 'Release:' |
|
364 |
name: 'ReleaseLabel' |
|
365 |
layout: (LayoutFrame 0 0 0 0 100 0 25 0) |
|
366 |
translateLabel: true |
|
367 |
adjust: left |
|
368 |
) |
|
369 |
(LabelSpec |
|
370 |
label: 'JAVA_HOME' |
|
371 |
name: 'JAVA_HOME_Label' |
|
372 |
layout: (LayoutFrame 0 0 30 0 100 0 55 0) |
|
373 |
translateLabel: true |
|
374 |
adjust: left |
|
375 |
) |
|
376 |
(FilenameInputFieldSpec |
|
377 |
name: 'JAVA_HOME' |
|
378 |
layout: (LayoutFrame 100 0 30 0 -55 1 55 0) |
|
379 |
enableChannel: javaReleaseIsCustomHolder |
|
380 |
model: javaHomeHolder |
|
| 1590 | 381 |
immediateAccept: true |
| 1558 | 382 |
acceptOnPointerLeave: true |
383 |
) |
|
384 |
(ActionButtonSpec |
|
385 |
label: 'Browse' |
|
386 |
name: 'JAVA_HOME_Browse' |
|
387 |
layout: (LayoutFrame -50 1 30 0 0 1 55 0) |
|
388 |
translateLabel: true |
|
389 |
model: doBrowseJavaHome |
|
390 |
enableChannel: javaReleaseIsCustomHolder |
|
391 |
) |
|
392 |
) |
|
393 |
||
394 |
) |
|
395 |
extent: (Point 695 95) |
|
396 |
) |
|
| 1569 | 397 |
(VariableVerticalPanelSpec |
398 |
name: 'VariableVerticalPanel1' |
|
| 1561 | 399 |
component: |
400 |
(SpecCollection |
|
401 |
collection: ( |
|
| 1569 | 402 |
(FramedBoxSpec |
403 |
label: 'Classpath' |
|
404 |
name: 'ClasspathPanel' |
|
405 |
labelPosition: topLeft |
|
406 |
translateLabel: true |
|
407 |
component: |
|
408 |
(SpecCollection |
|
409 |
collection: ( |
|
410 |
(SubCanvasSpec |
|
411 |
name: 'SubCanvas1' |
|
412 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
413 |
level: 0 |
|
414 |
hasHorizontalScrollBar: false |
|
415 |
hasVerticalScrollBar: false |
|
416 |
majorKey: #'JavaSettingsApplication::PathEditor' |
|
417 |
minorKey: windowSpec |
|
418 |
subAspectHolders: |
|
419 |
(Array |
|
420 |
||
421 |
(SubChannelInfoSpec |
|
| 1571 | 422 |
subAspect: pathListEffectiveHolder |
423 |
aspect: javaClassPathEffectiveAspect |
|
424 |
) |
|
425 |
(SubChannelInfoSpec |
|
426 |
subAspect: pathListHolder |
|
| 1569 | 427 |
aspect: javaClassPathHolder |
428 |
) |
|
429 |
) |
|
430 |
createNewApplication: true |
|
431 |
createNewBuilder: true |
|
432 |
) |
|
433 |
) |
|
434 |
||
| 1561 | 435 |
) |
| 1569 | 436 |
) |
437 |
(FramedBoxSpec |
|
438 |
label: 'Sources' |
|
439 |
name: 'SourcePathPanel' |
|
440 |
labelPosition: topLeft |
|
441 |
translateLabel: true |
|
442 |
component: |
|
443 |
(SpecCollection |
|
444 |
collection: ( |
|
445 |
(SubCanvasSpec |
|
446 |
name: 'SubCanvas2' |
|
447 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
448 |
level: 0 |
|
449 |
hasHorizontalScrollBar: false |
|
450 |
hasVerticalScrollBar: false |
|
451 |
majorKey: #'JavaSettingsApplication::PathEditor' |
|
452 |
minorKey: windowSpec |
|
453 |
subAspectHolders: |
|
454 |
(Array |
|
455 |
||
456 |
(SubChannelInfoSpec |
|
| 1571 | 457 |
subAspect: pathListEffectiveHolder |
458 |
aspect: javaSourceDirectoriesEffectiveAspect |
|
459 |
) |
|
460 |
(SubChannelInfoSpec |
|
461 |
subAspect: pathListHolder |
|
462 |
aspect: javaSourceDirectoriesHolder |
|
| 1569 | 463 |
) |
464 |
) |
|
465 |
createNewApplication: true |
|
466 |
createNewBuilder: true |
|
467 |
) |
|
468 |
) |
|
469 |
||
470 |
) |
|
| 1561 | 471 |
) |
472 |
) |
|
473 |
||
474 |
) |
|
| 1558 | 475 |
extent: (Point 695 459) |
| 1569 | 476 |
handles: (Any 0.5 1.0) |
| 1530 | 477 |
) |
478 |
) |
|
479 |
||
480 |
) |
|
481 |
) |
|
482 |
) |
|
483 |
||
484 |
) |
|
485 |
) |
|
486 |
! ! |
|
487 |
||
| 1571 | 488 |
!JavaSettingsApplication methodsFor:'accessing-private'! |
489 |
||
490 |
javaClassPathEffective |
|
491 |
| rel | |
|
492 |
||
493 |
rel := self javaReleaseHolder value. |
|
494 |
^rel isNil ifTrue:[ |
|
495 |
#() |
|
496 |
] ifFalse:[ |
|
497 |
Java effectiveClassPathForRelease: rel |
|
498 |
] |
|
499 |
||
500 |
"Created: / 30-07-2012 / 19:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
501 |
! |
|
502 |
||
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
503 |
javaClassPathLiteralArray |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
504 |
^self javaClassPathHolder value asOrderedCollection literalArrayEncoding |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
505 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
506 |
"Created: / 02-08-2012 / 10:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
507 |
! |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
508 |
|
| 1571 | 509 |
javaSourceDirectoriesEffective |
510 |
| rel | |
|
511 |
||
512 |
rel := self javaReleaseHolder value. |
|
513 |
^rel isNil ifTrue:[ |
|
514 |
#() |
|
515 |
] ifFalse:[ |
|
516 |
Java effectiveSourceDirectoriesForRelease: rel |
|
517 |
] |
|
518 |
||
519 |
"Created: / 30-07-2012 / 19:39:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
520 |
! |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
521 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
522 |
javaSourcePathLiteralArray |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
523 |
^self javaSourceDirectoriesHolder value asOrderedCollection literalArrayEncoding |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
524 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
525 |
"Created: / 02-08-2012 / 10:04:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1571 | 526 |
! ! |
527 |
||
| 1558 | 528 |
!JavaSettingsApplication methodsFor:'actions'! |
529 |
||
530 |
doBrowseJavaHome |
|
531 |
<resource: #uiCallback> |
|
532 |
||
533 |
| java_home | |
|
534 |
||
535 |
java_home := Dialog requestDirectoryName:(resources string:'JAVA_HOME directory'). |
|
536 |
java_home notEmptyOrNil ifTrue:[ |
|
537 |
self javaHomeHolder value: java_home |
|
538 |
] |
|
539 |
||
540 |
"Modified: / 27-07-2012 / 00:20:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
541 |
! ! |
|
542 |
||
543 |
!JavaSettingsApplication methodsFor:'aspects'! |
|
544 |
||
| 1590 | 545 |
infoPanel |
546 |
infoPanel isNil ifTrue:[ |
|
547 |
infoPanel := Tools::InlineMessageDialog new. |
|
548 |
]. |
|
549 |
^ infoPanel |
|
550 |
||
551 |
"Created: / 09-02-2012 / 19:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
552 |
! |
|
553 |
||
| 1571 | 554 |
javaClassPathEffectiveAspect |
555 |
"return/create the 'javaClassPathHolder' value holder (automatically generated)" |
|
556 |
||
557 |
^BlockValue with: [:rel | self javaClassPathEffective] argument: self javaReleaseHolder |
|
558 |
||
559 |
"Created: / 30-07-2012 / 19:38:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
560 |
! |
|
561 |
||
| 1561 | 562 |
javaClassPathHolder |
563 |
"return/create the 'javaClassPathHolder' value holder (automatically generated)" |
|
564 |
||
565 |
javaClassPathHolder isNil ifTrue:[ |
|
566 |
javaClassPathHolder := ValueHolder new. |
|
| 1571 | 567 |
javaClassPathHolder addDependent:self. |
| 1561 | 568 |
]. |
569 |
^ javaClassPathHolder |
|
570 |
! |
|
571 |
||
572 |
javaClassPathHolder:something |
|
573 |
"set the 'javaClassPathHolder' value holder (automatically generated)" |
|
574 |
||
| 1571 | 575 |
|oldValue newValue| |
576 |
||
577 |
javaClassPathHolder notNil ifTrue:[ |
|
578 |
oldValue := javaClassPathHolder value. |
|
579 |
javaClassPathHolder removeDependent:self. |
|
580 |
]. |
|
| 1561 | 581 |
javaClassPathHolder := something. |
| 1571 | 582 |
javaClassPathHolder notNil ifTrue:[ |
583 |
javaClassPathHolder addDependent:self. |
|
584 |
]. |
|
585 |
newValue := javaClassPathHolder value. |
|
586 |
oldValue ~~ newValue ifTrue:[ |
|
587 |
self update:#value with:newValue from:javaClassPathHolder. |
|
588 |
]. |
|
| 1561 | 589 |
! |
590 |
||
| 1558 | 591 |
javaHomeHolder |
592 |
<resource: #uiAspect> |
|
593 |
||
594 |
javaHomeHolder isNil ifTrue:[ |
|
595 |
javaHomeHolder := AspectAdaptor forAspect: #javaHome. |
|
596 |
javaHomeHolder subjectChannel: self javaReleaseHolder. |
|
597 |
javaHomeHolder onChangeSend:#updateModifiedChannel to:self |
|
598 |
]. |
|
599 |
^ javaHomeHolder. |
|
600 |
||
601 |
"Created: / 27-07-2012 / 00:06:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
602 |
! |
|
603 |
||
604 |
javaReleaseHolder |
|
605 |
<resource: #uiAspect> |
|
606 |
||
607 |
javaReleaseHolder isNil ifTrue:[ |
|
608 |
javaReleaseHolder := Java release asValue. |
|
| 1561 | 609 |
javaReleaseHolder onChangeSend:#updateModifiedChannel to:self. |
610 |
javaReleaseHolder onChangeSend:#updatePaths to:self. |
|
| 1558 | 611 |
]. |
612 |
^ javaReleaseHolder. |
|
613 |
||
| 1561 | 614 |
"Modified: / 27-07-2012 / 18:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1558 | 615 |
! |
616 |
||
617 |
javaReleaseIsCustomHolder |
|
618 |
<resource: #uiAspect> |
|
619 |
||
620 |
javaReleaseIsCustomHolder isNil ifTrue:[ |
|
621 |
javaReleaseIsCustomHolder := AspectAdaptor forAspect: #isCustom. |
|
622 |
javaReleaseIsCustomHolder subjectChannel: self javaReleaseHolder |
|
623 |
]. |
|
624 |
^ javaReleaseIsCustomHolder. |
|
625 |
||
626 |
"Created: / 27-07-2012 / 00:07:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
627 |
! |
|
628 |
||
629 |
javaReleaseList |
|
630 |
<resource: #uiAspect> |
|
631 |
||
632 |
||
633 |
javaReleaseList isNil ifTrue:[ |
|
634 |
javaReleaseList := JavaRelease all asList |
|
635 |
]. |
|
636 |
^ javaReleaseList. |
|
637 |
||
638 |
"Modified: / 27-07-2012 / 00:13:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
| 1569 | 639 |
! |
640 |
||
| 1571 | 641 |
javaSourceDirectoriesEffectiveAspect |
| 1569 | 642 |
"return/create the 'javaClassPathHolder' value holder (automatically generated)" |
643 |
||
| 1571 | 644 |
^BlockValue with: [:rel | self javaSourceDirectoriesEffective] argument: self javaReleaseHolder |
645 |
||
646 |
"Created: / 30-07-2012 / 19:39:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
647 |
! |
|
648 |
||
649 |
javaSourceDirectoriesHolder |
|
650 |
"return/create the 'javaSourceDirectoriesHolder' value holder (automatically generated)" |
|
651 |
||
652 |
javaSourceDirectoriesHolder isNil ifTrue:[ |
|
653 |
javaSourceDirectoriesHolder := ValueHolder new. |
|
654 |
javaSourceDirectoriesHolder addDependent:self. |
|
| 1569 | 655 |
]. |
| 1571 | 656 |
^ javaSourceDirectoriesHolder |
| 1569 | 657 |
! |
658 |
||
| 1571 | 659 |
javaSourceDirectoriesHolder:something |
660 |
"set the 'javaSourceDirectoriesHolder' value holder (automatically generated)" |
|
661 |
||
662 |
|oldValue newValue| |
|
| 1569 | 663 |
|
| 1571 | 664 |
javaSourceDirectoriesHolder notNil ifTrue:[ |
665 |
oldValue := javaSourceDirectoriesHolder value. |
|
666 |
javaSourceDirectoriesHolder removeDependent:self. |
|
667 |
]. |
|
668 |
javaSourceDirectoriesHolder := something. |
|
669 |
javaSourceDirectoriesHolder notNil ifTrue:[ |
|
670 |
javaSourceDirectoriesHolder addDependent:self. |
|
671 |
]. |
|
672 |
newValue := javaSourceDirectoriesHolder value. |
|
673 |
oldValue ~~ newValue ifTrue:[ |
|
674 |
self update:#value with:newValue from:javaSourceDirectoriesHolder. |
|
675 |
]. |
|
| 1558 | 676 |
! ! |
677 |
||
| 1561 | 678 |
!JavaSettingsApplication methodsFor:'change & update'! |
679 |
||
680 |
updatePaths |
|
681 |
||
| 1571 | 682 |
self javaClassPathHolder value: (currentUserPrefs javaClassPathDecoded) asList. |
683 |
self javaSourceDirectoriesHolder value: (currentUserPrefs javaSourcePathDecoded) asList. |
|
| 1561 | 684 |
|
685 |
"Created: / 27-07-2012 / 18:34:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
686 |
! ! |
|
687 |
||
| 1558 | 688 |
!JavaSettingsApplication methodsFor:'protocol'! |
689 |
||
690 |
basicReadSettings |
|
691 |
| rel | |
|
692 |
||
693 |
rel := currentUserPrefs javaRelease. |
|
694 |
(rel isNil and:[Java notNil]) ifTrue:[ |
|
695 |
rel := Java release |
|
696 |
]. |
|
697 |
||
698 |
self javaReleaseHolder value: rel. |
|
| 1561 | 699 |
self updatePaths. |
| 1558 | 700 |
|
| 1561 | 701 |
"Modified: / 27-07-2012 / 18:47:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1558 | 702 |
! |
703 |
||
704 |
basicSaveSettings |
|
705 |
self javaReleaseHolder value notNil ifTrue:[ |
|
706 |
currentUserPrefs javaReleaseSelector: self javaReleaseHolder value selector. |
|
707 |
] ifFalse:[ |
|
708 |
currentUserPrefs javaReleaseSelector: nil. |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
709 |
]. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
710 |
currentUserPrefs javaClassPath: self javaClassPathLiteralArray. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
711 |
currentUserPrefs javaSourcePath: self javaSourcePathLiteralArray. |
| 1558 | 712 |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
713 |
"Modified: / 02-08-2012 / 10:05:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1558 | 714 |
! |
715 |
||
716 |
helpFilename |
|
717 |
"subclasses must return the relative name of a helpFile |
|
718 |
in the doc/online/<language>/help directory. |
|
719 |
Or nil, if no help is available." |
|
720 |
||
721 |
^ '../programming/java-settings.html' |
|
722 |
||
723 |
"Modified: / 26-07-2012 / 23:05:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
724 |
! ! |
|
725 |
||
726 |
!JavaSettingsApplication methodsFor:'queries'! |
|
727 |
||
728 |
hasUnsavedChanges |
|
729 |
"superclass AbstractSettingsApplication says that I am responsible to implement this method" |
|
730 |
||
731 |
| prefRel setRel | |
|
732 |
||
| 1561 | 733 |
prefRel := currentUserPrefs javaRelease. |
734 |
setRel := self javaReleaseHolder value. |
|
| 1558 | 735 |
|
| 1590 | 736 |
(setRel validateJavaHome: self javaHomeHolder value) ifFalse:[ |
737 |
self infoPanel |
|
738 |
reset; |
|
739 |
beWarning; |
|
740 |
message: (resources string: 'JAVA_HOME is not valid'); |
|
741 |
show. |
|
742 |
^ false "/ Hack, this effectively disables the "Apply" button... |
|
743 |
] ifTrue:[ |
|
744 |
self infoPanel hide. |
|
745 |
]. |
|
746 |
||
| 1558 | 747 |
prefRel ~~ setRel ifTrue:[ ^ true ]. |
748 |
||
| 1571 | 749 |
(self |
750 |
hasUnsavedChangesInUserEntriesInPath: self javaClassPathHolder value |
|
751 |
comparedTo: currentUserPrefs javaClassPathDecoded) |
|
752 |
ifTrue:[ ^true ]. |
|
753 |
||
754 |
(self |
|
755 |
hasUnsavedChangesInUserEntriesInPath: self javaSourceDirectoriesHolder value |
|
756 |
comparedTo: currentUserPrefs javaSourcePathDecoded) |
|
757 |
ifTrue:[ ^true ]. |
|
758 |
||
759 |
||
760 |
||
| 1558 | 761 |
|
762 |
^false |
|
763 |
||
| 1590 | 764 |
"Modified: / 10-08-2012 / 16:28:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1571 | 765 |
! |
766 |
||
767 |
hasUnsavedChangesInUserEntriesInPath: currentPath comparedTo: originalPath |
|
768 |
||
769 |
currentPath size ~~ originalPath size ifTrue:[ ^ true ]. |
|
770 |
||
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
771 |
currentPath with: originalPath do:[:current :original| |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
772 |
current ~= original ifTrue:[ ^ true ] |
| 1571 | 773 |
]. |
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
774 |
^false |
| 1571 | 775 |
|
776 |
"Created: / 30-07-2012 / 18:40:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
| 1561 | 777 |
! ! |
778 |
||
| 1571 | 779 |
!JavaSettingsApplication::PathEditor class methodsFor:'interface specs'! |
780 |
||
781 |
windowSpec |
|
782 |
"This resource specification was automatically generated |
|
783 |
by the UIPainter of ST/X." |
|
784 |
||
785 |
"Do not manually edit this!! If it is corrupted, |
|
786 |
the UIPainter may not be able to read the specification." |
|
787 |
||
788 |
" |
|
789 |
UIPainter new openOnClass:JavaSettingsApplication::PathEditor andSelector:#windowSpec |
|
790 |
JavaSettingsApplication::PathEditor new openInterface:#windowSpec |
|
791 |
JavaSettingsApplication::PathEditor open |
|
792 |
" |
|
793 |
||
794 |
<resource: #canvas> |
|
795 |
||
796 |
^ |
|
797 |
#(FullSpec |
|
798 |
name: windowSpec |
|
799 |
window: |
|
800 |
(WindowSpec |
|
801 |
label: 'NewApplication' |
|
802 |
name: 'NewApplication' |
|
803 |
bounds: (Rectangle 0 0 300 300) |
|
804 |
) |
|
805 |
component: |
|
806 |
(SpecCollection |
|
807 |
collection: ( |
|
808 |
(HierarchicalListViewSpec |
|
809 |
name: 'PathList' |
|
810 |
layout: (LayoutFrame 0 0 0 0 -82 1 0 1) |
|
811 |
model: selectionHolder |
|
812 |
hasHorizontalScrollBar: true |
|
813 |
hasVerticalScrollBar: true |
|
814 |
listModel: treeList |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
815 |
useIndex: false |
| 1571 | 816 |
highlightMode: line |
817 |
useDefaultIcons: false |
|
818 |
postBuildCallback: postBuildTreeView: |
|
819 |
) |
|
820 |
(VerticalPanelViewSpec |
|
821 |
name: 'Buttons1' |
|
822 |
layout: (LayoutFrame -80 1 0 0 0 1 -22 1) |
|
823 |
horizontalLayout: fit |
|
824 |
verticalLayout: top |
|
825 |
horizontalSpace: 5 |
|
826 |
verticalSpace: 3 |
|
827 |
component: |
|
828 |
(SpecCollection |
|
829 |
collection: ( |
|
830 |
(ActionButtonSpec |
|
831 |
label: 'Add...' |
|
832 |
name: 'ButtonAdd' |
|
833 |
activeHelpKey: addPathElement |
|
834 |
translateLabel: true |
|
835 |
model: actionAdd |
|
836 |
extent: (Point 80 22) |
|
837 |
) |
|
838 |
(ActionButtonSpec |
|
839 |
label: 'Edit...' |
|
840 |
name: 'ButtonEdit' |
|
841 |
activeHelpKey: editPathElement |
|
842 |
translateLabel: true |
|
843 |
model: actionEdit |
|
844 |
enableChannel: canEditHolder |
|
845 |
extent: (Point 80 22) |
|
846 |
) |
|
847 |
(ActionButtonSpec |
|
848 |
label: 'Move Up' |
|
849 |
name: 'ButtonModeUp' |
|
850 |
activeHelpKey: modePathElementUp |
|
851 |
translateLabel: true |
|
852 |
model: actionMoveUp |
|
853 |
enableChannel: canMoveUpHolder |
|
854 |
extent: (Point 80 22) |
|
855 |
) |
|
856 |
(ActionButtonSpec |
|
857 |
label: 'Move Down' |
|
858 |
name: 'ButtonModeDown' |
|
859 |
activeHelpKey: modePathElementDown |
|
860 |
translateLabel: true |
|
861 |
model: actionMoveDown |
|
862 |
enableChannel: canMoveDownHolder |
|
863 |
extent: (Point 80 22) |
|
864 |
) |
|
865 |
(LabelSpec |
|
866 |
name: 'SpacingLabel' |
|
867 |
translateLabel: true |
|
868 |
extent: (Point 80 22) |
|
869 |
) |
|
870 |
(ActionButtonSpec |
|
871 |
label: 'Remove' |
|
872 |
name: 'ButtonRemove' |
|
873 |
activeHelpKey: removePathElement |
|
874 |
translateLabel: true |
|
875 |
model: actionRemove |
|
876 |
enableChannel: canEditHolder |
|
877 |
extent: (Point 80 22) |
|
878 |
) |
|
879 |
) |
|
880 |
||
881 |
) |
|
882 |
) |
|
883 |
) |
|
884 |
||
885 |
) |
|
886 |
) |
|
887 |
! ! |
|
| 1561 | 888 |
|
889 |
!JavaSettingsApplication::PathEditor class methodsFor:'plugIn spec'! |
|
890 |
||
891 |
aspectSelectors |
|
892 |
"This resource specification was automatically generated |
|
893 |
by the UIPainter of ST/X." |
|
894 |
||
895 |
"Do not manually edit this. If it is corrupted, |
|
896 |
the UIPainter may not be able to read the specification." |
|
897 |
||
898 |
"Return a description of exported aspects; |
|
899 |
these can be connected to aspects of an embedding application |
|
900 |
(if this app is embedded in a subCanvas)." |
|
901 |
||
902 |
^ #( |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
903 |
#pathListEffectiveHolder |
| 1571 | 904 |
#pathListHolder |
| 1561 | 905 |
#selectionHolder |
906 |
). |
|
907 |
||
908 |
! ! |
|
909 |
||
910 |
!JavaSettingsApplication::PathEditor methodsFor:'actions'! |
|
911 |
||
912 |
actionAdd |
|
913 |
<resource: #uiCallback> |
|
914 |
||
| 1571 | 915 |
| path | |
916 |
path := Dialog requestFileName: (resources string: 'Select directory or .jar file'). |
|
917 |
path isEmptyOrNil ifTrue:[ ^ self ]. |
|
918 |
self path add: (JavaPathElement newFromUser: path). |
|
| 1561 | 919 |
|
| 1571 | 920 |
"Modified: / 30-07-2012 / 18:37:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1561 | 921 |
! |
922 |
||
923 |
actionEdit |
|
924 |
<resource: #uiCallback> |
|
925 |
||
926 |
"automatically generated by UIPainter..." |
|
927 |
||
928 |
"*** the code below performs no action" |
|
929 |
"*** (except for some feedback on the Transcript)" |
|
930 |
"*** Please change as required and accept in the browser." |
|
931 |
"*** (and replace this comment by something more useful ;-)" |
|
932 |
||
933 |
"action to be defined here..." |
|
934 |
||
935 |
Transcript showCR:self class name, ': action for actionEdit ...'. |
|
936 |
! |
|
937 |
||
938 |
actionMoveDown |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
939 |
| sel | |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
940 |
sel := self selectionHolder value. |
| 1590 | 941 |
sel origin ~~ JavaPathElement originUser ifTrue:[ ^ self ]. |
942 |
self treeList moveDown: sel. |
|
943 |
self selectionHolder value: sel. |
|
| 1561 | 944 |
|
| 1590 | 945 |
"Modified: / 10-08-2012 / 17:11:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1561 | 946 |
! |
947 |
||
948 |
actionMoveUp |
|
| 1590 | 949 |
| sel | |
950 |
sel := self selectionHolder value. |
|
951 |
sel origin ~~ JavaPathElement originUser ifTrue:[ ^ self ]. |
|
952 |
self treeList moveUp: sel. |
|
953 |
self selectionHolder value: sel. |
|
| 1561 | 954 |
|
| 1590 | 955 |
"Modified: / 10-08-2012 / 17:11:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1561 | 956 |
! |
957 |
||
958 |
actionRemove |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
959 |
| sel | |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
960 |
sel := self selectionHolder value. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
961 |
self selectionHolder value: nil. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
962 |
sel isNil ifTrue:[ ^ self ]. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
963 |
self path remove: sel element. |
| 1561 | 964 |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
965 |
"Modified: / 02-08-2012 / 09:58:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1561 | 966 |
! ! |
967 |
||
968 |
!JavaSettingsApplication::PathEditor methodsFor:'aspects'! |
|
969 |
||
| 1571 | 970 |
path |
971 |
^self pathList value |
|
| 1561 | 972 |
|
| 1571 | 973 |
"Created: / 30-07-2012 / 18:35:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1561 | 974 |
! |
975 |
||
| 1571 | 976 |
pathList |
977 |
"return/create the 'pathList' value holder (automatically generated)" |
|
978 |
||
979 |
pathList isNil ifTrue:[ |
|
980 |
pathList := ValueHolder new. |
|
981 |
pathList addDependent:self. |
|
982 |
]. |
|
983 |
^ pathList |
|
984 |
! |
|
985 |
||
986 |
pathList:something |
|
987 |
"set the 'pathList' value holder (automatically generated)" |
|
| 1561 | 988 |
|
989 |
|oldValue newValue| |
|
990 |
||
| 1571 | 991 |
self assert: (something isNil or:[something isList]). |
992 |
||
993 |
pathList notNil ifTrue:[ |
|
994 |
oldValue := pathList value. |
|
995 |
pathList removeDependent:self. |
|
996 |
]. |
|
997 |
pathList := something. |
|
998 |
pathList notNil ifTrue:[ |
|
999 |
pathList addDependent:self. |
|
1000 |
]. |
|
1001 |
newValue := pathList value. |
|
1002 |
oldValue ~~ newValue ifTrue:[ |
|
1003 |
self update:#value with:newValue from:pathList. |
|
1004 |
]. |
|
1005 |
||
1006 |
"Modified: / 30-07-2012 / 18:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1007 |
! |
|
1008 |
||
1009 |
pathListEffectiveHolder |
|
1010 |
"return/create the 'pathListEffectiveHolder' value holder (automatically generated)" |
|
1011 |
||
1012 |
pathListEffectiveHolder isNil ifTrue:[ |
|
1013 |
pathListEffectiveHolder := ValueHolder new. |
|
1014 |
pathListEffectiveHolder addDependent:self. |
|
1015 |
]. |
|
1016 |
^ pathListEffectiveHolder |
|
1017 |
! |
|
1018 |
||
1019 |
pathListEffectiveHolder:something |
|
1020 |
"set the 'pathListEffectiveHolder' value holder (automatically generated)" |
|
1021 |
||
1022 |
|oldValue newValue| |
|
1023 |
||
1024 |
pathListEffectiveHolder notNil ifTrue:[ |
|
1025 |
oldValue := pathListEffectiveHolder value. |
|
1026 |
pathListEffectiveHolder removeDependent:self. |
|
| 1561 | 1027 |
]. |
| 1571 | 1028 |
pathListEffectiveHolder := something. |
1029 |
pathListEffectiveHolder notNil ifTrue:[ |
|
1030 |
pathListEffectiveHolder addDependent:self. |
|
1031 |
]. |
|
1032 |
newValue := pathListEffectiveHolder value. |
|
1033 |
oldValue ~~ newValue ifTrue:[ |
|
1034 |
self update:#value with:newValue from:pathListEffectiveHolder. |
|
1035 |
]. |
|
1036 |
! |
|
1037 |
||
1038 |
pathListHolder |
|
1039 |
"return/create the 'pathListHolder' value holder (automatically generated)" |
|
1040 |
||
1041 |
pathListHolder isNil ifTrue:[ |
|
1042 |
pathListHolder := ValueHolder new. |
|
1043 |
pathListHolder addDependent:self. |
|
| 1561 | 1044 |
]. |
| 1571 | 1045 |
^ pathListHolder |
1046 |
! |
|
1047 |
||
1048 |
pathListHolder:something |
|
1049 |
"set the 'pathListHolder' value holder (automatically generated)" |
|
1050 |
||
1051 |
|oldValue newValue| |
|
1052 |
||
1053 |
pathListHolder notNil ifTrue:[ |
|
1054 |
oldValue := pathListHolder value. |
|
1055 |
pathListHolder removeDependent:self. |
|
1056 |
]. |
|
1057 |
pathListHolder := something. |
|
1058 |
pathListHolder notNil ifTrue:[ |
|
1059 |
pathListHolder addDependent:self. |
|
1060 |
]. |
|
1061 |
newValue := pathListHolder value. |
|
| 1561 | 1062 |
oldValue ~~ newValue ifTrue:[ |
| 1571 | 1063 |
self update:#value with:newValue from:pathListHolder. |
| 1561 | 1064 |
]. |
1065 |
! |
|
1066 |
||
1067 |
selectionHolder |
|
1068 |
"return/create the 'selectionHolder' value holder (automatically generated)" |
|
1069 |
||
1070 |
selectionHolder isNil ifTrue:[ |
|
1071 |
selectionHolder := ValueHolder new. |
|
1072 |
]. |
|
1073 |
^ selectionHolder |
|
1074 |
! |
|
1075 |
||
1076 |
selectionHolder:something |
|
1077 |
"set the 'selectionHolder' value holder (automatically generated)" |
|
1078 |
||
1079 |
selectionHolder := something. |
|
1080 |
! |
|
1081 |
||
1082 |
treeList |
|
1083 |
||
1084 |
treeList isNil ifTrue:[ |
|
| 1571 | 1085 |
treeList := PathElementList new. |
| 1561 | 1086 |
treeList application: self. |
1087 |
treeList showRoot: false. |
|
| 1571 | 1088 |
treeList buildTree |
| 1561 | 1089 |
]. |
1090 |
^treeList |
|
1091 |
||
1092 |
"Created: / 27-07-2012 / 18:36:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1093 |
! ! |
|
1094 |
||
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1095 |
!JavaSettingsApplication::PathEditor methodsFor:'aspects-queries'! |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1096 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1097 |
canEditHolder |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1098 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1099 |
^BlockValue |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1100 |
with:[:sel| |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1101 |
sel notNil |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1102 |
and:[sel isPathElementItem |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1103 |
and:[sel origin == JavaPathElement originUser]]. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1104 |
] argument: self selectionHolder |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1105 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1106 |
"Created: / 02-08-2012 / 16:08:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1107 |
! |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1108 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1109 |
canMoveDownHolder |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1110 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1111 |
^BlockValue |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1112 |
with:[:sel| |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1113 |
sel notNil |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1114 |
and:[sel isPathElementItem |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1115 |
and:[sel origin == JavaPathElement originUser |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1116 |
and:[sel parent children last ~~ sel]]] |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1117 |
] argument: self selectionHolder |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1118 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1119 |
"Created: / 02-08-2012 / 16:12:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1120 |
! |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1121 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1122 |
canMoveUpHolder |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1123 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1124 |
^BlockValue |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1125 |
with:[:sel| |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1126 |
sel notNil |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1127 |
and:[sel isPathElementItem |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1128 |
and:[sel origin == JavaPathElement originUser |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1129 |
and:[sel parent children first ~~ sel]]] |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1130 |
] argument: self selectionHolder |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1131 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1132 |
"Created: / 02-08-2012 / 16:13:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1133 |
! ! |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1134 |
|
| 1561 | 1135 |
!JavaSettingsApplication::PathEditor methodsFor:'change & update'! |
1136 |
||
1137 |
update:something with:aParameter from:changedObject |
|
1138 |
"Invoked when an object that I depend upon sends a change notification." |
|
1139 |
||
1140 |
"stub code automatically generated - please change as required" |
|
1141 |
||
| 1571 | 1142 |
changedObject == pathListHolder ifTrue:[ |
1143 |
self pathList: pathListHolder value. |
|
1144 |
self treeList buildTree. |
|
1145 |
^self. |
|
1146 |
]. |
|
1147 |
||
1148 |
changedObject == pathList ifTrue:[ |
|
1149 |
self updateModifiedChannel. |
|
1150 |
something == #insert: ifTrue:[ |
|
1151 |
self treeList updateAfterInsertAt: aParameter. |
|
1152 |
^self. |
|
1153 |
]. |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1154 |
something == #removeFrom: ifTrue:[ |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1155 |
self treeList updateAfterRemoveFrom: aParameter first to: aParameter second. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1156 |
^self. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1157 |
]. |
| 1571 | 1158 |
something == #value ifTrue:[ |
1159 |
self updateTree. |
|
1160 |
^self. |
|
1161 |
]. |
|
| 1590 | 1162 |
|
1163 |
something == #at: ifTrue:[ |
|
1164 |
^self. |
|
1165 |
]. |
|
1166 |
||
| 1571 | 1167 |
self breakPoint: #jv. |
1168 |
self updateTree. |
|
| 1561 | 1169 |
^ self. |
1170 |
]. |
|
1171 |
super update:something with:aParameter from:changedObject |
|
1172 |
||
| 1590 | 1173 |
"Modified: / 10-08-2012 / 17:11:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1571 | 1174 |
! |
1175 |
||
1176 |
updateModifiedChannel |
|
1177 |
masterApplication notNil ifTrue:[ |
|
1178 |
masterApplication perform: #updateModifiedChannel ifNotUnderstood:[]. |
|
1179 |
]. |
|
1180 |
||
1181 |
"Created: / 30-07-2012 / 20:11:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
| 1561 | 1182 |
! |
1183 |
||
1184 |
updateTree |
|
| 1571 | 1185 |
self treeList buildTree |
| 1561 | 1186 |
|
1187 |
"Created: / 27-07-2012 / 18:16:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1188 |
! ! |
|
1189 |
||
| 1571 | 1190 |
!JavaSettingsApplication::PathEditor methodsFor:'event processing'! |
1191 |
||
1192 |
buttonPress:button x:x y:y view:aView |
|
1193 |
||
1194 |
| itemIndex item | |
|
1195 |
||
1196 |
button ~= 1 ifTrue:[^aView buttonPress:button x:x y:y]. |
|
1197 |
||
1198 |
itemIndex := aView yVisibleToLineNr:y. |
|
1199 |
itemIndex isNil ifTrue:[^self]. |
|
1200 |
itemIndex == 0 ifTrue:[^self]. |
|
1201 |
itemIndex > aView list size ifTrue:[^self]. |
|
1202 |
item := aView list at: itemIndex. |
|
1203 |
item isPathElementCategoryItem ifTrue:[ |
|
1204 |
^aView buttonPress:button x:x y:y |
|
1205 |
]. |
|
1206 |
((aView left + x) between: ((item x ? 0) - 16) and: (item x ? 0)) ifFalse:[ |
|
1207 |
^aView buttonPress:button x:x y:y |
|
1208 |
]. |
|
1209 |
||
| 1590 | 1210 |
item origin ~~ JavaPathElement originRelease ifTrue:[ |
1211 |
item enabled: item enabled not. |
|
1212 |
self updateModifiedChannel. |
|
1213 |
aView invalidate |
|
1214 |
]. |
|
| 1571 | 1215 |
|
1216 |
"Created: / 08-12-2009 / 14:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1217 |
"Modified: / 18-11-2011 / 14:55:41 / cg" |
|
| 1590 | 1218 |
"Modified: / 10-08-2012 / 16:43:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1571 | 1219 |
! |
1220 |
||
1221 |
handlesButtonPress:button inView:aView |
|
1222 |
||
1223 |
^treeView scrolledView == aView |
|
1224 |
||
1225 |
"Created: / 08-12-2009 / 14:08:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1226 |
! ! |
|
| 1569 | 1227 |
|
1228 |
!JavaSettingsApplication::PathEditor methodsFor:'hooks'! |
|
1229 |
||
1230 |
postBuildTreeView: aView |
|
1231 |
||
1232 |
treeView := aView. |
|
1233 |
treeView scrolledView delegate: self. |
|
1234 |
||
1235 |
"Created: / 29-11-2011 / 14:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1236 |
! ! |
|
1237 |
||
| 1571 | 1238 |
!JavaSettingsApplication::PathEditor::PathElementList methodsFor:'accessing'! |
1239 |
||
1240 |
allElements |
|
1241 |
^self application pathListEffectiveHolder value |
|
1242 |
||
1243 |
"Created: / 30-07-2012 / 19:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1244 |
! |
|
1245 |
||
1246 |
userElements |
|
1247 |
^self application pathList |
|
1248 |
||
1249 |
"Created: / 30-07-2012 / 19:42:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1250 |
! ! |
|
1251 |
||
| 1590 | 1252 |
!JavaSettingsApplication::PathEditor::PathElementList methodsFor:'actions'! |
1253 |
||
1254 |
moveDown: item |
|
1255 |
| parent index tmp | |
|
1256 |
parent := item parent. |
|
1257 |
index := parent children indexOf: item. |
|
1258 |
index >= parent children size ifTrue: [ ^ self ]. |
|
1259 |
||
1260 |
tmp := parent children at: index + 1. |
|
1261 |
parent children at: index + 1 put: (parent children at: index). |
|
1262 |
parent children at: index put: tmp. |
|
1263 |
||
1264 |
tmp := self userElements at: index + 1. |
|
1265 |
self userElements at: index + 1 put: (self userElements at: index). |
|
1266 |
self userElements at: index put: tmp. |
|
1267 |
||
1268 |
parent childrenOrderChanged. |
|
1269 |
self application selectionHolder changed: #value |
|
1270 |
||
1271 |
"Created: / 10-08-2012 / 17:15:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1272 |
! |
|
1273 |
||
1274 |
moveUp: item |
|
1275 |
| parent index tmp | |
|
1276 |
parent := item parent. |
|
1277 |
index := parent children indexOf: item. |
|
1278 |
index < 1 ifTrue: [ ^ self ]. |
|
1279 |
||
1280 |
tmp := parent children at: index - 1. |
|
1281 |
parent children at: index - 1 put: (parent children at: index). |
|
1282 |
parent children at: index put: tmp. |
|
1283 |
||
1284 |
tmp := self userElements at: index - 1. |
|
1285 |
self userElements at: index - 1 put: (self userElements at: index). |
|
1286 |
self userElements at: index put: tmp. |
|
1287 |
||
1288 |
parent childrenOrderChanged. |
|
1289 |
self application selectionHolder changed: #value |
|
1290 |
||
1291 |
"Created: / 10-08-2012 / 17:05:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1292 |
! ! |
|
1293 |
||
| 1571 | 1294 |
!JavaSettingsApplication::PathEditor::PathElementList methodsFor:'building'! |
1295 |
||
1296 |
buildTree |
|
1297 |
| rt | |
|
1298 |
||
1299 |
rt := Category new |
|
1300 |
addIfNotNil: (self buildCategory: JavaPathElement originRelease); |
|
1301 |
addIfNotNil: (self buildCategory: JavaPathElement originPackage); |
|
1302 |
addIfNotNil: (self buildCategory: JavaPathElement originEnvironment); |
|
1303 |
addIfNotNil: (userCategory := self buildCategory: JavaPathElement originUser); |
|
1304 |
yourself. |
|
1305 |
userCategory expand. |
|
1306 |
self root: rt. |
|
1307 |
||
1308 |
"Created: / 30-07-2012 / 19:00:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1309 |
! ! |
|
1310 |
||
1311 |
!JavaSettingsApplication::PathEditor::PathElementList methodsFor:'building-private'! |
|
| 1561 | 1312 |
|
1313 |
buildCategory: origin |
|
1314 |
| cat elements | |
|
1315 |
||
| 1571 | 1316 |
elements := self elementsForOrigin: origin. |
| 1561 | 1317 |
(elements isEmptyOrNil and:[origin ~~ JavaPathElement originUser]) ifTrue:[ ^ nil ]. |
| 1571 | 1318 |
cat := Category new origin: origin. |
1319 |
cat children: (elements collect:[:e| (self buildElement: e) parent: cat]). |
|
| 1561 | 1320 |
^cat |
1321 |
||
1322 |
"Created: / 27-07-2012 / 18:26:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1323 |
! |
|
1324 |
||
| 1571 | 1325 |
buildElement: element |
1326 |
^Item new element: element. |
|
| 1561 | 1327 |
|
| 1571 | 1328 |
"Created: / 27-07-2012 / 18:46:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1561 | 1329 |
! |
1330 |
||
| 1571 | 1331 |
elementsForOrigin: origin |
1332 |
^origin == JavaPathElement originUser ifTrue:[ |
|
1333 |
self userElements |
|
1334 |
] ifFalse:[ |
|
1335 |
self allElements select:[:e|e origin = origin] |
|
1336 |
]. |
|
| 1561 | 1337 |
|
| 1571 | 1338 |
"Created: / 30-07-2012 / 19:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1561 | 1339 |
! ! |
1340 |
||
| 1571 | 1341 |
!JavaSettingsApplication::PathEditor::PathElementList methodsFor:'change & update'! |
1342 |
||
1343 |
updateAfterInsertAt: index |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1344 |
| el item | |
| 1571 | 1345 |
|
1346 |
el := self userElements at: index. |
|
1347 |
self assert: el origin = JavaPathElement originUser. |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1348 |
userCategory add: (item := self buildElement: el) beforeIndex: index. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1349 |
item parent expand. |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1350 |
self application selectionHolder value: item. |
| 1571 | 1351 |
|
1352 |
"Created: / 30-07-2012 / 19:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
|
1586
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1353 |
! |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1354 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1355 |
updateAfterRemoveFrom: start to: stop |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1356 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1357 |
userCategory removeFromIndex:start toIndex: stop |
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1358 |
|
|
45694b771d99
- JavaSettingsApplication improved (can add/remove paths)
vranyj1
parents:
1571
diff
changeset
|
1359 |
"Created: / 02-08-2012 / 09:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 1571 | 1360 |
! ! |
1361 |
||
1362 |
!JavaSettingsApplication::PathEditor::PathElementList::Category methodsFor:'accessing'! |
|
1363 |
||
1364 |
element |
|
1365 |
^nil |
|
1366 |
||
1367 |
"Created: / 30-07-2012 / 19:15:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1368 |
! |
|
| 1561 | 1369 |
|
1370 |
label |
|
1371 |
label isNil ifTrue:[ |
|
1372 |
label := self originAsHumanReadableString asText allBold. |
|
1373 |
origin ~~ JavaPathElement originUser ifTrue:[ |
|
1374 |
label colorizeAllWith: Color gray |
|
1375 |
]. |
|
1376 |
]. |
|
1377 |
^label |
|
1378 |
||
1379 |
"Created: / 27-07-2012 / 18:21:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1380 |
! |
|
1381 |
||
1382 |
origin |
|
1383 |
^ origin |
|
1384 |
! |
|
1385 |
||
1386 |
origin:originId |
|
1387 |
origin := originId. |
|
1388 |
! |
|
1389 |
||
1390 |
originAsHumanReadableString |
|
1391 |
origin isNil ifTrue:[^self application resources string: 'Path']. |
|
1392 |
origin == JavaPathElement originRelease ifTrue:[^self application resources string: 'Java Runtime']. |
|
1393 |
origin == JavaPathElement originEnvironment ifTrue:[^self application resources string: 'System Environment']. |
|
1394 |
origin == JavaPathElement originPackage ifTrue:[^self application resources string: 'Package Defined']. |
|
1395 |
origin == JavaPathElement originUser ifTrue:[^self application resources string: 'User Defined']. |
|
1396 |
self error:'Invalid origin' |
|
1397 |
||
1398 |
"Created: / 27-07-2012 / 18:39:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1399 |
! ! |
|
1400 |
||
| 1571 | 1401 |
!JavaSettingsApplication::PathEditor::PathElementList::Category methodsFor:'adding & removing'! |
| 1561 | 1402 |
|
1403 |
addIfNotNil: childOrNil |
|
1404 |
childOrNil notNil ifTrue:[self add: childOrNil] |
|
1405 |
||
1406 |
"Created: / 27-07-2012 / 18:51:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1407 |
! ! |
|
1408 |
||
| 1571 | 1409 |
!JavaSettingsApplication::PathEditor::PathElementList::Category methodsFor:'testing'! |
| 1569 | 1410 |
|
| 1571 | 1411 |
isPathElementCategoryItem |
1412 |
^true |
|
1413 |
||
1414 |
"Created: / 30-07-2012 / 14:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1415 |
! |
|
1416 |
||
1417 |
isPathElementItem |
|
1418 |
^false |
|
1419 |
||
1420 |
"Created: / 30-07-2012 / 14:28:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1421 |
! ! |
|
1422 |
||
1423 |
!JavaSettingsApplication::PathEditor::PathElementList::Item methodsFor:'accessing'! |
|
| 1561 | 1424 |
|
1425 |
element |
|
1426 |
^ element |
|
1427 |
! |
|
1428 |
||
1429 |
element:something |
|
1430 |
element := something. |
|
1431 |
! |
|
1432 |
||
| 1569 | 1433 |
enabled |
1434 |
^element enabled |
|
1435 |
||
1436 |
"Created: / 30-07-2012 / 14:26:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1437 |
! |
|
1438 |
||
1439 |
enabled: aBoolean |
|
1440 |
element enabled: aBoolean |
|
1441 |
||
1442 |
"Created: / 30-07-2012 / 14:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1443 |
! |
|
1444 |
||
1445 |
icon |
|
1446 |
^element enabled ifTrue:[ |
|
1447 |
MenuPanel iconIndicationOn |
|
1448 |
] ifFalse:[ |
|
1449 |
MenuPanel iconIndicationOff |
|
1450 |
]. |
|
1451 |
||
1452 |
"Created: / 30-07-2012 / 14:11:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1453 |
! |
|
1454 |
||
| 1561 | 1455 |
label |
1456 |
| label | |
|
1457 |
label := element pathName asText. |
|
1458 |
self origin ~~ JavaPathElement originUser ifTrue:[ |
|
1459 |
label colorizeAllWith: Color gray |
|
1460 |
]. |
|
1461 |
^label |
|
1462 |
||
1463 |
"Created: / 27-07-2012 / 18:42:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1464 |
! |
|
1465 |
||
1466 |
origin |
|
1467 |
^element origin |
|
1468 |
||
1469 |
"Created: / 27-07-2012 / 18:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
| 1571 | 1470 |
! |
1471 |
||
1472 |
x |
|
1473 |
^ x |
|
| 1558 | 1474 |
! ! |
1475 |
||
| 1571 | 1476 |
!JavaSettingsApplication::PathEditor::PathElementList::Item methodsFor:'displaying'! |
| 1569 | 1477 |
|
1478 |
__displayLabel:aLabel h:lH on:aGC x:newX y:y h:h |
|
1479 |
||
1480 |
| l w | |
|
1481 |
||
1482 |
l := self label. |
|
1483 |
x := newX. |
|
1484 |
[ |
|
1485 |
w := l widthOn: aGC. |
|
1486 |
w > (aGC width - x) |
|
1487 |
] whileTrue:[ |
|
1488 |
l := '...' , (l copyFrom: 9). |
|
1489 |
]. |
|
1490 |
||
1491 |
super displayLabel:l h:h on:aGC x:newX y:y h:h. |
|
1492 |
||
1493 |
"Created: / 30-07-2012 / 14:18:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1494 |
! |
|
1495 |
||
1496 |
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h |
|
1497 |
x := newX. |
|
1498 |
super displayLabel:aLabel h:lH on:aGC x:newX y:y h:h. |
|
1499 |
||
1500 |
"Created: / 30-07-2012 / 14:23:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1501 |
! ! |
|
1502 |
||
| 1571 | 1503 |
!JavaSettingsApplication::PathEditor::PathElementList::Item methodsFor:'testing'! |
| 1569 | 1504 |
|
1505 |
isPathElementCategoryItem |
|
1506 |
^false |
|
1507 |
||
1508 |
"Created: / 30-07-2012 / 14:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1509 |
! |
|
1510 |
||
1511 |
isPathElementItem |
|
1512 |
^true |
|
1513 |
||
1514 |
"Created: / 30-07-2012 / 14:28:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1515 |
! ! |
|
1516 |
||
| 1530 | 1517 |
!JavaSettingsApplication class methodsFor:'documentation'! |
1518 |
||
1519 |
version_SVN |
|
1520 |
^ '$Id:: $' |
|
1521 |
! ! |
|
1522 |
||
1523 |
JavaSettingsApplication initialize! |