--- a/WindowEvent.st Tue Jan 10 13:39:14 2006 +0100
+++ b/WindowEvent.st Tue Jan 10 13:41:19 2006 +0100
@@ -354,15 +354,15 @@
type:#destroyed
!
-dropFiles:files view:view position:dropPosition
- ^ self dropMessage:#files data:files view:view position:dropPosition
+dropFiles:files view:view position:dropPositionOrNil dropHandle:dropHandleOrNil
+ ^ self dropMessage:#files data:files view:view position:dropPositionOrNil dropHandle:dropHandleOrNil
!
-dropMessage:dropTypeSymbol data:dropValue view:aView position:position
+dropMessage:dropTypeSymbol data:dropValue view:aView position:positionOrNil dropHandle:dropHandleOrNil
^ DropEvent
for:aView
- type:#dropMessage:data:position:
- arguments:(Array with:dropTypeSymbol with:dropValue with:position)
+ type:#dropMessage:data:position:dropHandle
+ arguments:(Array with:dropTypeSymbol with:dropValue with:positionOrNil with:dropHandleOrNil)
!
focusInView:aView
@@ -1435,7 +1435,7 @@
!WindowEvent class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.82 2006-01-10 11:47:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.83 2006-01-10 12:40:52 cg Exp $'
! !
WindowEvent::InputEvent initialize!
--- a/WindowSensor.st Tue Jan 10 13:39:14 2006 +0100
+++ b/WindowSensor.st Tue Jan 10 13:41:19 2006 +0100
@@ -1389,8 +1389,8 @@
"Modified: 18.1.1997 / 14:18:19 / cg"
!
-dropFiles:files view:view position:dropPosition
- self pushEvent:(WindowEvent dropFiles:files view:view position:dropPosition)
+dropFiles:files view:view position:dropPositionOrNil dropHandle:dropHandleOrNil
+ self pushEvent:(WindowEvent dropFiles:files view:view position:dropPositionOrNil dropHandle:dropHandleOrNil)
!
exposeX:left y:top width:width height:height view:aView
@@ -3256,7 +3256,7 @@
!WindowSensor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.239 2006-01-10 11:47:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.240 2006-01-10 12:41:19 cg Exp $'
! !
WindowSensor initialize!
--- a/XWorkstation.st Tue Jan 10 13:39:14 2006 +0100
+++ b/XWorkstation.st Tue Jan 10 13:41:19 2006 +0100
@@ -4539,7 +4539,7 @@
]]]]]]].
(sensor := targetView sensor) notNil ifTrue:[
- sensor dropMessage:dropType data:dropValue view:targetView position:nil
+ sensor dropMessage:dropType data:dropValue view:targetView position:nil dropHandle:nil
] ifFalse:[
"
not posted, if there is no sensor ...
@@ -11915,7 +11915,7 @@
!XWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.479 2006-01-10 11:48:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.480 2006-01-10 12:41:00 cg Exp $'
! !
XWorkstation initialize!