--- a/ObjectView.st	Tue Feb 16 16:24:59 1999 +0100
+++ b/ObjectView.st	Tue Feb 16 16:25:36 1999 +0100
@@ -322,6 +322,26 @@
     ]
 !
 
+addObjectFirst:anObject
+    "add the argument, anObject to the beginning of the contents - with redraw"
+
+    anObject notNil ifTrue:[
+        contents addFirst:anObject.
+        "its on top - only draw this one"
+        shown "realized" ifTrue:[
+            self showUnselected:anObject
+        ]
+    ]
+!
+
+addObjectFirstWithoutRedraw:anObject
+    "add the argument, anObject to the start of the contents - no redraw"
+
+    anObject notNil ifTrue:[
+        contents addFirst:anObject
+    ]
+!
+
 addObjectWithoutRedraw:anObject
     "add the argument, anObject to the contents - no redraw"
 
@@ -2935,5 +2955,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.61 1998-07-28 14:10:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.62 1999-02-16 15:25:36 cg Exp $'
 ! !