nicer origin/corner cursors
authorClaus Gittinger <cg@exept.de>
Mon, 18 May 2009 16:13:14 +0200
changeset 5264 e350e452ac9e
parent 5263 654f1779f5ed
child 5265 fb533d955844
nicer origin/corner cursors
Cursor.st
--- a/Cursor.st	Mon May 18 15:52:39 2009 +0200
+++ b/Cursor.st	Mon May 18 16:13:14 2009 +0200
@@ -532,31 +532,71 @@
                         2r0000000000000000)
                     offset: -2@ -1).
 
+"/    OriginCursor :=   
+"/            (Cursor
+"/                    extent: 16@16
+"/                    sourceArray: #(
+"/                        2r0000000000000000
+"/                        2r0111111111111111
+"/                        2r0111111111111111
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000)
+"/                    maskArray: #(
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000)
+"/                    offset: -1@ -1).
+"/    OriginCursor setShape:#origin.
+
     OriginCursor :=   
             (Cursor
                     extent: 16@16
                     sourceArray: #(
-                        2r0000000000000000
-                        2r0111111111111111
-                        2r0111111111111111
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000)
+                        2r1111111111111110
+                        2r1000000000000010
+                        2r1000000000000010
+                        2r1001111111111110
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1111000000000000
+                        2r0000000000000000)
                     maskArray: #(
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111
+                        2r1111111111111110
+                        2r1111111111111110
+                        2r1111111111111110
+                        2r1111111111111110
                         2r1111000000000000
                         2r1111000000000000
                         2r1111000000000000
@@ -568,35 +608,75 @@
                         2r1111000000000000
                         2r1111000000000000
                         2r1111000000000000
-                        2r1111000000000000)
+                        2r0000000000000000)
                     offset: -1@ -1).
     OriginCursor setShape:#origin.
 
+"/    TopRightCornerCursor :=   
+"/            (Cursor
+"/                    extent: 16@16
+"/                    sourceArray: #(
+"/                        2r0000000000000000
+"/                        2r0111111111111111
+"/                        2r0111111111111111
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110)
+"/                    maskArray: #(
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111)
+"/                    offset: -14@ -1).
+"/    TopRightCornerCursor setShape:#topRightCorner.
+
     TopRightCornerCursor :=   
             (Cursor
                     extent: 16@16
                     sourceArray: #(
-                        2r0000000000000000
+                        2r0111111111111111
+                        2r0100000000000001
+                        2r0100000000000001
+                        2r0111111111111001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001111
+                        2r0000000000000000)
+                    maskArray: #(
                         2r0111111111111111
                         2r0111111111111111
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110)
-                    maskArray: #(
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111
+                        2r0111111111111111
+                        2r0111111111111111
                         2r0000000000001111
                         2r0000000000001111
                         2r0000000000001111
@@ -608,32 +688,72 @@
                         2r0000000000001111
                         2r0000000000001111
                         2r0000000000001111
-                        2r0000000000001111)
+                        2r0000000000000000)
                     offset: -14@ -1).
     TopRightCornerCursor setShape:#topRightCorner.
 
+"/    CornerCursor := 
+"/            (Cursor 
+"/                    extent: 16@16
+"/                    sourceArray: #(
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r0000000000000110
+"/                        2r1111111111111110
+"/                        2r1111111111111110
+"/                        2r0000000000000000)
+"/                    maskArray: #(
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r0000000000001111
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111)
+"/                    offset: -14@ -14).
+"/    CornerCursor setShape:#corner.
+
     CornerCursor := 
             (Cursor 
                     extent: 16@16
                     sourceArray: #(
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r0000000000000110
-                        2r1111111111111110
-                        2r1111111111111110
-                        2r0000000000000000)
+                        2r0000000000000000
+                        2r0000000000001111
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0000000000001001
+                        2r0111111111111001
+                        2r0100000000000001
+                        2r0100000000000001
+                        2r0111111111111111)
                     maskArray: #(
-                        2r0000000000001111
+                        2r0000000000000000
                         2r0000000000001111
                         2r0000000000001111
                         2r0000000000001111
@@ -645,34 +765,75 @@
                         2r0000000000001111
                         2r0000000000001111
                         2r0000000000001111
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111)
+                        2r0111111111111111
+                        2r0111111111111111
+                        2r0111111111111111
+                        2r0111111111111111)
                     offset: -14@ -14).
     CornerCursor setShape:#corner.
 
+"/    BottomLeftCornerCursor :=   
+"/            (Cursor
+"/                    extent: 16@16
+"/                    sourceArray: #(
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0110000000000000
+"/                        2r0111111111111111
+"/                        2r0111111111111111
+"/                        2r0000000000000000)
+"/                    maskArray: #(
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111000000000000
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111
+"/                        2r1111111111111111)
+"/                    offset: -1@ -14).
+"/    BottomLeftCornerCursor setShape:#bottomLeftCorner.
+
     BottomLeftCornerCursor :=   
             (Cursor
                     extent: 16@16
                     sourceArray: #(
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0110000000000000
-                        2r0111111111111111
-                        2r0111111111111111
-                        2r0000000000000000)
+                        2r0000000000000000
+                        2r1111000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001000000000000
+                        2r1001111111111110
+                        2r1000000000000010
+                        2r1000000000000010
+                        2r1111111111111110)
                     maskArray: #(
+                        2r0000000000000000
                         2r1111000000000000
                         2r1111000000000000
                         2r1111000000000000
@@ -684,11 +845,10 @@
                         2r1111000000000000
                         2r1111000000000000
                         2r1111000000000000
-                        2r1111000000000000
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111
-                        2r1111111111111111)
+                        2r1111111111111110
+                        2r1111111111111110
+                        2r1111111111111110
+                        2r1111111111111110)
                     offset: -1@ -14).
     BottomLeftCornerCursor setShape:#bottomLeftCorner.
 
@@ -3363,7 +3523,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.107 2009-02-26 21:16:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.108 2009-05-18 14:13:14 cg Exp $'
 ! !
 
 Cursor initialize!