# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 995031932 -7200
# Node ID e2cbc534263097e3358397e7b9ae9c7313375883
# Parent  e1922b505268d90de4565667a5ee9547ff3afe51
added class & method

diff -r e1922b505268 -r e2cbc5342630 DropObject.st
--- a/DropObject.st	Thu Jul 05 16:53:01 2001 +0200
+++ b/DropObject.st	Fri Jul 13 15:45:32 2001 +0200
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libview2' }"
+
 Object subclass:#DropObject
 	instanceVariableNames:'theObject displayObject'
 	classVariableNames:''
@@ -22,20 +24,11 @@
 DropObject class instanceVariableNames:'DisplayObject'
 
 "
- The following class instance variables are inherited by this class:
-
-	Object - 
+ No other class instance variables are inherited by this class.
 "
 !
 
-DropObject subclass:#File
-	instanceVariableNames:'info isHtmlFile isImageFile isPrintable'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:DropObject
-!
-
-DropObject subclass:#Text
+DropObject subclass:#Class
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -49,6 +42,13 @@
 	privateIn:DropObject
 !
 
+DropObject subclass:#File
+	instanceVariableNames:'info isHtmlFile isImageFile isPrintable'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:DropObject
+!
+
 DropObject subclass:#Image
 	instanceVariableNames:''
 	classVariableNames:''
@@ -56,6 +56,20 @@
 	privateIn:DropObject
 !
 
+DropObject subclass:#Method
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:DropObject
+!
+
+DropObject subclass:#Text
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:DropObject
+!
+
 !DropObject class methodsFor:'documentation'!
 
 copyright
@@ -113,6 +127,12 @@
     "Modified: 19.4.1997 / 17:19:55 / cg"
 !
 
+newClass:aClass
+    "create an instance for a class"
+
+    ^ DropObject::Class new theObject:aClass
+!
+
 newColor:aColor
     "create an instance for a color"
 
@@ -137,6 +157,12 @@
     "Modified: 19.4.1997 / 17:20:37 / cg"
 !
 
+newMethod:aMethod
+    "create an instance for a method"
+
+    ^ DropObject::Method new theObject:aMethod
+!
+
 newText:aTextOrString
     "create an instance for some text"
 
@@ -218,6 +244,12 @@
 
 !DropObject methodsFor:'testing'!
 
+isClassObject
+    "return true, if the dropObject represents some class"
+
+    ^ false
+!
+
 isColorObject
     "return true, if the dropObject represents a color"
 
@@ -242,6 +274,12 @@
     "Modified: 19.4.1997 / 12:52:22 / cg"
 !
 
+isMethodObject
+    "return true, if the dropObject represents some method"
+
+    ^ false
+!
+
 isTextObject
     "return true, if the dropObject represents some text"
 
@@ -250,6 +288,35 @@
     "Modified: 19.4.1997 / 12:52:17 / cg"
 ! !
 
+!DropObject::Class methodsFor:'testing'!
+
+isClassObject
+    "return true, if the dropObject represents a class"
+
+    ^ true
+! !
+
+!DropObject::Color class methodsFor:'defaults'!
+
+displayObjectName
+    "return the name of a bitmap image file, which is used 
+     during a drag."
+
+    ^ 'bitmaps/xpmBitmaps/misc_tools/color_wheel.xpm'
+
+    "Modified: 19.4.1997 / 15:38:12 / cg"
+! !
+
+!DropObject::Color methodsFor:'testing'!
+
+isColorObject
+    "return true, if the dropObject represents a color"
+
+    ^ true
+
+    "Modified: 19.4.1997 / 12:51:57 / cg"
+! !
+
 !DropObject::File class methodsFor:'defaults'!
 
 displayObjectName
@@ -365,45 +432,6 @@
     "Modified: 19.4.1997 / 12:51:49 / 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::Color class methodsFor:'defaults'!
-
-displayObjectName
-    "return the name of a bitmap image file, which is used 
-     during a drag."
-
-    ^ 'bitmaps/xpmBitmaps/misc_tools/color_wheel.xpm'
-
-    "Modified: 19.4.1997 / 15:38:12 / cg"
-! !
-
-!DropObject::Color methodsFor:'testing'!
-
-isColorObject
-    "return true, if the dropObject represents a color"
-
-    ^ true
-
-    "Modified: 19.4.1997 / 12:51:57 / cg"
-! !
-
 !DropObject::Image class methodsFor:'defaults'!
 
 displayObjectName
@@ -425,8 +453,34 @@
     "Modified: 19.4.1997 / 12:51:28 / cg"
 ! !
 
+!DropObject::Method methodsFor:'testing'!
+
+isMethodObject
+    "return true, if the dropObject represents a method"
+
+    ^ true
+! !
+
+!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.10 1999-12-09 11:15:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.11 2001-07-13 13:45:32 cg Exp $'
 ! !