Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
drop argument is always a collection
authorClaus Gittinger <cg@exept.de>
Fri, 11 Apr 1997 12:49:49 +0200
changeset 1583 ca6e6732dc29
parent 1582 ec428aba3f9c
child 1584 03d62f063935
drop argument is always a collection
XWorkstat.st file | annotate | diff | comparison | revisions
XWorkstation.st file | annotate | diff | comparison | revisions 
--- a/XWorkstat.st	Fri Apr 11 12:48:18 1997 +0200
+++ b/XWorkstat.st	Fri Apr 11 12:49:49 1997 +0200
@@ -496,6 +496,22 @@
     "Modified: 26.5.1996 / 15:32:46 / cg"
 ! !
 
+!XWorkstation methodsFor:'Signal constants'!
+
+deviceErrorSignal
+    "return the per-device signal, which is raised when some
+     X-Error occurs."
+
+    ^ deviceErrorSignal
+!
+
+deviceIOrrorSignal
+    "return the per-device signal, which is raised when a fatal
+    IO error (i.e. broken connection) occurs."
+
+    ^ deviceIOErrorSignal
+! !
+
 !XWorkstation methodsFor:'accessing & queries'!
 
 anyButtonMotionMask
@@ -783,22 +799,6 @@
     ^ whitepixel
 ! !
 
-!XWorkstation methodsFor:'Signal constants'!
-
-deviceErrorSignal
-    "return the per-device signal, which is raised when some
-     X-Error occurs."
-
-    ^ deviceErrorSignal
-!
-
-deviceIOrrorSignal
-    "return the per-device signal, which is raised when a fatal
-    IO error (i.e. broken connection) occurs."
-
-    ^ deviceIOErrorSignal
-! !
-
 !XWorkstation methodsFor:'accessing display capabilities'!
 
 hasDPS
@@ -2640,7 +2640,7 @@
     "Modified: 6.4.1997 / 13:38:52 / cg"
 !
 
-drop:dropObjects inWindowID:destinationId position:destinationPoint rootPosition:rootPoint
+drop:aCollectionOfDropObjects inWindowID:destinationId position:destinationPoint rootPosition:rootPoint
     "drop something in some alien view.
      Returns false, if the drop could not be performed."
 
@@ -2648,18 +2648,18 @@
     "/ see, if the display supports the DND protocol ...
     "/
     (self atomIDOf:'DndProtocol') notNil ifTrue:[
-	^ self
-	    dndDrop:dropObjects 
-	    inWindowID:destinationId 
-	    position:destinationPoint 
-	    rootPosition:rootPoint        
+        ^ self
+            dndDrop:aCollectionOfDropObjects 
+            inWindowID:destinationId 
+            position:destinationPoint 
+            rootPosition:rootPoint        
     ].
 
     "/ add more drag&drop protocols here.
 
     ^ false
 
-    "Modified: 6.4.1997 / 13:40:37 / cg"
+    "Modified: 11.4.1997 / 12:44:50 / cg"
 ! !
 
 !XWorkstation methodsFor:'drawing'!
@@ -9294,6 +9294,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.237 1997-04-11 09:36:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.238 1997-04-11 10:49:49 cg Exp $'
 ! !
 XWorkstation initialize!
--- a/XWorkstation.st	Fri Apr 11 12:48:18 1997 +0200
+++ b/XWorkstation.st	Fri Apr 11 12:49:49 1997 +0200
@@ -496,6 +496,22 @@
     "Modified: 26.5.1996 / 15:32:46 / cg"
 ! !
 
+!XWorkstation methodsFor:'Signal constants'!
+
+deviceErrorSignal
+    "return the per-device signal, which is raised when some
+     X-Error occurs."
+
+    ^ deviceErrorSignal
+!
+
+deviceIOrrorSignal
+    "return the per-device signal, which is raised when a fatal
+    IO error (i.e. broken connection) occurs."
+
+    ^ deviceIOErrorSignal
+! !
+
 !XWorkstation methodsFor:'accessing & queries'!
 
 anyButtonMotionMask
@@ -783,22 +799,6 @@
     ^ whitepixel
 ! !
 
-!XWorkstation methodsFor:'Signal constants'!
-
-deviceErrorSignal
-    "return the per-device signal, which is raised when some
-     X-Error occurs."
-
-    ^ deviceErrorSignal
-!
-
-deviceIOrrorSignal
-    "return the per-device signal, which is raised when a fatal
-    IO error (i.e. broken connection) occurs."
-
-    ^ deviceIOErrorSignal
-! !
-
 !XWorkstation methodsFor:'accessing display capabilities'!
 
 hasDPS
@@ -2640,7 +2640,7 @@
     "Modified: 6.4.1997 / 13:38:52 / cg"
 !
 
-drop:dropObjects inWindowID:destinationId position:destinationPoint rootPosition:rootPoint
+drop:aCollectionOfDropObjects inWindowID:destinationId position:destinationPoint rootPosition:rootPoint
     "drop something in some alien view.
      Returns false, if the drop could not be performed."
 
@@ -2648,18 +2648,18 @@
     "/ see, if the display supports the DND protocol ...
     "/
     (self atomIDOf:'DndProtocol') notNil ifTrue:[
-	^ self
-	    dndDrop:dropObjects 
-	    inWindowID:destinationId 
-	    position:destinationPoint 
-	    rootPosition:rootPoint        
+        ^ self
+            dndDrop:aCollectionOfDropObjects 
+            inWindowID:destinationId 
+            position:destinationPoint 
+            rootPosition:rootPoint        
     ].
 
     "/ add more drag&drop protocols here.
 
     ^ false
 
-    "Modified: 6.4.1997 / 13:40:37 / cg"
+    "Modified: 11.4.1997 / 12:44:50 / cg"
 ! !
 
 !XWorkstation methodsFor:'drawing'!
@@ -9294,6 +9294,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.237 1997-04-11 09:36:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.238 1997-04-11 10:49:49 cg Exp $'
 ! !
 XWorkstation initialize!
hg/stx-libview