# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1503467418 -7200
# Node ID 4eec95c106a16137b0215b77b2c9715e52697acf
# Parent  e3a77cae0843e260df0161ab6d6116fe81463f60
#UI_ENHANCEMENT by cg
class: Cursor
class definition

class: Cursor class
added: #bullet
changed: #initializeNewCursors

diff -r e3a77cae0843 -r 4eec95c106a1 Cursor.st
--- a/Cursor.st	Tue Aug 22 18:36:23 2017 +0200
+++ b/Cursor.st	Wed Aug 23 07:50:18 2017 +0200
@@ -24,7 +24,7 @@
 		UpRightHandCursor DocumentCursor FolderCursor CrossCursor
 		QuestionMarkCursor LeftHandCursor BottomLeftCornerCursor
 		TopRightCornerCursor DownLimitCursor UpLimitCursor
-		LeftLimitCursor RightLimitCursor ClosedEyeCursor'
+		LeftLimitCursor RightLimitCursor ClosedEyeCursor BulletCursor'
 	poolDictionaries:''
 	category:'Graphics-Support'
 !
@@ -2133,6 +2133,47 @@
                     offset: -8 @ -8).
     ClosedEyeCursor setShape:#eyeClosed.
 
+    BulletCursor := (self
+                    extent: 16@16
+                    sourceArray: #(
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000001110000000
+                        2r0000011111000000
+                        2r0000011111000000
+                        2r0000001110000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        )
+                    maskArray: #(
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000001110000000
+                        2r0000011111000000
+                        2r0000011111000000
+                        2r0000001110000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                        2r0000000000000000
+                       )
+                    offset: -8 @ -8).
+    BulletCursor setShape:#bullet.
+
     isWindows ifTrue:[
         "/ want it white-with black boundary
         bits := #[7 128 24 96 32 16 39 136 24 72 0 72 0 72 0 144 1 32 2 64 2 64 2 64 1 128 2 64 2 64 1 128].
@@ -2231,9 +2272,13 @@
     "
      HandCursor := nil.   
      self initializeNewCursors.
+
+     View new cursor:(Cursor eyeClosed); open
+     View new cursor:(Cursor eye); open
+     View new cursor:(Cursor bullet); open
     "
 
-    "Modified: / 13.12.1999 / 12:25:48 / cg"
+    "Modified: / 22-08-2017 / 22:53:51 / cg"
 ! !
 
 !Cursor class methodsFor:'instance creation'!
@@ -2626,6 +2671,20 @@
     "Modified: 23.10.1997 / 00:27:02 / cg"
 !
 
+bullet
+    "return a bullet cursor"
+
+    ^ BulletCursor
+
+    "
+     Cursor bullet showWhile:[ Delay waitForSeconds:3 ]
+
+     View new cursor:(Cursor bullet); open
+    "
+
+    "Created: / 22-08-2017 / 22:51:36 / cg"
+!
+
 caret 
     "return a caret cursor"