author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 22 Feb 2012 09:55:48 +0000 | |
branch | jv |
changeset 12170 | 6c9c4b7981ee |
parent 12158 | 54259ef3a49d |
child 12175 | c36c8041ab10 |
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 |
12125 | 18 |
browser currentObjectHolder colorProfileHolder |
19 |
toolbarBackgroundHolder' |
|
20 |
classVariableNames:'LastExtent ColorProfiles' |
|
8779 | 21 |
poolDictionaries:'' |
10460 | 22 |
category:'Interface-Inspector2' |
8779 | 23 |
! |
24 |
||
10597 | 25 |
Model subclass:#NavigationState |
8779 | 26 |
instanceVariableNames:'theObject index tabs selectionIndex displayString' |
27 |
classVariableNames:'' |
|
28 |
poolDictionaries:'' |
|
29 |
privateIn:Inspector2 |
|
30 |
! |
|
31 |
||
9996 | 32 |
!Inspector2 class methodsFor:'documentation'! |
33 |
||
34 |
copyright |
|
35 |
" |
|
36 |
COPYRIGHT (c) 2006 by eXept Software AG |
|
37 |
All Rights Reserved |
|
38 |
||
39 |
This software is furnished under a license and may be used |
|
40 |
only in accordance with the terms of that license and with the |
|
41 |
inclusion of the above copyright notice. This software may not |
|
42 |
be provided or otherwise made available to, or used by, any |
|
43 |
other person. No title to or ownership of the software is |
|
44 |
hereby transferred. |
|
45 |
" |
|
10597 | 46 |
! |
47 |
||
48 |
description |
|
49 |
" |
|
50 |
an application for a multitab inspector |
|
51 |
extendable by the inspected object itself, by providing additional |
|
52 |
tabs via the inspector2XXX methods |
|
53 |
||
54 |
[author:] |
|
55 |
Jan Vrani |
|
56 |
" |
|
57 |
! ! |
|
58 |
||
12125 | 59 |
!Inspector2 class methodsFor:'initialization'! |
60 |
||
61 |
initialize |
|
62 |
"Invoked at system start or when the class is dynamically loaded." |
|
63 |
||
64 |
"/ please change as required (and remove this comment) |
|
65 |
||
66 |
||
67 |
ColorProfiles := Dictionary new. |
|
68 |
ColorProfiles |
|
69 |
at: #default put: nil; "default color" |
|
70 |
at: #red put: Color red lighter lighter; |
|
71 |
at: #green put: Color green lighter; |
|
72 |
at: #blue put: Color blue lighter; |
|
73 |
at: #yellow put: Color yellow lighter; |
|
74 |
at: #gray put: Color gray; |
|
75 |
yourself. |
|
76 |
||
77 |
"Modified: / 17-01-2012 / 12:57:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
78 |
! ! |
|
79 |
||
10597 | 80 |
!Inspector2 class methodsFor:'help specs'! |
81 |
||
82 |
flyByHelpSpec |
|
83 |
"This resource specification was automatically generated |
|
84 |
by the UIHelpTool of ST/X." |
|
85 |
||
86 |
"Do not manually edit this!! If it is corrupted, |
|
87 |
the UIHelpTool may not be able to read the specification." |
|
88 |
||
89 |
" |
|
90 |
UIHelpTool openOnClass:Tools::Inspector2 |
|
91 |
" |
|
92 |
||
93 |
<resource: #help> |
|
94 |
||
95 |
^ super flyByHelpSpec addPairsFrom:#( |
|
96 |
||
97 |
#backwardInVisitingHistory |
|
98 |
'Move backward in the history of previously visited objects' |
|
99 |
||
100 |
#browseClassOfShownObject |
|
12125 | 101 |
'Open a SystemBrowser on the shown object''s class' |
10597 | 102 |
|
103 |
#browseFile |
|
12125 | 104 |
'Open a FileBrowser on the file represented by the shown object' |
105 |
||
106 |
#editImage |
|
107 |
'Open an ImageEditor on the bitmap/image represented by the shown object' |
|
10597 | 108 |
|
109 |
#forwardInVisitingHistory |
|
110 |
'Move forward in the history of previously visited objects' |
|
111 |
||
12125 | 112 |
#colorProfile |
113 |
'Change the color profile' |
|
114 |
||
115 |
#refresh |
|
116 |
'Refresh for changed object' |
|
10597 | 117 |
|
118 |
) |
|
119 |
||
120 |
"Created: / 19-08-2011 / 08:52:33 / cg" |
|
12158 | 121 |
! |
122 |
||
123 |
helpSpec |
|
124 |
"This resource specification was automatically generated |
|
125 |
by the UIHelpTool of ST/X." |
|
126 |
||
127 |
"Do not manually edit this!! If it is corrupted, |
|
128 |
the UIHelpTool may not be able to read the specification." |
|
129 |
||
130 |
" |
|
131 |
UIHelpTool openOnClass:Tools::Inspector2 |
|
132 |
" |
|
133 |
||
134 |
<resource: #help> |
|
135 |
||
136 |
^ super helpSpec addPairsFrom:#( |
|
137 |
||
138 |
#colorProfile |
|
139 |
'' |
|
140 |
||
141 |
) |
|
9996 | 142 |
! ! |
8779 | 143 |
|
12125 | 144 |
!Inspector2 class methodsFor:'image specs'! |
145 |
||
146 |
settingsIcon |
|
147 |
||
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
148 |
<resource: #image> |
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
149 |
|
12125 | 150 |
^self settingsIcon5 |
151 |
||
152 |
"Modified: / 19-01-2012 / 14:00:35 / cg" |
|
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
153 |
"Modified: / 18-02-2012 / 16:28:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
12125 | 154 |
! |
155 |
||
156 |
settingsIcon1 |
|
157 |
"This resource specification was automatically generated |
|
158 |
by the ImageEditor of ST/X." |
|
159 |
||
160 |
"Do not manually edit this!! If it is corrupted, |
|
161 |
the ImageEditor may not be able to read the specification." |
|
162 |
||
163 |
" |
|
164 |
self settingsIcon inspect |
|
165 |
ImageEditor openOnClass:self andSelector:#settingsIcon |
|
166 |
Icon flushCachedIcons |
|
167 |
" |
|
168 |
||
169 |
<resource: #image> |
|
170 |
||
171 |
^Icon |
|
172 |
constantNamed:'Tools::Inspector2 class settingsIcon' |
|
173 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
174 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
175 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[G*LY'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y''6\ |
|
176 |
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>* |
|
177 |
^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@@@@@@@@ |
|
178 |
@@@@@@@@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- |
|
179 |
^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* |
|
180 |
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 |
|
181 |
-;^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@@@@@@@@ |
|
182 |
@@@@@@@@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'' |
|
183 |
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'' |
|
184 |
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* |
|
185 |
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@@@@@@@@ |
|
186 |
@@@@@@@@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 |
|
187 |
-[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 |
|
188 |
_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 |
|
189 |
I21 I21XH>1XG"V@@@@@@@@@@@@@@@@XG"V[(**'':"0-KR4-KR4-KR4-KR4-KR4-KR4^)^. I61 I61 I61 I61 I61_961_961_921Y(:0XG"V@@@@@@@@ |
|
190 |
@@@@@@@@W7^U\H2,[(&)[X"''[(&''[(&''[8&''\H*''\(2)]9F,^)N.^YJ.^YJ.^IF.]YB.\(:-\H6-[X2-[H.-W7^U@@@@@@@@@@@@@@@@X''BBW7^UW7^UW7^U |
|
191 |
W7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UXF:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
192 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
193 |
@@@@@@@@@@@@@@@@@@@@@@@@') ; 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] |
|
194 |
||
195 |
"Created: / 17-01-2012 / 12:45:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
196 |
! |
|
197 |
||
198 |
settingsIcon2 |
|
199 |
"This resource specification was automatically generated |
|
200 |
by the ImageEditor of ST/X." |
|
201 |
||
202 |
"Do not manually edit this!! If it is corrupted, |
|
203 |
the ImageEditor may not be able to read the specification." |
|
204 |
||
205 |
" |
|
206 |
self settingsIcon2 inspect |
|
207 |
ImageEditor openOnClass:self andSelector:#settingsIcon2 |
|
208 |
Icon flushCachedIcons |
|
209 |
" |
|
210 |
||
211 |
<resource: #image> |
|
212 |
||
213 |
^Icon |
|
214 |
constantNamed:'Tools::Inspector2 class settingsIcon2' |
|
215 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
216 |
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU |
|
217 |
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"9J["IR#"IR#"IR#"IR#"IR#"IR#"IR#"IR#"IN# |
|
218 |
!!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* |
|
219 |
$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 |
|
220 |
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>+ |
|
221 |
$)>,$)>,$)>,$)>,$)>,$):+$I2*"9"''!!YJ#)*./6=/[6=/[6=/[6=/["YZ&!!YF UUUUUUUUUUUUUUUU!!9N"#92*#)2*#Y2+#)2+#)2+#)2+#)2+#Y2*#I.* |
|
222 |
")"(!!)R%)*./6=/[6=/[6=/[6=/[6=/[!!9R%!!YF UUUUUUUUUUUUUUUU!!)J!!")&)"Y*)"Y*)"Y*)"Y*)"Y*)"Y*)"Y&)!!9^(!!IR%)**.6=/[6=/[6=/[6=/[ |
|
223 |
6=/[6=/[!!YN%!!YB UUUUUUUUUUUUUUUU!!)J!!"IZ(!!)")!!)")!!)")!!)")!!)")!!)")!!)^)!!IV'')**.6=/[6=/[6=/[6=/[_(6!!6=/[6=/[ 9N%!!YF UUUUUUUU |
|
224 |
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( |
|
225 |
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( |
|
226 |
YV( IR'' IN'' IR'' YV( )Z) )Z) YV( )Z)!!)F!!UUUUUUUUUUUUUUUU!!)J!! )F$)Z*._9N& YZ(_9N&)Z*.6-+Z6-+Z_9N& )Z) )^* )^) )^* )^* )^* |
|
227 |
)"* 9"* )"*!!)J!!UUUUUUUUUUUUUUUU!!)J!! 9J%)Z*.)Z*._9J%)Z*.6-+Z6-+Z6-+Z6-+Z!!I"*!!).,!!).,!!).,!!).,!!).,!!).,!!).,!!)*+!!)J!!UUUUUUUU |
|
228 |
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 |
|
229 |
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- |
|
230 |
$: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- |
|
231 |
%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 |
|
232 |
UUUUUUUU!!IB_#Y.+#I&)"9&(#I&(#I&(#I&(#Y*(#).)$I6+$):,$Y:,$Y:,$Y6,#96,#)2+#Y.+"9.+"9*+!!IB_UUUUUUUUUUUUUUUU!!(6V!!IB_!!IB_!!IB_ |
|
233 |
!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!X2UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU |
|
234 |
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU |
|
235 |
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] |
|
236 |
! |
|
237 |
||
238 |
settingsIcon3 |
|
239 |
"This resource specification was automatically generated |
|
240 |
by the ImageEditor of ST/X." |
|
241 |
||
242 |
"Do not manually edit this!! If it is corrupted, |
|
243 |
the ImageEditor may not be able to read the specification." |
|
244 |
||
245 |
" |
|
246 |
self settingsIcon3 inspect |
|
247 |
ImageEditor openOnClass:self andSelector:#settingsIcon3 |
|
248 |
Icon flushCachedIcons |
|
249 |
" |
|
250 |
||
251 |
<resource: #image> |
|
252 |
||
253 |
^Icon |
|
254 |
constantNamed:'Tools::Inspector2 class settingsIcon3' |
|
255 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
256 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
257 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S? |
|
258 |
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? |
|
259 |
"\W?$<+?(]C?UZO?@@@@@@@@@@@@@@@@VJ[?)]''?+]S?-M_?-=7?/M/?/M/?/NC?/-3?-=7?+MK?7OC?7OC?7OC?7OC?7OC?7OC?7OC?"<S?TI??@@@@@@@@ |
|
260 |
@@@@@@@@VJ[?(]W?*]G?*=S?*=+?*=+?*=S?*=S?*=S?*]G?''L3?!![??7OC?????????????????????[+''?S:G?@@@@@@@@@@@@@@@@UZO?%\/?$<+?$\''? |
|
261 |
#,''?#,''?#,''?#,''?#,''?#\#? <O?Y;S?QZK?6.????7=??7=??7=??7=W;C?SI??@@@@@@@@@@@@@@@@UZO?^<K?^LC?\,G?]<K?]<K?]<K?]<K?]LW?\LO? |
|
262 |
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???+:??+:??+:??+: |
|
263 |
??+:??+:RZ[?RI3?@@@@@@@@@@@@@@@@TJK?VJ??S+''?S+''?S+''?S+''?S+''?S+''?S[K?Q*7?5>7???+:??+:??+:??+:DH''???+:??+:OJW?RI3?@@@@@@@@ |
|
264 |
@@@@@@@@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? |
|
265 |
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? |
|
266 |
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+/? |
|
267 |
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?@@@@@@@@ |
|
268 |
@@@@@@@@SJK?RZK?4^+???S44^+???S4??S4??S4??S4R[3?XL3?Y,;?Y,;?Y,;?Y,;?Y,;?Y,;?Y,;?O<_?SJK?@@@@@@@@@@@@@@@@SJK?VZ7?4^+???S4 |
|
269 |
??S4??S4??S4??S4XLO?]-K?_=S?_=S?_=S?_=S?_=S?_=S?_=S?_=S?O,??SJK?@@@@@@@@@@@@@@@@RI3?YKG?3>''???K2??K2??K2??K2V;/? =K?$]#? |
|
270 |
$]#?$]#?$]#?$]#?$]#?$]#?$]#?#=_?O]O?RI3?@@@@@@@@@@@@@@@@RI3?ZK[?3>''???K2??K2??K2??K2??K2]L#?%]_?&-7?&-7?&-7?&-7?&-7?&-7? |
|
271 |
&-+?&-+?P<7?RI3?@@@@@@@@@@@@@@@@RI3?[[+?3>''???K2??K2??K2??K2??K2??K2"=K?&-7?&-7?&-7?&-7?&-7?%=+?%=+?%=+?U<''?RI3?@@@@@@@@ |
|
272 |
@@@@@@@@QY3?\[7?[+''?Z;''?[K/?[K/?[+''?\[3?]+7?!!,W?"<#?",W?",W?!!<S?_,S?]<K?\+;?[K;?Z[/?QY3?@@@@@@@@@@@@@@@@M8;?QY3?QY3?QY3? |
|
273 |
QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?K(;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
274 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
275 |
@@@@@@@@@@@@@@@@@@@@@@@@') ; 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] |
|
276 |
! |
|
277 |
||
278 |
settingsIcon4 |
|
279 |
"This resource specification was automatically generated |
|
280 |
by the ImageEditor of ST/X." |
|
281 |
||
282 |
"Do not manually edit this!! If it is corrupted, |
|
283 |
the ImageEditor may not be able to read the specification." |
|
284 |
||
285 |
" |
|
286 |
self settingsIcon4 inspect |
|
287 |
ImageEditor openOnClass:self andSelector:#settingsIcon4 |
|
288 |
Icon flushCachedIcons |
|
289 |
" |
|
290 |
||
291 |
<resource: #image> |
|
292 |
||
293 |
^Icon |
|
294 |
constantNamed:'Tools::Inspector2 class settingsIcon4' |
|
295 |
ifAbsentPut:[(Depth24Image new) width: 24; height: 24; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' |
|
296 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
297 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S? |
|
298 |
VJ[?UZO?TJK?TI??TI??TI??TJK?UZO?VJ[?TZC?@@@@@@@@@@@@@@@@VJ[???>1??>1??>1??>5??><??>????C???E???A??>7??>*??>X??>J??>F??>C |
|
299 |
??>H??>S??> UZO?@@@@@@@@@@@@@@@@VJ[???>%??>-??>4??>7??><??><??><??>>??>7??>*??>*??>J??>J??>J??>J??>J??>J??>JTI??@@@@@@@@ |
|
300 |
@@@@@@@@VJ[???> ??>)??>+??>+??>+??>+??>+??>+??>)??>\??>D??>D??>D??>D??>D??=-??=-??=-S:G?@@@@@@@@@@@@@@@@UZO???>U??>S??>Q |
|
301 |
?/:N?/:N?/:N?/:N?/:N?/:N?/:N??=&??=&??=&??=&??=_??=_??=_??=_SI??@@@@@@@@@@@@@@@@UZO???=;??=8??=1??=6??=6?/:N?/:N?/:N?/:N |
|
302 |
??=#?/=P?/=P?/=P?/=P??=U??=U??=U??=USI??@@@@@@@@@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[? |
|
303 |
Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@ |
|
304 |
@@@@@@@@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[[? |
|
305 |
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[[? |
|
306 |
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[[? |
|
307 |
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?@@@@@@@@ |
|
308 |
@@@@@@@@SJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SJK?@@@@@@@@@@@@@@@@SJK?Y[[?Y[[?Y[[? |
|
309 |
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[[? |
|
310 |
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[[? |
|
311 |
Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@RI3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@ |
|
312 |
@@@@@@@@QY3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?QY3?@@@@@@@@@@@@@@@@M8;?QY3?QY3?QY3? |
|
313 |
QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?K(;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
314 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
315 |
@@@@@@@@@@@@@@@@@@@@@@@@') ; 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] |
|
316 |
! |
|
317 |
||
318 |
settingsIcon5 |
|
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
319 |
|
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
320 |
<resource: #image> |
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
321 |
|
12125 | 322 |
^ GenericToolbarIconLibrary palette16x16Icon |
323 |
||
324 |
"Created: / 19-01-2012 / 14:00:24 / cg" |
|
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
325 |
"Modified: / 18-02-2012 / 16:28:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
12125 | 326 |
! ! |
327 |
||
8779 | 328 |
!Inspector2 class methodsFor:'interface specs'! |
329 |
||
330 |
windowSpec |
|
331 |
"This resource specification was automatically generated |
|
332 |
by the UIPainter of ST/X." |
|
333 |
||
334 |
"Do not manually edit this!! If it is corrupted, |
|
335 |
the UIPainter may not be able to read the specification." |
|
336 |
||
337 |
" |
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
338 |
UIPainter new openOnClass:Tools::Inspector2 andSelector:#windowSpec |
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
339 |
Tools::Inspector2 new openInterface:#windowSpec |
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
340 |
Tools::Inspector2 open |
8779 | 341 |
" |
342 |
||
343 |
<resource: #canvas> |
|
344 |
||
345 |
^ |
|
346 |
#(FullSpec |
|
347 |
name: windowSpec |
|
348 |
window: |
|
349 |
(WindowSpec |
|
350 |
label: 'Inspector2' |
|
351 |
name: 'Inspector2' |
|
352 |
labelChannel: windowTitleAspect |
|
353 |
min: (Point 0 0) |
|
354 |
bounds: (Rectangle 0 0 388 421) |
|
12158 | 355 |
menu: mainMenu |
8779 | 356 |
) |
357 |
component: |
|
358 |
(SpecCollection |
|
359 |
collection: ( |
|
360 |
(MenuPanelSpec |
|
361 |
name: 'ToolBar' |
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
362 |
layout: (LayoutFrame 0 0 0 0 0 1 40 0) |
12125 | 363 |
backgroundChannel: toolbarBackgroundHolder |
8779 | 364 |
menu: toolbarMenu |
365 |
textDefault: true |
|
366 |
) |
|
367 |
(NoteBookViewSpec |
|
368 |
name: 'NoteBook' |
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
369 |
layout: (LayoutFrame 0 0 40 0 0 1 0 1) |
8779 | 370 |
model: tabSelectionIndexAspect |
371 |
menu: tabLabelsAspect |
|
372 |
useIndex: true |
|
373 |
fitLastRow: false |
|
374 |
canvas: tabViewAspect |
|
375 |
keepCanvasAlive: true |
|
376 |
) |
|
377 |
) |
|
378 |
||
379 |
) |
|
380 |
) |
|
381 |
! ! |
|
382 |
||
383 |
!Inspector2 class methodsFor:'menu specs'! |
|
384 |
||
12158 | 385 |
mainMenu |
386 |
"This resource specification was automatically generated |
|
387 |
by the MenuEditor of ST/X." |
|
388 |
||
389 |
"Do not manually edit this!! If it is corrupted, |
|
390 |
the MenuEditor may not be able to read the specification." |
|
391 |
||
392 |
||
393 |
" |
|
394 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu |
|
395 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp |
|
396 |
" |
|
397 |
||
398 |
<resource: #menu> |
|
399 |
||
400 |
^ |
|
401 |
#(Menu |
|
402 |
( |
|
403 |
(MenuItem |
|
404 |
label: 'File' |
|
405 |
translateLabel: true |
|
406 |
submenu: |
|
407 |
(Menu |
|
408 |
( |
|
409 |
(MenuItem |
|
410 |
label: 'Exit' |
|
411 |
itemValue: closeRequest |
|
412 |
translateLabel: true |
|
413 |
) |
|
414 |
) |
|
415 |
nil |
|
416 |
nil |
|
417 |
) |
|
418 |
) |
|
419 |
(MenuItem |
|
420 |
label: 'View' |
|
421 |
translateLabel: true |
|
422 |
submenu: |
|
423 |
(Menu |
|
424 |
( |
|
425 |
(MenuItem |
|
426 |
label: 'Expand Arrays in All-List' |
|
427 |
itemValue: expandArraysInAllList: |
|
428 |
translateLabel: true |
|
429 |
indication: expandArraysInAllList |
|
430 |
) |
|
431 |
(MenuItem |
|
432 |
label: '-' |
|
433 |
) |
|
434 |
(MenuItem |
|
435 |
label: 'Color Setting' |
|
436 |
translateLabel: true |
|
437 |
submenuChannel: settingsMenu |
|
438 |
) |
|
439 |
) |
|
440 |
nil |
|
441 |
nil |
|
442 |
) |
|
443 |
) |
|
444 |
) |
|
445 |
nil |
|
446 |
nil |
|
447 |
) |
|
448 |
! |
|
449 |
||
12125 | 450 |
settingsMenu |
451 |
"This resource specification was automatically generated |
|
452 |
by the MenuEditor of ST/X." |
|
453 |
||
454 |
"Do not manually edit this!! If it is corrupted, |
|
455 |
the MenuEditor may not be able to read the specification." |
|
456 |
||
457 |
||
458 |
" |
|
459 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#settingsMenu |
|
460 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 settingsMenu)) startUp |
|
461 |
" |
|
462 |
||
463 |
<resource: #menu> |
|
464 |
||
465 |
^ |
|
466 |
#(Menu |
|
467 |
( |
|
468 |
(MenuItem |
|
469 |
label: 'Default' |
|
470 |
nameKey: #'Default' |
|
471 |
translateLabel: true |
|
472 |
choice: colorProfileHolder |
|
473 |
choiceValue: default |
|
474 |
) |
|
475 |
(MenuItem |
|
476 |
label: 'Red' |
|
477 |
nameKey: #'Red' |
|
478 |
translateLabel: true |
|
479 |
choice: colorProfileHolder |
|
480 |
choiceValue: red |
|
481 |
) |
|
482 |
(MenuItem |
|
483 |
label: 'Green' |
|
484 |
nameKey: #'Green' |
|
485 |
translateLabel: true |
|
486 |
choiceValue: green |
|
487 |
choice: colorProfileHolder |
|
488 |
) |
|
489 |
(MenuItem |
|
490 |
label: 'Blue' |
|
491 |
nameKey: #'Blue' |
|
492 |
translateLabel: true |
|
493 |
choiceValue: blue |
|
494 |
choice: colorProfileHolder |
|
495 |
) |
|
496 |
(MenuItem |
|
497 |
label: 'Yellow' |
|
498 |
nameKey: #'Yellow' |
|
499 |
translateLabel: true |
|
500 |
choiceValue: yellow |
|
501 |
choice: colorProfileHolder |
|
502 |
) |
|
503 |
(MenuItem |
|
504 |
label: 'Gray' |
|
505 |
nameKey: #'Gray' |
|
506 |
translateLabel: true |
|
507 |
choiceValue: gray |
|
508 |
choice: colorProfileHolder |
|
509 |
) |
|
510 |
) |
|
511 |
nil |
|
512 |
nil |
|
513 |
) |
|
514 |
||
515 |
"Modified: / 17-01-2012 / 13:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
516 |
! |
|
517 |
||
8779 | 518 |
toolbarMenu |
519 |
"This resource specification was automatically generated |
|
520 |
by the MenuEditor of ST/X." |
|
521 |
||
522 |
"Do not manually edit this!! If it is corrupted, |
|
523 |
the MenuEditor may not be able to read the specification." |
|
524 |
||
12125 | 525 |
|
8779 | 526 |
" |
10379 | 527 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu |
528 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp |
|
8779 | 529 |
" |
530 |
||
531 |
<resource: #menu> |
|
532 |
||
533 |
^ |
|
534 |
#(Menu |
|
535 |
( |
|
536 |
(MenuItem |
|
10597 | 537 |
activeHelpKey: backwardInVisitingHistory |
8779 | 538 |
enabled: backButtonEnabledHolder |
539 |
label: 'Back' |
|
540 |
itemValue: backButtonAction |
|
541 |
translateLabel: true |
|
10460 | 542 |
isButton: true |
10596 | 543 |
hideMenuOnActivated: false |
8779 | 544 |
submenuChannel: backButtonMenuChannel |
10596 | 545 |
labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon) |
8779 | 546 |
) |
547 |
(MenuItem |
|
10597 | 548 |
activeHelpKey: forwardInVisitingHistory |
8779 | 549 |
enabled: forwardButtonEnabledHolder |
550 |
label: 'Forward' |
|
551 |
itemValue: forwardButtonAction |
|
552 |
translateLabel: true |
|
10460 | 553 |
isButton: true |
10596 | 554 |
hideMenuOnActivated: false |
8779 | 555 |
submenuChannel: forwardButtonMenuChannel |
10596 | 556 |
labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon) |
8779 | 557 |
) |
10379 | 558 |
(MenuItem |
559 |
label: '-' |
|
560 |
) |
|
561 |
(MenuItem |
|
10597 | 562 |
activeHelpKey: browseClassOfShownObject |
563 |
enabled: browseButtonEnabledHolder |
|
10379 | 564 |
label: 'Browse' |
565 |
itemValue: browseClassAction |
|
566 |
translateLabel: true |
|
567 |
isButton: true |
|
10596 | 568 |
hideMenuOnActivated: false |
569 |
labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon) |
|
10379 | 570 |
) |
10597 | 571 |
(MenuItem |
572 |
activeHelpKey: browseFile |
|
573 |
label: 'Browse File' |
|
574 |
itemValue: browseFileAction |
|
575 |
translateLabel: true |
|
576 |
isButton: true |
|
577 |
isVisible: currentObjectIsFilename |
|
578 |
hideMenuOnActivated: false |
|
579 |
labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon) |
|
580 |
) |
|
12125 | 581 |
(MenuItem |
582 |
activeHelpKey: editImage |
|
583 |
label: 'Edit the Image' |
|
584 |
itemValue: editImageAction |
|
585 |
translateLabel: true |
|
586 |
isButton: true |
|
587 |
isVisible: currentObjectIsImage |
|
588 |
hideMenuOnActivated: false |
|
589 |
labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon) |
|
590 |
) |
|
591 |
(MenuItem |
|
592 |
activeHelpKey: refresh |
|
593 |
label: 'Refresh for Changed Object' |
|
594 |
itemValue: refreshTabs |
|
595 |
translateLabel: true |
|
596 |
isButton: true |
|
597 |
startGroup: right |
|
598 |
labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon) |
|
599 |
) |
|
600 |
(MenuItem |
|
601 |
activeHelpKey: colorProfile |
|
602 |
label: 'Settings' |
|
603 |
translateLabel: true |
|
604 |
isButton: true |
|
605 |
submenuChannel: settingsMenu |
|
606 |
labelImage: (ResourceRetriever #'Tools::Inspector2' settingsIcon) |
|
607 |
) |
|
8779 | 608 |
) |
609 |
nil |
|
610 |
nil |
|
611 |
) |
|
612 |
! ! |
|
613 |
||
614 |
!Inspector2 class methodsFor:'startup'! |
|
615 |
||
616 |
openOn: anObject |
|
617 |
||
10311 | 618 |
self new |
619 |
openOn: anObject. |
|
8779 | 620 |
|
621 |
"Modified: / 17-02-2008 / 10:29:45 / janfrog" |
|
10311 | 622 |
"Modified (format): / 11-07-2011 / 22:28:03 / cg" |
8779 | 623 |
! ! |
624 |
||
625 |
!Inspector2 class methodsFor:'testing'! |
|
626 |
||
627 |
testSimpleShow |
|
628 |
|ins| |
|
629 |
||
630 |
ins := Inspector2 openOn:4. |
|
631 |
ins inspect:10. |
|
632 |
ins inspect:42. |
|
633 |
ins inspect:'dead one'. |
|
634 |
ins inspect:'rolled back'. |
|
635 |
||
636 |
"/ins inspectItem: (ins history at: 3). "/ Rollback history, zustanou jen prvni 3 |
|
637 |
||
638 |
ins inspect:'xFuj'. |
|
639 |
||
640 |
"Modified: / 11-01-2008 / 20:36:37 / janfrog" |
|
641 |
! ! |
|
642 |
||
643 |
!Inspector2 methodsFor:'accessing'! |
|
644 |
||
10597 | 645 |
backButtonEnabled:value |
646 |
^ self backButtonEnabledHolder value:value |
|
8779 | 647 |
|
648 |
"Created: / 12-01-2008 / 19:14:35 / janfrog" |
|
10597 | 649 |
"Modified (format): / 19-08-2011 / 08:59:41 / cg" |
8779 | 650 |
! |
651 |
||
652 |
currentObject |
|
653 |
^ self navigationState theObject |
|
654 |
||
655 |
"Created: / 13-01-2008 / 10:14:47 / janfrog" |
|
656 |
"Modified: / 17-02-2008 / 09:49:01 / janfrog" |
|
657 |
! |
|
658 |
||
659 |
currentState |
|
660 |
^ self navigationHistoryHolder currentItem |
|
661 |
||
662 |
"Created: / 21-02-2008 / 19:39:45 / janfrog" |
|
663 |
"Modified: / 27-02-2008 / 11:56:55 / janfrog" |
|
664 |
! |
|
665 |
||
10597 | 666 |
forwardButtonEnabled:value |
667 |
^ self forwardButtonEnabledHolder value:value |
|
8779 | 668 |
|
669 |
"Created: / 12-01-2008 / 19:14:48 / janfrog" |
|
10597 | 670 |
"Modified (format): / 19-08-2011 / 08:59:45 / cg" |
8779 | 671 |
! |
672 |
||
673 |
navigationState |
|
10379 | 674 |
^ self navigationHistoryHolder value currentItem |
8779 | 675 |
|
676 |
"Created: / 17-02-2008 / 09:49:01 / janfrog" |
|
677 |
"Modified: / 21-02-2008 / 19:34:14 / janfrog" |
|
10379 | 678 |
"Modified: / 22-07-2011 / 19:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8779 | 679 |
! |
680 |
||
681 |
navigationState:historyItem |
|
10379 | 682 |
self navigationHistoryHolder "subjectChannel:" value currentItem:historyItem. |
8779 | 683 |
|
684 |
"/self fixNavigation. "Nevola se kvuli problemu s prekreslovanim" |
|
685 |
"/self updateTabs. |
|
686 |
||
687 |
"Created: / 17-02-2008 / 09:49:11 / janfrog" |
|
688 |
"Modified: / 21-02-2008 / 19:47:26 / janfrog" |
|
10379 | 689 |
"Modified: / 22-07-2011 / 19:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10597 | 690 |
"Modified: / 19-08-2011 / 09:16:38 / cg" |
8779 | 691 |
! ! |
692 |
||
693 |
!Inspector2 methodsFor:'aspects'! |
|
694 |
||
695 |
backButtonEnabledHolder |
|
696 |
"return/create the 'backButtonEnabledHolder' value holder (automatically generated)" |
|
697 |
||
698 |
^(AspectAdaptor forAspect:#canGoBack) |
|
699 |
subjectChannel: self navigationHistoryHolder |
|
700 |
||
701 |
"Created: / 12-01-2008 / 19:13:49 / janfrog" |
|
702 |
"Modified: / 27-02-2008 / 12:11:30 / janfrog" |
|
703 |
! |
|
704 |
||
10597 | 705 |
browseButtonEnabledHolder |
706 |
^ BlockValue |
|
707 |
with:[:m | m notNil] |
|
708 |
argument:self navigationStateAspect |
|
709 |
||
710 |
"Created: / 19-08-2011 / 09:22:47 / cg" |
|
711 |
! |
|
712 |
||
12125 | 713 |
colorProfileHolder |
714 |
"return/create the 'colorProfileHolder' value holder (automatically generated)" |
|
715 |
||
716 |
colorProfileHolder isNil ifTrue:[ |
|
717 |
colorProfileHolder := ValueHolder with: #default. |
|
718 |
]. |
|
719 |
^ colorProfileHolder |
|
720 |
||
721 |
"Modified: / 17-01-2012 / 12:54:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
722 |
! |
|
723 |
||
10597 | 724 |
currentObjectHolder |
725 |
currentObjectHolder isNil ifTrue:[ |
|
726 |
currentObjectHolder := ValueHolder new |
|
727 |
]. |
|
728 |
^ currentObjectHolder |
|
729 |
||
730 |
"Created: / 27-02-2008 / 12:05:22 / janfrog" |
|
731 |
"Created: / 19-08-2011 / 08:58:48 / cg" |
|
732 |
! |
|
733 |
||
734 |
currentObjectIsFilename |
|
735 |
^ BlockValue |
|
736 |
with:[:o | o isFilename ] |
|
737 |
argument:self currentObjectHolder |
|
738 |
||
739 |
"Created: / 19-08-2011 / 08:56:27 / cg" |
|
740 |
! |
|
741 |
||
12125 | 742 |
currentObjectIsImage |
743 |
^ BlockValue |
|
744 |
with:[:o | o isImageOrForm ] |
|
745 |
argument:self currentObjectHolder |
|
746 |
||
747 |
"Created: / 15-01-2012 / 10:06:28 / cg" |
|
748 |
! |
|
749 |
||
12158 | 750 |
expandArraysInAllList |
751 |
^ InspectorView expandArraysInAllLists |
|
752 |
||
753 |
"Created: / 30-01-2012 / 16:52:46 / cg" |
|
754 |
! |
|
755 |
||
756 |
expandArraysInAllList:aBoolean |
|
757 |
InspectorView expandArraysInAllLists:aBoolean |
|
758 |
||
759 |
"Created: / 30-01-2012 / 16:53:15 / cg" |
|
760 |
! |
|
761 |
||
8779 | 762 |
forwardButtonEnabledHolder |
763 |
"return/create the 'backButtonEnabledHolder' value holder (automatically generated)" |
|
764 |
||
765 |
^(AspectAdaptor forAspect:#canGoForward) |
|
766 |
subjectChannel: self navigationHistoryHolder |
|
767 |
||
768 |
"Created: / 12-01-2008 / 19:13:49 / janfrog" |
|
769 |
"Modified: / 27-02-2008 / 12:11:26 / janfrog" |
|
770 |
! |
|
771 |
||
772 |
navigationHistoryHolder |
|
773 |
"return/create the 'currentItemHolder' value holder (automatically generated)" |
|
774 |
||
775 |
navigationHistoryHolder isNil ifTrue:[ |
|
776 |
navigationHistoryHolder := Tools::NavigationHistory new. |
|
777 |
]. |
|
778 |
^ navigationHistoryHolder |
|
779 |
||
780 |
"Created: / 21-02-2008 / 19:34:14 / janfrog" |
|
781 |
! |
|
782 |
||
783 |
navigationStateAspect |
|
10597 | 784 |
navigationStateAspect isNil ifTrue:[ |
785 |
navigationStateAspect := (AspectAdaptor forAspect:#currentItem) |
|
786 |
subjectChannel:self navigationHistoryHolder |
|
787 |
]. |
|
788 |
^ navigationStateAspect |
|
8779 | 789 |
|
790 |
"Created: / 27-02-2008 / 12:05:22 / janfrog" |
|
10597 | 791 |
"Modified (format): / 19-08-2011 / 08:59:10 / cg" |
8779 | 792 |
! |
793 |
||
794 |
tabLabelsAspect |
|
795 |
^ (AspectAdaptor forAspect:#tabLabels) |
|
10597 | 796 |
subjectChannel:self navigationStateAspect |
8779 | 797 |
|
798 |
"Created: / 16-01-2008 / 17:29:52 / janfrog" |
|
799 |
"Modified: / 27-02-2008 / 12:05:32 / janfrog" |
|
10597 | 800 |
"Modified (format): / 19-08-2011 / 08:59:21 / cg" |
8779 | 801 |
! |
802 |
||
803 |
tabSelectionIndexAspect |
|
804 |
^ ((AspectAdaptor forAspect:#selectionIndex) |
|
805 |
subjectChannel:self navigationStateAspect) |
|
806 |
onChangeEvaluate:[ self tabViewAspect changed ]; |
|
807 |
yourself |
|
808 |
||
809 |
"Created: / 16-01-2008 / 17:29:29 / janfrog" |
|
810 |
"Modified: / 27-02-2008 / 12:06:05 / janfrog" |
|
811 |
! |
|
812 |
||
813 |
tabViewAspect |
|
10597 | 814 |
tabViewAspect isNil ifTrue:[ |
815 |
tabViewAspect := (AspectAdaptor forAspect:#selectionView) |
|
816 |
subjectChannel:self navigationStateAspect |
|
817 |
]. |
|
8779 | 818 |
^ tabViewAspect |
819 |
||
820 |
"Created: / 16-01-2008 / 17:30:05 / janfrog" |
|
821 |
"Modified: / 27-02-2008 / 12:05:46 / janfrog" |
|
10597 | 822 |
"Modified (format): / 19-08-2011 / 08:59:35 / cg" |
8779 | 823 |
! |
824 |
||
12125 | 825 |
toolbarBackgroundHolder |
826 |
"return/create the 'toolbarBackgroundHolder' value holder (automatically generated)" |
|
827 |
||
828 |
toolbarBackgroundHolder isNil ifTrue:[ |
|
829 |
toolbarBackgroundHolder := BlockValue |
|
830 |
with: [:profile| |
|
831 |
| clr | |
|
832 |
||
833 |
clr := ColorProfiles at: profile value. |
|
834 |
clr isNil ifTrue:[ |
|
835 |
clr := MenuPanel defaultBackgroundColor |
|
836 |
]. |
|
837 |
clr. |
|
838 |
] argument: self colorProfileHolder |
|
839 |
]. |
|
840 |
^ toolbarBackgroundHolder |
|
841 |
||
842 |
"Modified: / 17-01-2012 / 13:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
843 |
! |
|
844 |
||
8779 | 845 |
windowTitleAspect |
846 |
^ (AspectAdaptor forAspect:#displayString) |
|
847 |
subjectChannel:self navigationStateAspect |
|
848 |
||
849 |
"Created: / 17-02-2008 / 08:42:21 / janfrog" |
|
850 |
"Modified: / 27-02-2008 / 12:05:56 / janfrog" |
|
851 |
! ! |
|
852 |
||
10379 | 853 |
!Inspector2 methodsFor:'menu'! |
854 |
||
855 |
backButtonMenuChannel |
|
856 |
^ [ self navigationHistoryHolder goBackMenu ] |
|
857 |
||
858 |
"Created: / 12-01-2008 / 18:57:08 / janfrog" |
|
859 |
"Modified: / 22-02-2008 / 16:57:46 / janfrog" |
|
860 |
! |
|
861 |
||
862 |
forwardButtonMenuChannel |
|
863 |
^ [ self navigationHistoryHolder goForwardMenu ] |
|
864 |
||
865 |
"Created: / 12-01-2008 / 18:57:30 / janfrog" |
|
866 |
"Modified: / 22-02-2008 / 16:58:11 / janfrog" |
|
867 |
! ! |
|
868 |
||
869 |
!Inspector2 methodsFor:'menu actions'! |
|
8779 | 870 |
|
871 |
backButtonAction |
|
10320 | 872 |
self navigationHistoryHolder goBack. |
873 |
self updateWindowLabel |
|
8779 | 874 |
|
875 |
"Modified: / 21-02-2008 / 19:40:23 / janfrog" |
|
10320 | 876 |
"Modified: / 15-07-2011 / 16:26:28 / cg" |
8779 | 877 |
! |
878 |
||
10379 | 879 |
browseClassAction |
12125 | 880 |
"open a class browser, or try to add a tab to the previously opened class browser" |
10597 | 881 |
|
10460 | 882 |
| class | |
10379 | 883 |
|
884 |
class := self currentObject class. |
|
8779 | 885 |
|
10597 | 886 |
browser notNil ifTrue:[ |
887 |
"/ try to add a tab to the already opened browser |
|
888 |
(browser isKindOf:Tools::NewSystemBrowser) ifTrue:[ |
|
889 |
browser spawnClassBrowserFor:(Array with:class) in:#newBuffer. |
|
890 |
"/ browser spawnSingleClassBrowserFor:class in:#newBuffer. |
|
891 |
browser window raise. |
|
892 |
^ self. |
|
893 |
]. |
|
894 |
]. |
|
895 |
"/ if that fails, open a new one |
|
896 |
||
897 |
browser := UserPreferences current systemBrowserClass openInClass:class selector:nil "/ browseSingleClass: class |
|
10379 | 898 |
|
899 |
"Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
12125 | 900 |
"Modified (comment): / 21-08-2011 / 08:37:59 / cg" |
10597 | 901 |
! |
902 |
||
903 |
browseFileAction |
|
904 |
"open a filebrowser on the file represented by the current object" |
|
905 |
||
906 |
| fn | |
|
907 |
||
908 |
fn := self currentObject asFilename. |
|
909 |
UserPreferences current fileBrowserClass openOn:fn |
|
910 |
||
911 |
"Created: / 19-08-2011 / 09:29:44 / cg" |
|
8779 | 912 |
! |
913 |
||
12125 | 914 |
changeColorAction: color |
915 |
||
916 |
self toolbarBackgroundHolder value: (Color perform: color asSymbol) |
|
917 |
||
918 |
"Created: / 17-01-2012 / 01:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
919 |
! |
|
920 |
||
921 |
editImageAction |
|
922 |
"open an imageEditor on the current object" |
|
923 |
||
924 |
| img | |
|
925 |
||
926 |
img := self currentObject. |
|
927 |
ImageEditor openOnImage:img. |
|
928 |
||
929 |
"Created: / 15-01-2012 / 10:08:29 / cg" |
|
930 |
! |
|
931 |
||
8779 | 932 |
forwardButtonAction |
10320 | 933 |
self navigationHistoryHolder goForward. |
934 |
self updateWindowLabel |
|
8779 | 935 |
|
936 |
"Created: / 21-02-2008 / 19:52:03 / janfrog" |
|
10320 | 937 |
"Modified: / 15-07-2011 / 16:26:33 / cg" |
12125 | 938 |
! |
939 |
||
940 |
refreshTabs |
|
941 |
self navigationHistoryHolder currentItem refreshTabs. |
|
942 |
self tabViewAspect changed. |
|
943 |
||
944 |
"/ sel := selectionIndex. |
|
945 |
"/ self selectionIndex:nil. |
|
946 |
"/ self selectionIndex:sel. |
|
947 |
||
948 |
"Created: / 21-08-2011 / 08:23:00 / cg" |
|
8779 | 949 |
! ! |
950 |
||
951 |
!Inspector2 methodsFor:'opening'! |
|
952 |
||
10311 | 953 |
closeDownViews |
954 |
LastExtent := self window extent. |
|
955 |
super closeDownViews. |
|
956 |
||
957 |
"Created: / 11-07-2011 / 22:33:47 / cg" |
|
958 |
! |
|
959 |
||
8779 | 960 |
historyTryPush: anObject |
10597 | 961 |
<resource: #obsolete> |
8779 | 962 |
|
963 |
"/ Pokud uz na anObject byl tak tam skocit, jinak pridat na konec |
|
964 |
self history do: [:item | |
|
965 |
item theObject == anObject ifTrue:[ ^item ] |
|
966 |
]. |
|
967 |
||
968 |
^ self history push:anObject. |
|
969 |
||
970 |
"Modified: / 16-01-2008 / 14:25:30 / janfrog" |
|
971 |
! |
|
972 |
||
973 |
inspect:anObject |
|
10597 | 974 |
self navigationHistoryHolder currentItem:(NavigationState for:anObject). |
975 |
self window notNil ifTrue:[ |
|
10320 | 976 |
self updateWindowLabel |
977 |
]. |
|
8779 | 978 |
|
979 |
"Modified: / 27-02-2008 / 12:06:52 / janfrog" |
|
10320 | 980 |
"Modified: / 15-07-2011 / 16:26:03 / cg" |
10597 | 981 |
"Modified (format): / 19-08-2011 / 09:01:20 / cg" |
8779 | 982 |
! |
983 |
||
984 |
openOn: anObject |
|
10311 | 985 |
self inspect: anObject. |
986 |
self openWithExtent:(LastExtent ? nil). |
|
8779 | 987 |
|
988 |
"Modified: / 13-01-2008 / 13:55:27 / janfrog" |
|
10311 | 989 |
"Modified: / 11-07-2011 / 22:31:42 / cg" |
10320 | 990 |
! |
991 |
||
992 |
postBuildWith:aBuilder |
|
993 |
self updateWindowLabel |
|
994 |
||
995 |
"Created: / 15-07-2011 / 16:25:36 / cg" |
|
996 |
! |
|
997 |
||
998 |
updateWindowLabel |
|
10423
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
999 |
|currentItem object| |
10320 | 1000 |
|
10423
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
1001 |
(currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[ |
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
1002 |
object := currentItem theObject. |
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
1003 |
]. |
10597 | 1004 |
self currentObjectHolder value:object. |
10320 | 1005 |
self window label:(InspectorView commonLabelFor:object). |
1006 |
||
1007 |
"Created: / 15-07-2011 / 16:25:42 / cg" |
|
8779 | 1008 |
! ! |
1009 |
||
1010 |
!Inspector2::NavigationState class methodsFor:'creating classes'! |
|
1011 |
||
10597 | 1012 |
for:anObject |
1013 |
|item| |
|
1014 |
||
1015 |
item := self new. |
|
1016 |
item theObject:anObject. |
|
1017 |
^ item. |
|
1018 |
||
1019 |
"Modified (format): / 19-08-2011 / 09:24:40 / cg" |
|
8779 | 1020 |
! ! |
1021 |
||
1022 |
!Inspector2::NavigationState class methodsFor:'documentation'! |
|
1023 |
||
9996 | 1024 |
version |
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
1025 |
^'$Id: Tools__Inspector2.st 7911 2012-02-22 09:55:48Z vranyj1 $' |
9996 | 1026 |
! |
1027 |
||
8779 | 1028 |
version_SVN |
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
1029 |
^'$Id: Tools__Inspector2.st 7911 2012-02-22 09:55:48Z vranyj1 $' |
8779 | 1030 |
! ! |
1031 |
||
1032 |
!Inspector2::NavigationState methodsFor:'accessing'! |
|
1033 |
||
1034 |
index |
|
1035 |
^ index |
|
1036 |
! |
|
1037 |
||
1038 |
index:something |
|
1039 |
index := something. |
|
1040 |
! |
|
1041 |
||
1042 |
selectionIndex |
|
12125 | 1043 |
selectionIndex isNil ifTrue:[^1]. |
8779 | 1044 |
selectionIndex < 1 ifTrue:[^1]. |
1045 |
selectionIndex > tabs size ifTrue:[^tabs size]. |
|
1046 |
^selectionIndex |
|
1047 |
||
1048 |
"Created: / 16-01-2008 / 17:24:27 / janfrog" |
|
1049 |
"Modified: / 17-02-2008 / 10:20:35 / janfrog" |
|
12125 | 1050 |
"Modified: / 18-11-2011 / 15:00:01 / cg" |
8779 | 1051 |
! |
1052 |
||
1053 |
selectionIndex: anInteger |
|
1054 |
selectionIndex := anInteger. |
|
1055 |
self changed:#selectionIndex |
|
1056 |
||
1057 |
"Created: / 16-01-2008 / 17:27:52 / janfrog" |
|
1058 |
"Modified: / 17-02-2008 / 09:46:45 / janfrog" |
|
1059 |
! |
|
1060 |
||
1061 |
selectionView |
|
1062 |
||
1063 |
|tab| |
|
1064 |
||
1065 |
tab := self tabs at: self selectionIndex. |
|
1066 |
^tab |
|
1067 |
ifNil:[nil] |
|
1068 |
ifNotNil:[tab view]. |
|
1069 |
||
1070 |
"Created: / 16-01-2008 / 17:31:19 / janfrog" |
|
1071 |
! |
|
1072 |
||
1073 |
tabLabels |
|
1074 |
||
1075 |
^self tabs collect:[:tab | tab label] |
|
1076 |
||
1077 |
"Created: / 16-01-2008 / 17:14:07 / janfrog" |
|
1078 |
! |
|
1079 |
||
1080 |
tabViews |
|
1081 |
||
1082 |
^self tabs collect:[:tab | tab view] |
|
1083 |
||
1084 |
"Created: / 16-01-2008 / 17:14:13 / janfrog" |
|
1085 |
! |
|
1086 |
||
1087 |
tabs |
|
1088 |
||
12125 | 1089 |
tabs isNil ifTrue:[self initializeTabs]. |
8779 | 1090 |
^tabs |
1091 |
||
1092 |
"Created: / 16-01-2008 / 16:51:53 / janfrog" |
|
12125 | 1093 |
"Modified: / 18-11-2011 / 15:00:05 / cg" |
8779 | 1094 |
! |
1095 |
||
1096 |
theObject |
|
1097 |
^ theObject |
|
1098 |
! |
|
1099 |
||
1100 |
theObject:anObject |
|
1101 |
theObject := anObject. |
|
10597 | 1102 |
self changed |
8779 | 1103 |
|
1104 |
"Modified: / 17-02-2008 / 08:38:44 / janfrog" |
|
10597 | 1105 |
"Modified: / 19-08-2011 / 09:16:25 / cg" |
8779 | 1106 |
! ! |
1107 |
||
1108 |
!Inspector2::NavigationState methodsFor:'comparing'! |
|
1109 |
||
1110 |
= anotherState |
|
1111 |
||
1112 |
^self class == anotherState class |
|
1113 |
and:[self theObject == anotherState theObject] |
|
1114 |
||
1115 |
"Created: / 21-02-2008 / 19:39:01 / janfrog" |
|
1116 |
! |
|
1117 |
||
1118 |
hash |
|
1119 |
||
1120 |
^theObject hash |
|
1121 |
||
1122 |
"Created: / 21-02-2008 / 19:38:08 / janfrog" |
|
1123 |
! ! |
|
1124 |
||
1125 |
!Inspector2::NavigationState methodsFor:'displaying'! |
|
1126 |
||
1127 |
displayString |
|
1128 |
||
10392 | 1129 |
displayString isNil ifTrue:[ |
1130 |
displayString := theObject printString contractAtEndTo:15. |
|
1131 |
displayString := displayString , ' [', theObject class name , ']' |
|
1132 |
]. |
|
8779 | 1133 |
^ displayString |
1134 |
||
1135 |
"Created: / 21-02-2008 / 19:53:07 / janfrog" |
|
10392 | 1136 |
"Modified: / 25-07-2011 / 10:50:52 / cg" |
8779 | 1137 |
! ! |
1138 |
||
1139 |
!Inspector2::NavigationState methodsFor:'initialization'! |
|
1140 |
||
10379 | 1141 |
initializeClassBrowserTab |
12125 | 1142 |
| browser spec | |
10379 | 1143 |
|
12125 | 1144 |
spec := #singleClassBrowserSpec. |
1145 |
"/spec := #multipleClassBrowserSpec. |
|
1146 |
browser := Tools::NewSystemBrowser new. |
|
1147 |
browser createBuilder. |
|
1148 |
browser navigationState canvasType:spec. |
|
1149 |
browser browserCanvasType:spec. |
|
1150 |
browser browserCanvas value builder:(browser builder). |
|
1151 |
browser navigationState canvas:browser browserCanvas value. |
|
1152 |
browser showInheritedMethods. |
|
1153 |
browser classListGenerator value:(Array with:theObject class theNonMetaclass). |
|
1154 |
browser selectClass: theObject class theNonMetaclass. |
|
10379 | 1155 |
|
1156 |
tabs add: |
|
1157 |
(Tools::Inspector2Tab new |
|
12125 | 1158 |
priority: 0; |
1159 |
label:'Class'; |
|
1160 |
view: (ApplicationSubView new |
|
1161 |
client: browser spec: spec)) |
|
10379 | 1162 |
|
1163 |
"Created: / 22-07-2011 / 18:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
12125 | 1164 |
"Modified: / 05-09-2011 / 05:24:16 / cg" |
10379 | 1165 |
! |
1166 |
||
8779 | 1167 |
initializeCommonTabs |
1168 |
||
10379 | 1169 |
"Unfinished code" |
12125 | 1170 |
self initializeClassBrowserTab |
10379 | 1171 |
|
9996 | 1172 |
"/ tabs add: |
1173 |
"/ (Tools::Inspector2Tab new |
|
1174 |
"/ priority: 50; |
|
1175 |
"/ label:'Object'; |
|
1176 |
"/ view: ((theObject inspectorClass new inspect:theObject) |
|
1177 |
"/ yourself)) |
|
8779 | 1178 |
|
1179 |
"Created: / 16-01-2008 / 16:56:48 / janfrog" |
|
1180 |
"Modified: / 17-02-2008 / 10:29:54 / janfrog" |
|
12125 | 1181 |
"Modified: / 21-08-2011 / 10:03:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
8779 | 1182 |
! |
1183 |
||
1184 |
initializeExtraTabs |
|
1185 |
||
10206 | 1186 |
"/ cg: I prefer using explicit getter - so I find them in the browser |
1187 |
theObject inspector2Tabs do: [:selector| |
|
8779 | 1188 |
| tab | |
1189 |
tab := [ theObject perform: selector ] |
|
12125 | 1190 |
on: Error do:[:ex| |
1191 |
"/ for debugging: ex reject. |
|
8779 | 1192 |
Tools::Inspector2Tab new |
1193 |
label: selector; |
|
1194 |
text: |
|
1195 |
(ex description, Character cr, Character cr, |
|
12125 | 1196 |
ex suspendedContext fullPrintAllString)]. |
8779 | 1197 |
(tab notNil and:[tab isKindOf: Tools::Inspector2Tab]) |
1198 |
ifTrue:[tabs add: tab]]. |
|
1199 |
||
1200 |
"Created: / 16-01-2008 / 17:25:24 / janfrog" |
|
1201 |
"Modified: / 17-02-2008 / 10:30:43 / janfrog" |
|
1202 |
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
12125 | 1203 |
"Modified (format): / 21-08-2011 / 08:01:34 / cg" |
8779 | 1204 |
! |
1205 |
||
1206 |
initializeTabs |
|
1207 |
||
1208 |
tabs := OrderedCollection new. |
|
1209 |
self initializeCommonTabs. |
|
1210 |
self initializeExtraTabs. |
|
1211 |
tabs := tabs asSortedCollection:[:a :b|a priority > b priority]. |
|
1212 |
||
1213 |
"Created: / 16-01-2008 / 16:54:28 / janfrog" |
|
1214 |
"Modified: / 17-02-2008 / 10:08:04 / janfrog" |
|
12125 | 1215 |
! |
1216 |
||
1217 |
refreshTabs |
|
1218 |
tabs := nil. |
|
1219 |
self initializeTabs. |
|
1220 |
||
1221 |
"Created: / 21-08-2011 / 08:23:11 / cg" |
|
8779 | 1222 |
! ! |
1223 |
||
1224 |
!Inspector2 class methodsFor:'documentation'! |
|
1225 |
||
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1226 |
version |
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
1227 |
^ '$Id: Tools__Inspector2.st 7911 2012-02-22 09:55:48Z vranyj1 $' |
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1228 |
! |
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1229 |
|
8807 | 1230 |
version_CVS |
12158 | 1231 |
^ '§Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.27 2012/02/13 15:54:07 cg Exp §' |
8807 | 1232 |
! |
1233 |
||
8816 | 1234 |
version_CVS_jvrany |
8904
f051532eb303
update #version_SVN with § as keyword expansion character
fm
parents:
8816
diff
changeset
|
1235 |
^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2.st,v 1.6 2008-02-27 13:45:23 vranyj1 Exp §' |
9996 | 1236 |
! |
1237 |
||
1238 |
version_SVN |
|
12170
6c9c4b7981ee
branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12158
diff
changeset
|
1239 |
^ '$Id: Tools__Inspector2.st 7911 2012-02-22 09:55:48Z vranyj1 $' |
12125 | 1240 |
! ! |
1241 |
||
1242 |
Inspector2 initialize! |
|
12158 | 1243 |