--- a/DragAndDropManager.st Mon Jan 09 09:53:28 2006 +0100
+++ b/DragAndDropManager.st Tue Jan 10 10:47:40 2006 +0100
@@ -272,8 +272,8 @@
!DragAndDropManager class methodsFor:'defaults'!
autoScrollDelayTimeMs
- "time measured in milli-seconds the the autoscroll task is delayed
- "
+ "time measured in milli-seconds the autoscroll task is delayed"
+
^ 200
! !
@@ -326,21 +326,21 @@
!DragAndDropManager class methodsFor:'simple start-drop source'!
startDragFrom:aView dropSource:aDropSource
- "start a drop at the current pointer position.
- "
+ "start a drop at the current pointer position."
+
^ (self new) startDragFrom:aView dropSource:aDropSource
! !
!DragAndDropManager class methodsFor:'simple start-generic'!
startDrag:draggableObjects from:aView
- "start a drop at the current pointer position
- "
+ "start a drop at the current pointer position"
+
^ self startDrag:draggableObjects
- from:aView
- offset:0@0
- atEnd:nil
- display:draggableObjects
+ from:aView
+ offset:0@0
+ atEnd:nil
+ display:draggableObjects
"
EXAMPLE:
@@ -350,8 +350,8 @@
button := (Button label:'press me').
button pressAction:[
- DragAndDropManager startDrag:(DropObject newFile:('.')) from:button.
- button turnOff
+ DragAndDropManager startDrag:(DropObject newFile:('.')) from:button.
+ button turnOff
].
button openAt:100@100
@@ -362,13 +362,13 @@
"start a drop at the current pointer position
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
^ self startDrag:draggableObjects
- from:aView
- offset:0@0
- atEnd:aFourArgEndBlock
- display:draggableObjects
+ from:aView
+ offset:0@0
+ atEnd:aFourArgEndBlock
+ display:draggableObjects
"
EXAMPLE:
@@ -378,33 +378,32 @@
button := (Button label:'press me').
button pressAction:[
- DragAndDropManager startDrag:(DropObject newFile:('.'))
- from:button
- atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
- Transcript showCR:'target view: ', targetView printString.
- Transcript showCR:'target id: ', targetViewId printString.
- Transcript showCR:'point screen: ', screenPoint printString.
- Transcript showCR:'point target: ', targetPoint printString.
- ].
- button turnOff
+ DragAndDropManager startDrag:(DropObject newFile:('.'))
+ from:button
+ atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
+ Transcript showCR:'target view: ', targetView printString.
+ Transcript showCR:'target id: ', targetViewId printString.
+ Transcript showCR:'point screen: ', screenPoint printString.
+ Transcript showCR:'point target: ', targetPoint printString.
+ ].
+ button turnOff
].
button openAt:100@100
"
-
!
startDrag:draggableObjects from:aView atEnd:aFourArgEndBlock display:something
"start a drop at the current pointer position
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
^ self startDrag:draggableObjects
- from:aView
- offset:0@0
- atEnd:aFourArgEndBlock
- display:something
+ from:aView
+ offset:0@0
+ atEnd:aFourArgEndBlock
+ display:something
"
EXAMPLE:
@@ -414,16 +413,16 @@
button := (Button label:'press me').
button pressAction:[
- DragAndDropManager startDrag:(DropObject newFile:('.'))
- from:button
- atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
- Transcript showCR:'target view: ', targetView printString.
- Transcript showCR:'target id: ', targetViewId printString.
- Transcript showCR:'point screen: ', screenPoint printString.
- Transcript showCR:'point target: ', targetPoint printString.
- ]
- display:(Array with:'String' with:(Image fromFile:('xpmBitmaps/QUESTION3.xpm'))).
- button turnOff
+ DragAndDropManager startDrag:(DropObject newFile:('.'))
+ from:button
+ atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
+ Transcript showCR:'target view: ', targetView printString.
+ Transcript showCR:'target id: ', targetViewId printString.
+ Transcript showCR:'point screen: ', screenPoint printString.
+ Transcript showCR:'point target: ', targetPoint printString.
+ ]
+ display:(Array with:'String' with:(Image fromFile:('xpmBitmaps/QUESTION3.xpm'))).
+ button turnOff
].
button openAt:100@100
@@ -431,13 +430,13 @@
!
startDrag:draggableObjects from:aView display:something
- "start a drop at the current pointer position
- "
+ "start a drop at the current pointer position"
+
^ self startDrag:draggableObjects
- from:aView
- offset:0@0
- atEnd:nil
- display:something
+ from:aView
+ offset:0@0
+ atEnd:nil
+ display:something
"
EXAMPLE:
@@ -453,12 +452,12 @@
dropObj := DropObject newFile:('.').
addButton := [:label :dispObj| |button|
- button := Button label:label in:pannel.
+ button := Button label:label in:pannel.
- button pressAction:[
- DragAndDropManager startDrag:dropObj from:button display:dispObj.
- button turnOff.
- ]
+ button pressAction:[
+ DragAndDropManager startDrag:dropObj from:button display:dispObj.
+ button turnOff.
+ ]
].
addButton value:'String' value:'String'.
@@ -473,13 +472,13 @@
!
startDrag:draggableObjects from:aView offset:anOffset
- "start a drop at the current pointer position
- "
+ "start a drop at the current pointer position"
+
^ self startDrag:draggableObjects
- from:aView
- offset:anOffset
- atEnd:nil
- display:draggableObjects
+ from:aView
+ offset:anOffset
+ atEnd:nil
+ display:draggableObjects
"
EXAMPLE:
@@ -489,26 +488,25 @@
button := (Button label:'press me').
button pressAction:[
- DragAndDropManager startDrag:(DropObject newFile:('.')) from:button offset:(-10 @ -10).
- button turnOff
+ DragAndDropManager startDrag:(DropObject newFile:('.')) from:button offset:(-10 @ -10).
+ button turnOff
].
button openAt:100@100
"
-
!
startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgEndBlock
"start a drop at the current pointer position
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
^ self startDrag:draggableObjects
- from:aView
- offset:anOffset
- atEnd:aFourArgEndBlock
- display:draggableObjects
+ from:aView
+ offset:anOffset
+ atEnd:aFourArgEndBlock
+ display:draggableObjects
"
EXAMPLE:
@@ -518,38 +516,37 @@
button := (Button label:'press me').
button pressAction:[
- DragAndDropManager startDrag:(DropObject newFile:('.'))
- from:button
- offset:(-10 @ -10)
- atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
- Transcript showCR:'target view: ', targetView printString.
- Transcript showCR:'target id: ', targetViewId printString.
- Transcript showCR:'point screen: ', screenPoint printString.
- Transcript showCR:'point target: ', targetPoint printString.
- ].
- button turnOff
+ DragAndDropManager startDrag:(DropObject newFile:('.'))
+ from:button
+ offset:(-10 @ -10)
+ atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
+ Transcript showCR:'target view: ', targetView printString.
+ Transcript showCR:'target id: ', targetViewId printString.
+ Transcript showCR:'point screen: ', screenPoint printString.
+ Transcript showCR:'point target: ', targetPoint printString.
+ ].
+ button turnOff
].
button openAt:100@100
"
-
!
startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgEndBlock display:something
"start a drop at the current pointer position
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
|manager|
manager := self new.
manager startDrag:draggableObjects
- from:aView
- offset:anOffset
- atEnd:aFourArgEndBlock
- display:something.
+ from:aView
+ offset:anOffset
+ atEnd:aFourArgEndBlock
+ display:something.
^ manager
@@ -561,32 +558,31 @@
button := (Button label:'press me').
button pressAction:[
- DragAndDropManager startDrag:(DropObject newFile:('.'))
- from:button
- offset:(-10 @ -10)
- atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
- Transcript showCR:'target view: ', targetView printString.
- Transcript showCR:'target id: ', targetViewId printString.
- Transcript showCR:'point screen: ', screenPoint printString.
- Transcript showCR:'point target: ', targetPoint printString.
- ]
- display:(Array with:'String' with:(Image fromFile:('xpmBitmaps/QUESTION3.xpm'))).
- button turnOff
+ DragAndDropManager startDrag:(DropObject newFile:('.'))
+ from:button
+ offset:(-10 @ -10)
+ atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
+ Transcript showCR:'target view: ', targetView printString.
+ Transcript showCR:'target id: ', targetViewId printString.
+ Transcript showCR:'point screen: ', screenPoint printString.
+ Transcript showCR:'point target: ', targetPoint printString.
+ ]
+ display:(Array with:'String' with:(Image fromFile:('xpmBitmaps/QUESTION3.xpm'))).
+ button turnOff
].
button openAt:100@100
"
-
!
startDrag:draggableObjects from:aView offset:anOffset display:something
- "start a drop at the current pointer position
- "
+ "start a drop at the current pointer position"
+
^ self startDrag:draggableObjects
- from:aView
- offset:anOffset
- atEnd:nil
- display:something
+ from:aView
+ offset:anOffset
+ atEnd:nil
+ display:something
"
EXAMPLE:
@@ -602,12 +598,12 @@
dropObj := DropObject newFile:('.').
addButton := [:offset :label :dispObj| |button|
- button := Button label:label in:pannel.
+ button := Button label:label in:pannel.
- button pressAction:[
- DragAndDropManager startDrag:dropObj from:button offset:offset display:dispObj.
- button turnOff.
- ]
+ button pressAction:[
+ DragAndDropManager startDrag:dropObj from:button offset:offset display:dispObj.
+ button turnOff.
+ ]
].
addButton value:#topLeft value:'String' value:'String'.
@@ -619,7 +615,6 @@
topView label:'Drag & Drop'.
topView openWithExtent:200@200.
"
-
! !
!DragAndDropManager class methodsFor:'simple start-lines'!
@@ -627,8 +622,8 @@
startArrowDragIn:aView at:dragPoint atEnd:aFourArgBlock
"start a rubber-arrow-line dragging in aView at dragPoint.
When finished, evaluate the fourArgBlock with targetView,
- targetID, screenPosition and targetViewPosition as arguments
- "
+ targetID, screenPosition and targetViewPosition as arguments"
+
^ self new startArrowDragIn:aView at:dragPoint atEnd:aFourArgBlock
"
@@ -639,19 +634,19 @@
button := (Button label:'press me').
button pressAction:[
- button turnOff.
+ button turnOff.
- DragAndDropManager startArrowDragIn:button
- at:(button preferredExtent // 2)
- atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
- targetView isNil ifTrue:[
- Transcript show:'alien view'
- ] ifFalse:[
- Transcript showCR:'target: ', targetView printString
- ].
- Transcript showCR:'point screen: ', screenPoint printString.
- Transcript showCR:'point target: ', targetPoint printString.
- ]
+ DragAndDropManager startArrowDragIn:button
+ at:(button preferredExtent // 2)
+ atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
+ targetView isNil ifTrue:[
+ Transcript show:'alien view'
+ ] ifFalse:[
+ Transcript showCR:'target: ', targetView printString
+ ].
+ Transcript showCR:'point screen: ', screenPoint printString.
+ Transcript showCR:'point target: ', targetPoint printString.
+ ]
].
button openAt:100@100
"
@@ -660,8 +655,8 @@
startLineDragIn:aView at:dragPoint atEnd:aFourArgBlock
"start a rubber-line dragging in aView at dragPoint.
When finished, evaluate the fourArgBlock with targetView,
- targetID, screenPosition and targetViewPosition as arguments
- "
+ targetID, screenPosition and targetViewPosition as arguments"
+
^ self new startLineDragIn:aView at:dragPoint atEnd:aFourArgBlock
"
@@ -672,19 +667,19 @@
button := (Button label:'press me').
button pressAction:[
- button turnOff.
+ button turnOff.
- DragAndDropManager startLineDragIn:button
- at:(button preferredExtent // 2)
- atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
- targetView isNil ifTrue:[
- Transcript show:'alien view'
- ] ifFalse:[
- Transcript showCR:'target: ', targetView printString
- ].
- Transcript showCR:'point screen: ', screenPoint printString.
- Transcript showCR:'point target: ', targetPoint printString.
- ]
+ DragAndDropManager startLineDragIn:button
+ at:(button preferredExtent // 2)
+ atEnd:[:targetView :targetViewId :screenPoint :targetPoint|
+ targetView isNil ifTrue:[
+ Transcript show:'alien view'
+ ] ifFalse:[
+ Transcript showCR:'target: ', targetView printString
+ ].
+ Transcript showCR:'point screen: ', screenPoint printString.
+ Transcript showCR:'point target: ', targetPoint printString.
+ ]
].
button openAt:100@100
"
@@ -693,8 +688,8 @@
!DragAndDropManager class methodsFor:'translation'!
translatePointFromScreen:aPoint toView:aView
- "translate a point to screen
- "
+ "translate a point from screen- to view coordinates"
+
|device trans point offset|
device := aView device.
@@ -715,8 +710,8 @@
!
translatePointToScreen:aPoint from:aView
- "translate a point to screen
- "
+ "translate a point from view- to screen coordinates"
+
|device trans point offset|
aView isRootView ifTrue:[^ aPoint].
@@ -739,11 +734,9 @@
!DragAndDropManager methodsFor:'accessing'!
device
- "returns the device of the source view
- "
+ "returns the device of the source view"
+
^ dragView device
-
-
!
disabledFlag
@@ -767,8 +760,8 @@
!
dropContext
- "return the current context
- "
+ "return the current context"
+
^ dropContext
!
@@ -787,11 +780,9 @@
!
font
- "returns the font of the source view
- "
+ "returns the font of the source view"
+
^ dragView font
-
-
!
passiveAction:aBlockOrNil
@@ -815,58 +806,57 @@
!DragAndDropManager methodsFor:'accessing-cursor'!
alienCursor:aCursorOrImage
- "set the cursor used for an alien widget; not an ST/X view
- "
+ "set the cursor used for an alien widget; not an ST/X view"
+
aCursorOrImage isImage ifTrue:[
- alienCursor := Cursor fromImage:aCursorOrImage
+ alienCursor := Cursor fromImage:aCursorOrImage
] ifFalse:[
- (aCursorOrImage isMemberOf:Cursor) ifTrue:[
- alienCursor := aCursorOrImage
- ] ifFalse:[
- "/
- "/ use disabled cursor
- "/
- alienCursor := nil
- ]
+ (aCursorOrImage isMemberOf:Cursor) ifTrue:[
+ alienCursor := aCursorOrImage
+ ] ifFalse:[
+ "/
+ "/ use disabled cursor
+ "/
+ alienCursor := nil
+ ]
]
!
disabledCursor:aCursorOrImage
- "set the cursor for an ST/X view, which can not drop the objects
- "
+ "set the cursor for an ST/X view, which can not drop the objects"
+
aCursorOrImage isImage ifTrue:[
- disabledCursor := Cursor fromImage:aCursorOrImage
+ disabledCursor := Cursor fromImage:aCursorOrImage
] ifFalse:[
- (aCursorOrImage isMemberOf:Cursor) ifTrue:[
- disabledCursor := aCursorOrImage
- ]
+ (aCursorOrImage isMemberOf:Cursor) ifTrue:[
+ disabledCursor := aCursorOrImage
+ ]
]
!
enabledCursor:aCursorOrImage
- "set the cursor for an ST/X view, which can drop the objects
- "
+ "set the cursor for an ST/X view, which can drop the objects"
+
aCursorOrImage isImage ifTrue:[
- enabledCursor := Cursor fromImage:aCursorOrImage
+ enabledCursor := Cursor fromImage:aCursorOrImage
] ifFalse:[
- (aCursorOrImage isMemberOf:Cursor) ifTrue:[
- enabledCursor := aCursorOrImage
- ]
+ (aCursorOrImage isMemberOf:Cursor) ifTrue:[
+ enabledCursor := aCursorOrImage
+ ]
]
-
! !
!DragAndDropManager methodsFor:'dragging-drop source'!
startDragFrom:aView dropSource:aDropSource
- "start a drag at the current pointer position.
- "
+ "start a drag at the current pointer position."
+
^ self startDragFrom:aView dropSource:aDropSource offset:#topLeft "/ #center
!
startDragFrom:aView dropSource:aDropSource offset:anOffset
- "start a drag at the current pointer position.
- "
+ "start a drag at the current pointer position."
+
dropContext dropSource:aDropSource.
^ self startDrag:(aDropSource dropObjects)
@@ -879,51 +869,51 @@
!DragAndDropManager methodsFor:'dragging-easy startup'!
startDrag:draggableObjects from:aView
- "start a drop at the current pointer position
- "
+ "start a drop at the current pointer position"
+
^ self startDrag:draggableObjects
- from:aView
- offset:0@0
+ from:aView
+ offset:0@0
!
startDrag:draggableObjects from:aView display:something
- "start a drop at the current pointer position.
- "
+ "start a drop at the current pointer position."
+
^ self startDrag:draggableObjects
- from:aView
- offset:nil
- atEnd:nil
- display:something
+ from:aView
+ offset:nil
+ atEnd:nil
+ display:something
!
startDrag:draggableObjects from:aView offset:anOffset
- "start a drop at the current pointer position with an offset
- "
+ "start a drop at the current pointer position with an offset"
+
^ self startDrag:draggableObjects
- from:aView
- offset:anOffset
- atEnd:nil
+ from:aView
+ offset:anOffset
+ atEnd:nil
!
startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgEndBlock
"start a drop at the current pointer position.
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
^ self startDrag:draggableObjects
- from:aView
- offset:anOffset
- atEnd:aFourArgEndBlock
- display:draggableObjects
+ from:aView
+ offset:anOffset
+ atEnd:aFourArgEndBlock
+ display:draggableObjects
!
startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgBlock display:something
"start a drop at the current pointer position.
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView.
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView."
+
|height width fontWdt offset ascent device dispObjs list space|
self dropObjects:draggableObjects.
@@ -990,13 +980,13 @@
!
startDrag:draggableObjects from:aView offset:anOffset display:something
- "start a drop at the current pointer position.
- "
+ "start a drop at the current pointer position."
+
^ self startDrag:draggableObjects
- from:aView
- offset:anOffset
- atEnd:nil
- display:something
+ from:aView
+ offset:anOffset
+ atEnd:nil
+ display:something
! !
!DragAndDropManager methodsFor:'dragging-generic'!
@@ -1010,14 +1000,14 @@
The drag starts in aView at point p.
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
^ self startOpaqueDrag:aTwoArgDragBlock
- offset:nil
- extent:nil
- in:aView
- at:nil
- atEnd:aFourArgEndBlock
+ offset:nil
+ extent:nil
+ in:aView
+ at:nil
+ atEnd:aFourArgEndBlock
!
startOpaqueDrag:aDragBlock offset:offs extent:anExtent in:aView at:aDummyPoint atEnd:aFourArgEndBlock
@@ -1030,8 +1020,8 @@
The drag starts in aView at point p.
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
|handler numArgs dragBlock dobjs|
dragOffset := offs ? (Point x:0 y:0).
@@ -1054,7 +1044,6 @@
handler := DragHandler startOpaqueDrag:dragBlock extent:anExtent offset:dragOffset.
].
self doStart:handler for:aView atEnd:aFourArgEndBlock.
-
! !
!DragAndDropManager methodsFor:'dragging-lines'!
@@ -1064,8 +1053,8 @@
The drag starts in aView at point aStartPoint.
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
|p|
p := self class translatePointToScreen:aStartPoint from:aView.
@@ -1080,8 +1069,8 @@
The drag starts in aView at point aStartPoint.
When finished, the endAction is called with four args:
the targetView, the targetViews windowID (useful, if its an alien view),
- the dropPoint in root-coordinates and the dropPoint within the targetView
- "
+ the dropPoint in root-coordinates and the dropPoint within the targetView"
+
|p|
p := self class translatePointToScreen:aStartPoint from:aView.
@@ -1094,8 +1083,8 @@
!DragAndDropManager methodsFor:'drawing'!
displayObjectFor:anObject on:aDevice
- "converts an object to a display object
- "
+ "converts an object to a display object"
+
|obj s1 s2|
obj := (anObject respondsTo:#displayObject) ifTrue:[anObject displayObject]
@@ -1287,8 +1276,8 @@
!
escapePressed
- "handle key escape
- "
+ "handle the escape key"
+
|dropTarget|
escapePressed ~~ true ifTrue:[
@@ -1321,8 +1310,8 @@
!
processAutoScroll
- "process an autoScroll event
- "
+ "process an autoScroll event"
+
|targetWidget targetPoint|
self isActive ifFalse:[^ self].
@@ -1389,8 +1378,8 @@
!DragAndDropManager methodsFor:'private'!
doDrop:aContext in:aWidget
- "old drop mechanism
- "
+ "old drop mechanism"
+
|point|
DragContextQuerySignal answer:aContext do:[
@@ -1423,15 +1412,13 @@
!
doFindDropTargetIn:aView at:aPoint
- "get the drop target for a view and source at a point or nil
- "
+ "get the drop target for a view and source at a point or nil"
aView isNil ifTrue:[ ^ nil ].
"/
"/ new mechanism to get a dropTarget
"/
-
MessageNotUnderstood
ignoreNotUnderstoodOf:#dropTarget
in:[ |target|
@@ -1442,7 +1429,6 @@
"/
"/ old mechanism to get a dropTarget
"/
-
DragContextQuerySignal answer:dropContext do:[
DragOriginatorQuerySignal answer:dragView do:[
DragOffsetQuerySignal answer:dragOffset do:[
@@ -1463,8 +1449,8 @@
!
doStart:aHandler for:aView atEnd:aFourArgEndBlock
- "setup a handler and a restore block
- "
+ "setup a handler and a restore block"
+
|device lastActive windowGroup savedCursor screenPoint|
device := aView device.
@@ -1543,16 +1529,16 @@
forceGiveUp
"called if the DragAndDropManager no longer should be
- active; a second one is started
- "
+ active; a second one is started"
+
self escapePressed.
self removePassiveAction.
restoreBlock value.
!
isActive
- "returns true if a drag operation is active
- "
+ "returns true if a drag operation is active"
+
restoreBlock isNil ifTrue:[ ^ false ].
^ escapePressed ~~ true
!
@@ -1571,7 +1557,7 @@
!DragAndDropManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.66 2005-12-21 11:36:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.67 2006-01-10 09:47:40 cg Exp $'
! !
DragAndDropManager initialize!
--- a/DragHandler.st Mon Jan 09 09:53:28 2006 +0100
+++ b/DragHandler.st Tue Jan 10 10:47:40 2006 +0100
@@ -83,29 +83,29 @@
startArrowDragAt:aStartPoint
"creates and returns the drag handler which is responsible
- for an arrow drag.
- "
+ for an arrow drag."
+
^ Line new startPoint:aStartPoint mode:#arrow
!
startGenericDrag:aTwoArgDragBlock
"creates and returns the drag handler which is responsible
- for a generic drag.
- "
+ for a generic drag."
+
^ Generic new dragBlock:aTwoArgDragBlock
!
startLineDragAt:aStartPoint
"creates and returns the drag handler which is responsible
- for a line drag.
- "
+ for a line drag."
+
^ Line new startPoint:aStartPoint mode:nil
!
startOpaqueDrag:aTwoArgDragBlock extent:anExtent offset:anOffset
"creates and returns the drag handler which is responsible
- for a generic opaque drag.
- "
+ for a generic opaque drag."
+
^ Opaque new dragSize:anExtent dragOffset:anOffset dragBlock:aTwoArgDragBlock
! !
@@ -113,47 +113,38 @@
dropTargetWillChange
"called before the drop target or widget changed.
- restore root view ... (optional)
- "
-
+ restore root view ... (optional)"
!
isInterestedInDropTarget
"returns true, if the handler is interested in the underlying
drop target and the target should be tested to be able to drop
- the objects.
- "
+ the objects."
+
^ true
-
-
! !
!DragHandler methodsFor:'protocol'!
dragTo:aRootPoint
- "drag to a root point
- "
+ "drag to a root point"
+
self subclassResponsibility
-
-
!
flushSaveArea
!
postDragging
- "after dragging; restore root view ...
- "
+ "after dragging; restore root view ..."
+
self subclassResponsibility
-
-
!
preDraggingIn:aSourceWidget
- "called before starting the drag & drop operation
- "
+ "called before starting the drag & drop operation"
+
rootView := aSourceWidget device rootView.
-
!
rereadSaveArea
@@ -180,16 +171,16 @@
dragBlock:aTwoArgBlock
"the dragBlock will be called with two arguments, aPoint and the drawing GC,
- to perform the drawing at some dragPoint.
- "
+ to perform the drawing at some dragPoint."
+
dragBlock := aTwoArgBlock
! !
!DragHandler::Generic methodsFor:'protocol'!
dragTo:aRootPoint
- "drag to a root point
- "
+ "drag to a root point"
+
prevPoint notNil ifTrue:[
self postDragging
].
@@ -199,7 +190,6 @@
!
postDragging
-
lastPoint isNil ifTrue:[
lastPoint := prevPoint.
].
@@ -210,7 +200,6 @@
dragBlock value:lastPoint value:rootView.
rootView flush
]
-
! !
!DragHandler::Line class methodsFor:'documentation'!
@@ -251,16 +240,16 @@
!DragHandler::Line methodsFor:'protocol'!
dragTo:aRootPoint
- "do a line or arrow drag
- "
+ "do a line or arrow drag"
+
self postDragging.
endPoint := lastRootPoint := aRootPoint.
self postDragging.
!
postDragging
- "invert for a line or arrow drag
- "
+ "invert for a line or arrow drag"
+
|arrow|
endPoint isNil ifTrue:[
@@ -280,7 +269,6 @@
].
rootView flush
]
-
! !
!DragHandler::Opaque class methodsFor:'constants'!
@@ -322,8 +310,8 @@
!DragHandler::Opaque methodsFor:'protocol'!
dragTo:aRootPoint
- "drag to a root point
- "
+ "drag to a root point"
+
|p extent point area|
(saveArea notNil and:[lastRootPoint notNil]) ifTrue:[
@@ -395,11 +383,9 @@
!
dropTargetWillChange
- "restore old saveArea
- "
+ "restore old saveArea"
+
self postDragging
-
-
!
flushSaveArea
@@ -407,8 +393,8 @@
!
postDragging
- "restore from saveUnder for a generic opaque drag
- "
+ "restore from saveUnder for a generic opaque drag"
+
saveArea notNil ifTrue:[
rootView clippedByChildren:false.
"/
@@ -425,8 +411,8 @@
!
preDraggingIn:aSourceWidget
- "setup my default values
- "
+ "setup my default values"
+
|depth extent device|
super preDraggingIn:aSourceWidget.
@@ -440,8 +426,6 @@
saveUnder clippedByChildren:false.
tmpForm initGC.
tmpForm font:(aSourceWidget font).
-
-
!
rereadSaveArea
@@ -467,5 +451,5 @@
!DragHandler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.8 2005-05-30 19:24:07 ab Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.9 2006-01-10 09:47:37 cg Exp $'
! !