--- a/TopView.st	Wed Jan 10 13:54:28 1996 +0100
+++ b/TopView.st	Wed Jan 10 13:55:33 1996 +0100
@@ -192,32 +192,6 @@
 	^ windowGroup withCursor:aCursor do:aBlock
     ].
     ^ super withCursor:aCursor do:aBlock
-!
-
-withExecuteCursorDo:aBlock
-    "evaluate aBlock while showing an execute cursor in all my views.
-     Return the value as returned by aBlock."
-
-    ^ self withCursor:(Cursor execute) do:aBlock
-
-    "Created: 14.12.1995 / 20:57:22 / cg"
-!
-
-withReadCursorDo:aBlock
-    "evaluate aBlock while showing a readCursor in all my views.
-     Return the value as returned by aBlock."
-
-    ^ self withCursor:(Cursor read) do:aBlock
-
-    "Created: 14.12.1995 / 20:56:38 / cg"
-    "Modified: 14.12.1995 / 20:57:40 / cg"
-!
-
-withWaitCursorDo:aBlock
-    "evaluate aBlock while showing a waitCursor in all my views.
-     Return the value as returned by aBlock."
-
-    ^ self withCursor:(Cursor wait) do:aBlock
 ! !
 
 !TopView methodsFor:'startup'!
@@ -302,5 +276,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.11 1995-12-16 17:43:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.12 1996-01-10 12:55:33 cg Exp $'
 ! !