DropObject.st
changeset 2749 adec4c4c7874
parent 2614 f916f680f75f
child 2819 691218db6b3c
--- a/DropObject.st	Mon Sep 21 22:45:00 2009 +0200
+++ b/DropObject.st	Tue Sep 22 10:22:40 2009 +0200
@@ -318,6 +318,14 @@
     "Modified: 19.4.1997 / 12:52:17 / cg"
 ! !
 
+!DropObject::Class class methodsFor:'documentation'!
+
+documentation
+"
+    I represent a class being dragged (from a browser's classList)
+"
+! !
+
 !DropObject::Class methodsFor:'testing'!
 
 isClassObject
@@ -337,6 +345,14 @@
     "Modified: 19.4.1997 / 15:38:12 / cg"
 ! !
 
+!DropObject::Color class methodsFor:'documentation'!
+
+documentation
+"
+    I represent a color being dragged (from an image editor)
+"
+! !
+
 !DropObject::Color methodsFor:'testing'!
 
 isColorObject
@@ -358,6 +374,14 @@
     "Modified: 19.4.1997 / 15:38:07 / cg"
 ! !
 
+!DropObject::File class methodsFor:'documentation'!
+
+documentation
+"
+    I represent a file being dragged (from a file browser)
+"
+! !
+
 !DropObject::File methodsFor:'accessing'!
 
 theObject:aPathname
@@ -468,6 +492,14 @@
     "Modified: 19.4.1997 / 12:51:49 / cg"
 ! !
 
+!DropObject::FileInArchive class methodsFor:'documentation'!
+
+documentation
+"
+    I represent a file being dragged from inside an archive (tar, zip,...) (from a file browser)
+"
+! !
+
 !DropObject::FileInArchive methodsFor:'testing'!
 
 isFileInArchive
@@ -485,6 +517,14 @@
     "Modified: 19.4.1997 / 15:38:02 / cg"
 ! !
 
+!DropObject::Image class methodsFor:'documentation'!
+
+documentation
+"
+    I represent a bitmap image being dragged
+"
+! !
+
 !DropObject::Image methodsFor:'testing'!
 
 isImageObject
@@ -495,6 +535,14 @@
     "Modified: 19.4.1997 / 12:51:28 / cg"
 ! !
 
+!DropObject::Method class methodsFor:'documentation'!
+
+documentation
+"
+    I represent a method image being dragged (from a browser's methodlist)
+"
+! !
+
 !DropObject::Method methodsFor:'testing'!
 
 isMethodObject
@@ -511,6 +559,14 @@
     "Modified: 19.4.1997 / 15:40:33 / cg"
 ! !
 
+!DropObject::Text class methodsFor:'documentation'!
+
+documentation
+"
+    I represent text being dragged (via CTRL-drag from a textView)
+"
+! !
+
 !DropObject::Text methodsFor:'testing'!
 
 isTextObject
@@ -524,5 +580,5 @@
 !DropObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.19 2009-03-17 09:33:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.20 2009-09-22 08:22:40 cg Exp $'
 ! !