checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 04 Jul 1999 18:56:40 +0200
changeset 1193 f8e879f414e8
parent 1192 6db390e6463e
child 1194 38f0d0580956
checkin from browser
DObject.st
DisplayObject.st
--- a/DObject.st	Fri Jul 02 12:55:50 1999 +0200
+++ b/DObject.st	Sun Jul 04 18:56:40 1999 +0200
@@ -38,12 +38,6 @@
     generic superclass for Display Objects held in ObjectViews
     see DrawObject/LogicObject/DeskTopObject and subclasses for example uses.
 
-    Notice:
-        This class was introduced to provide a home for ST-80v2.x 
-        subclasses.
-        It is now obsolete and should no longer be used for new applications.
-        See classes in the VisualObject hierarchy.
-
     [author:]
         Claus Gittinger
 "
@@ -371,9 +365,19 @@
 !DisplayObject methodsFor:'queries'!
 
 canBeMoved
-    "return true, if the receiver can be moved around"
+    "return true, if the receiver can be moved around (in an ObjectView)"
 
     ^ true
+
+    "Modified: / 4.7.1999 / 18:49:26 / cg"
+!
+
+canBeSelected
+    "return true, if the receiver can be selected (in an ObjectView)"
+
+    ^ true
+
+    "Created: / 4.7.1999 / 18:49:20 / cg"
 !
 
 containsPoint: aPoint
@@ -484,5 +488,5 @@
 !DisplayObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.21 1997-03-28 15:41:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.22 1999-07-04 16:56:40 cg Exp $'
 ! !
--- a/DisplayObject.st	Fri Jul 02 12:55:50 1999 +0200
+++ b/DisplayObject.st	Sun Jul 04 18:56:40 1999 +0200
@@ -38,12 +38,6 @@
     generic superclass for Display Objects held in ObjectViews
     see DrawObject/LogicObject/DeskTopObject and subclasses for example uses.
 
-    Notice:
-        This class was introduced to provide a home for ST-80v2.x 
-        subclasses.
-        It is now obsolete and should no longer be used for new applications.
-        See classes in the VisualObject hierarchy.
-
     [author:]
         Claus Gittinger
 "
@@ -371,9 +365,19 @@
 !DisplayObject methodsFor:'queries'!
 
 canBeMoved
-    "return true, if the receiver can be moved around"
+    "return true, if the receiver can be moved around (in an ObjectView)"
 
     ^ true
+
+    "Modified: / 4.7.1999 / 18:49:26 / cg"
+!
+
+canBeSelected
+    "return true, if the receiver can be selected (in an ObjectView)"
+
+    ^ true
+
+    "Created: / 4.7.1999 / 18:49:20 / cg"
 !
 
 containsPoint: aPoint
@@ -484,5 +488,5 @@
 !DisplayObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.21 1997-03-28 15:41:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.22 1999-07-04 16:56:40 cg Exp $'
 ! !