UISelectionPanel.st
changeset 2119 e88e67db6f3d
parent 2115 be5e920d6158
child 2120 270de066caa1
equal deleted inserted replaced
2118:caee73c7b7dd 2119:e88e67db6f3d
  1604     ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]).
  1604     ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]).
  1605 
  1605 
  1606     "Created: / 13-10-2006 / 15:53:04 / cg"
  1606     "Created: / 13-10-2006 / 15:53:04 / cg"
  1607 !
  1607 !
  1608 
  1608 
  1609 drop:aCollectionOfDropObjects in:aComponent at:aPoint
  1609 dropObjects:aCollectionOfDropObjects in:aComponent at:aPoint
  1610 
  1610 
  1611     |spc top|
  1611     |spc top|
  1612 
  1612 
  1613     top := DragAndDropManager dragOriginatorQuerySignal query topView.
  1613     top := DragAndDropManager dragOriginatorQuerySignal query topView.
  1614 
  1614 
  1622     ] ifFalse:[
  1622     ] ifFalse:[
  1623         spc := aCollectionOfDropObjects collect:[:el| el theObject].
  1623         spc := aCollectionOfDropObjects collect:[:el| el theObject].
  1624     ].
  1624     ].
  1625     self paste:spc.
  1625     self paste:spc.
  1626 
  1626 
  1627     "Modified: / 18.3.1999 / 18:29:19 / stefan"
  1627     "Modified: / 18-03-1999 / 18:29:19 / stefan"
       
  1628     "Created: / 13-10-2006 / 18:25:30 / cg"
  1628 ! !
  1629 ! !
  1629 
  1630 
  1630 !UISelectionPanel methodsFor:'initialization'!
  1631 !UISelectionPanel methodsFor:'initialization'!
  1631 
  1632 
  1632 initialize
  1633 initialize