equal
deleted
inserted
replaced
92 sel add:((list at:aNumber) withoutSeparators) |
92 sel add:((list at:aNumber) withoutSeparators) |
93 ] |
93 ] |
94 ] |
94 ] |
95 ] |
95 ] |
96 ]. |
96 ]. |
97 builderView selectName:sel |
97 builderView selectNames:sel |
98 |
98 |
99 ! |
99 ! |
100 |
100 |
101 update:something |
101 update:something |
102 |
102 |
115 idx := self indexOf:(builderView variableNameOf:aView). |
115 idx := self indexOf:(builderView variableNameOf:aView). |
116 |
116 |
117 idx ~~ 0 ifTrue:[ |
117 idx ~~ 0 ifTrue:[ |
118 self addToSelection:idx |
118 self addToSelection:idx |
119 ] |
119 ] |
|
120 ]. |
|
121 selection isNil ifTrue:[ |
|
122 self setSelection:1 |
120 ] |
123 ] |
121 ! ! |
124 ! ! |
122 |
125 |
123 !UIPainterTreeView methodsFor:'initialization'! |
126 !UIPainterTreeView methodsFor:'initialization'! |
124 |
127 |
136 !UIPainterTreeView methodsFor:'menu & actions'! |
139 !UIPainterTreeView methodsFor:'menu & actions'! |
137 |
140 |
138 editMenu |
141 editMenu |
139 |menu ispMenu| |
142 |menu ispMenu| |
140 |
143 |
141 menu := PopUpMenu labels:#( 'inspect' ) |
144 menu := PopUpMenu labels:( resources array:#('inspect') ) |
142 selectors:#( #inspect ) |
145 selectors:#( #inspect ) |
143 receiver:self. |
146 receiver:self. |
144 |
147 |
145 ispMenu := PopUpMenu labels:#( 'view' 'property' ) |
148 ispMenu := PopUpMenu labels:( resources array:#('view' 'property') ) |
146 selectors:#( #inspectView #inspectProps ) |
149 selectors:#( #inspectView #inspectProps ) |
147 receiver:self. |
150 receiver:self. |
148 |
151 |
149 menu subMenuAt:#inspect put:ispMenu. |
152 menu subMenuAt:#inspect put:ispMenu. |
150 ^ menu |
153 ^ menu |