--- a/AppModel.st	Sat Jun 01 13:23:59 1996 +0200
+++ b/AppModel.st	Sat Jun 01 17:06:03 1996 +0200
@@ -344,6 +344,23 @@
 
 !ApplicationModel methodsFor:'misc'!
 
+restoreCursors
+    "restore the original cursors in all of my views"
+
+    ^ self window windowGroup restoreCursors
+
+    "Created: 1.6.1996 / 17:01:24 / cg"
+!
+
+showCursor:aCursor
+    "set all of my views cursor to aCursor.
+     It can be restored with #restoreCursor."
+
+    ^ self window windowGroup showCursor:aCursor
+
+    "Created: 1.6.1996 / 17:01:09 / cg"
+!
+
 withCursor:aCursor do:aBlock
     "evaluate aBlock, showing aCursor in my topView and all of its subviews.
      Return the value of aBlock."
@@ -534,11 +551,13 @@
 !
 
 restarted
-    "sent by my windowGroup, when restarted from an image.
+    "sent by my topWindow, when restarted from an image.
      Nothing done here, but can be redefined to perform any actions
      required to reset the application after an image-restart.
      (for example: check if application files are still around, restart
-     subprocesses etc.)."
+      subprocesses etc.)."
+
+    "Modified: 1.6.1996 / 16:55:50 / cg"
 !
 
 saveAndTerminateRequest
@@ -575,6 +594,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.24 1996-05-03 11:46:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.25 1996-06-01 15:06:03 cg Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Sat Jun 01 13:23:59 1996 +0200
+++ b/ApplicationModel.st	Sat Jun 01 17:06:03 1996 +0200
@@ -344,6 +344,23 @@
 
 !ApplicationModel methodsFor:'misc'!
 
+restoreCursors
+    "restore the original cursors in all of my views"
+
+    ^ self window windowGroup restoreCursors
+
+    "Created: 1.6.1996 / 17:01:24 / cg"
+!
+
+showCursor:aCursor
+    "set all of my views cursor to aCursor.
+     It can be restored with #restoreCursor."
+
+    ^ self window windowGroup showCursor:aCursor
+
+    "Created: 1.6.1996 / 17:01:09 / cg"
+!
+
 withCursor:aCursor do:aBlock
     "evaluate aBlock, showing aCursor in my topView and all of its subviews.
      Return the value of aBlock."
@@ -534,11 +551,13 @@
 !
 
 restarted
-    "sent by my windowGroup, when restarted from an image.
+    "sent by my topWindow, when restarted from an image.
      Nothing done here, but can be redefined to perform any actions
      required to reset the application after an image-restart.
      (for example: check if application files are still around, restart
-     subprocesses etc.)."
+      subprocesses etc.)."
+
+    "Modified: 1.6.1996 / 16:55:50 / cg"
 !
 
 saveAndTerminateRequest
@@ -575,6 +594,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.24 1996-05-03 11:46:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.25 1996-06-01 15:06:03 cg Exp $'
 ! !
 ApplicationModel initialize!