equal
deleted
inserted
replaced
103 startOpaqueDrag:aTwoArgDragBlock extent:anExtent offset:anOffset |
103 startOpaqueDrag:aTwoArgDragBlock extent:anExtent offset:anOffset |
104 "creates and returns the drag handler which is responsible |
104 "creates and returns the drag handler which is responsible |
105 for a generic opaque drag." |
105 for a generic opaque drag." |
106 |
106 |
107 ^ Opaque new dragSize:anExtent dragOffset:anOffset dragBlock:aTwoArgDragBlock |
107 ^ Opaque new dragSize:anExtent dragOffset:anOffset dragBlock:aTwoArgDragBlock |
|
108 ! ! |
|
109 |
|
110 !DragHandler class methodsFor:'queries'! |
|
111 |
|
112 isAbstract |
|
113 "Return if this class is an abstract class. |
|
114 True is returned here for myself only; false for subclasses. |
|
115 Abstract subclasses must redefine this again." |
|
116 |
|
117 ^ self == DragHandler. |
108 ! ! |
118 ! ! |
109 |
119 |
110 !DragHandler methodsFor:'accessing'! |
120 !DragHandler methodsFor:'accessing'! |
111 |
121 |
112 dropContext |
122 dropContext |