DropObject.st
changeset 2928 37224b335551
parent 2819 691218db6b3c
child 3261 6edd75bca965
--- a/DropObject.st	Mon Jul 18 09:38:29 2011 +0200
+++ b/DropObject.st	Mon Jul 18 09:39:20 2011 +0200
@@ -240,9 +240,11 @@
 displayObject
     "return my graphical representation - here a default is returned"
 
-    ^ displayObject ? (self class displayObject)
+    ^ displayObject notNil
+        ifTrue:[ displayObject ]
+        ifFalse:[ self class displayObject ]
 
-
+    "Modified: / 18-07-2011 / 09:39:12 / cg"
 !
 
 displayObject:anObject
@@ -584,9 +586,9 @@
 !DropObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.21 2010-02-02 14:18:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.22 2011-07-18 07:39:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.21 2010-02-02 14:18:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.22 2011-07-18 07:39:20 cg Exp $'
 ! !