| author | Jan Vrany <jan.vrany@fit.cvut.cz> |
| Sun, 29 Jan 2012 15:33:37 +0000 | |
| branch | jv |
| changeset 12125 | 0c49a3b13e43 |
| parent 12123 | 4bde08cebd48 |
| child 12128 | a7ff7d66ee85 |
| 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" |
|
| 9996 | 121 |
! ! |
| 8779 | 122 |
|
| 12125 | 123 |
!Inspector2 class methodsFor:'image specs'! |
124 |
||
125 |
settingsIcon |
|
126 |
||
127 |
^self settingsIcon5 |
|
128 |
||
129 |
"Modified: / 17-01-2012 / 12:45:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
130 |
"Modified: / 19-01-2012 / 14:00:35 / cg" |
|
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] |
|
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" |
|
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) |
|
328 |
) |
|
329 |
component: |
|
330 |
(SpecCollection |
|
331 |
collection: ( |
|
332 |
(MenuPanelSpec |
|
333 |
name: 'ToolBar' |
|
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
334 |
layout: (LayoutFrame 0 0 0 0 0 1 40 0) |
| 12125 | 335 |
backgroundChannel: toolbarBackgroundHolder |
| 8779 | 336 |
menu: toolbarMenu |
337 |
textDefault: true |
|
338 |
) |
|
339 |
(NoteBookViewSpec |
|
340 |
name: 'NoteBook' |
|
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
341 |
layout: (LayoutFrame 0 0 40 0 0 1 0 1) |
| 8779 | 342 |
model: tabSelectionIndexAspect |
343 |
menu: tabLabelsAspect |
|
344 |
useIndex: true |
|
345 |
fitLastRow: false |
|
346 |
canvas: tabViewAspect |
|
347 |
keepCanvasAlive: true |
|
348 |
) |
|
349 |
) |
|
350 |
||
351 |
) |
|
352 |
) |
|
353 |
! ! |
|
354 |
||
355 |
!Inspector2 class methodsFor:'menu specs'! |
|
356 |
||
| 12125 | 357 |
settingsMenu |
358 |
"This resource specification was automatically generated |
|
359 |
by the MenuEditor of ST/X." |
|
360 |
||
361 |
"Do not manually edit this!! If it is corrupted, |
|
362 |
the MenuEditor may not be able to read the specification." |
|
363 |
||
364 |
||
365 |
" |
|
366 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#settingsMenu |
|
367 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 settingsMenu)) startUp |
|
368 |
" |
|
369 |
||
370 |
<resource: #menu> |
|
371 |
||
372 |
^ |
|
373 |
#(Menu |
|
374 |
( |
|
375 |
(MenuItem |
|
376 |
label: 'Default' |
|
377 |
nameKey: #'Default' |
|
378 |
translateLabel: true |
|
379 |
choice: colorProfileHolder |
|
380 |
choiceValue: default |
|
381 |
) |
|
382 |
(MenuItem |
|
383 |
label: 'Red' |
|
384 |
nameKey: #'Red' |
|
385 |
translateLabel: true |
|
386 |
choice: colorProfileHolder |
|
387 |
choiceValue: red |
|
388 |
) |
|
389 |
(MenuItem |
|
390 |
label: 'Green' |
|
391 |
nameKey: #'Green' |
|
392 |
translateLabel: true |
|
393 |
choiceValue: green |
|
394 |
choice: colorProfileHolder |
|
395 |
) |
|
396 |
(MenuItem |
|
397 |
label: 'Blue' |
|
398 |
nameKey: #'Blue' |
|
399 |
translateLabel: true |
|
400 |
choiceValue: blue |
|
401 |
choice: colorProfileHolder |
|
402 |
) |
|
403 |
(MenuItem |
|
404 |
label: 'Yellow' |
|
405 |
nameKey: #'Yellow' |
|
406 |
translateLabel: true |
|
407 |
choiceValue: yellow |
|
408 |
choice: colorProfileHolder |
|
409 |
) |
|
410 |
(MenuItem |
|
411 |
label: 'Gray' |
|
412 |
nameKey: #'Gray' |
|
413 |
translateLabel: true |
|
414 |
choiceValue: gray |
|
415 |
choice: colorProfileHolder |
|
416 |
) |
|
417 |
) |
|
418 |
nil |
|
419 |
nil |
|
420 |
) |
|
421 |
||
422 |
"Modified: / 17-01-2012 / 13:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
423 |
! |
|
424 |
||
| 8779 | 425 |
toolbarMenu |
426 |
"This resource specification was automatically generated |
|
427 |
by the MenuEditor of ST/X." |
|
428 |
||
429 |
"Do not manually edit this!! If it is corrupted, |
|
430 |
the MenuEditor may not be able to read the specification." |
|
431 |
||
| 12125 | 432 |
|
| 8779 | 433 |
" |
| 10379 | 434 |
MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu |
435 |
(Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp |
|
| 8779 | 436 |
" |
437 |
||
438 |
<resource: #menu> |
|
439 |
||
440 |
^ |
|
441 |
#(Menu |
|
442 |
( |
|
443 |
(MenuItem |
|
| 10597 | 444 |
activeHelpKey: backwardInVisitingHistory |
| 8779 | 445 |
enabled: backButtonEnabledHolder |
446 |
label: 'Back' |
|
447 |
itemValue: backButtonAction |
|
448 |
translateLabel: true |
|
| 10460 | 449 |
isButton: true |
| 10596 | 450 |
hideMenuOnActivated: false |
| 8779 | 451 |
submenuChannel: backButtonMenuChannel |
| 10596 | 452 |
labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon) |
| 8779 | 453 |
) |
454 |
(MenuItem |
|
| 10597 | 455 |
activeHelpKey: forwardInVisitingHistory |
| 8779 | 456 |
enabled: forwardButtonEnabledHolder |
457 |
label: 'Forward' |
|
458 |
itemValue: forwardButtonAction |
|
459 |
translateLabel: true |
|
| 10460 | 460 |
isButton: true |
| 10596 | 461 |
hideMenuOnActivated: false |
| 8779 | 462 |
submenuChannel: forwardButtonMenuChannel |
| 10596 | 463 |
labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon) |
| 8779 | 464 |
) |
| 10379 | 465 |
(MenuItem |
466 |
label: '-' |
|
467 |
) |
|
468 |
(MenuItem |
|
| 10597 | 469 |
activeHelpKey: browseClassOfShownObject |
470 |
enabled: browseButtonEnabledHolder |
|
| 10379 | 471 |
label: 'Browse' |
472 |
itemValue: browseClassAction |
|
473 |
translateLabel: true |
|
474 |
isButton: true |
|
| 10596 | 475 |
hideMenuOnActivated: false |
476 |
labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon) |
|
| 10379 | 477 |
) |
| 10597 | 478 |
(MenuItem |
479 |
activeHelpKey: browseFile |
|
480 |
label: 'Browse File' |
|
481 |
itemValue: browseFileAction |
|
482 |
translateLabel: true |
|
483 |
isButton: true |
|
484 |
isVisible: currentObjectIsFilename |
|
485 |
hideMenuOnActivated: false |
|
486 |
labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon) |
|
487 |
) |
|
| 12125 | 488 |
(MenuItem |
489 |
activeHelpKey: editImage |
|
490 |
label: 'Edit the Image' |
|
491 |
itemValue: editImageAction |
|
492 |
translateLabel: true |
|
493 |
isButton: true |
|
494 |
isVisible: currentObjectIsImage |
|
495 |
hideMenuOnActivated: false |
|
496 |
labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon) |
|
497 |
) |
|
498 |
(MenuItem |
|
499 |
activeHelpKey: refresh |
|
500 |
label: 'Refresh for Changed Object' |
|
501 |
itemValue: refreshTabs |
|
502 |
translateLabel: true |
|
503 |
isButton: true |
|
504 |
startGroup: right |
|
505 |
labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon) |
|
506 |
) |
|
507 |
(MenuItem |
|
508 |
activeHelpKey: colorProfile |
|
509 |
label: 'Settings' |
|
510 |
translateLabel: true |
|
511 |
isButton: true |
|
512 |
submenuChannel: settingsMenu |
|
513 |
labelImage: (ResourceRetriever #'Tools::Inspector2' settingsIcon) |
|
514 |
) |
|
| 8779 | 515 |
) |
516 |
nil |
|
517 |
nil |
|
518 |
) |
|
519 |
! ! |
|
520 |
||
521 |
!Inspector2 class methodsFor:'startup'! |
|
522 |
||
523 |
openOn: anObject |
|
524 |
||
| 10311 | 525 |
self new |
526 |
openOn: anObject. |
|
| 8779 | 527 |
|
528 |
"Modified: / 17-02-2008 / 10:29:45 / janfrog" |
|
| 10311 | 529 |
"Modified (format): / 11-07-2011 / 22:28:03 / cg" |
| 8779 | 530 |
! ! |
531 |
||
532 |
!Inspector2 class methodsFor:'testing'! |
|
533 |
||
534 |
testSimpleShow |
|
535 |
|ins| |
|
536 |
||
537 |
ins := Inspector2 openOn:4. |
|
538 |
ins inspect:10. |
|
539 |
ins inspect:42. |
|
540 |
ins inspect:'dead one'. |
|
541 |
ins inspect:'rolled back'. |
|
542 |
||
543 |
"/ins inspectItem: (ins history at: 3). "/ Rollback history, zustanou jen prvni 3 |
|
544 |
||
545 |
ins inspect:'xFuj'. |
|
546 |
||
547 |
"Modified: / 11-01-2008 / 20:36:37 / janfrog" |
|
548 |
! ! |
|
549 |
||
550 |
!Inspector2 methodsFor:'accessing'! |
|
551 |
||
| 10597 | 552 |
backButtonEnabled:value |
553 |
^ self backButtonEnabledHolder value:value |
|
| 8779 | 554 |
|
555 |
"Created: / 12-01-2008 / 19:14:35 / janfrog" |
|
| 10597 | 556 |
"Modified (format): / 19-08-2011 / 08:59:41 / cg" |
| 8779 | 557 |
! |
558 |
||
559 |
currentObject |
|
560 |
^ self navigationState theObject |
|
561 |
||
562 |
"Created: / 13-01-2008 / 10:14:47 / janfrog" |
|
563 |
"Modified: / 17-02-2008 / 09:49:01 / janfrog" |
|
564 |
! |
|
565 |
||
566 |
currentState |
|
567 |
^ self navigationHistoryHolder currentItem |
|
568 |
||
569 |
"Created: / 21-02-2008 / 19:39:45 / janfrog" |
|
570 |
"Modified: / 27-02-2008 / 11:56:55 / janfrog" |
|
571 |
! |
|
572 |
||
| 10597 | 573 |
forwardButtonEnabled:value |
574 |
^ self forwardButtonEnabledHolder value:value |
|
| 8779 | 575 |
|
576 |
"Created: / 12-01-2008 / 19:14:48 / janfrog" |
|
| 10597 | 577 |
"Modified (format): / 19-08-2011 / 08:59:45 / cg" |
| 8779 | 578 |
! |
579 |
||
580 |
navigationState |
|
| 10379 | 581 |
^ self navigationHistoryHolder value currentItem |
| 8779 | 582 |
|
583 |
"Created: / 17-02-2008 / 09:49:01 / janfrog" |
|
584 |
"Modified: / 21-02-2008 / 19:34:14 / janfrog" |
|
| 10379 | 585 |
"Modified: / 22-07-2011 / 19:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 8779 | 586 |
! |
587 |
||
588 |
navigationState:historyItem |
|
| 10379 | 589 |
self navigationHistoryHolder "subjectChannel:" value currentItem:historyItem. |
| 8779 | 590 |
|
591 |
"/self fixNavigation. "Nevola se kvuli problemu s prekreslovanim" |
|
592 |
"/self updateTabs. |
|
593 |
||
594 |
"Created: / 17-02-2008 / 09:49:11 / janfrog" |
|
595 |
"Modified: / 21-02-2008 / 19:47:26 / janfrog" |
|
| 10379 | 596 |
"Modified: / 22-07-2011 / 19:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 10597 | 597 |
"Modified: / 19-08-2011 / 09:16:38 / cg" |
| 8779 | 598 |
! ! |
599 |
||
600 |
!Inspector2 methodsFor:'aspects'! |
|
601 |
||
602 |
backButtonEnabledHolder |
|
603 |
"return/create the 'backButtonEnabledHolder' value holder (automatically generated)" |
|
604 |
||
605 |
^(AspectAdaptor forAspect:#canGoBack) |
|
606 |
subjectChannel: self navigationHistoryHolder |
|
607 |
||
608 |
"Created: / 12-01-2008 / 19:13:49 / janfrog" |
|
609 |
"Modified: / 27-02-2008 / 12:11:30 / janfrog" |
|
610 |
! |
|
611 |
||
| 10597 | 612 |
browseButtonEnabledHolder |
613 |
^ BlockValue |
|
614 |
with:[:m | m notNil] |
|
615 |
argument:self navigationStateAspect |
|
616 |
||
617 |
"Created: / 19-08-2011 / 09:22:47 / cg" |
|
618 |
! |
|
619 |
||
| 12125 | 620 |
colorProfileHolder |
621 |
"return/create the 'colorProfileHolder' value holder (automatically generated)" |
|
622 |
||
623 |
colorProfileHolder isNil ifTrue:[ |
|
624 |
colorProfileHolder := ValueHolder with: #default. |
|
625 |
]. |
|
626 |
^ colorProfileHolder |
|
627 |
||
628 |
"Modified: / 17-01-2012 / 12:54:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
629 |
! |
|
630 |
||
| 10597 | 631 |
currentObjectHolder |
632 |
currentObjectHolder isNil ifTrue:[ |
|
633 |
currentObjectHolder := ValueHolder new |
|
634 |
]. |
|
635 |
^ currentObjectHolder |
|
636 |
||
637 |
"Created: / 27-02-2008 / 12:05:22 / janfrog" |
|
638 |
"Created: / 19-08-2011 / 08:58:48 / cg" |
|
639 |
! |
|
640 |
||
641 |
currentObjectIsFilename |
|
642 |
^ BlockValue |
|
643 |
with:[:o | o isFilename ] |
|
644 |
argument:self currentObjectHolder |
|
645 |
||
646 |
"Created: / 19-08-2011 / 08:56:27 / cg" |
|
647 |
! |
|
648 |
||
| 12125 | 649 |
currentObjectIsImage |
650 |
^ BlockValue |
|
651 |
with:[:o | o isImageOrForm ] |
|
652 |
argument:self currentObjectHolder |
|
653 |
||
654 |
"Created: / 15-01-2012 / 10:06:28 / cg" |
|
655 |
! |
|
656 |
||
| 8779 | 657 |
forwardButtonEnabledHolder |
658 |
"return/create the 'backButtonEnabledHolder' value holder (automatically generated)" |
|
659 |
||
660 |
^(AspectAdaptor forAspect:#canGoForward) |
|
661 |
subjectChannel: self navigationHistoryHolder |
|
662 |
||
663 |
"Created: / 12-01-2008 / 19:13:49 / janfrog" |
|
664 |
"Modified: / 27-02-2008 / 12:11:26 / janfrog" |
|
665 |
! |
|
666 |
||
667 |
navigationHistoryHolder |
|
668 |
"return/create the 'currentItemHolder' value holder (automatically generated)" |
|
669 |
||
670 |
navigationHistoryHolder isNil ifTrue:[ |
|
671 |
navigationHistoryHolder := Tools::NavigationHistory new. |
|
672 |
]. |
|
673 |
^ navigationHistoryHolder |
|
674 |
||
675 |
"Created: / 21-02-2008 / 19:34:14 / janfrog" |
|
676 |
! |
|
677 |
||
678 |
navigationStateAspect |
|
| 10597 | 679 |
navigationStateAspect isNil ifTrue:[ |
680 |
navigationStateAspect := (AspectAdaptor forAspect:#currentItem) |
|
681 |
subjectChannel:self navigationHistoryHolder |
|
682 |
]. |
|
683 |
^ navigationStateAspect |
|
| 8779 | 684 |
|
685 |
"Created: / 27-02-2008 / 12:05:22 / janfrog" |
|
| 10597 | 686 |
"Modified (format): / 19-08-2011 / 08:59:10 / cg" |
| 8779 | 687 |
! |
688 |
||
689 |
tabLabelsAspect |
|
690 |
^ (AspectAdaptor forAspect:#tabLabels) |
|
| 10597 | 691 |
subjectChannel:self navigationStateAspect |
| 8779 | 692 |
|
693 |
"Created: / 16-01-2008 / 17:29:52 / janfrog" |
|
694 |
"Modified: / 27-02-2008 / 12:05:32 / janfrog" |
|
| 10597 | 695 |
"Modified (format): / 19-08-2011 / 08:59:21 / cg" |
| 8779 | 696 |
! |
697 |
||
698 |
tabSelectionIndexAspect |
|
699 |
^ ((AspectAdaptor forAspect:#selectionIndex) |
|
700 |
subjectChannel:self navigationStateAspect) |
|
701 |
onChangeEvaluate:[ self tabViewAspect changed ]; |
|
702 |
yourself |
|
703 |
||
704 |
"Created: / 16-01-2008 / 17:29:29 / janfrog" |
|
705 |
"Modified: / 27-02-2008 / 12:06:05 / janfrog" |
|
706 |
! |
|
707 |
||
708 |
tabViewAspect |
|
| 10597 | 709 |
tabViewAspect isNil ifTrue:[ |
710 |
tabViewAspect := (AspectAdaptor forAspect:#selectionView) |
|
711 |
subjectChannel:self navigationStateAspect |
|
712 |
]. |
|
| 8779 | 713 |
^ tabViewAspect |
714 |
||
715 |
"Created: / 16-01-2008 / 17:30:05 / janfrog" |
|
716 |
"Modified: / 27-02-2008 / 12:05:46 / janfrog" |
|
| 10597 | 717 |
"Modified (format): / 19-08-2011 / 08:59:35 / cg" |
| 8779 | 718 |
! |
719 |
||
| 12125 | 720 |
toolbarBackgroundHolder |
721 |
"return/create the 'toolbarBackgroundHolder' value holder (automatically generated)" |
|
722 |
||
723 |
toolbarBackgroundHolder isNil ifTrue:[ |
|
724 |
toolbarBackgroundHolder := BlockValue |
|
725 |
with: [:profile| |
|
726 |
| clr | |
|
727 |
||
728 |
clr := ColorProfiles at: profile value. |
|
729 |
clr isNil ifTrue:[ |
|
730 |
clr := MenuPanel defaultBackgroundColor |
|
731 |
]. |
|
732 |
clr. |
|
733 |
] argument: self colorProfileHolder |
|
734 |
]. |
|
735 |
^ toolbarBackgroundHolder |
|
736 |
||
737 |
"Modified: / 17-01-2012 / 13:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
738 |
! |
|
739 |
||
| 8779 | 740 |
windowTitleAspect |
741 |
^ (AspectAdaptor forAspect:#displayString) |
|
742 |
subjectChannel:self navigationStateAspect |
|
743 |
||
744 |
"Created: / 17-02-2008 / 08:42:21 / janfrog" |
|
745 |
"Modified: / 27-02-2008 / 12:05:56 / janfrog" |
|
746 |
! ! |
|
747 |
||
| 10379 | 748 |
!Inspector2 methodsFor:'menu'! |
749 |
||
750 |
backButtonMenuChannel |
|
751 |
^ [ self navigationHistoryHolder goBackMenu ] |
|
752 |
||
753 |
"Created: / 12-01-2008 / 18:57:08 / janfrog" |
|
754 |
"Modified: / 22-02-2008 / 16:57:46 / janfrog" |
|
755 |
! |
|
756 |
||
757 |
forwardButtonMenuChannel |
|
758 |
^ [ self navigationHistoryHolder goForwardMenu ] |
|
759 |
||
760 |
"Created: / 12-01-2008 / 18:57:30 / janfrog" |
|
761 |
"Modified: / 22-02-2008 / 16:58:11 / janfrog" |
|
762 |
! ! |
|
763 |
||
764 |
!Inspector2 methodsFor:'menu actions'! |
|
| 8779 | 765 |
|
766 |
backButtonAction |
|
| 10320 | 767 |
self navigationHistoryHolder goBack. |
768 |
self updateWindowLabel |
|
| 8779 | 769 |
|
770 |
"Modified: / 21-02-2008 / 19:40:23 / janfrog" |
|
| 10320 | 771 |
"Modified: / 15-07-2011 / 16:26:28 / cg" |
| 8779 | 772 |
! |
773 |
||
| 10379 | 774 |
browseClassAction |
| 12125 | 775 |
"open a class browser, or try to add a tab to the previously opened class browser" |
| 10597 | 776 |
|
| 10460 | 777 |
| class | |
| 10379 | 778 |
|
779 |
class := self currentObject class. |
|
| 8779 | 780 |
|
| 10597 | 781 |
browser notNil ifTrue:[ |
782 |
"/ try to add a tab to the already opened browser |
|
783 |
(browser isKindOf:Tools::NewSystemBrowser) ifTrue:[ |
|
784 |
browser spawnClassBrowserFor:(Array with:class) in:#newBuffer. |
|
785 |
"/ browser spawnSingleClassBrowserFor:class in:#newBuffer. |
|
786 |
browser window raise. |
|
787 |
^ self. |
|
788 |
]. |
|
789 |
]. |
|
790 |
"/ if that fails, open a new one |
|
791 |
||
792 |
browser := UserPreferences current systemBrowserClass openInClass:class selector:nil "/ browseSingleClass: class |
|
| 10379 | 793 |
|
794 |
"Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
| 12125 | 795 |
"Modified (comment): / 21-08-2011 / 08:37:59 / cg" |
| 10597 | 796 |
! |
797 |
||
798 |
browseFileAction |
|
799 |
"open a filebrowser on the file represented by the current object" |
|
800 |
||
801 |
| fn | |
|
802 |
||
803 |
fn := self currentObject asFilename. |
|
804 |
UserPreferences current fileBrowserClass openOn:fn |
|
805 |
||
806 |
"Created: / 19-08-2011 / 09:29:44 / cg" |
|
| 8779 | 807 |
! |
808 |
||
| 12125 | 809 |
changeColorAction: color |
810 |
||
811 |
self toolbarBackgroundHolder value: (Color perform: color asSymbol) |
|
812 |
||
813 |
"Created: / 17-01-2012 / 01:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
814 |
! |
|
815 |
||
816 |
editImageAction |
|
817 |
"open an imageEditor on the current object" |
|
818 |
||
819 |
| img | |
|
820 |
||
821 |
img := self currentObject. |
|
822 |
ImageEditor openOnImage:img. |
|
823 |
||
824 |
"Created: / 15-01-2012 / 10:08:29 / cg" |
|
825 |
! |
|
826 |
||
| 8779 | 827 |
forwardButtonAction |
| 10320 | 828 |
self navigationHistoryHolder goForward. |
829 |
self updateWindowLabel |
|
| 8779 | 830 |
|
831 |
"Created: / 21-02-2008 / 19:52:03 / janfrog" |
|
| 10320 | 832 |
"Modified: / 15-07-2011 / 16:26:33 / cg" |
| 12125 | 833 |
! |
834 |
||
835 |
refreshTabs |
|
836 |
self navigationHistoryHolder currentItem refreshTabs. |
|
837 |
self tabViewAspect changed. |
|
838 |
||
839 |
"/ sel := selectionIndex. |
|
840 |
"/ self selectionIndex:nil. |
|
841 |
"/ self selectionIndex:sel. |
|
842 |
||
843 |
"Created: / 21-08-2011 / 08:23:00 / cg" |
|
| 8779 | 844 |
! ! |
845 |
||
846 |
!Inspector2 methodsFor:'opening'! |
|
847 |
||
| 10311 | 848 |
closeDownViews |
849 |
LastExtent := self window extent. |
|
850 |
super closeDownViews. |
|
851 |
||
852 |
"Created: / 11-07-2011 / 22:33:47 / cg" |
|
853 |
! |
|
854 |
||
| 8779 | 855 |
historyTryPush: anObject |
| 10597 | 856 |
<resource: #obsolete> |
| 8779 | 857 |
|
858 |
"/ Pokud uz na anObject byl tak tam skocit, jinak pridat na konec |
|
859 |
self history do: [:item | |
|
860 |
item theObject == anObject ifTrue:[ ^item ] |
|
861 |
]. |
|
862 |
||
863 |
^ self history push:anObject. |
|
864 |
||
865 |
"Modified: / 16-01-2008 / 14:25:30 / janfrog" |
|
866 |
! |
|
867 |
||
868 |
inspect:anObject |
|
| 10597 | 869 |
self navigationHistoryHolder currentItem:(NavigationState for:anObject). |
870 |
self window notNil ifTrue:[ |
|
| 10320 | 871 |
self updateWindowLabel |
872 |
]. |
|
| 8779 | 873 |
|
874 |
"Modified: / 27-02-2008 / 12:06:52 / janfrog" |
|
| 10320 | 875 |
"Modified: / 15-07-2011 / 16:26:03 / cg" |
| 10597 | 876 |
"Modified (format): / 19-08-2011 / 09:01:20 / cg" |
| 8779 | 877 |
! |
878 |
||
879 |
openOn: anObject |
|
| 10311 | 880 |
self inspect: anObject. |
881 |
self openWithExtent:(LastExtent ? nil). |
|
| 8779 | 882 |
|
883 |
"Modified: / 13-01-2008 / 13:55:27 / janfrog" |
|
| 10311 | 884 |
"Modified: / 11-07-2011 / 22:31:42 / cg" |
| 10320 | 885 |
! |
886 |
||
887 |
postBuildWith:aBuilder |
|
888 |
self updateWindowLabel |
|
889 |
||
890 |
"Created: / 15-07-2011 / 16:25:36 / cg" |
|
891 |
! |
|
892 |
||
893 |
updateWindowLabel |
|
|
10423
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
894 |
|currentItem object| |
| 10320 | 895 |
|
|
10423
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
896 |
(currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[ |
|
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
897 |
object := currentItem theObject. |
|
8215f496b6de
changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents:
10392
diff
changeset
|
898 |
]. |
| 10597 | 899 |
self currentObjectHolder value:object. |
| 10320 | 900 |
self window label:(InspectorView commonLabelFor:object). |
901 |
||
902 |
"Created: / 15-07-2011 / 16:25:42 / cg" |
|
| 8779 | 903 |
! ! |
904 |
||
905 |
!Inspector2::NavigationState class methodsFor:'creating classes'! |
|
906 |
||
| 10597 | 907 |
for:anObject |
908 |
|item| |
|
909 |
||
910 |
item := self new. |
|
911 |
item theObject:anObject. |
|
912 |
^ item. |
|
913 |
||
914 |
"Modified (format): / 19-08-2011 / 09:24:40 / cg" |
|
| 8779 | 915 |
! ! |
916 |
||
917 |
!Inspector2::NavigationState class methodsFor:'documentation'! |
|
918 |
||
| 9996 | 919 |
version |
| 12125 | 920 |
^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.25 2012/01/19 13:01:09 cg Exp $' |
| 9996 | 921 |
! |
922 |
||
| 8779 | 923 |
version_SVN |
|
12123
4bde08cebd48
trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11161
diff
changeset
|
924 |
^'$Id: Tools__Inspector2.st 115 2009-04-16 12:47:07Z vranyj1 $' |
| 8779 | 925 |
! ! |
926 |
||
927 |
!Inspector2::NavigationState methodsFor:'accessing'! |
|
928 |
||
929 |
index |
|
930 |
^ index |
|
931 |
! |
|
932 |
||
933 |
index:something |
|
934 |
index := something. |
|
935 |
! |
|
936 |
||
937 |
selectionIndex |
|
| 12125 | 938 |
selectionIndex isNil ifTrue:[^1]. |
| 8779 | 939 |
selectionIndex < 1 ifTrue:[^1]. |
940 |
selectionIndex > tabs size ifTrue:[^tabs size]. |
|
941 |
^selectionIndex |
|
942 |
||
943 |
"Created: / 16-01-2008 / 17:24:27 / janfrog" |
|
944 |
"Modified: / 17-02-2008 / 10:20:35 / janfrog" |
|
| 12125 | 945 |
"Modified: / 18-11-2011 / 15:00:01 / cg" |
| 8779 | 946 |
! |
947 |
||
948 |
selectionIndex: anInteger |
|
949 |
selectionIndex := anInteger. |
|
950 |
self changed:#selectionIndex |
|
951 |
||
952 |
"Created: / 16-01-2008 / 17:27:52 / janfrog" |
|
953 |
"Modified: / 17-02-2008 / 09:46:45 / janfrog" |
|
954 |
! |
|
955 |
||
956 |
selectionView |
|
957 |
||
958 |
|tab| |
|
959 |
||
960 |
tab := self tabs at: self selectionIndex. |
|
961 |
^tab |
|
962 |
ifNil:[nil] |
|
963 |
ifNotNil:[tab view]. |
|
964 |
||
965 |
"Created: / 16-01-2008 / 17:31:19 / janfrog" |
|
966 |
! |
|
967 |
||
968 |
tabLabels |
|
969 |
||
970 |
^self tabs collect:[:tab | tab label] |
|
971 |
||
972 |
"Created: / 16-01-2008 / 17:14:07 / janfrog" |
|
973 |
! |
|
974 |
||
975 |
tabViews |
|
976 |
||
977 |
^self tabs collect:[:tab | tab view] |
|
978 |
||
979 |
"Created: / 16-01-2008 / 17:14:13 / janfrog" |
|
980 |
! |
|
981 |
||
982 |
tabs |
|
983 |
||
| 12125 | 984 |
tabs isNil ifTrue:[self initializeTabs]. |
| 8779 | 985 |
^tabs |
986 |
||
987 |
"Created: / 16-01-2008 / 16:51:53 / janfrog" |
|
| 12125 | 988 |
"Modified: / 18-11-2011 / 15:00:05 / cg" |
| 8779 | 989 |
! |
990 |
||
991 |
theObject |
|
992 |
^ theObject |
|
993 |
! |
|
994 |
||
995 |
theObject:anObject |
|
996 |
theObject := anObject. |
|
| 10597 | 997 |
self changed |
| 8779 | 998 |
|
999 |
"Modified: / 17-02-2008 / 08:38:44 / janfrog" |
|
| 10597 | 1000 |
"Modified: / 19-08-2011 / 09:16:25 / cg" |
| 8779 | 1001 |
! ! |
1002 |
||
1003 |
!Inspector2::NavigationState methodsFor:'comparing'! |
|
1004 |
||
1005 |
= anotherState |
|
1006 |
||
1007 |
^self class == anotherState class |
|
1008 |
and:[self theObject == anotherState theObject] |
|
1009 |
||
1010 |
"Created: / 21-02-2008 / 19:39:01 / janfrog" |
|
1011 |
! |
|
1012 |
||
1013 |
hash |
|
1014 |
||
1015 |
^theObject hash |
|
1016 |
||
1017 |
"Created: / 21-02-2008 / 19:38:08 / janfrog" |
|
1018 |
! ! |
|
1019 |
||
1020 |
!Inspector2::NavigationState methodsFor:'displaying'! |
|
1021 |
||
1022 |
displayString |
|
1023 |
||
| 10392 | 1024 |
displayString isNil ifTrue:[ |
1025 |
displayString := theObject printString contractAtEndTo:15. |
|
1026 |
displayString := displayString , ' [', theObject class name , ']' |
|
1027 |
]. |
|
| 8779 | 1028 |
^ displayString |
1029 |
||
1030 |
"Created: / 21-02-2008 / 19:53:07 / janfrog" |
|
| 10392 | 1031 |
"Modified: / 25-07-2011 / 10:50:52 / cg" |
| 8779 | 1032 |
! ! |
1033 |
||
1034 |
!Inspector2::NavigationState methodsFor:'initialization'! |
|
1035 |
||
| 10379 | 1036 |
initializeClassBrowserTab |
| 12125 | 1037 |
| browser spec | |
| 10379 | 1038 |
|
| 12125 | 1039 |
spec := #singleClassBrowserSpec. |
1040 |
"/spec := #multipleClassBrowserSpec. |
|
1041 |
browser := Tools::NewSystemBrowser new. |
|
1042 |
browser createBuilder. |
|
1043 |
browser navigationState canvasType:spec. |
|
1044 |
browser browserCanvasType:spec. |
|
1045 |
browser browserCanvas value builder:(browser builder). |
|
1046 |
browser navigationState canvas:browser browserCanvas value. |
|
1047 |
browser showInheritedMethods. |
|
1048 |
browser classListGenerator value:(Array with:theObject class theNonMetaclass). |
|
1049 |
browser selectClass: theObject class theNonMetaclass. |
|
| 10379 | 1050 |
|
1051 |
tabs add: |
|
1052 |
(Tools::Inspector2Tab new |
|
| 12125 | 1053 |
priority: 0; |
1054 |
label:'Class'; |
|
1055 |
view: (ApplicationSubView new |
|
1056 |
client: browser spec: spec)) |
|
| 10379 | 1057 |
|
1058 |
"Created: / 22-07-2011 / 18:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
| 12125 | 1059 |
"Modified: / 05-09-2011 / 05:24:16 / cg" |
| 10379 | 1060 |
! |
1061 |
||
| 8779 | 1062 |
initializeCommonTabs |
1063 |
||
| 10379 | 1064 |
"Unfinished code" |
| 12125 | 1065 |
self initializeClassBrowserTab |
| 10379 | 1066 |
|
| 9996 | 1067 |
"/ tabs add: |
1068 |
"/ (Tools::Inspector2Tab new |
|
1069 |
"/ priority: 50; |
|
1070 |
"/ label:'Object'; |
|
1071 |
"/ view: ((theObject inspectorClass new inspect:theObject) |
|
1072 |
"/ yourself)) |
|
| 8779 | 1073 |
|
1074 |
"Created: / 16-01-2008 / 16:56:48 / janfrog" |
|
1075 |
"Modified: / 17-02-2008 / 10:29:54 / janfrog" |
|
| 12125 | 1076 |
"Modified: / 21-08-2011 / 10:03:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 8779 | 1077 |
! |
1078 |
||
1079 |
initializeExtraTabs |
|
1080 |
||
| 10206 | 1081 |
"/ cg: I prefer using explicit getter - so I find them in the browser |
1082 |
theObject inspector2Tabs do: [:selector| |
|
| 8779 | 1083 |
| tab | |
1084 |
tab := [ theObject perform: selector ] |
|
| 12125 | 1085 |
on: Error do:[:ex| |
1086 |
"/ for debugging: ex reject. |
|
| 8779 | 1087 |
Tools::Inspector2Tab new |
1088 |
label: selector; |
|
1089 |
text: |
|
1090 |
(ex description, Character cr, Character cr, |
|
| 12125 | 1091 |
ex suspendedContext fullPrintAllString)]. |
| 8779 | 1092 |
(tab notNil and:[tab isKindOf: Tools::Inspector2Tab]) |
1093 |
ifTrue:[tabs add: tab]]. |
|
1094 |
||
1095 |
"Created: / 16-01-2008 / 17:25:24 / janfrog" |
|
1096 |
"Modified: / 17-02-2008 / 10:30:43 / janfrog" |
|
1097 |
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
| 12125 | 1098 |
"Modified (format): / 21-08-2011 / 08:01:34 / cg" |
| 8779 | 1099 |
! |
1100 |
||
1101 |
initializeTabs |
|
1102 |
||
1103 |
tabs := OrderedCollection new. |
|
1104 |
self initializeCommonTabs. |
|
1105 |
self initializeExtraTabs. |
|
1106 |
tabs := tabs asSortedCollection:[:a :b|a priority > b priority]. |
|
1107 |
||
1108 |
"Created: / 16-01-2008 / 16:54:28 / janfrog" |
|
1109 |
"Modified: / 17-02-2008 / 10:08:04 / janfrog" |
|
| 12125 | 1110 |
! |
1111 |
||
1112 |
refreshTabs |
|
1113 |
tabs := nil. |
|
1114 |
self initializeTabs. |
|
1115 |
||
1116 |
"Created: / 21-08-2011 / 08:23:11 / cg" |
|
| 8779 | 1117 |
! ! |
1118 |
||
1119 |
!Inspector2 class methodsFor:'documentation'! |
|
1120 |
||
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1121 |
version |
| 12125 | 1122 |
^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.25 2012/01/19 13:01:09 cg Exp $' |
|
10425
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1123 |
! |
|
c49cba2bd28e
only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents:
10423
diff
changeset
|
1124 |
|
| 8807 | 1125 |
version_CVS |
| 12125 | 1126 |
^ '§Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.25 2012/01/19 13:01:09 cg Exp §' |
| 8807 | 1127 |
! |
1128 |
||
| 8816 | 1129 |
version_CVS_jvrany |
|
8904
f051532eb303
update #version_SVN with § as keyword expansion character
fm
parents:
8816
diff
changeset
|
1130 |
^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2.st,v 1.6 2008-02-27 13:45:23 vranyj1 Exp §' |
| 9996 | 1131 |
! |
1132 |
||
1133 |
version_SVN |
|
|
12123
4bde08cebd48
trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11161
diff
changeset
|
1134 |
^ '$Id: Tools__Inspector2.st 7486 2009-10-26 22:06:24Z vranyj1 $' |
| 12125 | 1135 |
! ! |
1136 |
||
1137 |
Inspector2 initialize! |