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