equal
deleted
inserted
replaced
91 ]. |
91 ]. |
92 |
92 |
93 "update selection |
93 "update selection |
94 " |
94 " |
95 builderView selectionDo:[:aView||idx| |
95 builderView selectionDo:[:aView||idx| |
96 idx := self indexOf:(builderView variableNameOf:aView). |
96 idx := self indexOf:(builderView uniqueNameOf:aView). |
97 |
97 |
98 idx ~~ 0 ifTrue:[ |
98 idx ~~ 0 ifTrue:[ |
99 selection isNil ifTrue:[ |
99 selection isNil ifTrue:[ |
100 |m i| |
100 |m i| |
101 |
101 |
157 ! ! |
157 ! ! |
158 |
158 |
159 !UIPainterTreeView methodsFor:'menu & actions'! |
159 !UIPainterTreeView methodsFor:'menu & actions'! |
160 |
160 |
161 inspectProps |
161 inspectProps |
162 builderView inspectAttributes |
162 |view| |
|
163 |
|
164 (view := builderView singleSelection) notNil ifTrue:[ |
|
165 (builderView propertyOfView:view) inspect |
|
166 ] |
163 ! |
167 ! |
164 |
168 |
165 inspectSpec |
169 inspectSpec |
166 builderView inspectSpec |
170 |view| |
|
171 |
|
172 (view := builderView singleSelection) notNil ifTrue:[ |
|
173 (builderView fullSpecFor:view) inspect |
|
174 ] |
167 ! |
175 ! |
168 |
176 |
169 inspectView |
177 inspectView |
170 builderView inspectSelection |
178 |view| |
|
179 |
|
180 (view := builderView singleSelection) notNil ifTrue:[ |
|
181 view inspect |
|
182 ] |
171 ! |
183 ! |
172 |
184 |
173 menu |
185 menu |
174 |menu| |
186 |menu| |
175 |
187 |
223 spView := view superView. |
235 spView := view superView. |
224 names := OrderedCollection new. |
236 names := OrderedCollection new. |
225 values := OrderedCollection new. |
237 values := OrderedCollection new. |
226 index := 1. |
238 index := 1. |
227 |
239 |
228 spView allSubViewsDo:[:aView||props| |
240 spView subViews do:[:aView||props| |
229 aView ~~ view ifTrue:[ |
241 aView ~~ view ifTrue:[ |
230 props := builderView propertyOfView:aView. |
242 props := builderView propertyOfView:aView. |
231 |
243 |
232 props notNil ifTrue:[ |
244 props notNil ifTrue:[ |
233 names add:(props name). |
245 names add:(props name). |
287 !UIPainterTreeView methodsFor:'update'! |
299 !UIPainterTreeView methodsFor:'update'! |
288 |
300 |
289 updateSubTree:aView indent:anIndent |
301 updateSubTree:aView indent:anIndent |
290 |name indent| |
302 |name indent| |
291 |
303 |
292 name := builderView variableNameOf:aView. |
304 name := builderView uniqueNameOf:aView. |
293 |
305 |
294 anIndent ~~ 0 ifTrue:[ |
306 anIndent ~~ 0 ifTrue:[ |
295 name := (String new:anIndent), name |
307 name := (String new:anIndent), name |
296 ]. |
308 ]. |
297 list add:name. |
309 list add:name. |