--- a/Cursor.st	Fri Aug 05 03:15:24 1994 +0200
+++ b/Cursor.st	Fri Aug 05 03:16:44 1994 +0200
@@ -21,7 +21,8 @@
                               XeqCursor CrossHairCursor OriginCursor
                               CornerCursor SquareCursor FourWayCursor
                               UpDownArrowCursor LeftRightArrowCursor
-                              Wait2Cursor Wait3Cursor Wait4Cursor'
+                              Wait2Cursor Wait3Cursor Wait4Cursor
+                              StopCursor'
        poolDictionaries:''
        category:'Graphics-Support'
 !
@@ -29,6 +30,8 @@
 Cursor comment:'
 COPYRIGHT (c) 1992 by Claus Gittinger
              All Rights Reserved
+
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.10 1994-08-05 01:13:47 claus Exp $
 '!
 
 !Cursor class methodsFor:'documentation'!
@@ -49,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.9 1994-06-03 00:52:03 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.10 1994-08-05 01:13:47 claus Exp $
 "
 !
 
@@ -376,6 +379,54 @@
     ^ FourWayCursor
 !
 
+stop
+    "return a stop cursor"
+
+    StopCursor isNil ifTrue:[
+        StopCursor := (self
+                        extent: 16@16
+                        sourceArray: #(
+                            2r0000011111000000
+                            2r0001111111110000
+                            2r0011111111111000
+                            2r0111111111111100
+                            2r0111111111111100
+                            2r1111111111111110
+                            2r1111111111111110
+                            2r1100000000000110
+                            2r1100000000000110
+                            2r1111111111111110
+                            2r1111111111111110
+                            2r0111111111111100
+                            2r0111111111111100
+                            2r0011111111111000
+                            2r0001111111110000
+                            2r0000011111000000
+                            )    
+                        maskArray: #(
+                            2r0000011111000000
+                            2r0001111111110000
+                            2r0011111111111000
+                            2r0111111111111100
+                            2r0111111111111100
+                            2r1111111111111110
+                            2r1111111111111110
+                            2r1111111111111110
+                            2r1111111111111110
+                            2r1111111111111110
+                            2r1111111111111110
+                            2r0111111111111100
+                            2r0111111111111100
+                            2r0011111111111000
+                            2r0001111111110000
+                            2r0000011111000000
+                           ) 
+                        offset: -9 @ -9).
+        StopCursor := StopCursor on:Display.
+    ].
+    ^ StopCursor
+!
+
 wait
     "return a wait cursor"