--- a/DropObject.st	Sat Apr 19 15:44:35 1997 +0200
+++ b/DropObject.st	Sat Apr 19 17:21:04 1997 +0200
@@ -92,7 +92,7 @@
 !DropObject class methodsFor:'instance creation'!
 
 new:someThing
-    "create an instance dependant on something
+    "create an instance on something
     "
     |cls|
 
@@ -105,22 +105,40 @@
     ]]]].
         
   ^ cls new theObject:someThing
+
+    "Modified: 19.4.1997 / 17:19:55 / cg"
 !
 
 newColor:aColor
+    "create an instance for a color"
+
     ^ Color new theObject:aColor
+
+    "Modified: 19.4.1997 / 17:20:17 / cg"
 !
 
 newFile:aFilename
+    "create an instance for a file or directory"
+
     ^ File new theObject:aFilename
+
+    "Modified: 19.4.1997 / 17:20:28 / cg"
 !
 
 newImage:anImageOrForm
+    "create an instance for an image"
+
     ^ Image new theObject:anImageOrForm
+
+    "Modified: 19.4.1997 / 17:20:37 / cg"
 !
 
 newText:aTextOrString
+    "create an instance for some text"
+
     ^ Text new theObject:aTextOrString
+
+    "Modified: 19.4.1997 / 17:20:46 / cg"
 ! !
 
 !DropObject class methodsFor:'defaults'!
@@ -401,5 +419,5 @@
 !DropObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.4 1997-04-19 13:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.5 1997-04-19 15:21:04 cg Exp $'
 ! !