--- a/DropObject.st Thu Mar 05 23:56:53 1998 +0100
+++ b/DropObject.st Mon Mar 09 17:05:51 1998 +0100
@@ -13,7 +13,7 @@
Object subclass:#DropObject
- instanceVariableNames:'theObject'
+ instanceVariableNames:'theObject displayObject'
classVariableNames:''
poolDictionaries:''
category:'Interface-Support'
@@ -28,13 +28,20 @@
"
!
-DropObject subclass:#Text
+DropObject subclass:#Color
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:DropObject
!
+DropObject subclass:#File
+ instanceVariableNames:'info isHtmlFile isImageFile isPrintable'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:DropObject
+!
+
DropObject subclass:#Image
instanceVariableNames:''
classVariableNames:''
@@ -42,20 +49,13 @@
privateIn:DropObject
!
-DropObject subclass:#Color
+DropObject subclass:#Text
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:DropObject
!
-DropObject subclass:#File
- instanceVariableNames:'info isHtmlFile isImageFile isPrintable'
- classVariableNames:''
- poolDictionaries:''
- privateIn:DropObject
-!
-
!DropObject class methodsFor:'documentation'!
copyright
@@ -181,6 +181,21 @@
!DropObject methodsFor:'accessing'!
+displayObject
+ "return my graphical representation - here a default is returned"
+
+ ^ displayObject ? (self class displayObject)
+
+
+!
+
+displayObject:anObject
+ "set my graphical representation"
+
+ displayObject := anObject
+
+!
+
theObject
"return the real object represented by the receiver"
@@ -197,16 +212,6 @@
"Modified: 19.4.1997 / 12:53:10 / cg"
! !
-!DropObject methodsFor:'queries'!
-
-displayObject
- "return my graphical representation - here a default is returned"
-
- ^ self class displayObject
-
- "Modified: 19.4.1997 / 12:52:41 / cg"
-! !
-
!DropObject methodsFor:'testing'!
isColorObject
@@ -241,45 +246,6 @@
"Modified: 19.4.1997 / 12:52:17 / cg"
! !
-!DropObject::Text class methodsFor:'defaults'!
-
-displayObjectName
- ^ 'bitmaps/xpmBitmaps/document_images/yellow_file_text_grab.xpm'
-
- "Modified: 19.4.1997 / 15:40:33 / cg"
-! !
-
-!DropObject::Text methodsFor:'testing'!
-
-isTextObject
- "return true, if the dropObject represents some text"
-
- ^ true
-
- "Modified: 19.4.1997 / 12:52:08 / cg"
-! !
-
-!DropObject::Image class methodsFor:'defaults'!
-
-displayObjectName
- "return the name of a bitmap image file, which is used
- during a drag."
-
- ^ 'bitmaps/xpmBitmaps/misc_tools/picture.xpm'
-
- "Modified: 19.4.1997 / 15:38:02 / cg"
-! !
-
-!DropObject::Image methodsFor:'testing'!
-
-isImageObject
- "return true, if the dropObject represents an image"
-
- ^ true
-
- "Modified: 19.4.1997 / 12:51:28 / cg"
-! !
-
!DropObject::Color class methodsFor:'defaults'!
displayObjectName
@@ -416,8 +382,47 @@
"Modified: 19.4.1997 / 12:51:49 / cg"
! !
+!DropObject::Image class methodsFor:'defaults'!
+
+displayObjectName
+ "return the name of a bitmap image file, which is used
+ during a drag."
+
+ ^ 'bitmaps/xpmBitmaps/misc_tools/picture.xpm'
+
+ "Modified: 19.4.1997 / 15:38:02 / cg"
+! !
+
+!DropObject::Image methodsFor:'testing'!
+
+isImageObject
+ "return true, if the dropObject represents an image"
+
+ ^ true
+
+ "Modified: 19.4.1997 / 12:51:28 / cg"
+! !
+
+!DropObject::Text class methodsFor:'defaults'!
+
+displayObjectName
+ ^ 'bitmaps/xpmBitmaps/document_images/yellow_file_text_grab.xpm'
+
+ "Modified: 19.4.1997 / 15:40:33 / cg"
+! !
+
+!DropObject::Text methodsFor:'testing'!
+
+isTextObject
+ "return true, if the dropObject represents some text"
+
+ ^ true
+
+ "Modified: 19.4.1997 / 12:52:08 / cg"
+! !
+
!DropObject class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.5 1997-04-19 15:21:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.6 1998-03-09 16:05:51 ca Exp $'
! !