author | Stefan Vogel <sv@exept.de> |
Tue, 15 Apr 2014 11:29:38 +0200 | |
changeset 14260 | 44b557be4981 |
parent 14232 | 0801fd0e860c |
child 14354 | 2e253818719a |
permissions | -rw-r--r-- |
9996 | 1 |
" |
2 |
COPYRIGHT (c) 2006 by eXept Software AG |
|
3 |
All Rights Reserved |
|
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' }" |
|
8779 | 13 |
|
14 |
"{ NameSpace: Tools }" |
|
15 |
||
16 |
ApplicationModel subclass:#Inspector2 |
|
10379 | 17 |
instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect |
11142 | 18 |
browser currentObjectHolder colorProfileHolder |
13805 | 19 |
toolbarBackgroundHolder evaluationLanguageHolder |
20 |
evaluationLanguageList' |
|
21 |
classVariableNames:'LastExtent ColorProfiles EvaluationLanguageMap' |
|
8779 | 22 |
poolDictionaries:'' |
10460 | 23 |
category:'Interface-Inspector2' |
8779 | 24 |
! |
25 |
||
10597 | 26 |
Model subclass:#NavigationState |
8779 | 27 |
instanceVariableNames:'theObject index tabs selectionIndex displayString' |
28 |
classVariableNames:'' |
|
29 |
poolDictionaries:'' |
|
30 |
privateIn:Inspector2 |
|
31 |
! |
|
32 |
||
9996 | 33 |
!Inspector2 class methodsFor:'documentation'! |
34 |
||
35 |
copyright |
|
36 |
" |
|
37 |
COPYRIGHT (c) 2006 by eXept Software AG |
|
38 |
All Rights Reserved |
|
39 |
||
40 |
This software is furnished under a license and may be used |
|
41 |
only in accordance with the terms of that license and with the |
|
42 |
inclusion of the above copyright notice. This software may not |
|
43 |
be provided or otherwise made available to, or used by, any |
|
44 |
other person. No title to or ownership of the software is |
|
45 |
hereby transferred. |
|
46 |
" |
|
10597 | 47 |
! |
48 |
||
11928 | 49 |
documentation |
10597 | 50 |
" |
51 |
an application for a multitab inspector |
|
52 |
extendable by the inspected object itself, by providing additional |
|
53 |
tabs via the inspector2XXX methods |
|
54 |
||
55 |
[author:] |
|
56 |
Jan Vrani |
|
57 |
" |
|
58 |
! ! |
|
59 |
||
11142 | 60 |
!Inspector2 class methodsFor:'initialization'! |
61 |
||
62 |
initialize |
|
63 |
"Invoked at system start or when the class is dynamically loaded." |
|
64 |
||
65 |
"/ please change as required (and remove this comment) |
|
66 |
||
67 |
||
68 |
ColorProfiles := Dictionary new. |
|
69 |
ColorProfiles |
|
70 |
at: #default put: nil; "default color" |
|
71 |
at: #red put: Color red lighter lighter; |
|
72 |
at: #green put: Color green lighter; |
|
73 |
at: #blue put: Color blue lighter; |
|
74 |
at: #yellow put: Color yellow lighter; |
|
13805 | 75 |
at: #gray put: Color gray. |
11142 | 76 |
|
13805 | 77 |
EvaluationLanguageMap := Dictionary new. |
78 |
||
79 |
"Modified: / 26-10-2013 / 00:42:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
11142 | 80 |
! ! |
81 |
||
10597 | 82 |
!Inspector2 class methodsFor:'help specs'! |
83 |
||
84 |
flyByHelpSpec |
|
85 |
"This resource specification was automatically generated |
|
86 |
by the UIHelpTool of ST/X." |
|
87 |
||
88 |
"Do not manually edit this!! If it is corrupted, |
|
89 |
the UIHelpTool may not be able to read the specification." |
|
90 |
||
91 |
" |
|
92 |
UIHelpTool openOnClass:Tools::Inspector2 |
|
93 |
" |
|
94 |
||
95 |
<resource: #help> |
|
96 |
||
97 |
^ super flyByHelpSpec addPairsFrom:#( |
|
98 |
||
99 |
#backwardInVisitingHistory |
|
100 |
'Move backward in the history of previously visited objects' |
|
101 |
||
102 |
#browseClassOfShownObject |
|
11134 | 103 |
'Open a SystemBrowser on the shown object''s class' |
10597 | 104 |
|
105 |
#browseFile |
|
11134 | 106 |
'Open a FileBrowser on the file represented by the shown object' |
107 |
||
108 |
#editImage |
|
109 |
'Open an ImageEditor on the bitmap/image represented by the shown object' |
|
10597 | 110 |
|
111 |
#forwardInVisitingHistory |
|
112 |
'Move forward in the history of previously visited objects' |
|
113 |
||
11160 | 114 |
#colorProfile |
115 |
'Change the color profile' |
|
116 |
||
117 |
#refresh |
|
118 |
'Refresh for changed object' |
|
10597 | 119 |
|
120 |
) |
|
121 |
||
122 |
"Created: / 19-08-2011 / 08:52:33 / cg" |
|
11265 | 123 |
! |
124 |
||
125 |
helpSpec |
|
126 |
"This resource specification was automatically generated |
|
127 |
by the UIHelpTool of ST/X." |
|
128 |
||
129 |
"Do not manually edit this!! If it is corrupted, |
|
130 |
the UIHelpTool may not be able to read the specification." |
|
131 |
||
132 |
" |
|
133 |
UIHelpTool openOnClass:Tools::Inspector2 |
|
134 |
" |
|
135 |
||
136 |
<resource: #help> |
|
137 |
||
138 |
^ super helpSpec addPairsFrom:#( |
|
139 |
||
140 |
#colorProfile |
|
141 |
'' |
|
142 |
||
13805 | 143 |
#evaluationLanguage |
144 |
'Language used for evaluating expressions in code panes' |
|
145 |
||
11265 | 146 |
) |
9996 | 147 |
! ! |
8779 | 148 |
|
11142 | 149 |
!Inspector2 class methodsFor:'image specs'! |
150 |
||
151 |
settingsIcon |
|
152 |
||
13805 | 153 |
<resource: #image> |
11142 | 154 |
|
13805 | 155 |
^self settingsIcon6 |
156 |
||
11161 | 157 |
"Modified: / 19-01-2012 / 14:00:35 / cg" |
13805 | 158 |
"Modified: / 28-02-2012 / 21:59:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11142 | 159 |
! |
160 |
||
161 |
settingsIcon1 |
|
162 |
"This resource specification was automatically generated |
|
163 |
by the ImageEditor of ST/X." |
|
164 |
||
165 |
"Do not manually edit this!! If it is corrupted, |
|
166 |
the ImageEditor may not be able to read the specification." |
|
167 |
||
168 |
" |
|
169 |
self settingsIcon inspect |
|
170 |
ImageEditor openOnClass:self andSelector:#settingsIcon |
|
171 |
Icon flushCachedIcons |
|
172 |
" |
|
173 |
||
174 |
<resource: #image> |
|
175 |
||
176 |
^Icon |
|
177 |
constantNamed:'Tools::Inspector2 class settingsIcon' |
|
178 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
179 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
180 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[G*LY'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y''6\ |
|
181 |
YW6[YG.ZX7.YX7*YX7*YX7*YX7.YYG.ZYW6[[G*L@@@@@@@@@@@@@@@@YW6["Y:4"Y:4"Y:4"9>4#*F4$JJ4$*N5$:R5$*N4#Y>2!!)&/_9R,^)F+^H>*]8>* |
|
182 |
^YF+_YR- 9&0YG2Z@@@@@@@@@@@@@@@@YW6[!!I.2!!923"):3#JB3#*B3#*F3#*F4#:F4#I>3!!9*0)J65)J65)J65)J65)J65)J65)J65^YF,X7*Y@@@@@@@@ |
|
183 |
@@@@@@@@YW6[ 9&1!!)*1!!9.1!!921!!921!!9.1!!9.1!!9.1!!)*1 YZ.]86()J65.[&9.[&9.[&9.[&9.[&9[8&(X''*X@@@@@@@@@@@@@@@@YG2Z_)V._YV-_IR- |
|
184 |
^9R.^9R.^9R.^9R.^9R.^)N-](>*[HZ%XG.](:24.K"8.K"8.K"8.K"8ZHN#XW"W@@@@@@@@@@@@@@@@YG2Z]H:+\8:+\X:,\(>,\(>,\(>,\(>,\X:+[82* |
|
185 |
Z(^''X'': (:24.K"8.K"8.K"8.K"8.K"8YG>!!XW"W@@@@@@@@@@@@@@@@X7.YZ8"(ZX*)ZX*)ZX*)ZX*)ZX*)ZX*)ZX&)YXV&W7:!!(*.3-;^7-;^7-;^7-;^7 |
|
186 |
-;^7-;^7XG6 XG^V@@@@@@@@@@@@@@@@X7.YY(N&X8Z(X8Z(X8Z(X8Z(X8Z(X8Z(X(R(W8B$(*.3-;^7-;^7-;^7-;^7T''BX-;^7-;^7WG2 XG"V@@@@@@@@ |
|
187 |
@@@@@@@@X7.YXW>$W8R(W8R(W8R(W8R(W8R(W8R(W(N''WHB$U''&_-;^7-;^7-;^7UGV\U''"_U''&_-;^7V'':#XW"W@@@@@@@@@@@@@@@@X''*XW''2"WHJ''WHJ'' |
|
188 |
WHJ''WHJ''V(B&VG:%VW>&V(B&U7.#T7^_-+Z6T7^_U''."VG6$VG:$VG6$VW>%XW&W@@@@@@@@@@@@@@@@X''*XV''& U7>&VXF''V(N(VXF''T7&!!(Z*2T7&!!VHB'' |
|
189 |
VXF''U7>%U''6$U7>%VXF''V(J(V(J(VXF''V(J(X''&X@@@@@@@@@@@@@@@@X''*XV7"_(Z*2UW2#VXJ''UW2#(Z*2-+Z6-+Z6UW2#V(N(V8V*V8R)V8V*V(V*V8V* |
|
190 |
V8Z*WHZ*V8Z*X''*X@@@@@@@@@@@@@@@@X''*XWW* (Z*2(Z*2UW*!!(Z*2-+Z6-+Z6-+Z6-+Z6W8^+X82.X82.X82.X82.X82.X82.X82.X8.-X''*X@@@@@@@@ |
|
191 |
@@@@@@@@XW&WXW6"(J&1-[V5(J&1-[V5-[V5-[V5-[V5XXZ''Z(>-[IF/[IF/[IF/[IF/[IF/[IF/[IF/W(..XW&W@@@@@@@@@@@@@@@@XW&WY(J%(J&1-[V5 |
|
192 |
-[V5-[V5-[V5-[V5ZX.(\)V/]Y^1]Y^1]Y^1]Y^1]Y^1]Y^1]Y^1]Y^1W(:1XW&W@@@@@@@@@@@@@@@@XG"VZ(V&'':"0-KR4-KR4-KR4-KR4Y(Z$])V-_I*1 |
|
193 |
_I*1_I*1_I*1_I*1_I*1_I*1_I*1^9*1WX>1XG"V@@@@@@@@@@@@@@@@XG"V[H^'''':"0-KR4-KR4-KR4-KR4-KR4\(>(_Y*/ I61 I61 I61 I61 I61 I61 |
|
194 |
I21 I21XH>1XG"V@@@@@@@@@@@@@@@@XG"V[(**'':"0-KR4-KR4-KR4-KR4-KR4-KR4^)^. I61 I61 I61 I61 I61_961_961_921Y(:0XG"V@@@@@@@@ |
|
195 |
@@@@@@@@W7^U\H2,[(&)[X"''[(&''[(&''[8&''\H*''\(2)]9F,^)N.^YJ.^YJ.^IF.]YB.\(:-\H6-[X2-[H.-W7^U@@@@@@@@@@@@@@@@X''BBW7^UW7^UW7^U |
|
196 |
W7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UXF:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
197 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
198 |
@@@@@@@@@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself] |
|
199 |
||
200 |
"Created: / 17-01-2012 / 12:45:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
201 |
! |
|
202 |
||
203 |
settingsIcon2 |
|
204 |
"This resource specification was automatically generated |
|
205 |
by the ImageEditor of ST/X." |
|
206 |
||
207 |
"Do not manually edit this!! If it is corrupted, |
|
208 |
the ImageEditor may not be able to read the specification." |
|
209 |
||
210 |
" |
|
211 |
self settingsIcon2 inspect |
|
212 |
ImageEditor openOnClass:self andSelector:#settingsIcon2 |
|
213 |
Icon flushCachedIcons |
|
214 |
" |
|
215 |
||
216 |
<resource: #image> |
|
217 |
||
218 |
^Icon |
|
219 |
constantNamed:'Tools::Inspector2 class settingsIcon2' |
|
220 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
221 |
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU |
|
222 |
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"9J["IR#"IR#"IR#"IR#"IR#"IR#"IR#"IR#"IN# |
|
223 |
!!9N"!!9J"!!)J!!!!)J!!!!)J!!!!)J!!!!)J!!!!9J"!!9N""9J[UUUUUUUUUUUUUUUU!!9N"&ZR/&ZR/&ZR/&*R/''JV/''ZZ/''*Z/''*^/''*Z/&:R.&JF,%I>+$)6*$Y2*$I2* |
|
224 |
$Y6*$9>+%*F-!!9N"UUUUUUUUUUUUUUUU!!9N"%:J.&JN.&*R.&:V.''JV.''JV.''JV/''JV/&:R.&JJ-4][Z4][Z4][Z4][Z4][Z4][Z4][Z$Y6+!!)J!!UUUUUUUU |
|
225 |
UUUUUUUU!!9N"%*F-&JJ-&JJ-&JN-&JN-&JJ-&JJ-&JJ-&JJ-%ZB,$I.)4][Z7M3\7M3\7M3\7M3\7M3\#I&)!!)J!!UUUUUUUUUUUUUUUU!!9N"%I>,$9>+$9>+ |
|
226 |
$)>,$)>,$)>,$)>,$)>,$):+$I2*"9"''!!YJ#)*./6=/[6=/[6=/[6=/["YZ&!!YF UUUUUUUUUUUUUUUU!!9N"#92*#)2*#Y2+#)2+#)2+#)2+#)2+#Y2*#I.* |
|
227 |
")"(!!)R%)*./6=/[6=/[6=/[6=/[6=/[!!9R%!!YF UUUUUUUUUUUUUUUU!!)J!!")&)"Y*)"Y*)"Y*)"Y*)"Y*)"Y*)"Y&)!!9^(!!IR%)**.6=/[6=/[6=/[6=/[ |
|
228 |
6=/[6=/[!!YN%!!YB UUUUUUUUUUUUUUUU!!)J!!"IZ(!!)")!!)")!!)")!!)")!!)")!!)")!!)^)!!IV'')**.6=/[6=/[6=/[6=/[_(6!!6=/[6=/[ 9N%!!YF UUUUUUUU |
|
229 |
UUUUUUUU!!)J!!!!YR''!!I^)!!I^)!!I^)!!I^)!!I^)!!I^)!!IZ( 9V'' IF$6=/[6=/[6=/[_8># IF$ IF$6=/[ )R&!!YF UUUUUUUUUUUUUUUU!!)J!!!!IN& 9Z( 9Z( |
|
230 |
9Z( 9Z( )V( YR'' YR( )V( IJ&_)B$6-+Z_)B$ IJ& YN'' YR'' YN'' YR''!!YF UUUUUUUUUUUUUUUU!!)J!! )F% IR( YV( )Z) YV(_)F%)Z*._)F% YV( |
|
231 |
YV( IR'' IN'' IR'' YV( )Z) )Z) YV( )Z)!!)F!!UUUUUUUUUUUUUUUU!!)J!! )F$)Z*._9N& YZ(_9N&)Z*.6-+Z6-+Z_9N& )Z) )^* )^) )^* )^* )^* |
|
232 |
)"* 9"* )"*!!)J!!UUUUUUUUUUUUUUUU!!)J!! 9J%)Z*.)Z*._9J%)Z*.6-+Z6-+Z6-+Z6-+Z!!I"*!!).,!!).,!!).,!!).,!!).,!!).,!!).,!!)*+!!)J!!UUUUUUUU |
|
233 |
UUUUUUUU!!YF !!YN&)Z&-6-+Z)Z&-6-+Z6-+Z6-+Z6-+Z!!Y"(")2+"96,"96,"96,"96,"96,"96,"96,!!I*,!!YF UUUUUUUUUUUUUUUU!!YF "IZ'')Z&-6-+Z |
|
234 |
6-+Z6-+Z6-+Z6-+Z"Y*)#)>,#:B-#:B-#:B-#:B-#:B-#:B-#:B-#:B-!!I2-!!YF UUUUUUUUUUUUUUUU!!YF ")^()J&-6]''Y6]''Y6]''Y6]''Y"I"''$I>+$:J- |
|
235 |
$:J-$:J-$:J-$:J-$:J-$:J-$:J-$*J- 92-!!YF UUUUUUUUUUUUUUUU!!YF "9"()J&-6]''Y6]''Y6]''Y6]''Y6]''Y#)2)$:J,%ZN-%ZN-%ZN-%ZN-%ZN-%ZN- |
|
236 |
%ZN-%ZN-!!Y2-!!YF UUUUUUUUUUUUUUUU!!YF #I**)J&-6]''Y6]''Y6]''Y6]''Y6]''Y6]''Y$*B,%ZN-%ZN-%ZN-%ZN-%ZN-%JN-%JN-%JN-"I2-!!YF UUUUUUUU |
|
237 |
UUUUUUUU!!IB_#Y.+#I&)"9&(#I&(#I&(#I&(#Y*(#).)$I6+$):,$Y:,$Y:,$Y6,#96,#)2+#Y.+"9.+"9*+!!IB_UUUUUUUUUUUUUUUU!!(6V!!IB_!!IB_!!IB_ |
|
238 |
!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!X2UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU |
|
239 |
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU |
|
240 |
UUUUUUUUUUUUUUUUUUUUUUUU') ; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself] |
|
241 |
! |
|
242 |
||
243 |
settingsIcon3 |
|
244 |
"This resource specification was automatically generated |
|
245 |
by the ImageEditor of ST/X." |
|
246 |
||
247 |
"Do not manually edit this!! If it is corrupted, |
|
248 |
the ImageEditor may not be able to read the specification." |
|
249 |
||
250 |
" |
|
251 |
self settingsIcon3 inspect |
|
252 |
ImageEditor openOnClass:self andSelector:#settingsIcon3 |
|
253 |
Icon flushCachedIcons |
|
254 |
" |
|
255 |
||
256 |
<resource: #image> |
|
257 |
||
258 |
^Icon |
|
259 |
constantNamed:'Tools::Inspector2 class settingsIcon3' |
|
260 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
261 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
262 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S? |
|
263 |
VJ[?UZO?TJK?TI??TI??TI??TJK?UZO?VJ[?TZC?@@@@@@@@@@@@@@@@VJ[?,]_?,]_?,]_?-]7?/NC?/>C?0=??1^C?0^K?-=7?*-G?&L+?"<W?!!<G?!!LO? |
|
264 |
"\W?$<+?(]C?UZO?@@@@@@@@@@@@@@@@VJ[?)]''?+]S?-M_?-=7?/M/?/M/?/NC?/-3?-=7?+MK?7OC?7OC?7OC?7OC?7OC?7OC?7OC?"<S?TI??@@@@@@@@ |
|
265 |
@@@@@@@@VJ[?(]W?*]G?*=S?*=+?*=+?*=S?*=S?*=S?*]G?''L3?!![??7OC?????????????????????[+''?S:G?@@@@@@@@@@@@@@@@UZO?%\/?$<+?$\''? |
|
266 |
#,''?#,''?#,''?#,''?#,''?#\#? <O?Y;S?QZK?6.????7=??7=??7=??7=W;C?SI??@@@@@@@@@@@@@@@@UZO?^<K?^LC?\,G?]<K?]<K?]<K?]<K?]LW?\LO? |
|
267 |
X;W?TZ_?6.????7=??7=??7=??7=??7=UZ#?SI??@@@@@@@@@@@@@@@@TJK?Y[[?XLO?XLO?XLO?XLO?XLO?XLO?XLC?T;S?QZ/?5>7???+:??+:??+:??+: |
|
268 |
??+:??+:RZ[?RI3?@@@@@@@@@@@@@@@@TJK?VJ??S+''?S+''?S+''?S+''?S+''?S+''?S[K?Q*7?5>7???+:??+:??+:??+:DH''???+:??+:OJW?RI3?@@@@@@@@ |
|
269 |
@@@@@@@@TJK?R:_?Q[''?Q[''?Q[''?Q[''?Q[''?Q[''?P[W?OKG?HZG???+:??+:??+:FY+?HY;?HZG???+:M:+?SI??@@@@@@@@@@@@@@@@S:G?P*W?N;S?N;S? |
|
270 |
N;S?N;S?N[G?KZ+?L*/?N[G?J*S?E9???/#8E9??IZO?J:''?J;G?J:''?L[C?SJK?@@@@@@@@@@@@@@@@S:G?L9;?J+K?L+W?MK''?L+W?EJO?5^3?EJO?K;O? |
|
271 |
L+W?J+K?I+C?J+K?L+W?MK[?MK[?L+W?MK[?S9;?@@@@@@@@@@@@@@@@S:G?M9/?5^3?HZ_?L+#?HZ_?5^3??/#8?/#8HZ_?MK''?M+/?NK+?M+/?MK7?M+/? |
|
272 |
M+;?N[;?M+;?S:G?@@@@@@@@@@@@@@@@S:G?O:C?5^3?5^3?HJS?5^3??/#8?/#8?/#8?/#8P+;?S,[?S,[?S,[?S,[?S,[?S,[?S,[?S,W?S:G?@@@@@@@@ |
|
273 |
@@@@@@@@SJK?RZK?4^+???S44^+???S4??S4??S4??S4R[3?XL3?Y,;?Y,;?Y,;?Y,;?Y,;?Y,;?Y,;?O<_?SJK?@@@@@@@@@@@@@@@@SJK?VZ7?4^+???S4 |
|
274 |
??S4??S4??S4??S4XLO?]-K?_=S?_=S?_=S?_=S?_=S?_=S?_=S?_=S?O,??SJK?@@@@@@@@@@@@@@@@RI3?YKG?3>''???K2??K2??K2??K2V;/? =K?$]#? |
|
275 |
$]#?$]#?$]#?$]#?$]#?$]#?$]#?#=_?O]O?RI3?@@@@@@@@@@@@@@@@RI3?ZK[?3>''???K2??K2??K2??K2??K2]L#?%]_?&-7?&-7?&-7?&-7?&-7?&-7? |
|
276 |
&-+?&-+?P<7?RI3?@@@@@@@@@@@@@@@@RI3?[[+?3>''???K2??K2??K2??K2??K2??K2"=K?&-7?&-7?&-7?&-7?&-7?%=+?%=+?%=+?U<''?RI3?@@@@@@@@ |
|
277 |
@@@@@@@@QY3?\[7?[+''?Z;''?[K/?[K/?[+''?\[3?]+7?!!,W?"<#?",W?",W?!!<S?_,S?]<K?\+;?[K;?Z[/?QY3?@@@@@@@@@@@@@@@@M8;?QY3?QY3?QY3? |
|
278 |
QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?K(;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
279 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
280 |
@@@@@@@@@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself] |
|
11161 | 281 |
! |
282 |
||
283 |
settingsIcon4 |
|
284 |
"This resource specification was automatically generated |
|
285 |
by the ImageEditor of ST/X." |
|
286 |
||
287 |
"Do not manually edit this!! If it is corrupted, |
|
288 |
the ImageEditor may not be able to read the specification." |
|
289 |
||
290 |
" |
|
291 |
self settingsIcon4 inspect |
|
292 |
ImageEditor openOnClass:self andSelector:#settingsIcon4 |
|
293 |
Icon flushCachedIcons |
|
294 |
" |
|
295 |
||
296 |
<resource: #image> |
|
297 |
||
298 |
^Icon |
|
299 |
constantNamed:'Tools::Inspector2 class settingsIcon4' |
|
300 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
301 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
302 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S? |
|
303 |
VJ[?UZO?TJK?TI??TI??TI??TJK?UZO?VJ[?TZC?@@@@@@@@@@@@@@@@VJ[???>1??>1??>1??>5??><??>????C???E???A??>7??>*??>X??>J??>F??>C |
|
304 |
??>H??>S??> UZO?@@@@@@@@@@@@@@@@VJ[???>%??>-??>4??>7??><??><??><??>>??>7??>*??>*??>J??>J??>J??>J??>J??>J??>JTI??@@@@@@@@ |
|
305 |
@@@@@@@@VJ[???> ??>)??>+??>+??>+??>+??>+??>+??>)??>\??>D??>D??>D??>D??>D??=-??=-??=-S:G?@@@@@@@@@@@@@@@@UZO???>U??>S??>Q |
|
306 |
?/:N?/:N?/:N?/:N?/:N?/:N?/:N??=&??=&??=&??=&??=_??=_??=_??=_SI??@@@@@@@@@@@@@@@@UZO???=;??=8??=1??=6??=6?/:N?/:N?/:N?/:N |
|
307 |
??=#?/=P?/=P?/=P?/=P??=U??=U??=U??=USI??@@@@@@@@@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[? |
|
308 |
Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@ |
|
309 |
@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SI??@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[? |
|
310 |
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SJK?@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[? |
|
311 |
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?S9;?@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[? |
|
312 |
Y[[?Y[[?Y[[?S:G?@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?S:G?@@@@@@@@ |
|
313 |
@@@@@@@@SJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SJK?@@@@@@@@@@@@@@@@SJK?Y[[?Y[[?Y[[? |
|
314 |
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SJK?@@@@@@@@@@@@@@@@RI3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[? |
|
315 |
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@RI3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[? |
|
316 |
Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@RI3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@ |
|
317 |
@@@@@@@@QY3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?QY3?@@@@@@@@@@@@@@@@M8;?QY3?QY3?QY3? |
|
318 |
QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?K(;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
319 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
320 |
@@@@@@@@@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself] |
|
321 |
! |
|
322 |
||
323 |
settingsIcon5 |
|
13805 | 324 |
|
325 |
<resource: #image> |
|
326 |
||
11161 | 327 |
^ GenericToolbarIconLibrary palette16x16Icon |
328 |
||
329 |
"Created: / 19-01-2012 / 14:00:24 / cg" |
|
13805 | 330 |
"Modified: / 18-02-2012 / 16:28:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
331 |
! |
|
332 |
||
333 |
settingsIcon6 |
|
334 |
"This resource specification was automatically generated |
|
335 |
by the ImageEditor of ST/X." |
|
336 |
||
337 |
"Do not manually edit this!! If it is corrupted, |
|
338 |
the ImageEditor may not be able to read the specification." |
|
339 |
||
340 |
" |
|
341 |
self settingsIcon6 inspect |
|
342 |
ImageEditor openOnClass:self andSelector:#settingsIcon6 |
|
343 |
Icon flushCachedIcons |
|
344 |
" |
|
345 |
||
346 |
<resource: #image> |
|
347 |
||
348 |
^Icon |
|
349 |
constantNamed:'Tools::Inspector2 class settingsIcon6' |
|
350 |
ifAbsentPut:[(Depth8Image new) width: 25; height: 25; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
351 |
(:N#(:N#(:N#(:N#(:N#(:N#(:N#(:N#(:IWY&Y&Y&Y1(!!8*J"4*J#""JCX6M3X6PJJ"YG]7]7]7]:H$O#8>O#8>(#MBP$IBP$J"(FA5]WU5]WV G3(:N#(: |
|
352 |
N*@+PTEAPTEA(I=X[7A/\F=/''1X1LSD1LSF_H34=OC0<OI>^T6-+Z6-+Z98QI2\''I2\''''!!,5MST5MSV^''T=''Y6]''Y6^]B2D!!HRD!!HY4TLC@0LB<0''Y1VX&I" |
|
353 |
X&I"''@<XFA XFA"\FRX&I"X&I)2[&9.[&9.[&9.[&9.[&9.[&9.[&9.[&9.[&V9;^7-;^8NY_(2L#H2L&I$]KB0.KB09&Y!!8#8>O#8>O&H&!!(ZF!!(ZFXIS<? |
|
354 |
O3<?O9"V](.K"8.K"9ZF''Y6]''Y6]%"@;N3,;N3.V%WRD!!XRD!!HRU_9&Y&Y&Y&YTWL#P2L#H2%YQ- HB@ HB@%G6U%YVU%YVTD"$)JR$)JYRSZW1<_G1<_IM9 |
|
355 |
$YFQ$YFQ$00"H"H"H"JS$WI:^''):^''*Q X:N#(:N#)DPF!!(ZF!!(Z$YBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBNTU=_W5=_Z(9FTEAPTEA]# \JB 4JB!!VN |
|
356 |
#U-3\7M3\7NMSFU%YVU%YX4IGA0\GA0\#X)U[F1,[F1,"$%!!XVE!!XVFJA!!LSD1LSD8*IT&!!(ZF!!(ZH%GVU1YWE%Y"PPNC 8NC :I"D-#X6M#X6NHQEQTUEQT |
|
357 |
UH BB@ HB@ H"H]HW%9^W%9^!!4MNS$9NS$:G@@TEAPTEAX^BSU)ZV%)ZV(IER$)JR$)J DC@0LC@0NB (JB (JB (JB (JB (JB (JB (JB (JB @a') ; colorMapFromArray:#[88 88 211 89 89 220 91 91 215 94 94 231 96 96 219 97 97 234 99 99 224 100 100 217 101 101 239 103 103 227 105 105 229 211 88 88 170 88 211 105 106 229 106 106 243 220 89 89 176 89 220 215 91 91 174 91 215 110 110 248 211 88 170 111 111 242 219 96 96 178 96 219 231 94 94 220 89 176 185 94 231 215 91 174 114 114 252 177 100 217 217 100 100 224 99 99 182 99 224 234 97 97 189 97 234 219 96 178 227 103 103 186 103 227 231 94 185 239 101 101 217 100 177 193 101 239 229 105 105 224 99 182 188 105 229 229 106 105 188 106 229 234 97 188 234 97 189 243 106 106 197 106 243 227 103 186 198 106 243 239 101 193 229 105 188 229 106 188 242 111 111 198 111 242 248 110 110 202 110 248 243 106 197 243 106 198 252 114 114 206 114 252 242 111 198 248 110 202 252 114 206 88 170 211 91 174 215 89 176 220 100 177 217 96 178 219 88 197 88 99 182 224 94 185 231 91 201 91 103 186 227 89 205 89 97 189 234 211 170 88 105 188 229 100 204 100 96 206 96 215 174 91 101 193 239 99 209 99 220 176 89 217 177 100 219 178 96 106 197 243 94 216 94 103 213 103 106 198 243 111 198 242 97 219 97 105 216 105 224 182 99 110 202 248 231 185 94 101 223 101 227 186 103 114 206 252 229 188 105 234 189 97 106 228 106 170 211 88 111 228 111 239 193 101 110 232 110 174 215 91 177 217 100 243 197 106 243 198 106 242 198 111 176 220 89 114 236 114 178 219 96 248 202 110 182 224 99 252 206 114 186 227 103 211 211 211 185 231 94 188 229 105 189 234 97 215 215 215 217 217 217 219 219 219 193 239 101 220 220 220 223 223 223 198 242 111 197 243 106 198 243 106 224 224 224 225 225 225 226 226 226 227 227 227 228 228 228 202 248 110 229 229 229 230 230 230 231 231 231 206 252 114 233 233 233 234 234 234 235 235 235 236 236 236 237 237 237 239 239 239 240 240 240 241 241 241 242 242 242 243 243 243 244 244 244 245 245 245 246 246 246 248 248 248 249 249 249 250 250 250 251 251 251 252 252 252 253 253 253 254 254 254]; mask:((Depth1Image new) width: 25; height: 25; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???? O???8C???>@???? O???8C???>@???? O???8C???>@???? O???8C???>@???? O???8C???>@???? O???8C???>@???? O???8C???>@???? O?? |
|
358 |
?8C???>@???? @@a') ; yourself); yourself] |
|
11142 | 359 |
! ! |
360 |
||
8779 | 361 |
!Inspector2 class methodsFor:'interface specs'! |
362 |
||
363 |
windowSpec |
|
364 |
"This resource specification was automatically generated |
|
365 |
by the UIPainter of ST/X." |
|
366 |
||
367 |
"Do not manually edit this!! If it is corrupted, |
|
368 |
the UIPainter may not be able to read the specification." |
|
369 |
||
370 |
" |
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
371 |
UIPainter new openOnClass:Tools::Inspector2 andSelector:#windowSpec |
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
372 |
Tools::Inspector2 new openInterface:#windowSpec |
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
373 |
Tools::Inspector2 open |
8779 | 374 |
" |
375 |
||
376 |
<resource: #canvas> |
|
377 |
||
378 |
^ |
|
13805 | 379 |
#(FullSpec |
380 |
name: windowSpec |
|
381 |
window: |
|
382 |
(WindowSpec |
|
383 |
label: 'Inspector2' |
|
384 |
name: 'Inspector2' |
|
385 |
labelChannel: windowTitleAspect |
|
386 |
min: (Point 0 0) |
|
387 |
bounds: (Rectangle 0 0 490 654) |
|
388 |
menu: mainMenu |
|
389 |
) |
|
390 |
component: |
|
391 |
(SpecCollection |
|
392 |
collection: ( |
|
393 |
(MenuPanelSpec |
|
394 |
name: 'ToolBar' |
|
395 |
layout: (LayoutFrame 0 0 0 0 0 1 40 0) |
|
396 |
backgroundChannel: toolbarBackgroundHolder |
|
397 |
menu: toolbarMenu |
|
398 |
textDefault: true |
|
8779 | 399 |
) |
13805 | 400 |
(NoteBookViewSpec |
401 |
name: 'NoteBook' |
|
402 |
layout: (LayoutFrame 0 0 40 0 0 1 0 1) |
|
403 |
model: tabSelectionIndexAspect |
|
404 |
menu: tabLabelsAspect |
|
405 |
useIndex: true |
|
406 |
fitLastRow: false |
|
407 |
canvas: tabViewAspect |
|
408 |
keepCanvasAlive: true |
|
409 |
) |
|
410 |
(ComboListSpec |
|
411 |
name: 'EvaluationLanguageCombo' |
|
412 |
layout: (LayoutFrame -200 1 7 0.0 -40 1 32 0) |
|
413 |
activeHelpKey: evaluationLanguage |
|
414 |
visibilityChannel: evaluationLanguageComboVisibleHolder |
|
415 |
model: evaluationLanguageHolder |
|
416 |
comboList: evaluationLanguageList |
|
417 |
useIndex: false |
|
418 |
postBuildCallback: postBuildEvaluationLanguageCombo: |
|
419 |
) |
|
420 |
) |
|
421 |
||
422 |
) |
|
423 |
) |
|
8779 | 424 |
! ! |
425 |
||
426 |
!Inspector2 class methodsFor:'menu specs'! |
|
427 |
||
11229 | 428 |
mainMenu |
429 |
"This resource specification was automatically generated |
|
430 |
by the MenuEditor of ST/X." |
|
431 |
||
432 |
"Do not manually edit this!! If it is corrupted, |
|
433 |
the MenuEditor may not be able to read the specification." |
|
434 |
||
435 |
||
436 |
" |
|
437 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu |
|
438 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp |
|
439 |
" |
|
440 |
||
441 |
<resource: #menu> |
|
442 |
||
443 |
^ |
|
444 |
#(Menu |
|
445 |
( |
|
446 |
(MenuItem |
|
447 |
label: 'File' |
|
448 |
submenu: |
|
449 |
(Menu |
|
450 |
( |
|
451 |
(MenuItem |
|
452 |
label: 'Exit' |
|
453 |
itemValue: closeRequest |
|
454 |
) |
|
455 |
) |
|
456 |
nil |
|
457 |
nil |
|
458 |
) |
|
459 |
) |
|
460 |
(MenuItem |
|
461 |
label: 'View' |
|
462 |
submenu: |
|
463 |
(Menu |
|
464 |
( |
|
465 |
(MenuItem |
|
12357 | 466 |
label: 'Expand Arrays in "all xxx"-Lists' |
11229 | 467 |
itemValue: expandArraysInAllList: |
468 |
indication: expandArraysInAllList |
|
469 |
) |
|
470 |
(MenuItem |
|
471 |
label: '-' |
|
472 |
) |
|
473 |
(MenuItem |
|
474 |
label: 'Color Setting' |
|
475 |
submenuChannel: settingsMenu |
|
476 |
) |
|
477 |
) |
|
478 |
nil |
|
479 |
nil |
|
480 |
) |
|
481 |
) |
|
12836 | 482 |
(MenuItem |
483 |
label: 'Help' |
|
484 |
startGroup: conditionalRight |
|
485 |
submenu: |
|
486 |
(Menu |
|
487 |
( |
|
488 |
(MenuItem |
|
489 |
label: 'Documentation' |
|
490 |
itemValue: openDocumentation |
|
491 |
) |
|
492 |
(MenuItem |
|
493 |
label: '-' |
|
494 |
) |
|
495 |
(MenuItem |
|
496 |
label: 'About this Application...' |
|
497 |
itemValue: openAboutThisApplication |
|
498 |
) |
|
499 |
) |
|
500 |
nil |
|
501 |
nil |
|
502 |
) |
|
503 |
) |
|
11229 | 504 |
) |
505 |
nil |
|
506 |
nil |
|
507 |
) |
|
508 |
! |
|
509 |
||
11142 | 510 |
settingsMenu |
511 |
"This resource specification was automatically generated |
|
512 |
by the MenuEditor of ST/X." |
|
513 |
||
514 |
"Do not manually edit this!! If it is corrupted, |
|
515 |
the MenuEditor may not be able to read the specification." |
|
516 |
||
517 |
||
518 |
" |
|
519 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#settingsMenu |
|
520 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 settingsMenu)) startUp |
|
521 |
" |
|
522 |
||
523 |
<resource: #menu> |
|
524 |
||
525 |
^ |
|
526 |
#(Menu |
|
527 |
( |
|
528 |
(MenuItem |
|
529 |
label: 'Default' |
|
12836 | 530 |
nameKey: Default |
531 |
hideMenuOnActivated: false |
|
11142 | 532 |
choice: colorProfileHolder |
533 |
choiceValue: default |
|
534 |
) |
|
535 |
(MenuItem |
|
12836 | 536 |
label: '-' |
537 |
) |
|
538 |
(MenuItem |
|
11142 | 539 |
label: 'Red' |
12836 | 540 |
nameKey: Red |
541 |
hideMenuOnActivated: false |
|
11142 | 542 |
choice: colorProfileHolder |
543 |
choiceValue: red |
|
544 |
) |
|
545 |
(MenuItem |
|
546 |
label: 'Green' |
|
12836 | 547 |
nameKey: Green |
548 |
hideMenuOnActivated: false |
|
549 |
choice: colorProfileHolder |
|
11142 | 550 |
choiceValue: green |
551 |
) |
|
552 |
(MenuItem |
|
553 |
label: 'Blue' |
|
12836 | 554 |
nameKey: Blue |
555 |
hideMenuOnActivated: false |
|
556 |
choice: colorProfileHolder |
|
11142 | 557 |
choiceValue: blue |
558 |
) |
|
559 |
(MenuItem |
|
560 |
label: 'Yellow' |
|
12836 | 561 |
nameKey: Yellow |
562 |
hideMenuOnActivated: false |
|
563 |
choice: colorProfileHolder |
|
11142 | 564 |
choiceValue: yellow |
565 |
) |
|
566 |
(MenuItem |
|
567 |
label: 'Gray' |
|
12836 | 568 |
nameKey: Gray |
569 |
hideMenuOnActivated: false |
|
570 |
choice: colorProfileHolder |
|
11142 | 571 |
choiceValue: gray |
572 |
) |
|
573 |
) |
|
574 |
nil |
|
575 |
nil |
|
576 |
) |
|
577 |
! |
|
578 |
||
8779 | 579 |
toolbarMenu |
580 |
"This resource specification was automatically generated |
|
581 |
by the MenuEditor of ST/X." |
|
582 |
||
583 |
"Do not manually edit this!! If it is corrupted, |
|
584 |
the MenuEditor may not be able to read the specification." |
|
585 |
||
11142 | 586 |
|
8779 | 587 |
" |
10379 | 588 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu |
589 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp |
|
8779 | 590 |
" |
591 |
||
592 |
<resource: #menu> |
|
593 |
||
594 |
^ |
|
595 |
#(Menu |
|
596 |
( |
|
597 |
(MenuItem |
|
10597 | 598 |
activeHelpKey: backwardInVisitingHistory |
8779 | 599 |
enabled: backButtonEnabledHolder |
600 |
label: 'Back' |
|
601 |
itemValue: backButtonAction |
|
602 |
translateLabel: true |
|
10460 | 603 |
isButton: true |
10596 | 604 |
hideMenuOnActivated: false |
8779 | 605 |
submenuChannel: backButtonMenuChannel |
10596 | 606 |
labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon) |
8779 | 607 |
) |
608 |
(MenuItem |
|
10597 | 609 |
activeHelpKey: forwardInVisitingHistory |
8779 | 610 |
enabled: forwardButtonEnabledHolder |
611 |
label: 'Forward' |
|
612 |
itemValue: forwardButtonAction |
|
613 |
translateLabel: true |
|
10460 | 614 |
isButton: true |
10596 | 615 |
hideMenuOnActivated: false |
8779 | 616 |
submenuChannel: forwardButtonMenuChannel |
10596 | 617 |
labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon) |
8779 | 618 |
) |
10379 | 619 |
(MenuItem |
620 |
label: '-' |
|
621 |
) |
|
622 |
(MenuItem |
|
10597 | 623 |
activeHelpKey: browseClassOfShownObject |
624 |
enabled: browseButtonEnabledHolder |
|
10379 | 625 |
label: 'Browse' |
626 |
itemValue: browseClassAction |
|
627 |
translateLabel: true |
|
628 |
isButton: true |
|
10596 | 629 |
hideMenuOnActivated: false |
630 |
labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon) |
|
10379 | 631 |
) |
10597 | 632 |
(MenuItem |
633 |
activeHelpKey: browseFile |
|
634 |
label: 'Browse File' |
|
635 |
itemValue: browseFileAction |
|
636 |
translateLabel: true |
|
637 |
isButton: true |
|
638 |
isVisible: currentObjectIsFilename |
|
639 |
hideMenuOnActivated: false |
|
640 |
labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon) |
|
641 |
) |
|
10636 | 642 |
(MenuItem |
11134 | 643 |
activeHelpKey: editImage |
644 |
label: 'Edit the Image' |
|
645 |
itemValue: editImageAction |
|
646 |
translateLabel: true |
|
647 |
isButton: true |
|
648 |
isVisible: currentObjectIsImage |
|
649 |
hideMenuOnActivated: false |
|
650 |
labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon) |
|
651 |
) |
|
652 |
(MenuItem |
|
11160 | 653 |
activeHelpKey: refresh |
10636 | 654 |
label: 'Refresh for Changed Object' |
655 |
itemValue: refreshTabs |
|
656 |
translateLabel: true |
|
657 |
isButton: true |
|
658 |
startGroup: right |
|
659 |
labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon) |
|
660 |
) |
|
11142 | 661 |
(MenuItem |
11160 | 662 |
activeHelpKey: colorProfile |
11142 | 663 |
label: 'Settings' |
664 |
translateLabel: true |
|
665 |
isButton: true |
|
11265 | 666 |
isVisible: false |
11142 | 667 |
submenuChannel: settingsMenu |
668 |
labelImage: (ResourceRetriever #'Tools::Inspector2' settingsIcon) |
|
669 |
) |
|
8779 | 670 |
) |
671 |
nil |
|
672 |
nil |
|
673 |
) |
|
674 |
! ! |
|
675 |
||
676 |
!Inspector2 class methodsFor:'startup'! |
|
677 |
||
678 |
openOn: anObject |
|
679 |
||
12515 | 680 |
^ self new openOn: anObject. |
8779 | 681 |
|
682 |
"Modified: / 17-02-2008 / 10:29:45 / janfrog" |
|
10311 | 683 |
"Modified (format): / 11-07-2011 / 22:28:03 / cg" |
13132 | 684 |
! |
685 |
||
686 |
openOn: anObject title:aString |
|
687 |
||
688 |
^ self new |
|
689 |
openOn: anObject; |
|
690 |
windowTitle:aString |
|
691 |
||
692 |
" |
|
693 |
self openOn:(Array new:3) |
|
694 |
self openOn:(Array new:3) title:'my array' |
|
695 |
" |
|
8779 | 696 |
! ! |
697 |
||
698 |
!Inspector2 class methodsFor:'testing'! |
|
699 |
||
700 |
testSimpleShow |
|
701 |
|ins| |
|
702 |
||
703 |
ins := Inspector2 openOn:4. |
|
704 |
ins inspect:10. |
|
705 |
ins inspect:42. |
|
706 |
ins inspect:'dead one'. |
|
707 |
ins inspect:'rolled back'. |
|
708 |
||
709 |
"/ins inspectItem: (ins history at: 3). "/ Rollback history, zustanou jen prvni 3 |
|
710 |
||
711 |
ins inspect:'xFuj'. |
|
712 |
||
713 |
"Modified: / 11-01-2008 / 20:36:37 / janfrog" |
|
714 |
! ! |
|
715 |
||
716 |
!Inspector2 methodsFor:'accessing'! |
|
717 |
||
10597 | 718 |
backButtonEnabled:value |
719 |
^ self backButtonEnabledHolder value:value |
|
8779 | 720 |
|
721 |
"Created: / 12-01-2008 / 19:14:35 / janfrog" |
|
10597 | 722 |
"Modified (format): / 19-08-2011 / 08:59:41 / cg" |
8779 | 723 |
! |
724 |
||
725 |
currentObject |
|
726 |
^ self navigationState theObject |
|
727 |
||
728 |
"Created: / 13-01-2008 / 10:14:47 / janfrog" |
|
729 |
"Modified: / 17-02-2008 / 09:49:01 / janfrog" |
|
730 |
! |
|
731 |
||
732 |
currentState |
|
733 |
^ self navigationHistoryHolder currentItem |
|
734 |
||
735 |
"Created: / 21-02-2008 / 19:39:45 / janfrog" |
|
736 |
"Modified: / 27-02-2008 / 11:56:55 / janfrog" |
|
737 |
! |
|
738 |
||
10597 | 739 |
forwardButtonEnabled:value |
740 |
^ self forwardButtonEnabledHolder value:value |
|
8779 | 741 |
|
742 |
"Created: / 12-01-2008 / 19:14:48 / janfrog" |
|
10597 | 743 |
"Modified (format): / 19-08-2011 / 08:59:45 / cg" |
8779 | 744 |
! |
745 |
||
746 |
navigationState |
|
10379 | 747 |
^ self navigationHistoryHolder value currentItem |
8779 | 748 |
|
749 |
"Created: / 17-02-2008 / 09:49:01 / janfrog" |
|
750 |
"Modified: / 21-02-2008 / 19:34:14 / janfrog" |
|
10379 | 751 |
"Modified: / 22-07-2011 / 19:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8779 | 752 |
! |
753 |
||
754 |
navigationState:historyItem |
|
10379 | 755 |
self navigationHistoryHolder "subjectChannel:" value currentItem:historyItem. |
8779 | 756 |
|
757 |
"/self fixNavigation. "Nevola se kvuli problemu s prekreslovanim" |
|
758 |
"/self updateTabs. |
|
759 |
||
760 |
"Created: / 17-02-2008 / 09:49:11 / janfrog" |
|
761 |
"Modified: / 21-02-2008 / 19:47:26 / janfrog" |
|
10379 | 762 |
"Modified: / 22-07-2011 / 19:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10597 | 763 |
"Modified: / 19-08-2011 / 09:16:38 / cg" |
8779 | 764 |
! ! |
765 |
||
766 |
!Inspector2 methodsFor:'aspects'! |
|
767 |
||
768 |
backButtonEnabledHolder |
|
769 |
"return/create the 'backButtonEnabledHolder' value holder (automatically generated)" |
|
770 |
||
771 |
^(AspectAdaptor forAspect:#canGoBack) |
|
772 |
subjectChannel: self navigationHistoryHolder |
|
773 |
||
774 |
"Created: / 12-01-2008 / 19:13:49 / janfrog" |
|
775 |
"Modified: / 27-02-2008 / 12:11:30 / janfrog" |
|
776 |
! |
|
777 |
||
10597 | 778 |
browseButtonEnabledHolder |
779 |
^ BlockValue |
|
780 |
with:[:m | m notNil] |
|
781 |
argument:self navigationStateAspect |
|
782 |
||
783 |
"Created: / 19-08-2011 / 09:22:47 / cg" |
|
784 |
! |
|
785 |
||
11142 | 786 |
colorProfileHolder |
787 |
"return/create the 'colorProfileHolder' value holder (automatically generated)" |
|
788 |
||
789 |
colorProfileHolder isNil ifTrue:[ |
|
790 |
colorProfileHolder := ValueHolder with: #default. |
|
791 |
]. |
|
792 |
^ colorProfileHolder |
|
793 |
||
794 |
"Modified: / 17-01-2012 / 12:54:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
795 |
! |
|
796 |
||
10597 | 797 |
currentObjectHolder |
798 |
currentObjectHolder isNil ifTrue:[ |
|
13805 | 799 |
currentObjectHolder := ValueHolder new. |
800 |
currentObjectHolder addDependent: self. |
|
10597 | 801 |
]. |
802 |
^ currentObjectHolder |
|
803 |
||
804 |
"Created: / 27-02-2008 / 12:05:22 / janfrog" |
|
805 |
"Created: / 19-08-2011 / 08:58:48 / cg" |
|
13805 | 806 |
"Modified: / 26-10-2013 / 00:34:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10597 | 807 |
! |
808 |
||
809 |
currentObjectIsFilename |
|
810 |
^ BlockValue |
|
811 |
with:[:o | o isFilename ] |
|
812 |
argument:self currentObjectHolder |
|
813 |
||
814 |
"Created: / 19-08-2011 / 08:56:27 / cg" |
|
815 |
! |
|
816 |
||
11134 | 817 |
currentObjectIsImage |
818 |
^ BlockValue |
|
819 |
with:[:o | o isImageOrForm ] |
|
820 |
argument:self currentObjectHolder |
|
821 |
||
822 |
"Created: / 15-01-2012 / 10:06:28 / cg" |
|
823 |
! |
|
824 |
||
13805 | 825 |
evaluationLanguageComboVisibleHolder |
826 |
<resource: #uiAspect> |
|
827 |
||
828 |
"/ Do not show language combo when language is Smalltalk. |
|
829 |
"/ For those not working with multiple languages is too disturbing. |
|
830 |
^ BlockValue |
|
831 |
with:[:o | o class programmingLanguage isSmalltalk not ] |
|
832 |
argument:self currentObjectHolder |
|
833 |
||
834 |
"Modified (comment): / 25-10-2013 / 19:39:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
835 |
! |
|
836 |
||
837 |
evaluationLanguageHolder |
|
838 |
<resource: #uiAspect> |
|
839 |
||
840 |
evaluationLanguageHolder isNil ifTrue:[ |
|
841 |
evaluationLanguageHolder := ValueHolder new. |
|
842 |
evaluationLanguageHolder addDependent:self. |
|
843 |
]. |
|
844 |
^ evaluationLanguageHolder. |
|
845 |
||
846 |
"Modified: / 26-10-2013 / 00:43:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
847 |
! |
|
848 |
||
849 |
evaluationLanguageList |
|
850 |
<resource: #uiAspect> |
|
851 |
||
852 |
evaluationLanguageList isNil ifTrue:[ |
|
853 |
evaluationLanguageList := ValueHolder new. |
|
854 |
]. |
|
855 |
^ evaluationLanguageList. |
|
856 |
! |
|
857 |
||
11229 | 858 |
expandArraysInAllList |
859 |
^ InspectorView expandArraysInAllLists |
|
860 |
||
861 |
"Created: / 30-01-2012 / 16:52:46 / cg" |
|
862 |
! |
|
863 |
||
864 |
expandArraysInAllList:aBoolean |
|
865 |
InspectorView expandArraysInAllLists:aBoolean |
|
866 |
||
867 |
"Created: / 30-01-2012 / 16:53:15 / cg" |
|
868 |
! |
|
869 |
||
8779 | 870 |
forwardButtonEnabledHolder |
871 |
"return/create the 'backButtonEnabledHolder' value holder (automatically generated)" |
|
872 |
||
873 |
^(AspectAdaptor forAspect:#canGoForward) |
|
874 |
subjectChannel: self navigationHistoryHolder |
|
875 |
||
876 |
"Created: / 12-01-2008 / 19:13:49 / janfrog" |
|
877 |
"Modified: / 27-02-2008 / 12:11:26 / janfrog" |
|
878 |
! |
|
879 |
||
880 |
navigationHistoryHolder |
|
881 |
"return/create the 'currentItemHolder' value holder (automatically generated)" |
|
882 |
||
883 |
navigationHistoryHolder isNil ifTrue:[ |
|
884 |
navigationHistoryHolder := Tools::NavigationHistory new. |
|
885 |
]. |
|
886 |
^ navigationHistoryHolder |
|
887 |
||
888 |
"Created: / 21-02-2008 / 19:34:14 / janfrog" |
|
889 |
! |
|
890 |
||
891 |
navigationStateAspect |
|
10597 | 892 |
navigationStateAspect isNil ifTrue:[ |
893 |
navigationStateAspect := (AspectAdaptor forAspect:#currentItem) |
|
894 |
subjectChannel:self navigationHistoryHolder |
|
895 |
]. |
|
896 |
^ navigationStateAspect |
|
8779 | 897 |
|
898 |
"Created: / 27-02-2008 / 12:05:22 / janfrog" |
|
10597 | 899 |
"Modified (format): / 19-08-2011 / 08:59:10 / cg" |
8779 | 900 |
! |
901 |
||
902 |
tabLabelsAspect |
|
903 |
^ (AspectAdaptor forAspect:#tabLabels) |
|
10597 | 904 |
subjectChannel:self navigationStateAspect |
8779 | 905 |
|
906 |
"Created: / 16-01-2008 / 17:29:52 / janfrog" |
|
907 |
"Modified: / 27-02-2008 / 12:05:32 / janfrog" |
|
10597 | 908 |
"Modified (format): / 19-08-2011 / 08:59:21 / cg" |
8779 | 909 |
! |
910 |
||
911 |
tabSelectionIndexAspect |
|
912 |
^ ((AspectAdaptor forAspect:#selectionIndex) |
|
913 |
subjectChannel:self navigationStateAspect) |
|
914 |
onChangeEvaluate:[ self tabViewAspect changed ]; |
|
915 |
yourself |
|
916 |
||
917 |
"Created: / 16-01-2008 / 17:29:29 / janfrog" |
|
918 |
"Modified: / 27-02-2008 / 12:06:05 / janfrog" |
|
919 |
! |
|
920 |
||
921 |
tabViewAspect |
|
10597 | 922 |
tabViewAspect isNil ifTrue:[ |
923 |
tabViewAspect := (AspectAdaptor forAspect:#selectionView) |
|
924 |
subjectChannel:self navigationStateAspect |
|
925 |
]. |
|
8779 | 926 |
^ tabViewAspect |
927 |
||
928 |
"Created: / 16-01-2008 / 17:30:05 / janfrog" |
|
929 |
"Modified: / 27-02-2008 / 12:05:46 / janfrog" |
|
10597 | 930 |
"Modified (format): / 19-08-2011 / 08:59:35 / cg" |
8779 | 931 |
! |
932 |
||
11142 | 933 |
toolbarBackgroundHolder |
934 |
"return/create the 'toolbarBackgroundHolder' value holder (automatically generated)" |
|
935 |
||
936 |
toolbarBackgroundHolder isNil ifTrue:[ |
|
937 |
toolbarBackgroundHolder := BlockValue |
|
938 |
with: [:profile| |
|
939 |
| clr | |
|
940 |
||
941 |
clr := ColorProfiles at: profile value. |
|
942 |
clr isNil ifTrue:[ |
|
943 |
clr := MenuPanel defaultBackgroundColor |
|
944 |
]. |
|
945 |
clr. |
|
946 |
] argument: self colorProfileHolder |
|
947 |
]. |
|
948 |
^ toolbarBackgroundHolder |
|
949 |
||
950 |
"Modified: / 17-01-2012 / 13:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
951 |
! |
|
952 |
||
8779 | 953 |
windowTitleAspect |
954 |
^ (AspectAdaptor forAspect:#displayString) |
|
955 |
subjectChannel:self navigationStateAspect |
|
956 |
||
957 |
"Created: / 17-02-2008 / 08:42:21 / janfrog" |
|
958 |
"Modified: / 27-02-2008 / 12:05:56 / janfrog" |
|
959 |
! ! |
|
960 |
||
13805 | 961 |
!Inspector2 methodsFor:'change & update'! |
962 |
||
963 |
update:something with:aParameter from:changedObject |
|
964 |
"Invoked when an object that I depend upon sends a change notification." |
|
965 |
||
966 |
"stub code automatically generated - please change as required" |
|
967 |
||
968 |
changedObject == currentObjectHolder ifTrue:[ |
|
969 |
self updateEvaluationLanguageList. |
|
970 |
^ self. |
|
971 |
]. |
|
972 |
changedObject == evaluationLanguageHolder ifTrue:[ |
|
973 |
self updateEvaluationLanguage. |
|
974 |
^ self. |
|
975 |
]. |
|
976 |
super update:something with:aParameter from:changedObject |
|
977 |
||
978 |
"Modified: / 26-10-2013 / 00:44:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
979 |
! |
|
980 |
||
981 |
updateEvaluationLanguage |
|
13966
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
982 |
| evaluationLanguage objectsLanguage lastLanguage | |
13805 | 983 |
|
984 |
evaluationLanguage := self evaluationLanguageHolder value. |
|
985 |
"/ Remember user's selection for future... |
|
13966
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
986 |
objectsLanguage := self currentObject class programmingLanguage. |
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
987 |
lastLanguage := EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ]. |
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
988 |
lastLanguage ~~ evaluationLanguage ifTrue:[ |
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
989 |
EvaluationLanguageMap at: objectsLanguage put: evaluationLanguage |
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
990 |
]. |
13805 | 991 |
"/ Update compiler class in all inspectors... |
992 |
self setDoItActionForLanguage: evaluationLanguage. |
|
993 |
||
994 |
"Created: / 26-10-2013 / 00:36:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
13966
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
995 |
"Modified: / 18-02-2014 / 23:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13805 | 996 |
! |
997 |
||
998 |
updateEvaluationLanguageList |
|
999 |
| currentObject currentObjectLanguage | |
|
1000 |
||
1001 |
currentObject := self currentObject. |
|
1002 |
currentObjectLanguage := currentObject class programmingLanguage. |
|
1003 |
currentObjectLanguage isSmalltalk ifFalse:[ |
|
1004 |
self evaluationLanguageList value: (Array with: currentObjectLanguage with: SmalltalkLanguage instance) |
|
1005 |
] ifTrue:[ |
|
1006 |
self evaluationLanguageList value: (Array with: currentObjectLanguage). |
|
1007 |
]. |
|
1008 |
||
1009 |
self evaluationLanguageHolder value:(EvaluationLanguageMap at: currentObjectLanguage ifAbsent:[currentObjectLanguage]) |
|
1010 |
||
1011 |
"Created: / 26-10-2013 / 00:40:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1012 |
! ! |
|
1013 |
||
12734 | 1014 |
!Inspector2 methodsFor:'configuration'! |
1015 |
||
1016 |
hideHashes:aBoolean |
|
1017 |
"compatibiliy with InspectorView - must be implemented" |
|
1018 |
||
1019 |
#todo |
|
1020 |
! |
|
1021 |
||
1022 |
hideMessages:aBoolean |
|
1023 |
"compatibiliy with InspectorView - must be implemented" |
|
1024 |
||
1025 |
#todo |
|
12736 | 1026 |
! |
1027 |
||
12891 | 1028 |
maxItemsInHistory:aNumber |
1029 |
self navigationHistoryHolder value maxItemsInHistory:aNumber |
|
1030 |
! |
|
1031 |
||
12736 | 1032 |
suppressPseudoSlots:aBoolean |
1033 |
"compatibiliy with InspectorView - must be implemented" |
|
1034 |
||
1035 |
#todo |
|
12734 | 1036 |
! ! |
1037 |
||
13805 | 1038 |
!Inspector2 methodsFor:'hooks'! |
1039 |
||
1040 |
postBuildEvaluationLanguageCombo: aComboBoxView |
|
1041 |
"/ aComboBoxView font: (aComboBoxView font asSize: (aComboBoxView font size * 1.5) rounded) |
|
1042 |
||
1043 |
"Modified: / 26-10-2013 / 01:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1044 |
! ! |
|
1045 |
||
10379 | 1046 |
!Inspector2 methodsFor:'menu'! |
1047 |
||
1048 |
backButtonMenuChannel |
|
1049 |
^ [ self navigationHistoryHolder goBackMenu ] |
|
1050 |
||
1051 |
"Created: / 12-01-2008 / 18:57:08 / janfrog" |
|
1052 |
"Modified: / 22-02-2008 / 16:57:46 / janfrog" |
|
1053 |
! |
|
1054 |
||
1055 |
forwardButtonMenuChannel |
|
1056 |
^ [ self navigationHistoryHolder goForwardMenu ] |
|
1057 |
||
1058 |
"Created: / 12-01-2008 / 18:57:30 / janfrog" |
|
1059 |
"Modified: / 22-02-2008 / 16:58:11 / janfrog" |
|
12836 | 1060 |
! |
1061 |
||
1062 |
settingsMenu |
|
1063 |
|m| |
|
1064 |
||
1065 |
m := self class settingsMenu decodeAsLiteralArray. |
|
1066 |
m itemsDo:[:eachItem | |
|
1067 |
|lbl labelWithColor clr| |
|
1068 |
||
1069 |
lbl := resources string:eachItem label. |
|
1070 |
(eachItem choiceValue ? #default) ~~ #default ifTrue:[ |
|
1071 |
clr := Color perform:eachItem choiceValue. |
|
1072 |
labelWithColor := lbl asText backgroundColorizeAllWith:clr. |
|
1073 |
clr brightness < 0.5 ifTrue:[ |
|
1074 |
labelWithColor := labelWithColor colorizeAllWith:Color white. |
|
1075 |
]. |
|
1076 |
eachItem label:labelWithColor. |
|
1077 |
]. |
|
1078 |
]. |
|
1079 |
^ m |
|
10379 | 1080 |
! ! |
1081 |
||
1082 |
!Inspector2 methodsFor:'menu actions'! |
|
8779 | 1083 |
|
1084 |
backButtonAction |
|
10320 | 1085 |
self navigationHistoryHolder goBack. |
1086 |
self updateWindowLabel |
|
8779 | 1087 |
|
1088 |
"Modified: / 21-02-2008 / 19:40:23 / janfrog" |
|
10320 | 1089 |
"Modified: / 15-07-2011 / 16:26:28 / cg" |
8779 | 1090 |
! |
1091 |
||
10379 | 1092 |
browseClassAction |
10636 | 1093 |
"open a class browser, or try to add a tab to the previously opened class browser" |
10597 | 1094 |
|
10460 | 1095 |
| class | |
10379 | 1096 |
|
1097 |
class := self currentObject class. |
|
8779 | 1098 |
|
13225 | 1099 |
"/ browser notNil ifTrue:[ |
1100 |
"/ "/ try to add a tab to the already opened browser |
|
1101 |
"/ (browser isKindOf:Tools::NewSystemBrowser) ifTrue:[ |
|
1102 |
"/ browser spawnClassBrowserFor:(Array with:class) in:#newBuffer. |
|
1103 |
"/ "/ browser spawnSingleClassBrowserFor:class in:#newBuffer. |
|
1104 |
"/ browser window raise. |
|
1105 |
"/ ^ self. |
|
1106 |
"/ ]. |
|
1107 |
"/ ]. |
|
10597 | 1108 |
"/ if that fails, open a new one |
1109 |
||
13015 | 1110 |
browser := UserPreferences systemBrowserClass |
11361 | 1111 |
openInClass:class selector:nil "/ browseSingleClass: class |
10379 | 1112 |
|
1113 |
"Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
13225 | 1114 |
"Modified: / 26-07-2013 / 15:36:51 / cg" |
10597 | 1115 |
! |
1116 |
||
1117 |
browseFileAction |
|
1118 |
"open a filebrowser on the file represented by the current object" |
|
1119 |
||
1120 |
| fn | |
|
1121 |
||
1122 |
fn := self currentObject asFilename. |
|
1123 |
UserPreferences current fileBrowserClass openOn:fn |
|
1124 |
||
1125 |
"Created: / 19-08-2011 / 09:29:44 / cg" |
|
8779 | 1126 |
! |
1127 |
||
11142 | 1128 |
changeColorAction: color |
1129 |
||
1130 |
self toolbarBackgroundHolder value: (Color perform: color asSymbol) |
|
1131 |
||
1132 |
"Created: / 17-01-2012 / 01:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1133 |
! |
|
1134 |
||
11134 | 1135 |
editImageAction |
1136 |
"open an imageEditor on the current object" |
|
1137 |
||
1138 |
| img | |
|
1139 |
||
1140 |
img := self currentObject. |
|
1141 |
ImageEditor openOnImage:img. |
|
1142 |
||
1143 |
"Created: / 15-01-2012 / 10:08:29 / cg" |
|
1144 |
! |
|
1145 |
||
8779 | 1146 |
forwardButtonAction |
10320 | 1147 |
self navigationHistoryHolder goForward. |
1148 |
self updateWindowLabel |
|
8779 | 1149 |
|
1150 |
"Created: / 21-02-2008 / 19:52:03 / janfrog" |
|
10320 | 1151 |
"Modified: / 15-07-2011 / 16:26:33 / cg" |
10636 | 1152 |
! |
1153 |
||
12836 | 1154 |
openDocumentation |
1155 |
HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#INSPECTOR'. |
|
1156 |
! |
|
1157 |
||
10636 | 1158 |
refreshTabs |
1159 |
self navigationHistoryHolder currentItem refreshTabs. |
|
1160 |
self tabViewAspect changed. |
|
1161 |
||
1162 |
"/ sel := selectionIndex. |
|
1163 |
"/ self selectionIndex:nil. |
|
1164 |
"/ self selectionIndex:sel. |
|
1165 |
||
1166 |
"Created: / 21-08-2011 / 08:23:00 / cg" |
|
8779 | 1167 |
! ! |
1168 |
||
1169 |
!Inspector2 methodsFor:'opening'! |
|
1170 |
||
10311 | 1171 |
closeDownViews |
1172 |
LastExtent := self window extent. |
|
1173 |
super closeDownViews. |
|
1174 |
||
1175 |
"Created: / 11-07-2011 / 22:33:47 / cg" |
|
1176 |
! |
|
1177 |
||
8779 | 1178 |
inspect:anObject |
13966
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
1179 |
| objectsLanguage | |
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
1180 |
|
10597 | 1181 |
self navigationHistoryHolder currentItem:(NavigationState for:anObject). |
1182 |
self window notNil ifTrue:[ |
|
10320 | 1183 |
self updateWindowLabel |
1184 |
]. |
|
13966
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
1185 |
objectsLanguage := anObject class programmingLanguage. |
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
1186 |
self evaluationLanguageHolder value:(EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ]). |
8779 | 1187 |
|
1188 |
"Modified: / 27-02-2008 / 12:06:52 / janfrog" |
|
10320 | 1189 |
"Modified: / 15-07-2011 / 16:26:03 / cg" |
10597 | 1190 |
"Modified (format): / 19-08-2011 / 09:01:20 / cg" |
13966
6ab4e7ae274a
Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13945
diff
changeset
|
1191 |
"Modified: / 18-02-2014 / 23:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8779 | 1192 |
! |
1193 |
||
1194 |
openOn: anObject |
|
10311 | 1195 |
self inspect: anObject. |
1196 |
self openWithExtent:(LastExtent ? nil). |
|
8779 | 1197 |
|
1198 |
"Modified: / 13-01-2008 / 13:55:27 / janfrog" |
|
10311 | 1199 |
"Modified: / 11-07-2011 / 22:31:42 / cg" |
10320 | 1200 |
! |
1201 |
||
1202 |
postBuildWith:aBuilder |
|
11373 | 1203 |
super postBuildWith:aBuilder. |
1204 |
||
10320 | 1205 |
self updateWindowLabel |
1206 |
||
1207 |
"Created: / 15-07-2011 / 16:25:36 / cg" |
|
1208 |
! |
|
1209 |
||
1210 |
updateWindowLabel |
|
10423
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
1211 |
|currentItem object| |
10320 | 1212 |
|
10423
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
1213 |
(currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[ |
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
1214 |
object := currentItem theObject. |
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
1215 |
]. |
10597 | 1216 |
self currentObjectHolder value:object. |
10320 | 1217 |
self window label:(InspectorView commonLabelFor:object). |
1218 |
||
1219 |
"Created: / 15-07-2011 / 16:25:42 / cg" |
|
8779 | 1220 |
! ! |
1221 |
||
13805 | 1222 |
!Inspector2 methodsFor:'private'! |
1223 |
||
1224 |
setDoItActionForLanguage: language |
|
1225 |
||
1226 |
||
1227 |
self currentState tabViews do:[:view | |
|
1228 |
(view respondsTo: #workspace) ifTrue:[ |
|
1229 |
view workspace doItAction: |
|
1230 |
[:theCode | |
|
1231 |
|evaluator| |
|
1232 |
||
1233 |
(evaluator := language evaluatorClass) |
|
1234 |
notNil ifTrue:[ |
|
1235 |
evaluator |
|
1236 |
evaluate:theCode |
|
1237 |
in:nil |
|
1238 |
receiver:self currentObject |
|
1239 |
notifying:view workspace |
|
1240 |
logged:true |
|
1241 |
ifFail:nil |
|
1242 |
] ifFalse:[ |
|
1243 |
'object''s class provides no evaluator' |
|
1244 |
] |
|
1245 |
]. |
|
1246 |
]. |
|
1247 |
] |
|
1248 |
||
1249 |
"Created: / 26-10-2013 / 01:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1250 |
! ! |
|
13168 | 1251 |
|
8779 | 1252 |
!Inspector2::NavigationState class methodsFor:'creating classes'! |
1253 |
||
10597 | 1254 |
for:anObject |
1255 |
|item| |
|
1256 |
||
1257 |
item := self new. |
|
1258 |
item theObject:anObject. |
|
1259 |
^ item. |
|
1260 |
||
1261 |
"Modified (format): / 19-08-2011 / 09:24:40 / cg" |
|
8779 | 1262 |
! ! |
1263 |
||
1264 |
!Inspector2::NavigationState class methodsFor:'documentation'! |
|
1265 |
||
9996 | 1266 |
version |
14260 | 1267 |
^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
9996 | 1268 |
! |
1269 |
||
8779 | 1270 |
version_SVN |
14260 | 1271 |
^'$Id: Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
8779 | 1272 |
! ! |
1273 |
||
1274 |
!Inspector2::NavigationState methodsFor:'accessing'! |
|
1275 |
||
1276 |
index |
|
1277 |
^ index |
|
1278 |
! |
|
1279 |
||
1280 |
index:something |
|
1281 |
index := something. |
|
1282 |
! |
|
1283 |
||
1284 |
selectionIndex |
|
10875 | 1285 |
selectionIndex isNil ifTrue:[^1]. |
8779 | 1286 |
selectionIndex < 1 ifTrue:[^1]. |
1287 |
selectionIndex > tabs size ifTrue:[^tabs size]. |
|
1288 |
^selectionIndex |
|
1289 |
||
1290 |
"Created: / 16-01-2008 / 17:24:27 / janfrog" |
|
1291 |
"Modified: / 17-02-2008 / 10:20:35 / janfrog" |
|
10875 | 1292 |
"Modified: / 18-11-2011 / 15:00:01 / cg" |
8779 | 1293 |
! |
1294 |
||
1295 |
selectionIndex: anInteger |
|
1296 |
selectionIndex := anInteger. |
|
1297 |
self changed:#selectionIndex |
|
1298 |
||
1299 |
"Created: / 16-01-2008 / 17:27:52 / janfrog" |
|
1300 |
"Modified: / 17-02-2008 / 09:46:45 / janfrog" |
|
1301 |
! |
|
1302 |
||
1303 |
selectionView |
|
1304 |
||
1305 |
|tab| |
|
1306 |
||
1307 |
tab := self tabs at: self selectionIndex. |
|
1308 |
^tab |
|
1309 |
ifNil:[nil] |
|
1310 |
ifNotNil:[tab view]. |
|
1311 |
||
1312 |
"Created: / 16-01-2008 / 17:31:19 / janfrog" |
|
1313 |
! |
|
1314 |
||
1315 |
tabLabels |
|
1316 |
||
1317 |
^self tabs collect:[:tab | tab label] |
|
1318 |
||
1319 |
"Created: / 16-01-2008 / 17:14:07 / janfrog" |
|
1320 |
! |
|
1321 |
||
1322 |
tabViews |
|
1323 |
||
14158
9367f43bf074
Performance fixes in Inspector2:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13966
diff
changeset
|
1324 |
^self tabs collect:[:tab | tab viewOrNil] |
8779 | 1325 |
|
1326 |
"Created: / 16-01-2008 / 17:14:13 / janfrog" |
|
14158
9367f43bf074
Performance fixes in Inspector2:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
13966
diff
changeset
|
1327 |
"Modified: / 24-03-2014 / 18:23:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8779 | 1328 |
! |
1329 |
||
1330 |
tabs |
|
1331 |
||
10875 | 1332 |
tabs isNil ifTrue:[self initializeTabs]. |
8779 | 1333 |
^tabs |
1334 |
||
1335 |
"Created: / 16-01-2008 / 16:51:53 / janfrog" |
|
10875 | 1336 |
"Modified: / 18-11-2011 / 15:00:05 / cg" |
8779 | 1337 |
! |
1338 |
||
1339 |
theObject |
|
1340 |
^ theObject |
|
1341 |
! |
|
1342 |
||
1343 |
theObject:anObject |
|
1344 |
theObject := anObject. |
|
10597 | 1345 |
self changed |
8779 | 1346 |
|
1347 |
"Modified: / 17-02-2008 / 08:38:44 / janfrog" |
|
10597 | 1348 |
"Modified: / 19-08-2011 / 09:16:25 / cg" |
8779 | 1349 |
! ! |
1350 |
||
1351 |
!Inspector2::NavigationState methodsFor:'comparing'! |
|
1352 |
||
1353 |
= anotherState |
|
1354 |
||
1355 |
^self class == anotherState class |
|
1356 |
and:[self theObject == anotherState theObject] |
|
1357 |
||
1358 |
"Created: / 21-02-2008 / 19:39:01 / janfrog" |
|
1359 |
! |
|
1360 |
||
1361 |
hash |
|
1362 |
||
1363 |
^theObject hash |
|
1364 |
||
1365 |
"Created: / 21-02-2008 / 19:38:08 / janfrog" |
|
1366 |
! ! |
|
1367 |
||
1368 |
!Inspector2::NavigationState methodsFor:'displaying'! |
|
1369 |
||
13084 | 1370 |
displayOn:aGCOrStream |
1371 |
||
1372 |
"/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
|
1373 |
"/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
|
1374 |
aGCOrStream isStream ifFalse:[ |
|
1375 |
^ super displayOn:aGCOrStream. |
|
1376 |
]. |
|
8779 | 1377 |
|
10392 | 1378 |
displayString isNil ifTrue:[ |
11280 | 1379 |
Error handle:[:ex | |
1380 |
displayString := '*ERROR*' |
|
1381 |
] do:[ |
|
1382 |
displayString := theObject printString contractAtEndTo:15. |
|
1383 |
]. |
|
13084 | 1384 |
displayString := displayString , ' [', (theObject className ? '???') , ']' |
10392 | 1385 |
]. |
13084 | 1386 |
aGCOrStream nextPutAll:displayString. |
8779 | 1387 |
|
1388 |
"Created: / 21-02-2008 / 19:53:07 / janfrog" |
|
11582
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1389 |
"Modified: / 13-06-2012 / 14:40:34 / cg" |
8779 | 1390 |
! ! |
1391 |
||
1392 |
!Inspector2::NavigationState methodsFor:'initialization'! |
|
1393 |
||
10379 | 1394 |
initializeClassBrowserTab |
11582
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1395 |
| browser spec cls canvas makeView view| |
11361 | 1396 |
|
1397 |
cls := theObject class theNonMetaclass. |
|
10379 | 1398 |
|
11361 | 1399 |
"/ spec := #singleClassBrowserSpec. |
1400 |
spec := #multipleClassBrowserSpec. |
|
1401 |
||
11582
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1402 |
makeView := [ |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1403 |
view isNil ifTrue:[ |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1404 |
browser := Tools::NewSystemBrowser new. |
11928 | 1405 |
browser isEmbeddedBrowser:true. |
11582
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1406 |
browser createBuilder. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1407 |
browser navigationState canvasType:spec. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1408 |
browser browserCanvasType:spec. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1409 |
canvas := browser browserCanvas value. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1410 |
canvas builder:(browser builder). |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1411 |
browser navigationState canvas:canvas. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1412 |
"/ browser switchToClassHierarchyView. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1413 |
"/ browser showInheritedMethods. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1414 |
browser classListGenerator value:(cls withAllSuperclasses). |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1415 |
browser sortByNameAndInheritance value:true. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1416 |
browser selectClass: cls. |
14189
70f7d9eb749b
In Class tab pre-select '* all *' protocol to show all methods.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14158
diff
changeset
|
1417 |
browser selectProtocol: (Tools::BrowserList nameListEntryForALL). |
11582
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1418 |
|
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1419 |
view := ApplicationSubView new client: browser spec: spec. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1420 |
]. |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1421 |
view |
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1422 |
]. |
10379 | 1423 |
|
1424 |
tabs add: |
|
1425 |
(Tools::Inspector2Tab new |
|
10629 | 1426 |
priority: 0; |
1427 |
label:'Class'; |
|
11582
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1428 |
viewHolder: makeView) |
10379 | 1429 |
|
1430 |
"Created: / 22-07-2011 / 18:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
11582
4daadd615c71
lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents:
11373
diff
changeset
|
1431 |
"Modified: / 13-06-2012 / 14:58:01 / cg" |
14189
70f7d9eb749b
In Class tab pre-select '* all *' protocol to show all methods.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14158
diff
changeset
|
1432 |
"Modified: / 09-04-2014 / 08:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10379 | 1433 |
! |
1434 |
||
8779 | 1435 |
initializeCommonTabs |
1436 |
||
10379 | 1437 |
"Unfinished code" |
13805 | 1438 |
"/ JV@2012-04-20: Don't add class tab, only takes time and nobody uses it anyway |
13945 | 1439 |
"/ cg: who says this: I use it all the time!! |
1440 |
self initializeClassBrowserTab |
|
10379 | 1441 |
|
9996 | 1442 |
"/ tabs add: |
1443 |
"/ (Tools::Inspector2Tab new |
|
1444 |
"/ priority: 50; |
|
1445 |
"/ label:'Object'; |
|
1446 |
"/ view: ((theObject inspectorClass new inspect:theObject) |
|
1447 |
"/ yourself)) |
|
8779 | 1448 |
|
1449 |
"Created: / 16-01-2008 / 16:56:48 / janfrog" |
|
1450 |
"Modified: / 17-02-2008 / 10:29:54 / janfrog" |
|
13805 | 1451 |
"Modified (comment): / 20-04-2012 / 20:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8779 | 1452 |
! |
1453 |
||
14232
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1454 |
initializeExtraTab: selector |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1455 |
"Initializes a extra tab specified by given selector" |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1456 |
|
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1457 |
| tab | |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1458 |
|
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1459 |
tab := [ theObject perform: selector ] |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1460 |
on: Error |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1461 |
do:[:ex| |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1462 |
"/ for debugging: |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1463 |
"/ ex reject. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1464 |
Transcript show:'error in inspector setup: ',ex description. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1465 |
Tools::Inspector2Tab new |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1466 |
label: selector; |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1467 |
text: |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1468 |
(ex description, Character cr, Character cr, |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1469 |
ex suspendedContext fullPrintAllString) |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1470 |
]. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1471 |
(tab notNil and:[tab isKindOf: Tools::Inspector2Tab]) ifTrue:[ |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1472 |
tabs add: tab |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1473 |
] |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1474 |
|
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1475 |
"Created: / 11-04-2014 / 19:58:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1476 |
! |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1477 |
|
8779 | 1478 |
initializeExtraTabs |
1479 |
||
14232
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1480 |
| selectors | |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1481 |
|
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1482 |
selectors := Set new. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1483 |
|
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1484 |
"/ Old style - tabs are specified by method #inspector2Tabs |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1485 |
theObject inspector2Tabs do: [:selector| |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1486 |
self initializeExtraTab: selector. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1487 |
selectors add: selector. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1488 |
]. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1489 |
|
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1490 |
"/ New style - tab are defined by method with annotation |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1491 |
theObject class selectorsAndMethodsDo: [ :selector :method | |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1492 |
(selectors includes: selector) not ifTrue:[ |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1493 |
(method hasAnnotation: #inspector2Tab) ifTrue:[ |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1494 |
self initializeExtraTab: selector. |
13168 | 1495 |
]. |
14232
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1496 |
]. |
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1497 |
] |
8779 | 1498 |
|
1499 |
"Created: / 16-01-2008 / 17:25:24 / janfrog" |
|
1500 |
"Modified: / 17-02-2008 / 10:30:43 / janfrog" |
|
1501 |
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
10636 | 1502 |
"Modified (format): / 21-08-2011 / 08:01:34 / cg" |
14232
0801fd0e860c
Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14189
diff
changeset
|
1503 |
"Modified: / 13-04-2014 / 20:58:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8779 | 1504 |
! |
1505 |
||
1506 |
initializeTabs |
|
1507 |
||
1508 |
tabs := OrderedCollection new. |
|
1509 |
self initializeCommonTabs. |
|
1510 |
self initializeExtraTabs. |
|
1511 |
tabs := tabs asSortedCollection:[:a :b|a priority > b priority]. |
|
1512 |
||
1513 |
"Created: / 16-01-2008 / 16:54:28 / janfrog" |
|
1514 |
"Modified: / 17-02-2008 / 10:08:04 / janfrog" |
|
10636 | 1515 |
! |
1516 |
||
1517 |
refreshTabs |
|
1518 |
tabs := nil. |
|
1519 |
self initializeTabs. |
|
1520 |
||
1521 |
"Created: / 21-08-2011 / 08:23:11 / cg" |
|
8779 | 1522 |
! ! |
1523 |
||
1524 |
!Inspector2 class methodsFor:'documentation'! |
|
1525 |
||
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1526 |
version |
14260 | 1527 |
^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1528 |
! |
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1529 |
|
8807 | 1530 |
version_CVS |
14260 | 1531 |
^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
8807 | 1532 |
! |
1533 |
||
8816 | 1534 |
version_CVS_jvrany |
14260 | 1535 |
^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
9996 | 1536 |
! |
1537 |
||
1538 |
version_SVN |
|
14260 | 1539 |
^ '$Id: Tools__Inspector2.st,v 1.50 2014-04-15 09:29:38 stefan Exp $' |
8779 | 1540 |
! ! |
11142 | 1541 |
|
12357 | 1542 |
|
11142 | 1543 |
Inspector2 initialize! |