*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 10 Jan 2006 13:41:19 +0100
changeset 4458 9289b34fcea3
parent 4457 de5fd63eaa8c
child 4459 8b13d9f5d3b5
*** empty log message ***
WindowEvent.st
WindowSensor.st
XWorkstation.st
--- 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!