changed: #displayObject
authorClaus Gittinger <cg@exept.de>
Mon, 18 Jul 2011 09:39:20 +0200
changeset 2928 37224b335551
parent 2927 49bd291d76e0
child 2929 fcf03ac9e8f5
changed: #displayObject
DropObject.st
--- 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 $'
 ! !