12 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
13 |
13 |
14 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 Object subclass:#Inspector2Tab |
16 Object subclass:#Inspector2Tab |
17 instanceVariableNames:'label view application priority viewHolder applicationHolder' |
17 instanceVariableNames:'inspector label view application priority' |
18 classVariableNames:'' |
18 classVariableNames:'' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Interface-Inspector2' |
20 category:'Interface-Inspector2' |
21 ! |
21 ! |
22 |
22 |
84 ]. |
84 ]. |
85 |
85 |
86 ^ self new |
86 ^ self new |
87 priority: 0; |
87 priority: 0; |
88 label:label; |
88 label:label; |
89 viewHolder: makeView; |
89 view: makeView; |
90 yourself |
90 yourself |
91 |
91 |
92 " |
92 " |
93 GenericToolbarIconLibrary systemBrowserIcon inspect |
93 GenericToolbarIconLibrary systemBrowserIcon inspect |
94 " |
94 " |
|
95 |
|
96 "Modified: / 09-02-2017 / 00:33:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
95 ! ! |
97 ! ! |
96 |
98 |
97 !Inspector2Tab methodsFor:'accessing'! |
99 !Inspector2Tab methodsFor:'accessing'! |
98 |
100 |
99 application |
101 application:anApplicationModelOrBlockOrValueModel |
100 ^ application |
102 view := [ |
101 |
103 ApplicationSubView new |
102 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
104 client: anApplicationModelOrBlockOrValueModel value; |
103 ! |
105 yourself |
104 |
106 ]. |
105 application:anApplicationModelOrBlock |
|
106 application := anApplicationModelOrBlock. |
|
107 |
107 |
108 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
108 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
109 "Modified: / 17-02-2008 / 08:58:34 / janfrog" |
109 "Modified: / 17-02-2008 / 08:58:34 / janfrog" |
110 ! |
110 "Modified: / 09-02-2017 / 09:23:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
111 |
111 ! |
112 applicationHolder:something |
112 |
113 applicationHolder := something. |
113 applicationHolder:aValueModelOrBlock |
|
114 <resource: #obsolete> "/ use #application: |
|
115 self application: aValueModelOrBlock |
|
116 |
|
117 "Modified: / 09-02-2017 / 09:23:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
118 ! |
|
119 |
|
120 inspector: anInspector2 |
|
121 inspector := anInspector2 |
|
122 |
|
123 "Created: / 09-02-2017 / 00:53:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
114 ! |
124 ! |
115 |
125 |
116 label |
126 label |
117 ^ label |
127 ^ label |
118 |
128 |
146 "Created: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
156 "Created: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
147 ! |
157 ! |
148 |
158 |
149 view |
159 view |
150 view isNil ifTrue:[ |
160 view isNil ifTrue:[ |
151 viewHolder notNil ifTrue:[ |
161 application notNil ifTrue:[ |
152 view := viewHolder value |
162 view := ApplicationSubView new. |
153 ] ifFalse:[ |
163 view client: application value. |
154 applicationHolder notNil ifTrue:[ |
|
155 view := ApplicationSubView new. |
|
156 view client: applicationHolder value. |
|
157 ] |
|
158 ] |
164 ] |
159 ]. |
165 ] ifFalse:[ |
|
166 view isBlock ifTrue:[ |
|
167 view := view value. |
|
168 ]. |
|
169 ]. |
|
170 self setupView. |
160 ^ view |
171 ^ view |
161 |
172 |
162 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
173 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
163 "Modified: / 17-02-2008 / 10:38:59 / janfrog" |
174 "Modified: / 17-02-2008 / 10:38:59 / janfrog" |
164 "Modified: / 13-06-2012 / 14:57:25 / cg" |
175 "Modified: / 13-06-2012 / 14:57:25 / cg" |
165 "Modified: / 24-03-2014 / 18:25:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
176 "Modified: / 09-02-2017 / 09:24:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
166 ! |
177 ! |
167 |
178 |
168 view:aViewOrBlock |
179 view:aViewOrBlockOrValueModel |
169 aViewOrBlock isBlock ifTrue:[ |
180 view := aViewOrBlockOrValueModel. |
170 viewHolder := aViewOrBlock |
181 |
171 ] ifFalse:[ |
|
172 view := aViewOrBlock. |
|
173 ] |
|
174 |
182 |
175 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
183 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
176 "Modified: / 17-02-2008 / 08:58:46 / janfrog" |
184 "Modified: / 17-02-2008 / 08:58:46 / janfrog" |
177 "Modified: / 21-05-2015 / 21:31:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
185 "Modified: / 21-05-2015 / 21:31:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
178 ! |
186 ! |
179 |
187 |
180 viewHolder:something |
188 viewHolder:aValueModelOrBlock |
181 viewHolder := something. |
189 <resource: #obsolete> "/ use #view: |
|
190 self view: aValueModelOrBlock |
|
191 |
|
192 "Modified: / 09-02-2017 / 09:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
182 ! |
193 ! |
183 |
194 |
184 viewOrNil |
195 viewOrNil |
185 ^ view |
196 ^ view |
186 |
197 |
191 |
202 |
192 setupView |
203 setupView |
193 |
204 |
194 (view respondsTo:#setMasterInspectorApplication:) ifTrue:[ |
205 (view respondsTo:#setMasterInspectorApplication:) ifTrue:[ |
195 "this is for BridgeOjectInspectorView" |
206 "this is for BridgeOjectInspectorView" |
196 view setMasterInspectorApplication:application. |
207 view setMasterInspectorApplication:inspector. |
197 ]. |
208 ]. |
198 (view respondsTo:#sortOrderHolder:) ifTrue:[ |
209 (view respondsTo:#sortOrderHolder:) ifTrue:[ |
199 view sortOrderHolder:(application sortOrderHolder) |
210 view sortOrderHolder:(inspector sortOrderHolder) |
200 ]. |
211 ]. |
|
212 |
|
213 "Modified: / 09-02-2017 / 09:24:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
201 ! ! |
214 ! ! |
202 |
215 |
203 !Inspector2Tab class methodsFor:'documentation'! |
216 !Inspector2Tab class methodsFor:'documentation'! |
204 |
217 |
205 version |
218 version |