--- a/DropObject.st	Fri Jan 31 17:02:29 1997 +0100
+++ b/DropObject.st	Fri Jan 31 18:57:46 1997 +0100
@@ -5,8 +5,8 @@
 	category:'Interface-Support'
 !
 
-DropObject subclass:#File
-	instanceVariableNames:'type'
+DropObject subclass:#Color
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:DropObject
@@ -26,8 +26,8 @@
 	privateIn:DropObject
 !
 
-DropObject subclass:#Color
-	instanceVariableNames:''
+DropObject subclass:#File
+	instanceVariableNames:'type'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:DropObject
@@ -80,6 +80,14 @@
 
     theObject := something.! !
 
+!DropObject methodsFor:'queries'!
+
+displayObject
+    "return my graphical representation - here a default is returned"
+
+    ^ Smalltalk::Image fromFile:'bitmaps/SBrowser.xbm'
+! !
+
 !DropObject methodsFor:'testing'!
 
 isColorObject
@@ -98,6 +106,28 @@
     ^ false
 ! !
 
+!DropObject::Color methodsFor:'testing'!
+
+isColorObject
+    ^ true
+! !
+
+!DropObject::Text methodsFor:'testing'!
+
+isTextObject
+    ^ true
+
+
+! !
+
+!DropObject::Image methodsFor:'testing'!
+
+isImageObject
+    ^ true
+
+
+! !
+
 !DropObject::File methodsFor:'accessing'!
 
 theObject:aPathname
@@ -120,30 +150,8 @@
     ^ true
 ! !
 
-!DropObject::Text methodsFor:'testing'!
-
-isTextObject
-    ^ true
-
-
-! !
-
-!DropObject::Image methodsFor:'testing'!
-
-isImageObject
-    ^ true
-
-
-! !
-
-!DropObject::Color methodsFor:'testing'!
-
-isColorObject
-    ^ true
-! !
-
 !DropObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.1 1997-01-31 16:02:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.2 1997-01-31 17:57:46 ca Exp $'
 ! !