135 #'submenu:' |
137 #'submenu:' |
136 #(#Menu #( |
138 #(#Menu #( |
137 #(#MenuItem |
139 #(#MenuItem |
138 #'label:' 'default extent' |
140 #'label:' 'default extent' |
139 #'value:' #setToDefaultExtent |
141 #'value:' #setToDefaultExtent |
|
142 #'activeHelpKey:' #setToDefaultExtent |
140 ) |
143 ) |
141 #(#MenuItem |
144 #(#MenuItem |
142 #'label:' 'default width' |
145 #'label:' 'default width' |
143 #'value:' #setToDefaultWidth |
146 #'value:' #setToDefaultWidth |
|
147 #'activeHelpKey:' #setToDefaultWidth |
144 ) |
148 ) |
145 #(#MenuItem |
149 #(#MenuItem |
146 #'label:' 'default height' |
150 #'label:' 'default height' |
147 #'value:' #setToDefaultHeight |
151 #'value:' #setToDefaultHeight |
|
152 #'activeHelpKey:' #setToDefaultHeight |
148 ) |
153 ) |
149 #(#MenuItem |
154 #(#MenuItem |
150 #'label:' 'copy extent' |
155 #'label:' 'copy extent' |
151 #'value:' #copyExtent |
156 #'value:' #copyExtent |
|
157 #'activeHelpKey:' #copyExtent |
152 ) |
158 ) |
153 #(#MenuItem |
159 #(#MenuItem |
154 #'label:' 'paste extent' |
160 #'label:' 'paste extent' |
155 #'value:' #pasteExtent |
161 #'value:' #pasteExtent |
|
162 #'activeHelpKey:' #pasteExtent |
156 ) |
163 ) |
157 #(#MenuItem |
164 #(#MenuItem |
158 #'label:' 'paste width' |
165 #'label:' 'paste width' |
159 #'value:' #pasteWidth |
166 #'value:' #pasteWidth |
|
167 #'activeHelpKey:' #pasteWidth |
160 ) |
168 ) |
161 #(#MenuItem |
169 #(#MenuItem |
162 #'label:' 'paste height' |
170 #'label:' 'paste height' |
163 #'value:' #pasteHeight |
171 #'value:' #pasteHeight |
|
172 #'activeHelpKey:' #pasteHeight |
164 ) |
173 ) |
165 #(#MenuItem |
174 #(#MenuItem |
166 #'label:' 'copy layout' |
175 #'label:' 'copy layout' |
167 #'value:' #copyLayout |
176 #'value:' #copyLayout |
|
177 #'activeHelpKey:' #copyLayout |
168 ) |
178 ) |
169 #(#MenuItem |
179 #(#MenuItem |
170 #'label:' 'paste layout' |
180 #'label:' 'paste layout' |
171 #'value:' #pasteLayout |
181 #'value:' #pasteLayout |
|
182 #'activeHelpKey:' #pasteLayout |
172 ) |
183 ) |
173 ) |
184 ) |
174 #(3 1 3) |
185 #(3 1 3) |
175 nil |
186 nil |
176 ) |
187 ) |
221 #'activeHelpKey:' #alignSelectionCenterVer |
232 #'activeHelpKey:' #alignSelectionCenterVer |
222 ) |
233 ) |
223 #(#MenuItem |
234 #(#MenuItem |
224 #'label:' 'spread horizontal' |
235 #'label:' 'spread horizontal' |
225 #'value:' #spreadSelectionHor |
236 #'value:' #spreadSelectionHor |
|
237 #'activeHelpKey:' #spreadSelectionHor |
226 ) |
238 ) |
227 #(#MenuItem |
239 #(#MenuItem |
228 #'label:' 'spread vertical' |
240 #'label:' 'spread vertical' |
229 #'value:' #spreadSelectionVer |
241 #'value:' #spreadSelectionVer |
|
242 #'activeHelpKey:' #spreadSelectionVer |
230 ) |
243 ) |
231 #(#MenuItem |
244 #(#MenuItem |
232 #'label:' 'center horizontal in frame' |
245 #'label:' 'center horizontal in frame' |
233 #'value:' #centerSelectionHor |
246 #'value:' #centerSelectionHor |
|
247 #'activeHelpKey:' #centerSelectionHor |
234 ) |
248 ) |
235 #(#MenuItem |
249 #(#MenuItem |
236 #'label:' 'center vertical in frame' |
250 #'label:' 'center vertical in frame' |
237 #'value:' #centerSelectionVer |
251 #'value:' #centerSelectionVer |
|
252 #'activeHelpKey:' #centerSelectionVer |
238 ) |
253 ) |
239 ) |
254 ) |
240 #(8 2) |
255 #(8 2) |
241 nil |
256 nil |
242 ) |
257 ) |
1201 listHolder propertyChanged:props. |
1216 listHolder propertyChanged:props. |
1202 ] |
1217 ] |
1203 |
1218 |
1204 ! ! |
1219 ! ! |
1205 |
1220 |
|
1221 !UIPainterView methodsFor:'user actions - arrange'! |
|
1222 |
|
1223 lowerSelection |
|
1224 "lower all objects in the selection |
|
1225 " |
|
1226 self hasSelection ifTrue:[ |
|
1227 self selectionDo:[:aView| |
|
1228 aView lower. |
|
1229 aView superView changeSequenceOrderFor:aView to:1. |
|
1230 ]. |
|
1231 listHolder recompute. |
|
1232 ] |
|
1233 |
|
1234 |
|
1235 ! |
|
1236 |
|
1237 raiseSelection |
|
1238 "raise all objects in the selection |
|
1239 " |
|
1240 self hasSelection ifTrue:[ |
|
1241 self selectionDo:[:aView||sv| |
|
1242 aView raise. |
|
1243 sv := aView superView. |
|
1244 sv changeSequenceOrderFor:aView to:(sv subViews size) |
|
1245 ]. |
|
1246 inputView raise. |
|
1247 listHolder recompute. |
|
1248 ]. |
|
1249 |
|
1250 |
|
1251 ! ! |
|
1252 |
1206 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1253 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1207 |
1254 |
1208 for:aPainter |
1255 for:aPainter |
1209 ^ self new for:aPainter |
1256 ^ self new for:aPainter |
1210 ! ! |
1257 ! ! |
1398 ]. |
1445 ]. |
1399 self changed:#list. |
1446 self changed:#list. |
1400 ] |
1447 ] |
1401 ! ! |
1448 ! ! |
1402 |
1449 |
|
1450 !UIPainterView::ListHolder methodsFor:'recomputing'! |
|
1451 |
|
1452 recompute |
|
1453 |list prop size osel| |
|
1454 |
|
1455 osel := self selection copy. |
|
1456 size := self list size. |
|
1457 list := OrderedCollection new:size. |
|
1458 prop := OrderedCollection new:size. |
|
1459 |
|
1460 painter allSubViewsDo:[:v| |
|
1461 size := self indexOfView:v. |
|
1462 |
|
1463 size ~~ 0 ifTrue:[ |
|
1464 list add:(self list at:size). |
|
1465 prop add:(propertyList at:size) |
|
1466 ] |
|
1467 ]. |
|
1468 propertyList := prop. |
|
1469 self list:list. |
|
1470 self selection:osel. |
|
1471 ! ! |
|
1472 |
1403 !UIPainterView::ListHolder methodsFor:'searching'! |
1473 !UIPainterView::ListHolder methodsFor:'searching'! |
1404 |
1474 |
1405 detectProperty:aBlock |
1475 detectProperty:aBlock |
1406 "find the property, for which evaluation of the argument, aBlock |
1476 "find the property, for which evaluation of the argument, aBlock |
1407 returns true; return the property or nil if none detected |
1477 returns true; return the property or nil if none detected |