UIPainter.st
changeset 2114 eca72652fa9e
parent 2077 bf7f7207fa07
child 2117 3d456b890124
equal deleted inserted replaced
2113:8e2be2823f9e 2114:eca72652fa9e
     7  inclusion of the above copyright notice.   This software may not
     7  inclusion of the above copyright notice.   This software may not
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 
       
    13 
       
    14 "{ Package: 'stx:libtool2' }"
    12 "{ Package: 'stx:libtool2' }"
    15 
    13 
    16 ResourceSpecEditor subclass:#UIPainter
    14 ResourceSpecEditor subclass:#UIPainter
    17 	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
    15 	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
    18 		helpTool painterView painter'
    16 		helpTool painterView painter'
  4877     "can drop ? -> delegate to canvas"
  4875     "can drop ? -> delegate to canvas"
  4878 
  4876 
  4879     ^ self canvas canDrop:aCollectionOfDropObjects
  4877     ^ self canvas canDrop:aCollectionOfDropObjects
  4880 !
  4878 !
  4881 
  4879 
       
  4880 canDrop:aCollectionOfDropObjects at:aPoint
       
  4881     "can drop ? -> delegate to canvas"
       
  4882 
       
  4883     ^ self canvas canDrop:aCollectionOfDropObjects at:aPoint
       
  4884 
       
  4885     "Created: / 13-10-2006 / 12:35:53 / cg"
       
  4886 !
       
  4887 
       
  4888 drop:aCollectionOfDropObjects
       
  4889     "drop objects -> delegate to canvas"
       
  4890 
       
  4891     self canvas drop:aCollectionOfDropObjects
       
  4892 
       
  4893     "Created: / 13-10-2006 / 12:35:59 / cg"
       
  4894 !
       
  4895 
  4882 drop:aCollectionOfDropObjects at:aPoint
  4896 drop:aCollectionOfDropObjects at:aPoint
  4883     "drop objects -> delegate to canvas"
  4897     "drop objects -> delegate to canvas"
  4884 
  4898 
  4885     self canvas drop:aCollectionOfDropObjects at:aPoint
  4899     self canvas drop:aCollectionOfDropObjects at:aPoint
  4886 ! !
  4900 ! !