Cursor.st
changeset 2362 e391d80efdb5
parent 2194 9a1006b2d9de
child 2370 5f45f0d30fba
equal deleted inserted replaced
2361:b721237f3265 2362:e391d80efdb5
    42 documentation
    42 documentation
    43 "
    43 "
    44     I represents cursors in a device independent manner.
    44     I represents cursors in a device independent manner.
    45     Normally, cursors are defined at view creation time,
    45     Normally, cursors are defined at view creation time,
    46     via 
    46     via 
    47         'aView cursor:aCursor'.
    47 	'aView cursor:aCursor'.
    48 
    48 
    49     [Instance variables:]
    49     [Instance variables:]
    50 
    50 
    51         shape           <Symbol>        a shape (i.e. #arrow, #hand, ...) or nil
    51 	shape           <Symbol>        a shape (i.e. #arrow, #hand, ...) or nil
    52         sourceForm      <Form>          if shape is nil, the source bits
    52 	sourceForm      <Form>          if shape is nil, the source bits
    53         maskForm        <Form>          if shape is nil, the mask bits
    53 	maskForm        <Form>          if shape is nil, the mask bits
    54         hotX            <SmallInteger>  if shape is nil, the hotSpot x of the cursor
    54 	hotX            <SmallInteger>  if shape is nil, the hotSpot x of the cursor
    55         hotY            <SmallInteger>  if shape is nil, the hotSpot y of the cursor
    55 	hotY            <SmallInteger>  if shape is nil, the hotSpot y of the cursor
    56         device          <aDevice>       the device, if associated to one
    56 	device          <aDevice>       the device, if associated to one
    57         cursorId        <anObject>      the device-specific id if device is nonNil
    57 	cursorId        <anObject>      the device-specific id if device is nonNil
    58 
    58 
    59     [class variables:]
    59     [class variables:]
    60 
    60 
    61         Lobby           <Registry>      keeps track of known device cursors
    61 	Lobby           <Registry>      keeps track of known device cursors
    62                                         (dont use it: this will be moved to the device)
    62 					(dont use it: this will be moved to the device)
    63 
    63 
    64         DefaultFgColor  <Color>         default foreground color for cursors (usually black)
    64 	DefaultFgColor  <Color>         default foreground color for cursors (usually black)
    65         DefaultBgColor  <Color>         default background color for cursors (usually white)
    65 	DefaultBgColor  <Color>         default background color for cursors (usually white)
    66 
    66 
    67         NormalCursor    <Cursor>        cached instance of normal (arrow) cursor
    67 	NormalCursor    <Cursor>        cached instance of normal (arrow) cursor
    68          ...
    68 	 ...
    69 
    69 
    70     [see also:]
    70     [see also:]
    71         DeviceWorkstation 
    71 	DeviceWorkstation 
    72         DisplaySurface
    72 	DisplaySurface
    73         Font Color Image Form
    73 	Font Color Image Form
    74         ( introduction to view programming :html: programming/viewintro.html#CURSOR )
    74 	( introduction to view programming :html: programming/viewintro.html#CURSOR )
    75 
    75 
    76     [author:]
    76     [author:]
    77         Claus Gittinger
    77 	Claus Gittinger
    78 "
    78 "
    79 !
    79 !
    80 
    80 
    81 examples
    81 examples
    82 "
    82 "
    83     get a standard cursor:
    83     get a standard cursor:
    84 
    84 
    85         Cursor wait
    85 	Cursor wait
    86         Cursor stop
    86 	Cursor stop
    87         Cursor normal
    87 	Cursor normal
    88 
    88 
    89     create a custom cursor:
    89     create a custom cursor:
    90 
    90 
    91         Cursor extent:16@16 
    91 	Cursor extent:16@16 
    92                fromArray:#[ 2r00000000 2r00000000
    92 	       fromArray:#[ 2r00000000 2r00000000
    93                             2r00000000 2r00000000
    93 			    2r00000000 2r00000000
    94                             2r00000000 2r00000000
    94 			    2r00000000 2r00000000
    95                             2r11111111 2r11111111
    95 			    2r11111111 2r11111111
    96                             2r11111111 2r11111111
    96 			    2r11111111 2r11111111
    97                             2r00000000 2r00000000
    97 			    2r00000000 2r00000000
    98                             2r00000000 2r00000000
    98 			    2r00000000 2r00000000
    99                             2r11111111 2r11111111
    99 			    2r11111111 2r11111111
   100                             2r11111111 2r11111111
   100 			    2r11111111 2r11111111
   101                             2r00000000 2r00000000
   101 			    2r00000000 2r00000000
   102                             2r00000000 2r00000000
   102 			    2r00000000 2r00000000
   103                             2r11111111 2r11111111
   103 			    2r11111111 2r11111111
   104                             2r11111111 2r11111111
   104 			    2r11111111 2r11111111
   105                             2r00000000 2r00000000
   105 			    2r00000000 2r00000000
   106                             2r00000000 2r00000000
   106 			    2r00000000 2r00000000
   107                             2r00000000 2r00000000]
   107 			    2r00000000 2r00000000]
   108                 offset:-8 @ -8   
   108 		offset:-8 @ -8   
   109 
   109 
   110 
   110 
   111 
   111 
   112     define a cursor for a view:
   112     define a cursor for a view:
   113                                                                         [exBegin]
   113 									[exBegin]
   114         |v|
   114 	|v|
   115 
   115 
   116         v := StandardSystemView extent:100@100.
   116 	v := StandardSystemView extent:100@100.
   117         v cursor:Cursor stop.
   117 	v cursor:Cursor stop.
   118         v open.
   118 	v open.
   119                                                                         [exEnd]
   119 									[exEnd]
   120 
   120 
   121 
   121 
   122       with above custom cursor:
   122       with above custom cursor:
   123                                                                         [exBegin]
   123 									[exBegin]
   124         |v|
   124 	|v|
   125 
   125 
   126         v := StandardSystemView extent:100@100.
   126 	v := StandardSystemView extent:100@100.
   127         v cursor:(
   127 	v cursor:(
   128             Cursor extent:16@16 
   128 	    Cursor extent:16@16 
   129                fromArray:#[ 2r00000000 2r00000000
   129 	       fromArray:#[ 2r00000000 2r00000000
   130                             2r00000000 2r00000000
   130 			    2r00000000 2r00000000
   131                             2r00000000 2r00000000
   131 			    2r00000000 2r00000000
   132                             2r11111111 2r11111111
   132 			    2r11111111 2r11111111
   133                             2r11111111 2r11111111
   133 			    2r11111111 2r11111111
   134                             2r00000000 2r00000000
   134 			    2r00000000 2r00000000
   135                             2r00000000 2r00000000
   135 			    2r00000000 2r00000000
   136                             2r11111111 2r11111111
   136 			    2r11111111 2r11111111
   137                             2r11111111 2r11111111
   137 			    2r11111111 2r11111111
   138                             2r00000000 2r00000000
   138 			    2r00000000 2r00000000
   139                             2r00000000 2r00000000
   139 			    2r00000000 2r00000000
   140                             2r11111111 2r11111111
   140 			    2r11111111 2r11111111
   141                             2r11111111 2r11111111
   141 			    2r11111111 2r11111111
   142                             2r00000000 2r00000000
   142 			    2r00000000 2r00000000
   143                             2r00000000 2r00000000
   143 			    2r00000000 2r00000000
   144                             2r00000000 2r00000000]
   144 			    2r00000000 2r00000000]
   145                 offset:-8 @ -8).   
   145 		offset:-8 @ -8).   
   146         v open.
   146 	v open.
   147                                                                         [exEnd]
   147 									[exEnd]
   148 
   148 
   149 
   149 
   150       a custom cursor with mask:
   150       a custom cursor with mask:
   151                                                                         [exBegin]
   151 									[exBegin]
   152         |v|
   152 	|v|
   153 
   153 
   154         v := StandardSystemView extent:100@100.
   154 	v := StandardSystemView extent:100@100.
   155         v cursor:(
   155 	v cursor:(
   156             Cursor 
   156 	    Cursor 
   157                extent:16@16 
   157 	       extent:16@16 
   158                sourceArray:#[ 
   158 	       sourceArray:#[ 
   159                             2r00000000 2r00000000
   159 			    2r00000000 2r00000000
   160                             2r00000000 2r00000000
   160 			    2r00000000 2r00000000
   161                             2r00000000 2r00000000
   161 			    2r00000000 2r00000000
   162                             2r11111111 2r11111111
   162 			    2r11111111 2r11111111
   163                             2r11111111 2r11111111
   163 			    2r11111111 2r11111111
   164                             2r00000000 2r00000000
   164 			    2r00000000 2r00000000
   165                             2r00000000 2r00000000
   165 			    2r00000000 2r00000000
   166                             2r00000000 2r00000000
   166 			    2r00000000 2r00000000
   167                             2r00000000 2r00000000
   167 			    2r00000000 2r00000000
   168                             2r00000000 2r00000000
   168 			    2r00000000 2r00000000
   169                             2r00000000 2r00000000
   169 			    2r00000000 2r00000000
   170                             2r11111111 2r11111111
   170 			    2r11111111 2r11111111
   171                             2r11111111 2r11111111
   171 			    2r11111111 2r11111111
   172                             2r00000000 2r00000000
   172 			    2r00000000 2r00000000
   173                             2r00000000 2r00000000
   173 			    2r00000000 2r00000000
   174                             2r00000000 2r00000000]
   174 			    2r00000000 2r00000000]
   175                maskArray:#[ 
   175 	       maskArray:#[ 
   176                             2r00000000 2r00000000
   176 			    2r00000000 2r00000000
   177                             2r00000000 2r00000000
   177 			    2r00000000 2r00000000
   178                             2r11111111 2r11111111
   178 			    2r11111111 2r11111111
   179                             2r11111111 2r11111111
   179 			    2r11111111 2r11111111
   180                             2r11111111 2r11111111
   180 			    2r11111111 2r11111111
   181                             2r11111111 2r11111111
   181 			    2r11111111 2r11111111
   182                             2r00000000 2r00000000
   182 			    2r00000000 2r00000000
   183                             2r00000000 2r00000000
   183 			    2r00000000 2r00000000
   184                             2r00000000 2r00000000
   184 			    2r00000000 2r00000000
   185                             2r00000000 2r00000000
   185 			    2r00000000 2r00000000
   186                             2r11111111 2r11111111
   186 			    2r11111111 2r11111111
   187                             2r11111111 2r11111111
   187 			    2r11111111 2r11111111
   188                             2r11111111 2r11111111
   188 			    2r11111111 2r11111111
   189                             2r11111111 2r11111111
   189 			    2r11111111 2r11111111
   190                             2r00000000 2r00000000
   190 			    2r00000000 2r00000000
   191                             2r00000000 2r00000000]
   191 			    2r00000000 2r00000000]
   192                 offset:-8 @ -8).   
   192 		offset:-8 @ -8).   
   193         v open.
   193 	v open.
   194                                                                         [exEnd]
   194 									[exEnd]
   195 
   195 
   196 
   196 
   197       a cursor from an image read from a file:
   197       a cursor from an image read from a file:
   198                                                                         [exBegin]
   198 									[exBegin]
   199         |v img|
   199 	|v img|
   200 
   200 
   201         v := StandardSystemView extent:100@100.
   201 	v := StandardSystemView extent:100@100.
   202         img := Image fromFile:'bitmaps/xpmBitmaps/cursors/mouse.xpm'.
   202 	img := Image fromFile:'bitmaps/xpmBitmaps/cursors/mouse.xpm'.
   203         v cursor:(Cursor fromImage:img).
   203 	v cursor:(Cursor fromImage:img).
   204         v open.
   204 	v open.
   205                                                                         [exEnd]
   205 									[exEnd]
   206 
   206 
   207 
   207 
   208       with multiple views:
   208       with multiple views:
   209                                                                         [exBegin]
   209 									[exBegin]
   210         |v1 v2 top|
   210 	|v1 v2 top|
   211 
   211 
   212         top := StandardSystemView new.
   212 	top := StandardSystemView new.
   213         top extent:300@300.
   213 	top extent:300@300.
   214         v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
   214 	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
   215         v1 viewBackground:(Color grey:75).
   215 	v1 viewBackground:(Color grey:75).
   216         v1 cursor:Cursor thumbsUp.
   216 	v1 cursor:Cursor thumbsUp.
   217         v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
   217 	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
   218         v2 viewBackground:(Color white).
   218 	v2 viewBackground:(Color white).
   219         v2 cursor:Cursor wait.
   219 	v2 cursor:Cursor wait.
   220         top open.
   220 	top open.
   221                                                                         [exEnd]
   221 									[exEnd]
   222 
   222 
   223 
   223 
   224     show a cursor (in the active ST/X view) for a while:
   224     show a cursor (in the active ST/X view) for a while:
   225                                                                         [exBegin]
   225 									[exBegin]
   226 
   226 
   227         Cursor wait 
   227 	Cursor wait 
   228             showWhile:[
   228 	    showWhile:[
   229                 Delay waitForSeconds:5
   229 		Delay waitForSeconds:5
   230             ]
   230 	    ]
   231                                                                         [exEnd]
   231 									[exEnd]
   232 
   232 
   233 
   233 
   234     show a cursor in all views belonging to a windowGroup:
   234     show a cursor in all views belonging to a windowGroup:
   235     (have to wait until top is visible to access windowGroup)
   235     (have to wait until top is visible to access windowGroup)
   236                                                                         [exBegin]
   236 									[exBegin]
   237         |v1 v2 top|
   237 	|v1 v2 top|
   238 
   238 
   239         top := StandardSystemView new.
   239 	top := StandardSystemView new.
   240         top extent:300@300.
   240 	top extent:300@300.
   241         v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
   241 	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
   242         v1 viewBackground:(Color grey:75).
   242 	v1 viewBackground:(Color grey:75).
   243         v1 cursor:(Cursor normal).
   243 	v1 cursor:(Cursor normal).
   244 
   244 
   245         v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
   245 	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
   246         v2 viewBackground:(Color white).
   246 	v2 viewBackground:(Color white).
   247         v2 cursor:(Cursor crossHair).
   247 	v2 cursor:(Cursor crossHair).
   248         top openAndWait.
   248 	top openAndWait.
   249 
   249 
   250         Delay waitForSeconds:3.
   250 	Delay waitForSeconds:3.
   251 
   251 
   252         top windowGroup
   252 	top windowGroup
   253             withCursor:Cursor wait 
   253 	    withCursor:Cursor wait 
   254             do:[
   254 	    do:[
   255                   Delay waitForSeconds:5
   255 		  Delay waitForSeconds:5
   256                ]
   256 	       ]
   257                                                                         [exEnd]
   257 									[exEnd]
   258 
   258 
   259 
   259 
   260     show a cursor in a single view for a while:
   260     show a cursor in a single view for a while:
   261                                                                         [exBegin]
   261 									[exBegin]
   262         |v1 v2 top|
   262 	|v1 v2 top|
   263 
   263 
   264         top := StandardSystemView new.
   264 	top := StandardSystemView new.
   265         top extent:300@300.
   265 	top extent:300@300.
   266         v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
   266 	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
   267         v1 viewBackground:(Color grey:75).
   267 	v1 viewBackground:(Color grey:75).
   268         v1 cursor:(Cursor normal).
   268 	v1 cursor:(Cursor normal).
   269 
   269 
   270         v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
   270 	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
   271         v2 viewBackground:(Color white).
   271 	v2 viewBackground:(Color white).
   272         v2 cursor:(Cursor crossHair).
   272 	v2 cursor:(Cursor crossHair).
   273 
   273 
   274         top openAndWait.
   274 	top openAndWait.
   275 
   275 
   276         Delay waitForSeconds:3.
   276 	Delay waitForSeconds:3.
   277 
   277 
   278         v1 withCursor:Cursor wait 
   278 	v1 withCursor:Cursor wait 
   279            do:[
   279 	   do:[
   280                   Delay waitForSeconds:5
   280 		  Delay waitForSeconds:5
   281               ]
   281 	      ]
   282                                                                         [exEnd]
   282 									[exEnd]
   283 "
   283 "
   284 ! !
   284 ! !
   285 
   285 
   286 !Cursor class methodsFor:'initialization'!
   286 !Cursor class methodsFor:'initialization'!
   287 
   287 
   305     ]
   305     ]
   306 !
   306 !
   307 
   307 
   308 initializeNewCursors
   308 initializeNewCursors
   309     "Create the new cursors
   309     "Create the new cursors
   310             Cursor blank
   310 	    Cursor blank
   311             Cursor down
   311 	    Cursor down
   312             Cursor execute
   312 	    Cursor execute
   313             Cursor left
   313 	    Cursor left
   314             Cursor marker
   314 	    Cursor marker
   315             Cursor normal
   315 	    Cursor normal
   316             Cursor read
   316 	    Cursor read
   317             Cursor right
   317 	    Cursor right
   318             Cursor square
   318 	    Cursor square
   319             Cursor up
   319 	    Cursor up
   320             Cursor wait
   320 	    Cursor wait
   321             Cursor write
   321 	    Cursor write
   322             Cursor thumbsUp
   322 	    Cursor thumbsUp
   323             Cursor thumbsDown
   323 	    Cursor thumbsDown
   324             Cursor xMarker
   324 	    Cursor xMarker
   325             Cursor caret
   325 	    Cursor caret
   326             Cursor stop
   326 	    Cursor stop
   327             Cursor eye"
   327 	    Cursor eye"
   328 
   328 
   329     |device builtIn|
   329     |device builtIn|
   330 
   330 
   331     device := Display.
   331     device := Display.
   332     builtIn := device builtInCursorShapes.
   332     builtIn := device builtInCursorShapes.
   333 
   333 
   334     (builtIn includes:#folder) ifFalse:[
   334     (builtIn includes:#folder) ifFalse:[
   335         FolderCursor :=   
   335 	FolderCursor :=   
   336                 (Cursor
   336 		(Cursor
   337                         extent: 16@16
   337 			extent: 16@16
   338                         sourceArray: #(
   338 			sourceArray: #(
   339                             2r0000000000000000
   339 			    2r0000000000000000
   340                             2r0011111000000000
   340 			    2r0011111000000000
   341                             2r0100000100000000
   341 			    2r0100000100000000
   342                             2r1111111111111110
   342 			    2r1111111111111110
   343                             2r1000000000000001
   343 			    2r1000000000000001
   344                             2r1000000000000001
   344 			    2r1000000000000001
   345                             2r1000000000000001
   345 			    2r1000000000000001
   346                             2r1000000000000001
   346 			    2r1000000000000001
   347                             2r1000000000000001
   347 			    2r1000000000000001
   348                             2r1000000000000001
   348 			    2r1000000000000001
   349                             2r1000000000000001
   349 			    2r1000000000000001
   350                             2r1000000000000001
   350 			    2r1000000000000001
   351                             2r1000000000000001
   351 			    2r1000000000000001
   352                             2r1010101010101011
   352 			    2r1010101010101011
   353                             2r0111111111111111
   353 			    2r0111111111111111
   354                             2r0000000000000000)
   354 			    2r0000000000000000)
   355                         maskArray: #(
   355 			maskArray: #(
   356                             2r0000000000000000
   356 			    2r0000000000000000
   357                             2r0011111000000000
   357 			    2r0011111000000000
   358                             2r0111111100000000
   358 			    2r0111111100000000
   359                             2r1111111111111110
   359 			    2r1111111111111110
   360                             2r1111111111111111
   360 			    2r1111111111111111
   361                             2r1111111111111111
   361 			    2r1111111111111111
   362                             2r1111111111111111
   362 			    2r1111111111111111
   363                             2r1111111111111111
   363 			    2r1111111111111111
   364                             2r1111111111111111
   364 			    2r1111111111111111
   365                             2r1111111111111111
   365 			    2r1111111111111111
   366                             2r1111111111111111
   366 			    2r1111111111111111
   367                             2r1111111111111111
   367 			    2r1111111111111111
   368                             2r1111111111111111
   368 			    2r1111111111111111
   369                             2r1111111111111111
   369 			    2r1111111111111111
   370                             2r0111111111111111
   370 			    2r0111111111111111
   371                             2r0000000000000000)
   371 			    2r0000000000000000)
   372                         offset: 0@ -3).
   372 			offset: 0@ -3).
   373     ].
   373     ].
   374     (builtIn includes:#document) ifFalse:[
   374     (builtIn includes:#document) ifFalse:[
   375         DocumentCursor :=   
   375 	DocumentCursor :=   
   376                 (Cursor
   376 		(Cursor
   377                         extent: 16@16
   377 			extent: 16@16
   378                         sourceArray: #(
   378 			sourceArray: #(
   379                             2r0000000000000000
   379 			    2r0000000000000000
   380                             2r0011111111100000
   380 			    2r0011111111100000
   381                             2r0010000000110000
   381 			    2r0010000000110000
   382                             2r0010000000101000
   382 			    2r0010000000101000
   383                             2r0010000000111100
   383 			    2r0010000000111100
   384                             2r0010000000000100
   384 			    2r0010000000000100
   385                             2r0010000000000100
   385 			    2r0010000000000100
   386                             2r0010000000000100
   386 			    2r0010000000000100
   387                             2r0010000000000100
   387 			    2r0010000000000100
   388                             2r0010000000000100
   388 			    2r0010000000000100
   389                             2r0010000000000100
   389 			    2r0010000000000100
   390                             2r0010000000000100
   390 			    2r0010000000000100
   391                             2r0010000000000100
   391 			    2r0010000000000100
   392                             2r0010000000000100
   392 			    2r0010000000000100
   393                             2r0011111111111100
   393 			    2r0011111111111100
   394                             2r0000000000000000)
   394 			    2r0000000000000000)
   395                         maskArray: #(
   395 			maskArray: #(
   396                             2r0000000000000000
   396 			    2r0000000000000000
   397                             2r0011111111100000
   397 			    2r0011111111100000
   398                             2r0011111111110000
   398 			    2r0011111111110000
   399                             2r0011111111111000
   399 			    2r0011111111111000
   400                             2r0011111111111100
   400 			    2r0011111111111100
   401                             2r0011111111111100
   401 			    2r0011111111111100
   402                             2r0011111111111100
   402 			    2r0011111111111100
   403                             2r0011111111111100
   403 			    2r0011111111111100
   404                             2r0011111111111100
   404 			    2r0011111111111100
   405                             2r0011111111111100
   405 			    2r0011111111111100
   406                             2r0011111111111100
   406 			    2r0011111111111100
   407                             2r0011111111111100
   407 			    2r0011111111111100
   408                             2r0011111111111100
   408 			    2r0011111111111100
   409                             2r0011111111111100
   409 			    2r0011111111111100
   410                             2r0011111111111100
   410 			    2r0011111111111100
   411                             2r0000000000000000)
   411 			    2r0000000000000000)
   412                         offset: -2@ -1).
   412 			offset: -2@ -1).
   413     ].
   413     ].
   414 
   414 
   415     (builtIn includes:#origin) ifFalse:[
   415     (builtIn includes:#origin) ifFalse:[
   416         OriginCursor :=   
   416 	OriginCursor :=   
   417                 (Cursor
   417 		(Cursor
   418                         extent: 16@16
   418 			extent: 16@16
   419                         sourceArray: #(
   419 			sourceArray: #(
   420                             2r0000000000000000
   420 			    2r0000000000000000
   421                             2r0111111111111111
   421 			    2r0111111111111111
   422                             2r0111111111111111
   422 			    2r0111111111111111
   423                             2r0110000000000000
   423 			    2r0110000000000000
   424                             2r0110000000000000
   424 			    2r0110000000000000
   425                             2r0110000000000000
   425 			    2r0110000000000000
   426                             2r0110000000000000
   426 			    2r0110000000000000
   427                             2r0110000000000000
   427 			    2r0110000000000000
   428                             2r0110000000000000
   428 			    2r0110000000000000
   429                             2r0110000000000000
   429 			    2r0110000000000000
   430                             2r0110000000000000
   430 			    2r0110000000000000
   431                             2r0110000000000000
   431 			    2r0110000000000000
   432                             2r0110000000000000
   432 			    2r0110000000000000
   433                             2r0110000000000000
   433 			    2r0110000000000000
   434                             2r0110000000000000
   434 			    2r0110000000000000
   435                             2r0110000000000000)
   435 			    2r0110000000000000)
   436                         maskArray: #(
   436 			maskArray: #(
   437                             2r1111111111111111
   437 			    2r1111111111111111
   438                             2r1111111111111111
   438 			    2r1111111111111111
   439                             2r1111111111111111
   439 			    2r1111111111111111
   440                             2r1111111111111111
   440 			    2r1111111111111111
   441                             2r1111000000000000
   441 			    2r1111000000000000
   442                             2r1111000000000000
   442 			    2r1111000000000000
   443                             2r1111000000000000
   443 			    2r1111000000000000
   444                             2r1111000000000000
   444 			    2r1111000000000000
   445                             2r1111000000000000
   445 			    2r1111000000000000
   446                             2r1111000000000000
   446 			    2r1111000000000000
   447                             2r1111000000000000
   447 			    2r1111000000000000
   448                             2r1111000000000000
   448 			    2r1111000000000000
   449                             2r1111000000000000
   449 			    2r1111000000000000
   450                             2r1111000000000000
   450 			    2r1111000000000000
   451                             2r1111000000000000
   451 			    2r1111000000000000
   452                             2r1111000000000000)
   452 			    2r1111000000000000)
   453                         offset: -1@ -1).
   453 			offset: -1@ -1).
   454     ].
   454     ].
   455 
   455 
   456     (builtIn includes:#corner) ifFalse:[
   456     (builtIn includes:#corner) ifFalse:[
   457         CornerCursor := 
   457 	CornerCursor := 
   458                 (Cursor 
   458 		(Cursor 
   459                         extent: 16@16
   459 			extent: 16@16
   460                         sourceArray: #(
   460 			sourceArray: #(
   461                             2r0000000000000110
   461 			    2r0000000000000110
   462                             2r0000000000000110
   462 			    2r0000000000000110
   463                             2r0000000000000110
   463 			    2r0000000000000110
   464                             2r0000000000000110
   464 			    2r0000000000000110
   465                             2r0000000000000110
   465 			    2r0000000000000110
   466                             2r0000000000000110
   466 			    2r0000000000000110
   467                             2r0000000000000110
   467 			    2r0000000000000110
   468                             2r0000000000000110
   468 			    2r0000000000000110
   469                             2r0000000000000110
   469 			    2r0000000000000110
   470                             2r0000000000000110
   470 			    2r0000000000000110
   471                             2r0000000000000110
   471 			    2r0000000000000110
   472                             2r0000000000000110
   472 			    2r0000000000000110
   473                             2r0000000000000110
   473 			    2r0000000000000110
   474                             2r1111111111111110
   474 			    2r1111111111111110
   475                             2r1111111111111110
   475 			    2r1111111111111110
   476                             2r0000000000000000)
   476 			    2r0000000000000000)
   477                         maskArray: #(
   477 			maskArray: #(
   478                             2r0000000000001111
   478 			    2r0000000000001111
   479                             2r0000000000001111
   479 			    2r0000000000001111
   480                             2r0000000000001111
   480 			    2r0000000000001111
   481                             2r0000000000001111
   481 			    2r0000000000001111
   482                             2r0000000000001111
   482 			    2r0000000000001111
   483                             2r0000000000001111
   483 			    2r0000000000001111
   484                             2r0000000000001111
   484 			    2r0000000000001111
   485                             2r0000000000001111
   485 			    2r0000000000001111
   486                             2r0000000000001111
   486 			    2r0000000000001111
   487                             2r0000000000001111
   487 			    2r0000000000001111
   488                             2r0000000000001111
   488 			    2r0000000000001111
   489                             2r0000000000001111
   489 			    2r0000000000001111
   490                             2r1111111111111111
   490 			    2r1111111111111111
   491                             2r1111111111111111
   491 			    2r1111111111111111
   492                             2r1111111111111111
   492 			    2r1111111111111111
   493                             2r1111111111111111)
   493 			    2r1111111111111111)
   494                         offset: -14@ -14).
   494 			offset: -14@ -14).
   495     ].
   495     ].
   496 
   496 
   497     (builtIn includes:#read) ifFalse:[
   497     (builtIn includes:#read) ifFalse:[
   498         ReadCursor := (Cursor
   498 	ReadCursor := (Cursor
   499                         extent: 16@16
   499 			extent: 16@16
   500                         sourceArray: #(
   500 			sourceArray: #(
   501                             2r0
   501 			    2r0
   502                             2r0000110000000110
   502 			    2r0000110000000110
   503                             2r0001001000001001
   503 			    2r0001001000001001
   504                             2r0001001000001001
   504 			    2r0001001000001001
   505                             2r0010000000010000
   505 			    2r0010000000010000
   506                             2r0100000000100000
   506 			    2r0100000000100000
   507                             2r1111101111100000
   507 			    2r1111101111100000
   508                             2r1000010000100000
   508 			    2r1000010000100000
   509                             2r1000010000100000
   509 			    2r1000010000100000
   510                             2r1011010110100000
   510 			    2r1011010110100000
   511                             2r0111101111000000
   511 			    2r0111101111000000
   512                             2r0000000000000000
   512 			    2r0000000000000000
   513                             2r0000000000000000
   513 			    2r0000000000000000
   514                             2r0000000000000000
   514 			    2r0000000000000000
   515                             2r0000000000000000
   515 			    2r0000000000000000
   516                             2r0000000000000000)
   516 			    2r0000000000000000)
   517                         maskArray: #(
   517 			maskArray: #(
   518                             2r0001111000001111
   518 			    2r0001111000001111
   519                             2r0001111000011111
   519 			    2r0001111000011111
   520                             2r0011111000011111
   520 			    2r0011111000011111
   521                             2r0011100000111100
   521 			    2r0011100000111100
   522                             2r0111000000111000
   522 			    2r0111000000111000
   523                             2r1111111111110000
   523 			    2r1111111111110000
   524                             2r1111111111110000
   524 			    2r1111111111110000
   525                             2r1111111111110000
   525 			    2r1111111111110000
   526                             2r1111111111110000
   526 			    2r1111111111110000
   527                             2r1111111111110000
   527 			    2r1111111111110000
   528                             2r1111111111100000
   528 			    2r1111111111100000
   529                             2r0111111111000000
   529 			    2r0111111111000000
   530                             2r0000000000000000
   530 			    2r0000000000000000
   531                             2r0000000000000000
   531 			    2r0000000000000000
   532                             2r0000000000000000
   532 			    2r0000000000000000
   533                             2r0000000000000000)
   533 			    2r0000000000000000)
   534                         offset: -5 @ -7).
   534 			offset: -5 @ -7).
   535     ].
   535     ].
   536 
   536 
   537     (builtIn includes:#write) ifFalse:[
   537     (builtIn includes:#write) ifFalse:[
   538         WriteCursor := (Cursor
   538 	WriteCursor := (Cursor
   539                           extent: 16@16
   539 			  extent: 16@16
   540                           sourceArray: #(
   540 			  sourceArray: #(
   541                               2r0000000000000110
   541 			      2r0000000000000110
   542                               2r0000000000001111
   542 			      2r0000000000001111
   543                               2r0000000000010110
   543 			      2r0000000000010110
   544                               2r0000000000100100
   544 			      2r0000000000100100
   545                               2r0000000001001000
   545 			      2r0000000001001000
   546                               2r0000000010010000
   546 			      2r0000000010010000
   547                               2r0000000100100000
   547 			      2r0000000100100000
   548                               2r0000001001000011
   548 			      2r0000001001000011
   549                               2r0000010010000010
   549 			      2r0000010010000010
   550                               2r0000100100000110
   550 			      2r0000100100000110
   551                               2r0001001000001000
   551 			      2r0001001000001000
   552                               2r0010010000001000
   552 			      2r0010010000001000
   553                               2r0111100001001000
   553 			      2r0111100001001000
   554                               2r0101000010111000
   554 			      2r0101000010111000
   555                               2r0110000110000000
   555 			      2r0110000110000000
   556                               2r1111111100000000)
   556 			      2r1111111100000000)
   557                           maskArray: #(
   557 			  maskArray: #(
   558                               2r0000000000000111
   558 			      2r0000000000000111
   559                               2r0000000000001111
   559 			      2r0000000000001111
   560                               2r0000000000011110
   560 			      2r0000000000011110
   561                               2r0000000000111100
   561 			      2r0000000000111100
   562                               2r0000000001111000
   562 			      2r0000000001111000
   563                               2r0000000011110000
   563 			      2r0000000011110000
   564                               2r0000000111100001
   564 			      2r0000000111100001
   565                               2r0000001111000110
   565 			      2r0000001111000110
   566                               2r0000011110000110
   566 			      2r0000011110000110
   567                               2r0000111100001110
   567 			      2r0000111100001110
   568                               2r0001111000001100
   568 			      2r0001111000001100
   569                               2r0011110001001100
   569 			      2r0011110001001100
   570                               2r0111100011111000
   570 			      2r0111100011111000
   571                               2r0111000110111000
   571 			      2r0111000110111000
   572                               2r0111111110000000
   572 			      2r0111111110000000
   573                               2r1111111100000000)
   573 			      2r1111111100000000)
   574                           offset: 0@ -15).
   574 			  offset: 0@ -15).
   575     ].
   575     ].
   576 
   576 
   577     (builtIn includes:#wait) ifFalse:[
   577     (builtIn includes:#wait) ifFalse:[
   578         WaitCursor := 
   578 	WaitCursor := 
   579                   (Cursor
   579 		  (Cursor
   580                         extent: 16@16
   580 			extent: 16@16
   581                         sourceArray: #(
   581 			sourceArray: #(
   582                             2r1111111111111111
   582 			    2r1111111111111111
   583                             2r1000000000000001
   583 			    2r1000000000000001
   584                             2r0100000000000010
   584 			    2r0100000000000010
   585                             2r0010000000000100
   585 			    2r0010000000000100
   586                             2r0001110000111000
   586 			    2r0001110000111000
   587                             2r0000111101110000
   587 			    2r0000111101110000
   588                             2r0000011011100000
   588 			    2r0000011011100000
   589                             2r0000001111000000
   589 			    2r0000001111000000
   590                             2r0000001111000000
   590 			    2r0000001111000000
   591                             2r0000010110100000
   591 			    2r0000010110100000
   592                             2r0000100010010000
   592 			    2r0000100010010000
   593                             2r0001000110001000
   593 			    2r0001000110001000
   594                             2r0010001101000100
   594 			    2r0010001101000100
   595                             2r0100111111110010
   595 			    2r0100111111110010
   596                             2r1011111111111101
   596 			    2r1011111111111101
   597                             2r1111111111111111)
   597 			    2r1111111111111111)
   598                         maskArray: #(
   598 			maskArray: #(
   599                             2r1111111111111111
   599 			    2r1111111111111111
   600                             2r1111111111111111
   600 			    2r1111111111111111
   601                             2r1111111111111111
   601 			    2r1111111111111111
   602                             2r0111111111111110
   602 			    2r0111111111111110
   603                             2r0011111111111100
   603 			    2r0011111111111100
   604                             2r0001111111111000
   604 			    2r0001111111111000
   605                             2r0000111111110000
   605 			    2r0000111111110000
   606                             2r0000011111100000
   606 			    2r0000011111100000
   607                             2r0000011111100000
   607 			    2r0000011111100000
   608                             2r0000111111110000
   608 			    2r0000111111110000
   609                             2r0001111111111000
   609 			    2r0001111111111000
   610                             2r0011111111111100
   610 			    2r0011111111111100
   611                             2r0111111111111110
   611 			    2r0111111111111110
   612                             2r1111111111111111
   612 			    2r1111111111111111
   613                             2r1111111111111111
   613 			    2r1111111111111111
   614                             2r1111111111111111)
   614 			    2r1111111111111111)
   615                         offset: -8@ -8).
   615 			offset: -8@ -8).
   616     ].
   616     ].
   617 
   617 
   618     (builtIn includes:#blank) ifFalse:[
   618     (builtIn includes:#blank) ifFalse:[
   619         BlankCursor := 
   619 	BlankCursor := 
   620                 (Cursor
   620 		(Cursor
   621                         extent: 16@16
   621 			extent: 16@16
   622                         fromArray: #(
   622 			fromArray: #(
   623                 2r0000000000000000
   623 		2r0000000000000000
   624                 2r0000000000000000
   624 		2r0000000000000000
   625                 2r0000000000000000
   625 		2r0000000000000000
   626                 2r0000000000000000
   626 		2r0000000000000000
   627                 2r0000000000000000
   627 		2r0000000000000000
   628                 2r0000000000000000
   628 		2r0000000000000000
   629                 2r0000000000000000
   629 		2r0000000000000000
   630                 2r0000000000000000
   630 		2r0000000000000000
   631                 2r0000000000000000
   631 		2r0000000000000000
   632                 2r0000000000000000
   632 		2r0000000000000000
   633                 2r0000000000000000
   633 		2r0000000000000000
   634                 2r0000000000000000
   634 		2r0000000000000000
   635                 2r0000000000000000
   635 		2r0000000000000000
   636                 2r0000000000000000
   636 		2r0000000000000000
   637                 2r0000000000000000
   637 		2r0000000000000000
   638                 2r0000000000000000)
   638 		2r0000000000000000)
   639         offset: 0@0).
   639 	offset: 0@0).
   640     ].
   640     ].
   641 
   641 
   642     (builtIn includes:#execute) ifFalse:[
   642     (builtIn includes:#execute) ifFalse:[
   643         XeqCursor := 
   643 	XeqCursor := 
   644                 (Cursor
   644 		(Cursor
   645                         extent: 16@16
   645 			extent: 16@16
   646                         sourceArray: #(
   646 			sourceArray: #(
   647                 2r1000000000010000
   647 		2r1000000000010000
   648                 2r1100000000010000
   648 		2r1100000000010000
   649                 2r1110000000111000
   649 		2r1110000000111000
   650                 2r1111000111111111
   650 		2r1111000111111111
   651                 2r1111100011000110
   651 		2r1111100011000110
   652                 2r1111110001000100
   652 		2r1111110001000100
   653                 2r1111111001111100
   653 		2r1111111001111100
   654                 2r1111000001101100
   654 		2r1111000001101100
   655                 2r1101100011000110
   655 		2r1101100011000110
   656                 2r1001100010000010
   656 		2r1001100010000010
   657                 2r0000110000000000
   657 		2r0000110000000000
   658                 2r0000110000000000
   658 		2r0000110000000000
   659                 2r0000011000000000
   659 		2r0000011000000000
   660                 2r0000011000000000
   660 		2r0000011000000000
   661                 2r0000001100000000
   661 		2r0000001100000000
   662                 2r0000001100000000)
   662 		2r0000001100000000)
   663                         maskArray: #(
   663 			maskArray: #(
   664                 2r1100000000111000
   664 		2r1100000000111000
   665                 2r1110000000111000
   665 		2r1110000000111000
   666                 2r1111000111111111
   666 		2r1111000111111111
   667                 2r1111100111111111
   667 		2r1111100111111111
   668                 2r1111110011111111
   668 		2r1111110011111111
   669                 2r1111111001111110
   669 		2r1111111001111110
   670                 2r1111111101111100
   670 		2r1111111101111100
   671                 2r1111100001111110
   671 		2r1111100001111110
   672                 2r1101110011100111
   672 		2r1101110011100111
   673                 2r1001110011000010
   673 		2r1001110011000010
   674                 2r0000111000000000
   674 		2r0000111000000000
   675                 2r0000111000000000
   675 		2r0000111000000000
   676                 2r0000011100000000
   676 		2r0000011100000000
   677                 2r0000011100000000
   677 		2r0000011100000000
   678                 2r0000001110000000
   678 		2r0000001110000000
   679                 2r0000001110000000)
   679 		2r0000001110000000)
   680         offset: 0@0).
   680 	offset: 0@0).
   681     ].
   681     ].
   682 
   682 
   683     (builtIn includes:#square) ifFalse:[
   683     (builtIn includes:#square) ifFalse:[
   684         SquareCursor := 
   684 	SquareCursor := 
   685                 (Cursor
   685 		(Cursor
   686                         extent: 16@16
   686 			extent: 16@16
   687                         fromArray: #(
   687 			fromArray: #(
   688                 2r0000000000000000
   688 		2r0000000000000000
   689                 2r0000000000000000
   689 		2r0000000000000000
   690                 2r0000000000000000
   690 		2r0000000000000000
   691                 2r0000000000000000
   691 		2r0000000000000000
   692                 2r0000000000000000
   692 		2r0000000000000000
   693                 2r0000001111000000
   693 		2r0000001111000000
   694                 2r0000001111000000
   694 		2r0000001111000000
   695                 2r0000001111000000
   695 		2r0000001111000000
   696                 2r0000001111000000
   696 		2r0000001111000000
   697                 2r0000000000000000
   697 		2r0000000000000000
   698                 2r0000000000000000
   698 		2r0000000000000000
   699                 2r0000000000000000
   699 		2r0000000000000000
   700                 2r0000000000000000
   700 		2r0000000000000000
   701                 2r0000000000000000
   701 		2r0000000000000000
   702                 2r0000000000000000
   702 		2r0000000000000000
   703                 2r0000000000000000)
   703 		2r0000000000000000)
   704         offset: -8@ -8).
   704 	offset: -8@ -8).
   705     ].
   705     ].
   706 
   706 
   707     (builtIn includes:#upLeftArrow) ifFalse:[
   707     (builtIn includes:#upLeftArrow) ifFalse:[
   708         NormalCursor :=   
   708 	NormalCursor :=   
   709                 (Cursor
   709 		(Cursor
   710                         extent: 16@16
   710 			extent: 16@16
   711                         sourceArray: #(
   711 			sourceArray: #(
   712                 2r1000000000000000
   712 		2r1000000000000000
   713                 2r1100000000000000
   713 		2r1100000000000000
   714                 2r1110000000000000
   714 		2r1110000000000000
   715                 2r1111000000000000
   715 		2r1111000000000000
   716                 2r1111100000000000
   716 		2r1111100000000000
   717                 2r1111110000000000
   717 		2r1111110000000000
   718                 2r1111111000000000
   718 		2r1111111000000000
   719                 2r1111100000000000
   719 		2r1111100000000000
   720                 2r1111100000000000
   720 		2r1111100000000000
   721                 2r1001100000000000
   721 		2r1001100000000000
   722                 2r0000110000000000
   722 		2r0000110000000000
   723                 2r0000110000000000
   723 		2r0000110000000000
   724                 2r0000011000000000
   724 		2r0000011000000000
   725                 2r0000011000000000
   725 		2r0000011000000000
   726                 2r0000001100000000
   726 		2r0000001100000000
   727                 2r0000001100000000)
   727 		2r0000001100000000)
   728                         maskArray: #(
   728 			maskArray: #(
   729                 2r1100000000000000
   729 		2r1100000000000000
   730                 2r1110000000000000
   730 		2r1110000000000000
   731                 2r1111000000000000
   731 		2r1111000000000000
   732                 2r1111100000000000
   732 		2r1111100000000000
   733                 2r1111110000000000
   733 		2r1111110000000000
   734                 2r1111111000000000
   734 		2r1111111000000000
   735                 2r1111111100000000
   735 		2r1111111100000000
   736                 2r1111110000000000
   736 		2r1111110000000000
   737                 2r1111110000000000
   737 		2r1111110000000000
   738                 2r1001110000000000
   738 		2r1001110000000000
   739                 2r0000111000000000
   739 		2r0000111000000000
   740                 2r0000111000000000
   740 		2r0000111000000000
   741                 2r0000011100000000
   741 		2r0000011100000000
   742                 2r0000011100000000
   742 		2r0000011100000000
   743                 2r0000001110000000
   743 		2r0000001110000000
   744                 2r0000001110000000)
   744 		2r0000001110000000)
   745         offset: 0@0).
   745 	offset: 0@0).
   746     ].
   746     ].
   747 
   747 
   748 
   748 
   749     (builtIn includes:#crossHair) ifFalse:[
   749     (builtIn includes:#crossHair) ifFalse:[
   750         CrossHairCursor :=   
   750 	CrossHairCursor :=   
   751                 (Cursor
   751 		(Cursor
   752                      extent: 16@16
   752 		     extent: 16@16
   753                      sourceArray: #(
   753 		     sourceArray: #(
   754                 2r0000000100000000
   754 		2r0000000100000000
   755                 2r0000000100000000
   755 		2r0000000100000000
   756                 2r0000000100000000
   756 		2r0000000100000000
   757                 2r0000000100000000
   757 		2r0000000100000000
   758                 2r0000000100000000
   758 		2r0000000100000000
   759                 2r0000000100000000
   759 		2r0000000100000000
   760                 2r0000000100000000
   760 		2r0000000100000000
   761                 2r1111111111111110
   761 		2r1111111111111110
   762                 2r0000000100000000
   762 		2r0000000100000000
   763                 2r0000000100000000
   763 		2r0000000100000000
   764                 2r0000000100000000
   764 		2r0000000100000000
   765                 2r0000000100000000
   765 		2r0000000100000000
   766                 2r0000000100000000
   766 		2r0000000100000000
   767                 2r0000000100000000
   767 		2r0000000100000000
   768                 2r0000000100000000
   768 		2r0000000100000000
   769                 2r0)
   769 		2r0)
   770                      maskArray: #(
   770 		     maskArray: #(
   771                 2r0000000110000000
   771 		2r0000000110000000
   772                 2r0000000110000000
   772 		2r0000000110000000
   773                 2r0000000110000000
   773 		2r0000000110000000
   774                 2r0000000110000000
   774 		2r0000000110000000
   775                 2r0000000110000000
   775 		2r0000000110000000
   776                 2r0000000110000000
   776 		2r0000000110000000
   777                 2r0000000110000000
   777 		2r0000000110000000
   778                 2r1111111111111110
   778 		2r1111111111111110
   779                 2r1111111111111110
   779 		2r1111111111111110
   780                 2r0000000110000000
   780 		2r0000000110000000
   781                 2r0000000110000000
   781 		2r0000000110000000
   782                 2r0000000110000000
   782 		2r0000000110000000
   783                 2r0000000110000000
   783 		2r0000000110000000
   784                 2r0000000110000000
   784 		2r0000000110000000
   785                 2r0000000110000000
   785 		2r0000000110000000
   786                 2r0)
   786 		2r0)
   787                         offset: -7@ -7).
   787 			offset: -7@ -7).
   788     ].
   788     ].
   789 
   789 
   790     (builtIn includes:#scrollMarkerH) ifFalse:[
   790     (builtIn includes:#scrollMarkerH) ifFalse:[
   791         MarkerCursor := 
   791 	MarkerCursor := 
   792                 Cursor
   792 		Cursor
   793                         extent: 16@16
   793 			extent: 16@16
   794                         sourceArray: #(
   794 			sourceArray: #(
   795                 2r0000000000000000
   795 		2r0000000000000000
   796                 2r0000000000000000
   796 		2r0000000000000000
   797                 2r0000000000000000
   797 		2r0000000000000000
   798                 2r0000001000000000
   798 		2r0000001000000000
   799                 2r0000001110000000
   799 		2r0000001110000000
   800                 2r0000001111100000
   800 		2r0000001111100000
   801                 2r0111111111111000
   801 		2r0111111111111000
   802                 2r0111111111111110
   802 		2r0111111111111110
   803                 2r0111111111111000
   803 		2r0111111111111000
   804                 2r0000001111100000
   804 		2r0000001111100000
   805                 2r0000001110000000
   805 		2r0000001110000000
   806                 2r0000001000000000
   806 		2r0000001000000000
   807                 2r0000000000000000
   807 		2r0000000000000000
   808                 2r0000000000000000
   808 		2r0000000000000000
   809                 2r0000000000000000
   809 		2r0000000000000000
   810                 2r0000000000000000)
   810 		2r0000000000000000)
   811                         maskArray: #(
   811 			maskArray: #(
   812                 2r0000000000000000
   812 		2r0000000000000000
   813                 2r0000000000000000
   813 		2r0000000000000000
   814                 2r0000000000000000
   814 		2r0000000000000000
   815                 2r0000011100000000
   815 		2r0000011100000000
   816                 2r0000011111000000
   816 		2r0000011111000000
   817                 2r1111111111110000
   817 		2r1111111111110000
   818                 2r1111111111111100
   818 		2r1111111111111100
   819                 2r1111111111111111
   819 		2r1111111111111111
   820                 2r1111111111111100
   820 		2r1111111111111100
   821                 2r1111111111110000
   821 		2r1111111111110000
   822                 2r0000011111000000
   822 		2r0000011111000000
   823                 2r0000011100000000
   823 		2r0000011100000000
   824                 2r0000011000000000
   824 		2r0000011000000000
   825                 2r0000000000000000
   825 		2r0000000000000000
   826                 2r0000000000000000
   826 		2r0000000000000000
   827                 2r0000000000000000)
   827 		2r0000000000000000)
   828                         offset: -14@ -7.
   828 			offset: -14@ -7.
   829     ].
   829     ].
   830 
   830 
   831     (builtIn includes:#scrollUp) ifFalse:[
   831     (builtIn includes:#scrollUp) ifFalse:[
   832         UpCursor := 
   832 	UpCursor := 
   833                 Cursor 
   833 		Cursor 
   834                         extent: 16@16
   834 			extent: 16@16
   835                         sourceArray: #(
   835 			sourceArray: #(
   836                 2r0000000000000000
   836 		2r0000000000000000
   837                 2r0100000000000000
   837 		2r0100000000000000
   838                 2r0110000000000000
   838 		2r0110000000000000
   839                 2r0111000000000000
   839 		2r0111000000000000
   840                 2r0111100000000000
   840 		2r0111100000000000
   841                 2r0111110000000000
   841 		2r0111110000000000
   842                 2r0111111000000000
   842 		2r0111111000000000
   843                 2r0110000000000000
   843 		2r0110000000000000
   844                 2r0110000000000000
   844 		2r0110000000000000
   845                 2r0110000000000000
   845 		2r0110000000000000
   846                 2r0110000000000000
   846 		2r0110000000000000
   847                 2r0110000000000000
   847 		2r0110000000000000
   848                 2r0110000000000000
   848 		2r0110000000000000
   849                 2r0110000000000000
   849 		2r0110000000000000
   850                 2r0110000000000000
   850 		2r0110000000000000
   851                 2r0000000000000000)
   851 		2r0000000000000000)
   852                         maskArray: #(
   852 			maskArray: #(
   853                 2r1100000000000000
   853 		2r1100000000000000
   854                 2r1110000000000000
   854 		2r1110000000000000
   855                 2r1111000000000000
   855 		2r1111000000000000
   856                 2r1111100000000000
   856 		2r1111100000000000
   857                 2r1111110000000000
   857 		2r1111110000000000
   858                 2r1111111000000000
   858 		2r1111111000000000
   859                 2r1111111100000000
   859 		2r1111111100000000
   860                 2r1111111100000000
   860 		2r1111111100000000
   861                 2r1111000000000000
   861 		2r1111000000000000
   862                 2r1111000000000000
   862 		2r1111000000000000
   863                 2r1111000000000000
   863 		2r1111000000000000
   864                 2r1111000000000000
   864 		2r1111000000000000
   865                 2r1111000000000000
   865 		2r1111000000000000
   866                 2r1111000000000000
   866 		2r1111000000000000
   867                 2r1111000000000000
   867 		2r1111000000000000
   868                 2r1111000000000000)
   868 		2r1111000000000000)
   869                         offset: -1@ -1.
   869 			offset: -1@ -1.
   870     ].
   870     ].
   871 
   871 
   872     (builtIn includes:#scrollDown) ifFalse:[
   872     (builtIn includes:#scrollDown) ifFalse:[
   873         DownCursor :=
   873 	DownCursor :=
   874                  Cursor 
   874 		 Cursor 
   875                         extent: 16@16
   875 			extent: 16@16
   876                         sourceArray: #(
   876 			sourceArray: #(
   877                 2r0000000000000000
   877 		2r0000000000000000
   878                 2r0000011000000000
   878 		2r0000011000000000
   879                 2r0000011000000000
   879 		2r0000011000000000
   880                 2r0000011000000000
   880 		2r0000011000000000
   881                 2r0000011000000000
   881 		2r0000011000000000
   882                 2r0000011000000000
   882 		2r0000011000000000
   883                 2r0000011000000000
   883 		2r0000011000000000
   884                 2r0000011000000000
   884 		2r0000011000000000
   885                 2r0000011000000000
   885 		2r0000011000000000
   886                 2r0111111000000000
   886 		2r0111111000000000
   887                 2r0011111000000000
   887 		2r0011111000000000
   888                 2r0001111000000000
   888 		2r0001111000000000
   889                 2r0000111000000000
   889 		2r0000111000000000
   890                 2r0000011000000000
   890 		2r0000011000000000
   891                 2r0000001000000000
   891 		2r0000001000000000
   892                 2r0000000000000000)
   892 		2r0000000000000000)
   893                         maskArray: #(
   893 			maskArray: #(
   894                 2r0000111100000000
   894 		2r0000111100000000
   895                 2r0000111100000000
   895 		2r0000111100000000
   896                 2r0000111100000000
   896 		2r0000111100000000
   897                 2r0000111100000000
   897 		2r0000111100000000
   898                 2r0000111100000000
   898 		2r0000111100000000
   899                 2r0000111100000000
   899 		2r0000111100000000
   900                 2r0000111100000000
   900 		2r0000111100000000
   901                 2r0000111100000000
   901 		2r0000111100000000
   902                 2r1111111100000000
   902 		2r1111111100000000
   903                 2r1111111100000000
   903 		2r1111111100000000
   904                 2r0111111100000000
   904 		2r0111111100000000
   905                 2r0011111100000000
   905 		2r0011111100000000
   906                 2r0001111100000000
   906 		2r0001111100000000
   907                 2r0000111100000000
   907 		2r0000111100000000
   908                 2r0000011100000000
   908 		2r0000011100000000
   909                 2r0000001100000000)
   909 		2r0000001100000000)
   910                         offset: -7@ -15.
   910 			offset: -7@ -15.
   911     ].
   911     ].
   912 
   912 
   913     (builtIn includes:#scrollLeft) ifFalse:[
   913     (builtIn includes:#scrollLeft) ifFalse:[
   914         LeftCursor := 
   914 	LeftCursor := 
   915                 Cursor 
   915 		Cursor 
   916                         extent: 16@16
   916 			extent: 16@16
   917                         sourceArray: #(
   917 			sourceArray: #(
   918                 2r0000000000000000
   918 		2r0000000000000000
   919                 2r0111111111111110
   919 		2r0111111111111110
   920                 2r0011111111111110
   920 		2r0011111111111110
   921                 2r0001111000000000
   921 		2r0001111000000000
   922                 2r0000111000000000
   922 		2r0000111000000000
   923                 2r0000011000000000
   923 		2r0000011000000000
   924                 2r0000001000000000
   924 		2r0000001000000000
   925                 2r0000000000000000
   925 		2r0000000000000000
   926                 2r0000000000000000
   926 		2r0000000000000000
   927                 2r0000000000000000
   927 		2r0000000000000000
   928                 2r0000000000000000
   928 		2r0000000000000000
   929                 2r0000000000000000
   929 		2r0000000000000000
   930                 2r0000000000000000
   930 		2r0000000000000000
   931                 2r0000000000000000
   931 		2r0000000000000000
   932                 2r0000000000000000
   932 		2r0000000000000000
   933                 2r0000000000000000)
   933 		2r0000000000000000)
   934                         maskArray: #(
   934 			maskArray: #(
   935                 2r1111111111111111
   935 		2r1111111111111111
   936                 2r1111111111111111
   936 		2r1111111111111111
   937                 2r0111111111111111
   937 		2r0111111111111111
   938                 2r0011111111111111
   938 		2r0011111111111111
   939                 2r0001111100000000
   939 		2r0001111100000000
   940                 2r0000111100000000
   940 		2r0000111100000000
   941                 2r0000011100000000
   941 		2r0000011100000000
   942                 2r0000001100000000
   942 		2r0000001100000000
   943                 2r0000000000000000
   943 		2r0000000000000000
   944                 2r0000000000000000
   944 		2r0000000000000000
   945                 2r0000000000000000
   945 		2r0000000000000000
   946                 2r0000000000000000
   946 		2r0000000000000000
   947                 2r0000000000000000
   947 		2r0000000000000000
   948                 2r0000000000000000
   948 		2r0000000000000000
   949                 2r0000000000000000
   949 		2r0000000000000000
   950                 2r0000000000000000)
   950 		2r0000000000000000)
   951                         offset: -1 @ -1.
   951 			offset: -1 @ -1.
   952     ].
   952     ].
   953 
   953 
   954     (builtIn includes:#scrollRight) ifFalse:[
   954     (builtIn includes:#scrollRight) ifFalse:[
   955         RightCursor :=
   955 	RightCursor :=
   956                  Cursor 
   956 		 Cursor 
   957                         extent: 16@16
   957 			extent: 16@16
   958                         sourceArray: #(
   958 			sourceArray: #(
   959                 2r0000000000000000
   959 		2r0000000000000000
   960                 2r0000000001000000
   960 		2r0000000001000000
   961                 2r0000000001100000
   961 		2r0000000001100000
   962                 2r0000000001110000
   962 		2r0000000001110000
   963                 2r0000000001111000
   963 		2r0000000001111000
   964                 2r0111111111111100
   964 		2r0111111111111100
   965                 2r0111111111111110
   965 		2r0111111111111110
   966                 2r0000000000000000
   966 		2r0000000000000000
   967                 2r0000000000000000
   967 		2r0000000000000000
   968                 2r0000000000000000
   968 		2r0000000000000000
   969                 2r0000000000000000
   969 		2r0000000000000000
   970                 2r0000000000000000
   970 		2r0000000000000000
   971                 2r0000000000000000
   971 		2r0000000000000000
   972                 2r0000000000000000
   972 		2r0000000000000000
   973                 2r0000000000000000
   973 		2r0000000000000000
   974                 2r0000000000000000)
   974 		2r0000000000000000)
   975                         maskArray: #(
   975 			maskArray: #(
   976                 2r0000000011000000
   976 		2r0000000011000000
   977                 2r0000000011100000
   977 		2r0000000011100000
   978                 2r0000000011110000
   978 		2r0000000011110000
   979                 2r0000000011111000
   979 		2r0000000011111000
   980                 2r1111111111111100
   980 		2r1111111111111100
   981                 2r1111111111111110
   981 		2r1111111111111110
   982                 2r1111111111111111
   982 		2r1111111111111111
   983                 2r1111111111111111
   983 		2r1111111111111111
   984                 2r0000000000000000
   984 		2r0000000000000000
   985                 2r0000000000000000
   985 		2r0000000000000000
   986                 2r0000000000000000
   986 		2r0000000000000000
   987                 2r0000000000000000
   987 		2r0000000000000000
   988                 2r0000000000000000
   988 		2r0000000000000000
   989                 2r0000000000000000
   989 		2r0000000000000000
   990                 2r0000000000000000
   990 		2r0000000000000000
   991                 2r0000000000000000)
   991 		2r0000000000000000)
   992                         offset: -15@ -6.
   992 			offset: -15@ -6.
   993     ].
   993     ].
   994 
   994 
   995     (builtIn includes:#scrollMarkerV) ifFalse:[
   995     (builtIn includes:#scrollMarkerV) ifFalse:[
   996         XMarkerCursor := 
   996 	XMarkerCursor := 
   997                 Cursor
   997 		Cursor
   998                         extent: 16@16
   998 			extent: 16@16
   999                         sourceArray: #(
   999 			sourceArray: #(
  1000                 2r0000000000000000
  1000 		2r0000000000000000
  1001                 2r0000000100000000
  1001 		2r0000000100000000
  1002                 2r0000000100000000
  1002 		2r0000000100000000
  1003                 2r0000001110000000
  1003 		2r0000001110000000
  1004                 2r0000001110000000
  1004 		2r0000001110000000
  1005                 2r0000011111000000
  1005 		2r0000011111000000
  1006                 2r0000011111000000
  1006 		2r0000011111000000
  1007                 2r0000111111100000
  1007 		2r0000111111100000
  1008                 2r0000111111100000
  1008 		2r0000111111100000
  1009                 2r0001111111110000
  1009 		2r0001111111110000
  1010                 2r0000001110000000
  1010 		2r0000001110000000
  1011                 2r0000001110000000
  1011 		2r0000001110000000
  1012                 2r0000001110000000
  1012 		2r0000001110000000
  1013                 2r0000001110000000
  1013 		2r0000001110000000
  1014                 2r0000001110000000
  1014 		2r0000001110000000
  1015                 2r0000000000000000)
  1015 		2r0000000000000000)
  1016                         maskArray: #(
  1016 			maskArray: #(
  1017                 2r0000000100000000
  1017 		2r0000000100000000
  1018                 2r0000001110000000
  1018 		2r0000001110000000
  1019                 2r0000001110000000
  1019 		2r0000001110000000
  1020                 2r0000011111000000
  1020 		2r0000011111000000
  1021                 2r0000011111000000
  1021 		2r0000011111000000
  1022                 2r0000111111100000
  1022 		2r0000111111100000
  1023                 2r0000111111100000
  1023 		2r0000111111100000
  1024                 2r0001111111110000
  1024 		2r0001111111110000
  1025                 2r0001111111110000
  1025 		2r0001111111110000
  1026                 2r0011111111111000
  1026 		2r0011111111111000
  1027                 2r0011111111111000
  1027 		2r0011111111111000
  1028                 2r0000011111000000
  1028 		2r0000011111000000
  1029                 2r0000011111000000
  1029 		2r0000011111000000
  1030                 2r0000011111000000
  1030 		2r0000011111000000
  1031                 2r0000011111000000
  1031 		2r0000011111000000
  1032                 2r0000011111000000)
  1032 		2r0000011111000000)
  1033                         offset: -7@ -1.
  1033 			offset: -7@ -1.
  1034     ].
  1034     ].
  1035 
  1035 
  1036     (builtIn includes:#fourWay) ifFalse:[
  1036     (builtIn includes:#fourWay) ifFalse:[
  1037         FourWayCursor := 
  1037 	FourWayCursor := 
  1038                 Cursor
  1038 		Cursor
  1039                         extent: 16@16
  1039 			extent: 16@16
  1040                         sourceArray: #(
  1040 			sourceArray: #(
  1041                 2r0000000100000000
  1041 		2r0000000100000000
  1042                 2r0000001110000000
  1042 		2r0000001110000000
  1043                 2r0000011111000000
  1043 		2r0000011111000000
  1044                 2r0000111111100000
  1044 		2r0000111111100000
  1045                 2r0001001110010000
  1045 		2r0001001110010000
  1046                 2r0011001110011000
  1046 		2r0011001110011000
  1047                 2r0111111111111100
  1047 		2r0111111111111100
  1048                 2r1111111111111110
  1048 		2r1111111111111110
  1049                 2r0111111111111100
  1049 		2r0111111111111100
  1050                 2r0011001110011000
  1050 		2r0011001110011000
  1051                 2r0001001110010000
  1051 		2r0001001110010000
  1052                 2r0000111111100000
  1052 		2r0000111111100000
  1053                 2r0000011111000000
  1053 		2r0000011111000000
  1054                 2r0000001110000000
  1054 		2r0000001110000000
  1055                 2r0000000100000000
  1055 		2r0000000100000000
  1056                 2r0000000000000000)
  1056 		2r0000000000000000)
  1057                         maskArray: #(
  1057 			maskArray: #(
  1058                 2r0000001110000000
  1058 		2r0000001110000000
  1059                 2r0000011111000000
  1059 		2r0000011111000000
  1060                 2r0000111111100000
  1060 		2r0000111111100000
  1061                 2r0001111111110000
  1061 		2r0001111111110000
  1062                 2r0010111111101000
  1062 		2r0010111111101000
  1063                 2r0111111111111100
  1063 		2r0111111111111100
  1064                 2r1111111111111110
  1064 		2r1111111111111110
  1065                 2r1111111111111110
  1065 		2r1111111111111110
  1066                 2r1111111111111110
  1066 		2r1111111111111110
  1067                 2r0111111111111100
  1067 		2r0111111111111100
  1068                 2r0010111111101000
  1068 		2r0010111111101000
  1069                 2r0001111111110000
  1069 		2r0001111111110000
  1070                 2r0000111111100000
  1070 		2r0000111111100000
  1071                 2r0000011111000000
  1071 		2r0000011111000000
  1072                 2r0000001110000000
  1072 		2r0000001110000000
  1073                 2r0000000000000000)
  1073 		2r0000000000000000)
  1074                         offset: -7@ -7.
  1074 			offset: -7@ -7.
  1075     ].
  1075     ].
  1076 
  1076 
  1077     (builtIn includes:#thumbsUp) ifFalse:[
  1077     (builtIn includes:#thumbsUp) ifFalse:[
  1078         ThumbsUpCursor := (Cursor
  1078 	ThumbsUpCursor := (Cursor
  1079                           extent: 16@16
  1079 			  extent: 16@16
  1080                           sourceArray: #(
  1080 			  sourceArray: #(
  1081                               2r0000000000100000
  1081 			      2r0000000000100000
  1082                               2r0000000001010000
  1082 			      2r0000000001010000
  1083                               2r0000000010010000
  1083 			      2r0000000010010000
  1084                               2r0000000011110000
  1084 			      2r0000000011110000
  1085                               2r0000000100010000
  1085 			      2r0000000100010000
  1086                               2r0000000100010000
  1086 			      2r0000000100010000
  1087                               2r0001111100011000
  1087 			      2r0001111100011000
  1088                               2r0010000100000110
  1088 			      2r0010000100000110
  1089                               2r0100000000000000
  1089 			      2r0100000000000000
  1090                               2r0111111000000000
  1090 			      2r0111111000000000
  1091                               2r0100000000000000
  1091 			      2r0100000000000000
  1092                               2r0111111000000000
  1092 			      2r0111111000000000
  1093                               2r0100000000000000
  1093 			      2r0100000000000000
  1094                               2r0011111000001110
  1094 			      2r0011111000001110
  1095                               2r0001000000010000
  1095 			      2r0001000000010000
  1096                               2r0001111111100000)
  1096 			      2r0001111111100000)
  1097                           maskArray: #(
  1097 			  maskArray: #(
  1098                               2r0000000000100000
  1098 			      2r0000000000100000
  1099                               2r0000000001110000
  1099 			      2r0000000001110000
  1100                               2r0000000011110000
  1100 			      2r0000000011110000
  1101                               2r0000000011110000
  1101 			      2r0000000011110000
  1102                               2r0000000111110000
  1102 			      2r0000000111110000
  1103                               2r0000000111110000
  1103 			      2r0000000111110000
  1104                               2r0001111111111000
  1104 			      2r0001111111111000
  1105                               2r0011111111111110
  1105 			      2r0011111111111110
  1106                               2r0111111111111110
  1106 			      2r0111111111111110
  1107                               2r0111111111111110
  1107 			      2r0111111111111110
  1108                               2r0111111111111110
  1108 			      2r0111111111111110
  1109                               2r0111111111111110
  1109 			      2r0111111111111110
  1110                               2r0111111111111110
  1110 			      2r0111111111111110
  1111                               2r0011111111111110
  1111 			      2r0011111111111110
  1112                               2r0001111111110000
  1112 			      2r0001111111110000
  1113                               2r0001111111100000)
  1113 			      2r0001111111100000)
  1114                           offset: -8@ 0).
  1114 			  offset: -8@ 0).
  1115     ].
  1115     ].
  1116 
  1116 
  1117     (builtIn includes:#caret) ifFalse:[
  1117     (builtIn includes:#caret) ifFalse:[
  1118         CaretCursor := (Cursor
  1118 	CaretCursor := (Cursor
  1119                         extent: 16@16
  1119 			extent: 16@16
  1120                         sourceArray: #(
  1120 			sourceArray: #(
  1121                             2r0000000000000000
  1121 			    2r0000000000000000
  1122                             2r0000000110000000
  1122 			    2r0000000110000000
  1123                             2r0000000110000000
  1123 			    2r0000000110000000
  1124                             2r0000001111000000
  1124 			    2r0000001111000000
  1125                             2r0000011111100000
  1125 			    2r0000011111100000
  1126                             2r0000011001100000
  1126 			    2r0000011001100000
  1127                             2r0000000000000000
  1127 			    2r0000000000000000
  1128                             2r0000000000000000
  1128 			    2r0000000000000000
  1129                             2r0000000000000000
  1129 			    2r0000000000000000
  1130                             2r0000000000000000
  1130 			    2r0000000000000000
  1131                             2r0000000000000000
  1131 			    2r0000000000000000
  1132                             2r0000000000000000
  1132 			    2r0000000000000000
  1133                             2r0000000000000000
  1133 			    2r0000000000000000
  1134                             2r0000000000000000
  1134 			    2r0000000000000000
  1135                             2r0000000000000000
  1135 			    2r0000000000000000
  1136                             2r0000000000000000)
  1136 			    2r0000000000000000)
  1137                         maskArray: #(
  1137 			maskArray: #(
  1138                             2r0000000110000000
  1138 			    2r0000000110000000
  1139                             2r0000001111000000
  1139 			    2r0000001111000000
  1140                             2r0000001111100000
  1140 			    2r0000001111100000
  1141                             2r0000011111100000
  1141 			    2r0000011111100000
  1142                             2r0000111111110000
  1142 			    2r0000111111110000
  1143                             2r0000111111110000
  1143 			    2r0000111111110000
  1144                             2r0000011001100000
  1144 			    2r0000011001100000
  1145                             2r0000000000000000
  1145 			    2r0000000000000000
  1146                             2r0000000000000000
  1146 			    2r0000000000000000
  1147                             2r0000000000000000
  1147 			    2r0000000000000000
  1148                             2r0000000000000000
  1148 			    2r0000000000000000
  1149                             2r0000000000000000
  1149 			    2r0000000000000000
  1150                             2r0000000000000000
  1150 			    2r0000000000000000
  1151                             2r0000000000000000
  1151 			    2r0000000000000000
  1152                             2r0000000000000000
  1152 			    2r0000000000000000
  1153                             2r0000000000000000)
  1153 			    2r0000000000000000)
  1154                         offset: -8@0).
  1154 			offset: -8@0).
  1155     ].
  1155     ].
  1156 
  1156 
  1157     (builtIn includes:#thumbsDown) ifFalse:[
  1157     (builtIn includes:#thumbsDown) ifFalse:[
  1158         ThumbsDownCursor := (Cursor
  1158 	ThumbsDownCursor := (Cursor
  1159                           extent: 16@16
  1159 			  extent: 16@16
  1160                           sourceArray: #(
  1160 			  sourceArray: #(
  1161                               2r0001111111100000
  1161 			      2r0001111111100000
  1162                               2r0001000000010000
  1162 			      2r0001000000010000
  1163                               2r0011111000001110
  1163 			      2r0011111000001110
  1164                               2r0100000000000000
  1164 			      2r0100000000000000
  1165                               2r0111111000000000
  1165 			      2r0111111000000000
  1166                               2r0100000000000000
  1166 			      2r0100000000000000
  1167                               2r0111111000000000
  1167 			      2r0111111000000000
  1168                               2r0100000000000000
  1168 			      2r0100000000000000
  1169                               2r0010000100000110
  1169 			      2r0010000100000110
  1170                               2r0001111100011000
  1170 			      2r0001111100011000
  1171                               2r0000000100010000
  1171 			      2r0000000100010000
  1172                               2r0000000100010000
  1172 			      2r0000000100010000
  1173                               2r0000000011110000
  1173 			      2r0000000011110000
  1174                               2r0000000010010000
  1174 			      2r0000000010010000
  1175                               2r0000000001010000
  1175 			      2r0000000001010000
  1176                               2r0000000000100000)
  1176 			      2r0000000000100000)
  1177 
  1177 
  1178                           maskArray: #(
  1178 			  maskArray: #(
  1179                               2r0001111111100000
  1179 			      2r0001111111100000
  1180                               2r0001111111110000
  1180 			      2r0001111111110000
  1181                               2r0011111111111110
  1181 			      2r0011111111111110
  1182                               2r0111111111111110
  1182 			      2r0111111111111110
  1183                               2r0111111111111110
  1183 			      2r0111111111111110
  1184                               2r0111111111111110
  1184 			      2r0111111111111110
  1185                               2r0111111111111110
  1185 			      2r0111111111111110
  1186                               2r0111111111111110
  1186 			      2r0111111111111110
  1187                               2r0011111111111110
  1187 			      2r0011111111111110
  1188                               2r0001111111111000
  1188 			      2r0001111111111000
  1189                               2r0000000111110000
  1189 			      2r0000000111110000
  1190                               2r0000000111110000
  1190 			      2r0000000111110000
  1191                               2r0000000011110000
  1191 			      2r0000000011110000
  1192                               2r0000000011110000
  1192 			      2r0000000011110000
  1193                               2r0000000001110000
  1193 			      2r0000000001110000
  1194                               2r0000000000100000)
  1194 			      2r0000000000100000)
  1195                           offset: -8@ -16).
  1195 			  offset: -8@ -16).
  1196     ].
  1196     ].
  1197 
  1197 
  1198     (builtIn includes:#stop) ifFalse:[
  1198     (builtIn includes:#stop) ifFalse:[
  1199         StopCursor := (Cursor
  1199 	StopCursor := (Cursor
  1200                         extent: 16@16
  1200 			extent: 16@16
  1201                         sourceArray: #(
  1201 			sourceArray: #(
  1202                             2r0000000000000000
  1202 			    2r0000000000000000
  1203                             2r0000011111000000
  1203 			    2r0000011111000000
  1204                             2r0001111111110000
  1204 			    2r0001111111110000
  1205                             2r0011111111111000
  1205 			    2r0011111111111000
  1206                             2r0011111111111000
  1206 			    2r0011111111111000
  1207                             2r0111111111111100
  1207 			    2r0111111111111100
  1208                             2r0111111111111100
  1208 			    2r0111111111111100
  1209                             2r0100000000000100
  1209 			    2r0100000000000100
  1210                             2r0100000000000100
  1210 			    2r0100000000000100
  1211                             2r0111111111111100
  1211 			    2r0111111111111100
  1212                             2r0111111111111100
  1212 			    2r0111111111111100
  1213                             2r0011111111111000
  1213 			    2r0011111111111000
  1214                             2r0011111111111000
  1214 			    2r0011111111111000
  1215                             2r0001111111110000
  1215 			    2r0001111111110000
  1216                             2r0000011111000000
  1216 			    2r0000011111000000
  1217                             2r0000000000000000
  1217 			    2r0000000000000000
  1218                             )
  1218 			    )
  1219                         maskArray: #(
  1219 			maskArray: #(
  1220                             2r0000011111000000
  1220 			    2r0000011111000000
  1221                             2r0001111111110000
  1221 			    2r0001111111110000
  1222                             2r0011111111111000
  1222 			    2r0011111111111000
  1223                             2r0111111111111100
  1223 			    2r0111111111111100
  1224                             2r0111111111111100
  1224 			    2r0111111111111100
  1225                             2r1111111111111110
  1225 			    2r1111111111111110
  1226                             2r1111111111111110
  1226 			    2r1111111111111110
  1227                             2r1111111111111110
  1227 			    2r1111111111111110
  1228                             2r1111111111111110
  1228 			    2r1111111111111110
  1229                             2r1111111111111110
  1229 			    2r1111111111111110
  1230                             2r1111111111111110
  1230 			    2r1111111111111110
  1231                             2r0111111111111100
  1231 			    2r0111111111111100
  1232                             2r0111111111111100
  1232 			    2r0111111111111100
  1233                             2r0011111111111000
  1233 			    2r0011111111111000
  1234                             2r0001111111110000
  1234 			    2r0001111111110000
  1235                             2r0000011111000000
  1235 			    2r0000011111000000
  1236                            )
  1236 			   )
  1237                         offset: -8 @ -8).
  1237 			offset: -8 @ -8).
  1238     ].
  1238     ].
  1239 
  1239 
  1240     (builtIn includes:#eyeBullet) ifFalse:[
  1240     (builtIn includes:#eyeBullet) ifFalse:[
  1241         EyeCursor := (Cursor
  1241 	EyeCursor := (Cursor
  1242                         extent: 16@16
  1242 			extent: 16@16
  1243                         sourceArray: #(
  1243 			sourceArray: #(
  1244                             2r0000000000000000
  1244 			    2r0000000000000000
  1245                             2r0000000000000000
  1245 			    2r0000000000000000
  1246                             2r0000000000000000
  1246 			    2r0000000000000000
  1247                             2r0000011111000000
  1247 			    2r0000011111000000
  1248                             2r0001111111110000
  1248 			    2r0001111111110000
  1249                             2r0011000000011000
  1249 			    2r0011000000011000
  1250                             2r0110001110001100
  1250 			    2r0110001110001100
  1251                             2r1100011111000110
  1251 			    2r1100011111000110
  1252                             2r1100011111000110
  1252 			    2r1100011111000110
  1253                             2r0110001110001100
  1253 			    2r0110001110001100
  1254                             2r0011000000011000
  1254 			    2r0011000000011000
  1255                             2r0001111111110000
  1255 			    2r0001111111110000
  1256                             2r0000011111000000
  1256 			    2r0000011111000000
  1257                             2r0000000000000000
  1257 			    2r0000000000000000
  1258                             2r0000000000000000
  1258 			    2r0000000000000000
  1259                             2r0000000000000000
  1259 			    2r0000000000000000
  1260                             )
  1260 			    )
  1261                         maskArray: #(
  1261 			maskArray: #(
  1262                             2r0000000000000000
  1262 			    2r0000000000000000
  1263                             2r0000000000000000
  1263 			    2r0000000000000000
  1264                             2r0000000000000000
  1264 			    2r0000000000000000
  1265                             2r0000011111000000
  1265 			    2r0000011111000000
  1266                             2r0001111111110000
  1266 			    2r0001111111110000
  1267                             2r0011111111111000
  1267 			    2r0011111111111000
  1268                             2r0111111111111100
  1268 			    2r0111111111111100
  1269                             2r1111111111111110
  1269 			    2r1111111111111110
  1270                             2r1111111111111110
  1270 			    2r1111111111111110
  1271                             2r0111111111111100
  1271 			    2r0111111111111100
  1272                             2r0011111111111000
  1272 			    2r0011111111111000
  1273                             2r0001111111110000
  1273 			    2r0001111111110000
  1274                             2r0000011111000000
  1274 			    2r0000011111000000
  1275                             2r0000000000000000
  1275 			    2r0000000000000000
  1276                             2r0000000000000000
  1276 			    2r0000000000000000
  1277                             2r0000000000000000
  1277 			    2r0000000000000000
  1278                            )
  1278 			   )
  1279                         offset: -8 @ -8).
  1279 			offset: -8 @ -8).
  1280     ].
  1280     ].
  1281 
  1281 
  1282     FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
  1282     FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
  1283     LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
  1283     LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
  1284     RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
  1284     RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
  1335      create a new bitmap cursor from bits in the array argument.
  1335      create a new bitmap cursor from bits in the array argument.
  1336      Here, the offset argument defines the hotSpot, but is given
  1336      Here, the offset argument defines the hotSpot, but is given
  1337      as the negative of the hotSpot coordinate within the cursor (sigh - ST80 compatibility)."
  1337      as the negative of the hotSpot coordinate within the cursor (sigh - ST80 compatibility)."
  1338 
  1338 
  1339     ^ self
  1339     ^ self
  1340         extent:extent sourceArray:array maskArray:array offset:offset
  1340 	extent:extent sourceArray:array maskArray:array offset:offset
  1341 
  1341 
  1342     "Modified: 22.10.1997 / 23:59:41 / cg"
  1342     "Modified: 22.10.1997 / 23:59:41 / cg"
  1343 !
  1343 !
  1344 
  1344 
  1345 extent:extent sourceArray:sourceArray maskArray:maskArray offset:offset
  1345 extent:extent sourceArray:sourceArray maskArray:maskArray offset:offset
  1350 
  1350 
  1351     |sourceForm maskForm|
  1351     |sourceForm maskForm|
  1352 
  1352 
  1353     sourceForm := Form extent:extent fromArray:sourceArray offset:offset.
  1353     sourceForm := Form extent:extent fromArray:sourceArray offset:offset.
  1354     sourceArray ~~ maskArray ifTrue:[
  1354     sourceArray ~~ maskArray ifTrue:[
  1355         maskForm := Form extent:extent fromArray:maskArray offset:offset.
  1355 	maskForm := Form extent:extent fromArray:maskArray offset:offset.
  1356     ] ifFalse:[
  1356     ] ifFalse:[
  1357         maskForm := sourceForm
  1357 	maskForm := sourceForm
  1358     ].
  1358     ].
  1359     ^ self sourceForm:sourceForm maskForm:maskForm hotSpot:(offset negated)
  1359     ^ self sourceForm:sourceForm maskForm:maskForm hotSpot:(offset negated)
  1360 
  1360 
  1361     "Modified: 22.10.1997 / 23:58:36 / cg"
  1361     "Modified: 22.10.1997 / 23:58:36 / cg"
  1362 !
  1362 !
  1372 
  1372 
  1373     fileNamePrefix := 'bitmaps/' , cursorName.
  1373     fileNamePrefix := 'bitmaps/' , cursorName.
  1374 
  1374 
  1375     cursorBits := Image fromFile:(fileNamePrefix , '_bits.bit').
  1375     cursorBits := Image fromFile:(fileNamePrefix , '_bits.bit').
  1376     cursorBits notNil ifTrue:[
  1376     cursorBits notNil ifTrue:[
  1377         maskBits := Image fromFile:(fileNamePrefix , '_mask.bit').
  1377 	maskBits := Image fromFile:(fileNamePrefix , '_mask.bit').
  1378         maskBits notNil ifTrue:[
  1378 	maskBits notNil ifTrue:[
  1379             ^ self sourceForm:cursorBits maskForm:maskBits
  1379 	    ^ self sourceForm:cursorBits maskForm:maskBits
  1380         ]
  1380 	]
  1381     ].
  1381     ].
  1382     ^ nil
  1382     ^ nil
  1383 
  1383 
  1384     "Modified: 23.10.1997 / 00:02:07 / cg"
  1384     "Modified: 23.10.1997 / 00:02:07 / cg"
  1385 !
  1385 !
  1388     "return a new cursor.
  1388     "return a new cursor.
  1389      Source- and (optional) mask-Bits are taken from anImage;
  1389      Source- and (optional) mask-Bits are taken from anImage;
  1390      The cursors hotSpot is the center of the image."
  1390      The cursors hotSpot is the center of the image."
  1391 
  1391 
  1392     ^ self
  1392     ^ self
  1393         fromImage:anImage hotSpot:(anImage center)
  1393 	fromImage:anImage hotSpot:(anImage center)
  1394 
  1394 
  1395     "
  1395     "
  1396      |i c|
  1396      |i c|
  1397 
  1397 
  1398      i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
  1398      i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
  1399      c := Cursor fromImage:i.
  1399      c := Cursor fromImage:i.
  1400      WindowGroup activeGroup 
  1400      WindowGroup activeGroup 
  1401          withCursor:c 
  1401 	 withCursor:c 
  1402          do:[(Delay forSeconds:5)wait]
  1402 	 do:[(Delay forSeconds:5)wait]
  1403     "
  1403     "
  1404 
  1404 
  1405     "Modified: 22.10.1997 / 23:55:01 / cg"
  1405     "Modified: 22.10.1997 / 23:55:01 / cg"
  1406 !
  1406 !
  1407 
  1407 
  1414 
  1414 
  1415     sourceForm := anImage asMonochromeFormOn:Screen current.
  1415     sourceForm := anImage asMonochromeFormOn:Screen current.
  1416 
  1416 
  1417     mask := anImage mask.
  1417     mask := anImage mask.
  1418     mask isNil ifTrue:[
  1418     mask isNil ifTrue:[
  1419         maskForm := sourceForm 
  1419 	maskForm := sourceForm 
  1420     ] ifFalse:[
  1420     ] ifFalse:[
  1421         maskForm := mask asMonochromeFormOn:Screen current.
  1421 	maskForm := mask asMonochromeFormOn:Screen current.
  1422     ].
  1422     ].
  1423     ^ self sourceForm:sourceForm
  1423     ^ self sourceForm:sourceForm
  1424              maskForm:maskForm
  1424 	     maskForm:maskForm
  1425                  hotX:(aPoint x)
  1425 		 hotX:(aPoint x)
  1426                  hotY:(aPoint y)
  1426 		 hotY:(aPoint y)
  1427 
  1427 
  1428     "
  1428     "
  1429      |i c|
  1429      |i c|
  1430 
  1430 
  1431      i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
  1431      i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
  1432      c := Cursor fromImage:i hotSpot:(i center).
  1432      c := Cursor fromImage:i hotSpot:(i center).
  1433      WindowGroup activeGroup 
  1433      WindowGroup activeGroup 
  1434          withCursor:c 
  1434 	 withCursor:c 
  1435          do:[(Delay forSeconds:5)wait]
  1435 	 do:[(Delay forSeconds:5)wait]
  1436     "
  1436     "
  1437 
  1437 
  1438     "Modified: 22.10.1997 / 23:49:00 / cg"
  1438     "Modified: 22.10.1997 / 23:49:00 / cg"
  1439     "Created: 22.10.1997 / 23:51:32 / cg"
  1439     "Created: 22.10.1997 / 23:51:32 / cg"
  1440 !
  1440 !
  1441 
  1441 
  1442 imageArray:imageBits maskArray:maskBits
  1442 imageArray:imageBits maskArray:maskBits
  1443     "ST-80 compatible cursor creation - the extent is fixed to 16@16"
  1443     "ST-80 compatible cursor creation - the extent is fixed to 16@16"
  1444 
  1444 
  1445     ^ self 
  1445     ^ self 
  1446         imageArray:imageBits 
  1446 	imageArray:imageBits 
  1447         maskArray:maskBits 
  1447 	maskArray:maskBits 
  1448         hotSpot:8@8
  1448 	hotSpot:8@8
  1449 
  1449 
  1450     "
  1450     "
  1451      |cursor|
  1451      |cursor|
  1452 
  1452 
  1453      cursor := Cursor
  1453      cursor := Cursor
  1454         imageArray: #(
  1454 	imageArray: #(
  1455                 2r0000000000000000
  1455 		2r0000000000000000
  1456                 2r0000000100001110
  1456 		2r0000000100001110
  1457                 2r0000000100001110
  1457 		2r0000000100001110
  1458                 2r0000000100001110
  1458 		2r0000000100001110
  1459                 2r0000000100000000
  1459 		2r0000000100000000
  1460                 2r0000000100000000
  1460 		2r0000000100000000
  1461                 2r0000000100000000
  1461 		2r0000000100000000
  1462                 2r0111111111111110
  1462 		2r0111111111111110
  1463                 2r0000000100000000
  1463 		2r0000000100000000
  1464                 2r0000000100000000
  1464 		2r0000000100000000
  1465                 2r0000000100000000
  1465 		2r0000000100000000
  1466                 2r0000000100000000
  1466 		2r0000000100000000
  1467                 2r0000000100000000
  1467 		2r0000000100000000
  1468                 2r0000000100000000
  1468 		2r0000000100000000
  1469                 2r0000000100000000
  1469 		2r0000000100000000
  1470                 2r0000000000000000)
  1470 		2r0000000000000000)
  1471         maskArray: #(
  1471 	maskArray: #(
  1472                 2r0000001110011111
  1472 		2r0000001110011111
  1473                 2r0000001110011111
  1473 		2r0000001110011111
  1474                 2r0000001110011111
  1474 		2r0000001110011111
  1475                 2r0000001110011111
  1475 		2r0000001110011111
  1476                 2r0000001110011111
  1476 		2r0000001110011111
  1477                 2r0000001110000000
  1477 		2r0000001110000000
  1478                 2r1111111111111111
  1478 		2r1111111111111111
  1479                 2r1111111111111111
  1479 		2r1111111111111111
  1480                 2r1111111111111111
  1480 		2r1111111111111111
  1481                 2r0000001110000000
  1481 		2r0000001110000000
  1482                 2r0000001110000000
  1482 		2r0000001110000000
  1483                 2r0000001110000000
  1483 		2r0000001110000000
  1484                 2r0000001110000000
  1484 		2r0000001110000000
  1485                 2r0000001110000000
  1485 		2r0000001110000000
  1486                 2r0000001110000000
  1486 		2r0000001110000000
  1487                 2r0000001110000000).
  1487 		2r0000001110000000).
  1488 
  1488 
  1489     cursor showWhile:[
  1489     cursor showWhile:[
  1490         (Delay forSeconds:10) wait
  1490 	(Delay forSeconds:10) wait
  1491     ]
  1491     ]
  1492     "
  1492     "
  1493 
  1493 
  1494     "Modified: 23.10.1997 / 00:06:09 / cg"
  1494     "Modified: 23.10.1997 / 00:06:09 / cg"
  1495 !
  1495 !
  1691 
  1691 
  1692     ^ self shape:#upLeftArrow on:Display
  1692     ^ self shape:#upLeftArrow on:Display
  1693 
  1693 
  1694     "
  1694     "
  1695      Cursor arrow
  1695      Cursor arrow
  1696         showWhile:[ Delay waitForSeconds:3 ]
  1696 	showWhile:[ Delay waitForSeconds:3 ]
  1697     "
  1697     "
  1698 
  1698 
  1699     "Modified: 23.10.1997 / 00:28:28 / cg"
  1699     "Modified: 23.10.1997 / 00:28:28 / cg"
  1700 !
  1700 !
  1701 
  1701 
  1704 
  1704 
  1705     ^ BlankCursor
  1705     ^ BlankCursor
  1706 
  1706 
  1707     "
  1707     "
  1708      Cursor blank
  1708      Cursor blank
  1709         showWhile:[ Delay waitForSeconds:3 ]
  1709 	showWhile:[ Delay waitForSeconds:3 ]
  1710     "
  1710     "
  1711 
  1711 
  1712     "Modified: 23.10.1997 / 00:27:39 / cg"
  1712     "Modified: 23.10.1997 / 00:27:39 / cg"
  1713 !
  1713 !
  1714 
  1714 
  1717 
  1717 
  1718     ^ self shape:#bottomLeft on:Display
  1718     ^ self shape:#bottomLeft on:Display
  1719 
  1719 
  1720     "
  1720     "
  1721      Cursor bottomLeft
  1721      Cursor bottomLeft
  1722         showWhile:[ Delay waitForSeconds:3 ]
  1722 	showWhile:[ Delay waitForSeconds:3 ]
  1723     "
  1723     "
  1724 
  1724 
  1725     "Modified: 23.10.1997 / 00:27:12 / cg"
  1725     "Modified: 23.10.1997 / 00:27:12 / cg"
  1726 !
  1726 !
  1727 
  1727 
  1730 
  1730 
  1731     ^ self corner
  1731     ^ self corner
  1732 
  1732 
  1733     "
  1733     "
  1734      Cursor bottomRight
  1734      Cursor bottomRight
  1735         showWhile:[ Delay waitForSeconds:3 ]
  1735 	showWhile:[ Delay waitForSeconds:3 ]
  1736     "
  1736     "
  1737 
  1737 
  1738     "Modified: 23.10.1997 / 00:27:02 / cg"
  1738     "Modified: 23.10.1997 / 00:27:02 / cg"
  1739 !
  1739 !
  1740 
  1740 
  1743 
  1743 
  1744     ^ CaretCursor
  1744     ^ CaretCursor
  1745 
  1745 
  1746     "
  1746     "
  1747      Cursor caret
  1747      Cursor caret
  1748         showWhile:[ Delay waitForSeconds:3 ]
  1748 	showWhile:[ Delay waitForSeconds:3 ]
  1749     "
  1749     "
  1750 
  1750 
  1751     "Modified: 23.10.1997 / 00:27:08 / cg"
  1751     "Modified: 23.10.1997 / 00:27:08 / cg"
  1752 !
  1752 !
  1753 
  1753 
  1754 corner 
  1754 corner 
  1755     "return a corner (bottom-right) cursor"
  1755     "return a corner (bottom-right) cursor"
  1756 
  1756 
  1757     CornerCursor isNil ifTrue:[
  1757     CornerCursor isNil ifTrue:[
  1758         CornerCursor := self shape:#corner on:Display
  1758 	CornerCursor := self shape:#corner on:Display
  1759     ].
  1759     ].
  1760     ^ CornerCursor
  1760     ^ CornerCursor
  1761 
  1761 
  1762     "
  1762     "
  1763      Cursor corner
  1763      Cursor corner
  1764         showWhile:[ Delay waitForSeconds:3 ]
  1764 	showWhile:[ Delay waitForSeconds:3 ]
  1765     "
  1765     "
  1766 
  1766 
  1767     "Modified: 23.10.1997 / 00:26:53 / cg"
  1767     "Modified: 23.10.1997 / 00:26:53 / cg"
  1768 !
  1768 !
  1769 
  1769 
  1772 
  1772 
  1773     ^ self shape:#cross on:Display
  1773     ^ self shape:#cross on:Display
  1774 
  1774 
  1775     "
  1775     "
  1776      Cursor cross
  1776      Cursor cross
  1777         showWhile:[ Delay waitForSeconds:3 ]
  1777 	showWhile:[ Delay waitForSeconds:3 ]
  1778     "
  1778     "
  1779 
  1779 
  1780     "Modified: 23.10.1997 / 00:26:49 / cg"
  1780     "Modified: 23.10.1997 / 00:26:49 / cg"
  1781 !
  1781 !
  1782 
  1782 
  1783 crossHair
  1783 crossHair
  1784     "return a crossHair cursor"
  1784     "return a crossHair cursor"
  1785 
  1785 
  1786     CrossHairCursor isNil ifTrue:[
  1786     CrossHairCursor isNil ifTrue:[
  1787         CrossHairCursor := self shape:#crossHair on:Display
  1787 	CrossHairCursor := self shape:#crossHair on:Display
  1788     ].
  1788     ].
  1789     ^ CrossHairCursor
  1789     ^ CrossHairCursor
  1790 
  1790 
  1791     "
  1791     "
  1792      Cursor crossHair
  1792      Cursor crossHair
  1793         showWhile:[ Delay waitForSeconds:3 ]
  1793 	showWhile:[ Delay waitForSeconds:3 ]
  1794     "
  1794     "
  1795 
  1795 
  1796     "Modified: 23.10.1997 / 00:26:42 / cg"
  1796     "Modified: 23.10.1997 / 00:26:42 / cg"
  1797 !
  1797 !
  1798 
  1798 
  1801 
  1801 
  1802     ^ DocumentCursor
  1802     ^ DocumentCursor
  1803 
  1803 
  1804     "
  1804     "
  1805      Cursor document
  1805      Cursor document
  1806         showWhile:[ Delay waitForSeconds:3 ]
  1806 	showWhile:[ Delay waitForSeconds:3 ]
  1807     "
  1807     "
  1808 
  1808 
  1809     "Modified: / 23.10.1997 / 00:27:08 / cg"
  1809     "Modified: / 23.10.1997 / 00:27:08 / cg"
  1810     "Created: / 19.5.1998 / 17:17:53 / cg"
  1810     "Created: / 19.5.1998 / 17:17:53 / cg"
  1811 !
  1811 !
  1815 
  1815 
  1816     ^ DownCursor
  1816     ^ DownCursor
  1817 
  1817 
  1818     "
  1818     "
  1819      Cursor down
  1819      Cursor down
  1820         showWhile:[ Delay waitForSeconds:3 ]
  1820 	showWhile:[ Delay waitForSeconds:3 ]
  1821     "
  1821     "
  1822 
  1822 
  1823     "Modified: 23.10.1997 / 00:26:34 / cg"
  1823     "Modified: 23.10.1997 / 00:26:34 / cg"
  1824 !
  1824 !
  1825 
  1825 
  1828 
  1828 
  1829     ^ self shape:#downLimitArrow on:Display
  1829     ^ self shape:#downLimitArrow on:Display
  1830 
  1830 
  1831     "
  1831     "
  1832      Cursor downLimitArrow
  1832      Cursor downLimitArrow
  1833         showWhile:[ Delay waitForSeconds:3 ]
  1833 	showWhile:[ Delay waitForSeconds:3 ]
  1834     "
  1834     "
  1835 
  1835 
  1836     "Modified: 23.10.1997 / 00:26:29 / cg"
  1836     "Modified: 23.10.1997 / 00:26:29 / cg"
  1837 !
  1837 !
  1838 
  1838 
  1839 execute
  1839 execute
  1840     "return a execute cursor - (the default here is a wait-cursor)"
  1840     "return a execute cursor - (the default here is a wait-cursor)"
  1841 
  1841 
       
  1842     XeqCursor isNil ifTrue:[
       
  1843 	XeqCursor := self shape:#execute on:Display.
       
  1844     ].
  1842     XeqCursor notNil ifTrue:[
  1845     XeqCursor notNil ifTrue:[
  1843         ^ XeqCursor
  1846 	^ XeqCursor
  1844     ].
  1847     ].
       
  1848 
  1845     ^ self wait
  1849     ^ self wait
  1846 
  1850 
  1847     "
  1851     "
  1848      Cursor execute
  1852      Cursor execute
  1849         showWhile:[ Delay waitForSeconds:3 ]
  1853 	showWhile:[ Delay waitForSeconds:3 ]
  1850     "
  1854     "
  1851 
  1855 
  1852     "Modified: 23.10.1997 / 00:26:19 / cg"
  1856     "Modified: 23.10.1997 / 00:26:19 / cg"
  1853 !
  1857 !
  1854 
  1858 
  1857 
  1861 
  1858     ^ EyeCursor
  1862     ^ EyeCursor
  1859 
  1863 
  1860     "
  1864     "
  1861      Cursor eye
  1865      Cursor eye
  1862         showWhile:[ Delay waitForSeconds:3 ]
  1866 	showWhile:[ Delay waitForSeconds:3 ]
  1863     "
  1867     "
  1864 
  1868 
  1865     "Modified: 23.10.1997 / 00:26:06 / cg"
  1869     "Modified: 23.10.1997 / 00:26:06 / cg"
  1866 !
  1870 !
  1867 
  1871 
  1870 
  1874 
  1871     ^ FolderCursor
  1875     ^ FolderCursor
  1872 
  1876 
  1873     "
  1877     "
  1874      Cursor folder
  1878      Cursor folder
  1875         showWhile:[ Delay waitForSeconds:3 ]
  1879 	showWhile:[ Delay waitForSeconds:3 ]
  1876     "
  1880     "
  1877 
  1881 
  1878     "Modified: / 23.10.1997 / 00:27:08 / cg"
  1882     "Modified: / 23.10.1997 / 00:27:08 / cg"
  1879     "Created: / 19.5.1998 / 17:18:17 / cg"
  1883     "Created: / 19.5.1998 / 17:18:17 / cg"
  1880 !
  1884 !
  1881 
  1885 
  1882 fourWay 
  1886 fourWay 
  1883     "return a four-way arrow cursor"
  1887     "return a four-way arrow cursor"
  1884 
  1888 
  1885     FourWayCursor isNil ifTrue:[
  1889     FourWayCursor isNil ifTrue:[
  1886         FourWayCursor := self shape:#fourWay on:Display
  1890 	FourWayCursor := self shape:#fourWay on:Display
  1887     ].
  1891     ].
  1888     ^ FourWayCursor
  1892     ^ FourWayCursor
  1889 
  1893 
  1890     "
  1894     "
  1891      Cursor fourWay
  1895      Cursor fourWay
  1892         showWhile:[ Delay waitForSeconds:3 ]
  1896 	showWhile:[ Delay waitForSeconds:3 ]
  1893     "
  1897     "
  1894 
  1898 
  1895     "Modified: 23.10.1997 / 00:25:34 / cg"
  1899     "Modified: 23.10.1997 / 00:25:34 / cg"
  1896 !
  1900 !
  1897 
  1901 
  1898 hand
  1902 hand
  1899     "return a hand cursor"
  1903     "return a hand cursor"
  1900 
  1904 
  1901     HandCursor isNil ifTrue:[
  1905     HandCursor isNil ifTrue:[
  1902         HandCursor := self shape:#upRightHand on:Display.
  1906 	HandCursor := self shape:#upRightHand on:Display.
  1903 	HandCursor isNil ifTrue:[
  1907 	HandCursor isNil ifTrue:[
  1904 	    HandCursor := self normal.
  1908 	    HandCursor := self normal.
  1905 	]
  1909 	]
  1906     ].
  1910     ].
  1907     ^ HandCursor
  1911     ^ HandCursor
  1908 
  1912 
  1909     "
  1913     "
  1910      Cursor hand
  1914      Cursor hand
  1911         showWhile:[ Delay waitForSeconds:3 ]
  1915 	showWhile:[ Delay waitForSeconds:3 ]
  1912     "
  1916     "
  1913 
  1917 
  1914     "Modified: 23.10.1997 / 00:25:07 / cg"
  1918     "Modified: 23.10.1997 / 00:25:07 / cg"
  1915 !
  1919 !
  1916 
  1920 
  1919 
  1923 
  1920     ^ LeftCursor
  1924     ^ LeftCursor
  1921 
  1925 
  1922     "
  1926     "
  1923      Cursor left
  1927      Cursor left
  1924         showWhile:[ Delay waitForSeconds:3 ]
  1928 	showWhile:[ Delay waitForSeconds:3 ]
  1925     "
  1929     "
  1926 
  1930 
  1927     "Modified: 23.10.1997 / 00:24:51 / cg"
  1931     "Modified: 23.10.1997 / 00:24:51 / cg"
  1928 !
  1932 !
  1929 
  1933 
  1932 
  1936 
  1933     ^ self shape:#leftHand
  1937     ^ self shape:#leftHand
  1934 
  1938 
  1935     "
  1939     "
  1936      Cursor leftHand
  1940      Cursor leftHand
  1937         showWhile:[ Delay waitForSeconds:3 ]
  1941 	showWhile:[ Delay waitForSeconds:3 ]
  1938     "
  1942     "
  1939 
  1943 
  1940     "Modified: 23.10.1997 / 00:24:31 / cg"
  1944     "Modified: 23.10.1997 / 00:24:31 / cg"
  1941 !
  1945 !
  1942 
  1946 
  1945 
  1949 
  1946     ^ self shape:#leftLimitArrow on:Display
  1950     ^ self shape:#leftLimitArrow on:Display
  1947 
  1951 
  1948     "
  1952     "
  1949      Cursor leftLimitArrow
  1953      Cursor leftLimitArrow
  1950         showWhile:[ Delay waitForSeconds:3 ]
  1954 	showWhile:[ Delay waitForSeconds:3 ]
  1951     "
  1955     "
  1952 
  1956 
  1953     "Modified: 23.10.1997 / 00:24:14 / cg"
  1957     "Modified: 23.10.1997 / 00:24:14 / cg"
  1954 !
  1958 !
  1955 
  1959 
  1956 leftRightArrow
  1960 leftRightArrow
  1957     "return a left-right-arrow cursor"
  1961     "return a left-right-arrow cursor"
  1958 
  1962 
  1959     LeftRightArrowCursor isNil ifTrue:[
  1963     LeftRightArrowCursor isNil ifTrue:[
  1960         LeftRightArrowCursor := self shape:#leftRightArrow on:Display
  1964 	LeftRightArrowCursor := self shape:#leftRightArrow on:Display
  1961     ].
  1965     ].
  1962     ^ LeftRightArrowCursor
  1966     ^ LeftRightArrowCursor
  1963 
  1967 
  1964     "
  1968     "
  1965      Cursor leftRightArrow
  1969      Cursor leftRightArrow
  1966         showWhile:[ Delay waitForSeconds:3 ]
  1970 	showWhile:[ Delay waitForSeconds:3 ]
  1967     "
  1971     "
  1968 
  1972 
  1969     "Modified: 23.10.1997 / 00:23:59 / cg"
  1973     "Modified: 23.10.1997 / 00:23:59 / cg"
  1970 !
  1974 !
  1971 
  1975 
  1974 
  1978 
  1975     ^ MarkerCursor
  1979     ^ MarkerCursor
  1976 
  1980 
  1977     "
  1981     "
  1978      Cursor marker
  1982      Cursor marker
  1979         showWhile:[ Delay waitForSeconds:3 ]
  1983 	showWhile:[ Delay waitForSeconds:3 ]
  1980     "
  1984     "
  1981 
  1985 
  1982     "Modified: 23.10.1997 / 00:23:33 / cg"
  1986     "Modified: 23.10.1997 / 00:23:33 / cg"
  1983 !
  1987 !
  1984 
  1988 
  1985 normal
  1989 normal
  1986     "return the normal cursor; an arrow.
  1990     "return the normal cursor; an arrow.
  1987      for ST-80 compatibility"
  1991      for ST-80 compatibility"
  1988 
  1992 
  1989     NormalCursor isNil ifTrue:[
  1993     NormalCursor isNil ifTrue:[
  1990         NormalCursor := self arrow
  1994 	NormalCursor := self arrow
  1991     ].
  1995     ].
  1992     ^ NormalCursor
  1996     ^ NormalCursor
  1993 
  1997 
  1994 
  1998 
  1995     "
  1999     "
  1996      Cursor normal
  2000      Cursor normal
  1997         showWhile:[ Delay waitForSeconds:3 ]
  2001 	showWhile:[ Delay waitForSeconds:3 ]
  1998     "
  2002     "
  1999 
  2003 
  2000     "Modified: 23.10.1997 / 00:23:12 / cg"
  2004     "Modified: 23.10.1997 / 00:23:12 / cg"
  2001 !
  2005 !
  2002 
  2006 
  2003 origin
  2007 origin
  2004     "return an origin cursor"
  2008     "return an origin cursor"
  2005 
  2009 
  2006     OriginCursor isNil ifTrue:[
  2010     OriginCursor isNil ifTrue:[
  2007         OriginCursor := self shape:#origin on:Display
  2011 	OriginCursor := self shape:#origin on:Display
  2008     ].
  2012     ].
  2009     ^ OriginCursor
  2013     ^ OriginCursor
  2010 
  2014 
  2011     "
  2015     "
  2012      Cursor origin
  2016      Cursor origin
  2013         showWhile:[ Delay waitForSeconds:3 ]
  2017 	showWhile:[ Delay waitForSeconds:3 ]
  2014     "
  2018     "
  2015 
  2019 
  2016     "Modified: 23.10.1997 / 00:22:58 / cg"
  2020     "Modified: 23.10.1997 / 00:22:58 / cg"
  2017 !
  2021 !
  2018 
  2022 
  2022     |crsr|
  2026     |crsr|
  2023 
  2027 
  2024     crsr := self shape:#questionMark on:Display.
  2028     crsr := self shape:#questionMark on:Display.
  2025     (crsr isNil 
  2029     (crsr isNil 
  2026     or:[crsr id isNil]) ifTrue:[
  2030     or:[crsr id isNil]) ifTrue:[
  2027         crsr := self wait
  2031 	crsr := self wait
  2028     ].                   
  2032     ].                   
  2029     ^ crsr
  2033     ^ crsr
  2030 
  2034 
  2031     "
  2035     "
  2032      Cursor questionMark
  2036      Cursor questionMark
  2033         showWhile:[ Delay waitForSeconds:3 ]
  2037 	showWhile:[ Delay waitForSeconds:3 ]
  2034     "
  2038     "
  2035 
  2039 
  2036     "Modified: / 27.7.1998 / 20:20:44 / cg"
  2040     "Modified: / 27.7.1998 / 20:20:44 / cg"
  2037 !
  2041 !
  2038 
  2042 
  2039 read
  2043 read
  2040     "return a reading-file cursor (the default here is a wait-cursor)"
  2044     "return a reading-file cursor (the default here is a wait-cursor)"
  2041 
  2045 
  2042     ReadCursor notNil ifTrue:[
  2046     ReadCursor notNil ifTrue:[
  2043         ^ ReadCursor
  2047 	^ ReadCursor
  2044     ].
  2048     ].
  2045     ^ self wait
  2049     ^ self wait
  2046 
  2050 
  2047     "
  2051     "
  2048      Cursor read
  2052      Cursor read
  2049         showWhile:[ Delay waitForSeconds:3 ]
  2053 	showWhile:[ Delay waitForSeconds:3 ]
  2050     "
  2054     "
  2051 
  2055 
  2052     "Modified: 23.10.1997 / 00:22:23 / cg"
  2056     "Modified: 23.10.1997 / 00:22:23 / cg"
  2053 !
  2057 !
  2054 
  2058 
  2057 
  2061 
  2058     ^ RightCursor
  2062     ^ RightCursor
  2059 
  2063 
  2060     "
  2064     "
  2061      Cursor right
  2065      Cursor right
  2062         showWhile:[ Delay waitForSeconds:3 ]
  2066 	showWhile:[ Delay waitForSeconds:3 ]
  2063     "
  2067     "
  2064 
  2068 
  2065     "Modified: 23.10.1997 / 00:22:05 / cg"
  2069     "Modified: 23.10.1997 / 00:22:05 / cg"
  2066 !
  2070 !
  2067 
  2071 
  2071     ^ self shape:#rightLimitArrow on:Display
  2075     ^ self shape:#rightLimitArrow on:Display
  2072 
  2076 
  2073 
  2077 
  2074     "
  2078     "
  2075      Cursor rightLimitArrow
  2079      Cursor rightLimitArrow
  2076         showWhile:[ Delay waitForSeconds:3 ]
  2080 	showWhile:[ Delay waitForSeconds:3 ]
  2077     "
  2081     "
  2078 
  2082 
  2079     "Modified: 23.10.1997 / 00:15:12 / cg"
  2083     "Modified: 23.10.1997 / 00:15:12 / cg"
  2080     "Created: 23.10.1997 / 00:21:21 / cg"
  2084     "Created: 23.10.1997 / 00:21:21 / cg"
  2081 !
  2085 !
  2082 
  2086 
  2083 stop
  2087 stop
  2084     "return a stop cursor (the default here is a wait-cursor)"
  2088     "return a stop cursor (the default here is a wait-cursor)"
  2085 
  2089 
  2086     StopCursor notNil ifTrue:[
  2090     StopCursor notNil ifTrue:[
  2087         ^ StopCursor
  2091 	^ StopCursor
  2088     ].
  2092     ].
  2089     ^ self wait
  2093     ^ self wait
  2090 
  2094 
  2091     "
  2095     "
  2092      Cursor stop
  2096      Cursor stop
  2093         showWhile:[ Delay waitForSeconds:3 ]
  2097 	showWhile:[ Delay waitForSeconds:3 ]
  2094     "
  2098     "
  2095 
  2099 
  2096     "Modified: 23.10.1997 / 00:20:52 / cg"
  2100     "Modified: 23.10.1997 / 00:20:52 / cg"
  2097 !
  2101 !
  2098 
  2102 
  2101 
  2105 
  2102     ^ self shape:#text on:Display
  2106     ^ self shape:#text on:Display
  2103 
  2107 
  2104     "
  2108     "
  2105      Cursor text
  2109      Cursor text
  2106         showWhile:[ Delay waitForSeconds:3 ]
  2110 	showWhile:[ Delay waitForSeconds:3 ]
  2107     "
  2111     "
  2108 
  2112 
  2109     "Modified: 23.10.1997 / 00:20:37 / cg"
  2113     "Modified: 23.10.1997 / 00:20:37 / cg"
  2110 !
  2114 !
  2111 
  2115 
  2112 thumbsDown
  2116 thumbsDown
  2113     "return a hand cursor - ST-80 compatibility"
  2117     "return a hand cursor - ST-80 compatibility"
  2114 
  2118 
  2115     ThumbsDownCursor notNil ifTrue:[
  2119     ThumbsDownCursor notNil ifTrue:[
  2116         ^ ThumbsDownCursor
  2120 	^ ThumbsDownCursor
  2117     ].
  2121     ].
  2118     ^ self hand
  2122     ^ self hand
  2119 
  2123 
  2120     "
  2124     "
  2121      Cursor thumbsDown
  2125      Cursor thumbsDown
  2122         showWhile:[ Delay waitForSeconds:3 ]
  2126 	showWhile:[ Delay waitForSeconds:3 ]
  2123     "
  2127     "
  2124 
  2128 
  2125     "Modified: 23.10.1997 / 00:20:20 / cg"
  2129     "Modified: 23.10.1997 / 00:20:20 / cg"
  2126 !
  2130 !
  2127 
  2131 
  2128 thumbsUp
  2132 thumbsUp
  2129     "return a hand cursor - ST-80 compatibility"
  2133     "return a hand cursor - ST-80 compatibility"
  2130 
  2134 
  2131     ThumbsUpCursor notNil ifTrue:[
  2135     ThumbsUpCursor notNil ifTrue:[
  2132         ^ ThumbsUpCursor
  2136 	^ ThumbsUpCursor
  2133     ].
  2137     ].
  2134     ^ self hand
  2138     ^ self hand
  2135 
  2139 
  2136     "
  2140     "
  2137      Cursor thumbsUp
  2141      Cursor thumbsUp
  2138         showWhile:[ Delay waitForSeconds:3 ]
  2142 	showWhile:[ Delay waitForSeconds:3 ]
  2139     "
  2143     "
  2140 
  2144 
  2141     "Modified: 23.10.1997 / 00:20:04 / cg"
  2145     "Modified: 23.10.1997 / 00:20:04 / cg"
  2142 !
  2146 !
  2143 
  2147 
  2146 
  2150 
  2147     ^ self origin
  2151     ^ self origin
  2148 
  2152 
  2149     "
  2153     "
  2150      Cursor topLeft
  2154      Cursor topLeft
  2151         showWhile:[ Delay waitForSeconds:3 ]
  2155 	showWhile:[ Delay waitForSeconds:3 ]
  2152     "
  2156     "
  2153 
  2157 
  2154     "Modified: 23.10.1997 / 00:19:50 / cg"
  2158     "Modified: 23.10.1997 / 00:19:50 / cg"
  2155 !
  2159 !
  2156 
  2160 
  2159 
  2163 
  2160     ^ self shape:#topRight on:Display
  2164     ^ self shape:#topRight on:Display
  2161 
  2165 
  2162     "
  2166     "
  2163      Cursor topRight
  2167      Cursor topRight
  2164         showWhile:[ Delay waitForSeconds:3 ]
  2168 	showWhile:[ Delay waitForSeconds:3 ]
  2165     "
  2169     "
  2166 
  2170 
  2167     "Modified: 23.10.1997 / 00:19:33 / cg"
  2171     "Modified: 23.10.1997 / 00:19:33 / cg"
  2168 !
  2172 !
  2169 
  2173 
  2172 
  2176 
  2173     ^ UpCursor
  2177     ^ UpCursor
  2174 
  2178 
  2175     "
  2179     "
  2176      Cursor up
  2180      Cursor up
  2177         showWhile:[ Delay waitForSeconds:5 ]
  2181 	showWhile:[ Delay waitForSeconds:5 ]
  2178     "
  2182     "
  2179 
  2183 
  2180     "Modified: 23.10.1997 / 00:19:14 / cg"
  2184     "Modified: 23.10.1997 / 00:19:14 / cg"
  2181 !
  2185 !
  2182 
  2186 
  2183 upDownArrow
  2187 upDownArrow
  2184     "return an up-down-arrow cursor"
  2188     "return an up-down-arrow cursor"
  2185 
  2189 
  2186     UpDownArrowCursor isNil ifTrue:[
  2190     UpDownArrowCursor isNil ifTrue:[
  2187         UpDownArrowCursor := self shape:#upDownArrow on:Display
  2191 	UpDownArrowCursor := self shape:#upDownArrow on:Display
  2188     ].
  2192     ].
  2189     ^ UpDownArrowCursor
  2193     ^ UpDownArrowCursor
  2190 
  2194 
  2191     "
  2195     "
  2192      Cursor upDownArrow
  2196      Cursor upDownArrow
  2193         showWhile:[ Delay waitForSeconds:3 ]
  2197 	showWhile:[ Delay waitForSeconds:3 ]
  2194     "
  2198     "
  2195 
  2199 
  2196     "Modified: 23.10.1997 / 00:18:53 / cg"
  2200     "Modified: 23.10.1997 / 00:18:53 / cg"
  2197 !
  2201 !
  2198 
  2202 
  2201 
  2205 
  2202     ^ self shape:#upLeftArrow on:Display
  2206     ^ self shape:#upLeftArrow on:Display
  2203 
  2207 
  2204     "
  2208     "
  2205      Cursor upLeftArrow
  2209      Cursor upLeftArrow
  2206         showWhile:[ Delay waitForSeconds:3 ]
  2210 	showWhile:[ Delay waitForSeconds:3 ]
  2207     "
  2211     "
  2208 
  2212 
  2209     "Modified: 23.10.1997 / 00:18:37 / cg"
  2213     "Modified: 23.10.1997 / 00:18:37 / cg"
  2210 !
  2214 !
  2211 
  2215 
  2214 
  2218 
  2215     ^ self shape:#upLimitArrow on:Display
  2219     ^ self shape:#upLimitArrow on:Display
  2216 
  2220 
  2217     "
  2221     "
  2218      Cursor upLimitArrow
  2222      Cursor upLimitArrow
  2219         showWhile:[ Delay waitForSeconds:3 ]
  2223 	showWhile:[ Delay waitForSeconds:3 ]
  2220     "
  2224     "
  2221 
  2225 
  2222     "Modified: 23.10.1997 / 00:18:19 / cg"
  2226     "Modified: 23.10.1997 / 00:18:19 / cg"
  2223 !
  2227 !
  2224 
  2228 
  2227 
  2231 
  2228     ^ self shape:#upRightArrow on:Display
  2232     ^ self shape:#upRightArrow on:Display
  2229 
  2233 
  2230     "
  2234     "
  2231      Cursor upRightArrow
  2235      Cursor upRightArrow
  2232         showWhile:[ Delay waitForSeconds:3 ]
  2236 	showWhile:[ Delay waitForSeconds:3 ]
  2233     "
  2237     "
  2234 
  2238 
  2235     "Modified: 23.10.1997 / 00:18:03 / cg"
  2239     "Modified: 23.10.1997 / 00:18:03 / cg"
  2236 !
  2240 !
  2237 
  2241 
  2246     ].
  2250     ].
  2247     ^ UpRightHandCursor
  2251     ^ UpRightHandCursor
  2248 
  2252 
  2249     "
  2253     "
  2250      Cursor upRightHand
  2254      Cursor upRightHand
  2251         showWhile:[ Delay waitForSeconds:3 ]
  2255 	showWhile:[ Delay waitForSeconds:3 ]
  2252     "
  2256     "
  2253 
  2257 
  2254     "Modified: 23.10.1997 / 00:17:46 / cg"
  2258     "Modified: 23.10.1997 / 00:17:46 / cg"
  2255 !
  2259 !
  2256 
  2260 
  2257 wait
  2261 wait
  2258     "return a wait cursor"
  2262     "return a wait cursor"
  2259 
  2263 
  2260     WaitCursor isNil ifTrue:[
  2264     WaitCursor isNil ifTrue:[
  2261         WaitCursor := self shape:#wait on:Display
  2265 	WaitCursor := self shape:#wait on:Display
  2262     ].
  2266     ].
  2263     ^ WaitCursor
  2267     ^ WaitCursor
  2264 
  2268 
  2265     "
  2269     "
  2266      Cursor wait
  2270      Cursor wait
  2267         showWhile:[ Delay waitForSeconds:3 ]
  2271 	showWhile:[ Delay waitForSeconds:3 ]
  2268     "
  2272     "
  2269 
  2273 
  2270     "Modified: 23.10.1997 / 00:17:32 / cg"
  2274     "Modified: 23.10.1997 / 00:17:32 / cg"
  2271 !
  2275 !
  2272 
  2276 
  2273 write
  2277 write
  2274     "return a writing-file cursor (the default here is a wait-cursor)"
  2278     "return a writing-file cursor (the default here is a wait-cursor)"
  2275 
  2279 
  2276     WriteCursor notNil ifTrue:[
  2280     WriteCursor notNil ifTrue:[
  2277         ^ WriteCursor
  2281 	^ WriteCursor
  2278     ].
  2282     ].
  2279     ^ self wait
  2283     ^ self wait
  2280 
  2284 
  2281     "
  2285     "
  2282      Cursor write
  2286      Cursor write
  2283         showWhile:[ Delay waitForSeconds:3 ]
  2287 	showWhile:[ Delay waitForSeconds:3 ]
  2284     "
  2288     "
  2285 
  2289 
  2286     "Modified: 23.10.1997 / 00:17:22 / cg"
  2290     "Modified: 23.10.1997 / 00:17:22 / cg"
  2287 !
  2291 !
  2288 
  2292 
  2291 
  2295 
  2292     ^ XMarkerCursor
  2296     ^ XMarkerCursor
  2293 
  2297 
  2294     "
  2298     "
  2295      Cursor xMarker
  2299      Cursor xMarker
  2296         showWhile:[ Delay waitForSeconds:3 ]
  2300 	showWhile:[ Delay waitForSeconds:3 ]
  2297     "
  2301     "
  2298 
  2302 
  2299     "Modified: 23.10.1997 / 00:16:44 / cg"
  2303     "Modified: 23.10.1997 / 00:16:44 / cg"
  2300 ! !
  2304 ! !
  2301 
  2305 
  2653 ! !
  2657 ! !
  2654 
  2658 
  2655 !Cursor class methodsFor:'documentation'!
  2659 !Cursor class methodsFor:'documentation'!
  2656 
  2660 
  2657 version
  2661 version
  2658     ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.59 1998-07-27 18:22:45 cg Exp $'
  2662     ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.60 1998-09-24 10:01:42 cg Exp $'
  2659 ! !
  2663 ! !
  2660 Cursor initialize!
  2664 Cursor initialize!