UIObjectView.st
changeset 2215 b0c8d7acc690
parent 2205 0582767018d7
child 2246 1422d76c54dc
equal deleted inserted replaced
2214:c31fd43cbac3 2215:b0c8d7acc690
  1256 
  1256 
  1257 selectNextUpInHierarchy
  1257 selectNextUpInHierarchy
  1258     self halt.
  1258     self halt.
  1259 !
  1259 !
  1260 
  1260 
  1261 selection:something
  1261 selection:newSelection
  1262     "change selection to something
  1262     "change selection to newSelection"
  1263     "
  1263 
  1264     self select:something
  1264     self select:newSelection
  1265 !
  1265 !
  1266 
  1266 
  1267 selectionDo:aBlock
  1267 selectionDo:aBlock
  1268     "apply block to every selected object
  1268     "apply block to every selected object
  1269     "
  1269     "
  1369 
  1369 
  1370 ! !
  1370 ! !
  1371 
  1371 
  1372 !UIObjectView methodsFor:'selections basic'!
  1372 !UIObjectView methodsFor:'selections basic'!
  1373 
  1373 
  1374 setSelection:aNewSelection withRedraw:doRedraw
  1374 setSelection:newSelection withRedraw:doRedraw
  1375     "set a new selection without change notifications
  1375     "set a new selection without change notifications"
  1376     "
  1376 
  1377     | sel |
  1377     | sel |
  1378 
  1378 
  1379     (sel := aNewSelection) == self ifTrue:[
  1379     (sel := newSelection) == self ifTrue:[
  1380         sel := nil
  1380         sel := nil
  1381     ].
  1381     ].
  1382 
  1382 
  1383     doRedraw ifTrue:[
  1383     doRedraw ifTrue:[
  1384         self hideSelection.
  1384         self hideSelection.