#UI_ENHANCEMENT by cg
class: Cursor
class definition
class: Cursor class
added: #bullet
changed: #initializeNewCursors
--- 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"