UISelectionPanel.st
changeset 1429 0fb6421a93e9
parent 1408 c3cf368bccf1
child 1434 223936d0c28b
equal deleted inserted replaced
1428:8243829fd6d3 1429:0fb6421a93e9
  1430     ].
  1430     ].
  1431     coll   := clipBoardSpec collection.
  1431     coll   := clipBoardSpec collection.
  1432     device := gallery device.
  1432     device := gallery device.
  1433 
  1433 
  1434     point  := device translatePoint:(device pointerPosition)
  1434     point  := device translatePoint:(device pointerPosition)
  1435                                from:(device rootView id)
  1435                                from:(device rootWindowId)
  1436                                  to:(gallery canvas id).
  1436                                  to:(gallery canvas id).
  1437 
  1437 
  1438     point y < 1 ifTrue:[point y:1].
  1438     point y < 1 ifTrue:[point y:1].
  1439     ext := gallery extent - (10@10).
  1439     ext := gallery extent - (10@10).
  1440 
  1440