242 Lobby := Registry new. |
242 Lobby := Registry new. |
243 |
243 |
244 "want to be informed when returning from snapshot" |
244 "want to be informed when returning from snapshot" |
245 ObjectMemory addDependent:self |
245 ObjectMemory addDependent:self |
246 ] |
246 ] |
|
247 ! |
|
248 |
|
249 initializeNewCursors |
|
250 "Create the new cursors |
|
251 Cursor blank |
|
252 Cursor down |
|
253 Cursor execute |
|
254 Cursor left |
|
255 Cursor marker |
|
256 Cursor normal |
|
257 Cursor read |
|
258 Cursor right |
|
259 Cursor square |
|
260 Cursor up |
|
261 Cursor wait |
|
262 Cursor write |
|
263 Cursor thumbsUp |
|
264 Cursor thumbsDown |
|
265 Cursor xMarker |
|
266 Cursor caret |
|
267 Cursor stop |
|
268 Cursor eye" |
|
269 |
|
270 |device| |
|
271 |
|
272 " claus: already there in ST/X" |
|
273 |
|
274 "/ OriginCursor := |
|
275 "/ (Cursor |
|
276 "/ extent: 16@16 |
|
277 "/ fromArray: #( |
|
278 "/ 2r1111111111111111 |
|
279 "/ 2r1111111111111111 |
|
280 "/ 2r1100000000000000 |
|
281 "/ 2r1100000000000000 |
|
282 "/ 2r1100000000000000 |
|
283 "/ 2r1100000000000000 |
|
284 "/ 2r1100000000000000 |
|
285 "/ 2r1100000000000000 |
|
286 "/ 2r1100000000000000 |
|
287 "/ 2r1100000000000000 |
|
288 "/ 2r1100000000000000 |
|
289 "/ 2r1100000000000000 |
|
290 "/ 2r1100000000000000 |
|
291 "/ 2r1100000000000000 |
|
292 "/ 2r1100000000000000 |
|
293 "/ 2r1100000000000000) |
|
294 "/ offset: -2@ -2). |
|
295 "/ |
|
296 |
|
297 " claus: already there in ST/X" |
|
298 |
|
299 "/ CornerCursor := |
|
300 "/ (Cursor |
|
301 "/ extent: 16@16 |
|
302 "/ fromArray: #( |
|
303 "/ 2r0000000000000011 |
|
304 "/ 2r0000000000000011 |
|
305 "/ 2r0000000000000011 |
|
306 "/ 2r0000000000000011 |
|
307 "/ 2r0000000000000011 |
|
308 "/ 2r0000000000000011 |
|
309 "/ 2r0000000000000011 |
|
310 "/ 2r0000000000000011 |
|
311 "/ 2r0000000000000011 |
|
312 "/ 2r0000000000000011 |
|
313 "/ 2r0000000000000011 |
|
314 "/ 2r0000000000000011 |
|
315 "/ 2r0000000000000011 |
|
316 "/ 2r0000000000000011 |
|
317 "/ 2r1111111111111111 |
|
318 "/ 2r1111111111111111) |
|
319 "/ offset: -14@ -14). |
|
320 |
|
321 |
|
322 "original from SMACK:" |
|
323 |
|
324 "/ ReadCursor := |
|
325 "/ (Cursor |
|
326 "/ extent: 16@16 |
|
327 "/ fromArray: #( |
|
328 "/ 2r0000110000000110 |
|
329 "/ 2r0001001000001001 |
|
330 "/ 2r0001001000001001 |
|
331 "/ 2r0010000000010000 |
|
332 "/ 2r0100000000100000 |
|
333 "/ 2r1111101111100000 |
|
334 "/ 2r1000010000100000 |
|
335 "/ 2r1000010000100000 |
|
336 "/ 2r1011010110100000 |
|
337 "/ 2r0111101111000000 |
|
338 "/ 2r0000000000000000 |
|
339 "/ 2r0000000000000000 |
|
340 "/ 2r0000000000000000 |
|
341 "/ 2r0000000000000000 |
|
342 "/ 2r0000000000000000 |
|
343 "/ 2r0000000000000000) |
|
344 "/ offset: 0@0). |
|
345 |
|
346 |
|
347 "claus: added mask" |
|
348 |
|
349 ReadCursor := (Cursor |
|
350 extent: 16@16 |
|
351 sourceArray: #( |
|
352 2r0 |
|
353 2r0000110000000110 |
|
354 2r0001001000001001 |
|
355 2r0001001000001001 |
|
356 2r0010000000010000 |
|
357 2r0100000000100000 |
|
358 2r1111101111100000 |
|
359 2r1000010000100000 |
|
360 2r1000010000100000 |
|
361 2r1011010110100000 |
|
362 2r0111101111000000 |
|
363 2r0000000000000000 |
|
364 2r0000000000000000 |
|
365 2r0000000000000000 |
|
366 2r0000000000000000 |
|
367 2r0000000000000000) |
|
368 maskArray: #( |
|
369 2r0001111000001111 |
|
370 2r0001111000011111 |
|
371 2r0011111000011111 |
|
372 2r0011100000111100 |
|
373 2r0111000000111000 |
|
374 2r1111111111110000 |
|
375 2r1111111111110000 |
|
376 2r1111111111110000 |
|
377 2r1111111111110000 |
|
378 2r1111111111110000 |
|
379 2r1111111111100000 |
|
380 2r0111111111000000 |
|
381 2r0000000000000000 |
|
382 2r0000000000000000 |
|
383 2r0000000000000000 |
|
384 2r0000000000000000) |
|
385 offset: -5 @ -7). |
|
386 |
|
387 "original from SMACK:" |
|
388 |
|
389 "/ WriteCursor := (Cursor |
|
390 "/ extent: 16@16 |
|
391 "/ fromArray: #( |
|
392 "/ 2r0000000000000110 |
|
393 "/ 2r0000000000001111 |
|
394 "/ 2r0000000000010110 |
|
395 "/ 2r0000000000100100 |
|
396 "/ 2r0000000001001000 |
|
397 "/ 2r0000000010010000 |
|
398 "/ 2r0000000100100000 |
|
399 "/ 2r0000001001000011 |
|
400 "/ 2r0000010010000010 |
|
401 "/ 2r0000100100000110 |
|
402 "/ 2r0001001000001000 |
|
403 "/ 2r0010010000001000 |
|
404 "/ 2r0111100001001000 |
|
405 "/ 2r0101000010111000 |
|
406 "/ 2r0110000110000000 |
|
407 "/ 2r1111111100000000) |
|
408 "/ offset: 0@0). |
|
409 |
|
410 "claus: added mask" |
|
411 |
|
412 WriteCursor := (Cursor |
|
413 extent: 16@16 |
|
414 sourceArray: #( |
|
415 2r0000000000000110 |
|
416 2r0000000000001111 |
|
417 2r0000000000010110 |
|
418 2r0000000000100100 |
|
419 2r0000000001001000 |
|
420 2r0000000010010000 |
|
421 2r0000000100100000 |
|
422 2r0000001001000011 |
|
423 2r0000010010000010 |
|
424 2r0000100100000110 |
|
425 2r0001001000001000 |
|
426 2r0010010000001000 |
|
427 2r0111100001001000 |
|
428 2r0101000010111000 |
|
429 2r0110000110000000 |
|
430 2r1111111100000000) |
|
431 maskArray: #( |
|
432 2r0000000000000111 |
|
433 2r0000000000001111 |
|
434 2r0000000000011110 |
|
435 2r0000000000111100 |
|
436 2r0000000001111000 |
|
437 2r0000000011110000 |
|
438 2r0000000111100001 |
|
439 2r0000001111000110 |
|
440 2r0000011110000110 |
|
441 2r0000111100001110 |
|
442 2r0001111000001100 |
|
443 2r0011110001001100 |
|
444 2r0111100011111000 |
|
445 2r0111000110111000 |
|
446 2r0111111110000000 |
|
447 2r1111111100000000) |
|
448 offset: 0@ -15). |
|
449 |
|
450 "original from SMACK:" |
|
451 |
|
452 "/ WaitCursor := |
|
453 "/ (Cursor |
|
454 "/ extent: 16@16 |
|
455 "/ fromArray: #( |
|
456 "/ 2r1111111111111111 |
|
457 "/ 2r1000000000000001 |
|
458 "/ 2r0100000000000010 |
|
459 "/ 2r0010000000000100 |
|
460 "/ 2r0001110000111000 |
|
461 "/ 2r0000111101110000 |
|
462 "/ 2r0000011011100000 |
|
463 "/ 2r0000001111000000 |
|
464 "/ 2r0000001111000000 |
|
465 "/ 2r0000010110100000 |
|
466 "/ 2r0000100010010000 |
|
467 "/ 2r0001000110001000 |
|
468 "/ 2r0010001101000100 |
|
469 "/ 2r0100111111110010 |
|
470 "/ 2r1011111111111101 |
|
471 "/ 2r1111111111111111) |
|
472 "/ offset: -8@ -8). |
|
473 |
|
474 "claus: added mask" |
|
475 |
|
476 WaitCursor := |
|
477 (Cursor |
|
478 extent: 16@16 |
|
479 sourceArray: #( |
|
480 2r1111111111111111 |
|
481 2r1000000000000001 |
|
482 2r0100000000000010 |
|
483 2r0010000000000100 |
|
484 2r0001110000111000 |
|
485 2r0000111101110000 |
|
486 2r0000011011100000 |
|
487 2r0000001111000000 |
|
488 2r0000001111000000 |
|
489 2r0000010110100000 |
|
490 2r0000100010010000 |
|
491 2r0001000110001000 |
|
492 2r0010001101000100 |
|
493 2r0100111111110010 |
|
494 2r1011111111111101 |
|
495 2r1111111111111111) |
|
496 maskArray: #( |
|
497 2r1111111111111111 |
|
498 2r1111111111111111 |
|
499 2r1111111111111111 |
|
500 2r0111111111111110 |
|
501 2r0011111111111100 |
|
502 2r0001111111111000 |
|
503 2r0000111111110000 |
|
504 2r0000011111100000 |
|
505 2r0000011111100000 |
|
506 2r0000111111110000 |
|
507 2r0001111111111000 |
|
508 2r0011111111111100 |
|
509 2r0111111111111110 |
|
510 2r1111111111111111 |
|
511 2r1111111111111111 |
|
512 2r1111111111111111) |
|
513 offset: -8@ -8). |
|
514 |
|
515 BlankCursor := Cursor new. |
|
516 |
|
517 "original from SMACK:" |
|
518 |
|
519 "/ XeqCursor := |
|
520 "/ (Cursor |
|
521 "/ extent: 16@16 |
|
522 "/ fromArray: #( |
|
523 "/ 2r1000000000010000 |
|
524 "/ 2r1100000000010000 |
|
525 "/ 2r1110000000111000 |
|
526 "/ 2r1111000111111111 |
|
527 "/ 2r1111100011000110 |
|
528 "/ 2r1111110001000100 |
|
529 "/ 2r1111111001111100 |
|
530 "/ 2r1111000001101100 |
|
531 "/ 2r1101100011000110 |
|
532 "/ 2r1001100010000010 |
|
533 "/ 2r0000110000000000 |
|
534 "/ 2r0000110000000000 |
|
535 "/ 2r0000011000000000 |
|
536 "/ 2r0000011000000000 |
|
537 "/ 2r0000001100000000 |
|
538 "/ 2r0000001100000000) |
|
539 "/ offset: 0@0). |
|
540 |
|
541 "claus: added mask" |
|
542 |
|
543 XeqCursor := |
|
544 (Cursor |
|
545 extent: 16@16 |
|
546 sourceArray: #( |
|
547 2r1000000000010000 |
|
548 2r1100000000010000 |
|
549 2r1110000000111000 |
|
550 2r1111000111111111 |
|
551 2r1111100011000110 |
|
552 2r1111110001000100 |
|
553 2r1111111001111100 |
|
554 2r1111000001101100 |
|
555 2r1101100011000110 |
|
556 2r1001100010000010 |
|
557 2r0000110000000000 |
|
558 2r0000110000000000 |
|
559 2r0000011000000000 |
|
560 2r0000011000000000 |
|
561 2r0000001100000000 |
|
562 2r0000001100000000) |
|
563 maskArray: #( |
|
564 2r1100000000111000 |
|
565 2r1110000000111000 |
|
566 2r1111000111111111 |
|
567 2r1111100111111111 |
|
568 2r1111110011111111 |
|
569 2r1111111001111110 |
|
570 2r1111111101111100 |
|
571 2r1111100001111110 |
|
572 2r1101110011100111 |
|
573 2r1001110011000010 |
|
574 2r0000111000000000 |
|
575 2r0000111000000000 |
|
576 2r0000011100000000 |
|
577 2r0000011100000000 |
|
578 2r0000001110000000 |
|
579 2r0000001110000000) |
|
580 offset: 0@0). |
|
581 |
|
582 "claus: already there in ST/X" |
|
583 |
|
584 "/ SquareCursor := |
|
585 "/ (Cursor |
|
586 "/ extent: 16@16 |
|
587 "/ fromArray: #( |
|
588 "/ 2r0000000000000000 |
|
589 "/ 2r0000000000000000 |
|
590 "/ 2r0000000000000000 |
|
591 "/ 2r0000000000000000 |
|
592 "/ 2r0000000000000000 |
|
593 "/ 2r0000001111000000 |
|
594 "/ 2r0000001111000000 |
|
595 "/ 2r0000001111000000 |
|
596 "/ 2r0000001111000000 |
|
597 "/ 2r0000000000000000 |
|
598 "/ 2r0000000000000000 |
|
599 "/ 2r0000000000000000 |
|
600 "/ 2r0000000000000000 |
|
601 "/ 2r0000000000000000 |
|
602 "/ 2r0000000000000000 |
|
603 "/ 2r0000000000000000) |
|
604 "/ offset: -8@ -8). |
|
605 |
|
606 |
|
607 "original from SMACK:" |
|
608 |
|
609 "/ NormalCursor := |
|
610 "/ (Cursor |
|
611 "/ extent: 16@16 |
|
612 "/ fromArray: #( |
|
613 "/ 2r1000000000000000 |
|
614 "/ 2r1100000000000000 |
|
615 "/ 2r1110000000000000 |
|
616 "/ 2r1111000000000000 |
|
617 "/ 2r1111100000000000 |
|
618 "/ 2r1111110000000000 |
|
619 "/ 2r1111111000000000 |
|
620 "/ 2r1111100000000000 |
|
621 "/ 2r1111100000000000 |
|
622 "/ 2r1001100000000000 |
|
623 "/ 2r0000110000000000 |
|
624 "/ 2r0000110000000000 |
|
625 "/ 2r0000011000000000 |
|
626 "/ 2r0000011000000000 |
|
627 "/ 2r0000001100000000 |
|
628 "/ 2r0000001100000000) |
|
629 "/ offset: 0@0). |
|
630 |
|
631 "claus: added mask" |
|
632 |
|
633 NormalCursor := |
|
634 (Cursor |
|
635 extent: 16@16 |
|
636 sourceArray: #( |
|
637 2r1000000000000000 |
|
638 2r1100000000000000 |
|
639 2r1110000000000000 |
|
640 2r1111000000000000 |
|
641 2r1111100000000000 |
|
642 2r1111110000000000 |
|
643 2r1111111000000000 |
|
644 2r1111100000000000 |
|
645 2r1111100000000000 |
|
646 2r1001100000000000 |
|
647 2r0000110000000000 |
|
648 2r0000110000000000 |
|
649 2r0000011000000000 |
|
650 2r0000011000000000 |
|
651 2r0000001100000000 |
|
652 2r0000001100000000) |
|
653 maskArray: #( |
|
654 2r1100000000000000 |
|
655 2r1110000000000000 |
|
656 2r1111000000000000 |
|
657 2r1111100000000000 |
|
658 2r1111110000000000 |
|
659 2r1111111000000000 |
|
660 2r1111111100000000 |
|
661 2r1111110000000000 |
|
662 2r1111110000000000 |
|
663 2r1001110000000000 |
|
664 2r0000111000000000 |
|
665 2r0000111000000000 |
|
666 2r0000011100000000 |
|
667 2r0000011100000000 |
|
668 2r0000001110000000 |
|
669 2r0000001110000000) |
|
670 offset: 0@0). |
|
671 |
|
672 "original from SMACK:" |
|
673 |
|
674 "/ CrossHairCursor := |
|
675 "/ (Cursor |
|
676 "/ extent: 16@16 |
|
677 "/ fromArray: #( |
|
678 "/ 2r0000000100000000 |
|
679 "/ 2r0000000100000000 |
|
680 "/ 2r0000000100000000 |
|
681 "/ 2r0000000100000000 |
|
682 "/ 2r0000000100000000 |
|
683 "/ 2r0000000100000000 |
|
684 "/ 2r0000000100000000 |
|
685 "/ 2r1111111111111110 |
|
686 "/ 2r0000000100000000 |
|
687 "/ 2r0000000100000000 |
|
688 "/ 2r0000000100000000 |
|
689 "/ 2r0000000100000000 |
|
690 "/ 2r0000000100000000 |
|
691 "/ 2r0000000100000000 |
|
692 "/ 2r0000000100000000 |
|
693 "/ 2r0) |
|
694 "/ offset: -7@ -7). |
|
695 |
|
696 "claus: added mask" |
|
697 |
|
698 "no: already there in ST/X" |
|
699 |
|
700 "/ CrossHairCursor := |
|
701 "/ (Cursor |
|
702 "/ extent: 16@16 |
|
703 "/ sourceArray: #( |
|
704 "/ 2r0000000100000000 |
|
705 "/ 2r0000000100000000 |
|
706 "/ 2r0000000100000000 |
|
707 "/ 2r0000000100000000 |
|
708 "/ 2r0000000100000000 |
|
709 "/ 2r0000000100000000 |
|
710 "/ 2r0000000100000000 |
|
711 "/ 2r1111111111111110 |
|
712 "/ 2r0000000100000000 |
|
713 "/ 2r0000000100000000 |
|
714 "/ 2r0000000100000000 |
|
715 "/ 2r0000000100000000 |
|
716 "/ 2r0000000100000000 |
|
717 "/ 2r0000000100000000 |
|
718 "/ 2r0000000100000000 |
|
719 "/ 2r0) |
|
720 "/ maskArray: #( |
|
721 "/ 2r0000000110000000 |
|
722 "/ 2r0000000110000000 |
|
723 "/ 2r0000000110000000 |
|
724 "/ 2r0000000110000000 |
|
725 "/ 2r0000000110000000 |
|
726 "/ 2r0000000110000000 |
|
727 "/ 2r0000000110000000 |
|
728 "/ 2r1111111111111110 |
|
729 "/ 2r1111111111111110 |
|
730 "/ 2r0000000110000000 |
|
731 "/ 2r0000000110000000 |
|
732 "/ 2r0000000110000000 |
|
733 "/ 2r0000000110000000 |
|
734 "/ 2r0000000110000000 |
|
735 "/ 2r0000000110000000 |
|
736 "/ 2r0) |
|
737 "/ offset: -7@ -7). |
|
738 |
|
739 MarkerCursor := |
|
740 Cursor |
|
741 extent: 16@16 |
|
742 fromArray: #( |
|
743 2r0000000000000000 |
|
744 2r0000000000000000 |
|
745 2r0000000000000000 |
|
746 2r0000001000000000 |
|
747 2r0000001110000000 |
|
748 2r0000001111100000 |
|
749 2r1111111111111000 |
|
750 2r1111111111111110 |
|
751 2r1111111111111000 |
|
752 2r0000001111100000 |
|
753 2r0000001110000000 |
|
754 2r0000001000000000 |
|
755 2r0000000000000000 |
|
756 2r0000000000000000 |
|
757 2r0000000000000000 |
|
758 2r0000000000000000) |
|
759 offset: -7@ -7. |
|
760 |
|
761 UpCursor := |
|
762 Cursor |
|
763 extent: 16@16 |
|
764 fromArray: #( |
|
765 2r1000000000000000 |
|
766 2r1100000000000000 |
|
767 2r1110000000000000 |
|
768 2r1111000000000000 |
|
769 2r1111100000000000 |
|
770 2r1111110000000000 |
|
771 2r1100000000000000 |
|
772 2r1100000000000000 |
|
773 2r1100000000000000 |
|
774 2r1100000000000000 |
|
775 2r1100000000000000 |
|
776 2r1100000000000000 |
|
777 2r1100000000000000 |
|
778 2r1100000000000000 |
|
779 2r1100000000000000 |
|
780 2r1100000000000000) |
|
781 offset: 0@ -7. |
|
782 |
|
783 DownCursor := |
|
784 Cursor |
|
785 extent: 16@16 |
|
786 fromArray: #( |
|
787 2r0000110000000000 |
|
788 2r0000110000000000 |
|
789 2r0000110000000000 |
|
790 2r0000110000000000 |
|
791 2r0000110000000000 |
|
792 2r0000110000000000 |
|
793 2r0000110000000000 |
|
794 2r0000110000000000 |
|
795 2r0000110000000000 |
|
796 2r0000110000000000 |
|
797 2r1111110000000000 |
|
798 2r0111110000000000 |
|
799 2r0011110000000000 |
|
800 2r0001110000000000 |
|
801 2r0000110000000000 |
|
802 2r0000010000000000) |
|
803 offset: -5@ -7. |
|
804 |
|
805 LeftCursor := |
|
806 Cursor |
|
807 extent: 16@16 |
|
808 fromArray: #( |
|
809 2r1111111111111111 |
|
810 2r0111111111111111 |
|
811 2r0011110000000000 |
|
812 2r0001110000000000 |
|
813 2r0000110000000000 |
|
814 2r0000010000000000 |
|
815 2r0000000000000000 |
|
816 2r0000000000000000 |
|
817 2r0000000000000000 |
|
818 2r0000000000000000 |
|
819 2r0000000000000000 |
|
820 2r0000000000000000 |
|
821 2r0000000000000000 |
|
822 2r0000000000000000 |
|
823 2r0000000000000000 |
|
824 2r0000000000000000) |
|
825 offset: -7@0. |
|
826 |
|
827 RightCursor := |
|
828 Cursor |
|
829 extent: 16@16 |
|
830 fromArray: #( |
|
831 2r0000000000100000 |
|
832 2r0000000000110000 |
|
833 2r0000000000111000 |
|
834 2r0000000000111100 |
|
835 2r1111111111111110 |
|
836 2r1111111111111111 |
|
837 2r0000000000000000 |
|
838 2r0000000000000000 |
|
839 2r0000000000000000 |
|
840 2r0000000000000000 |
|
841 2r0000000000000000 |
|
842 2r0000000000000000 |
|
843 2r0000000000000000 |
|
844 2r0000000000000000 |
|
845 2r0000000000000000 |
|
846 2r0000000000000000) |
|
847 offset: -7@ -5. |
|
848 XMarkerCursor := |
|
849 Cursor |
|
850 extent: 16@16 |
|
851 fromArray: #( |
|
852 2r0 |
|
853 2r0000000100000000 |
|
854 2r0000000100000000 |
|
855 2r0000001110000000 |
|
856 2r0000001110000000 |
|
857 2r0000011111000000 |
|
858 2r0000011111000000 |
|
859 2r0000111111100000 |
|
860 2r0000111111100000 |
|
861 2r0001111111110000 |
|
862 2r0000001110000000 |
|
863 2r0000001110000000 |
|
864 2r0000001110000000 |
|
865 2r0000001110000000 |
|
866 2r0000001110000000 |
|
867 2r0000001110000000) |
|
868 offset: -7@ -7. |
|
869 |
|
870 "original from SMACK:" |
|
871 |
|
872 "/ FourWayCursor := |
|
873 "/ Cursor |
|
874 "/ extent: 16@16 |
|
875 "/ fromArray: #( |
|
876 "/ 2r0000000100000000 |
|
877 "/ 2r0000001110000000 |
|
878 "/ 2r0000011111000000 |
|
879 "/ 2r0000111111100000 |
|
880 "/ 2r0001001110010000 |
|
881 "/ 2r0011001110011000 |
|
882 "/ 2r0111111111111100 |
|
883 "/ 2r1111111111111110 |
|
884 "/ 2r0111111111111100 |
|
885 "/ 2r0011001110011000 |
|
886 "/ 2r0001001110010000 |
|
887 "/ 2r0000111111100000 |
|
888 "/ 2r0000011111000000 |
|
889 "/ 2r0000001110000000 |
|
890 "/ 2r0000000100000000 |
|
891 "/ 2r0000000000000000) |
|
892 "/ offset: -7@ -7. |
|
893 "/ |
|
894 |
|
895 "claus: added mask" |
|
896 |
|
897 FourWayCursor := |
|
898 Cursor |
|
899 extent: 16@16 |
|
900 sourceArray: #( |
|
901 2r0000000100000000 |
|
902 2r0000001110000000 |
|
903 2r0000011111000000 |
|
904 2r0000111111100000 |
|
905 2r0001001110010000 |
|
906 2r0011001110011000 |
|
907 2r0111111111111100 |
|
908 2r1111111111111110 |
|
909 2r0111111111111100 |
|
910 2r0011001110011000 |
|
911 2r0001001110010000 |
|
912 2r0000111111100000 |
|
913 2r0000011111000000 |
|
914 2r0000001110000000 |
|
915 2r0000000100000000 |
|
916 2r0000000000000000) |
|
917 maskArray: #( |
|
918 2r0000001110000000 |
|
919 2r0000011111000000 |
|
920 2r0000111111100000 |
|
921 2r0001111111110000 |
|
922 2r0010111111101000 |
|
923 2r0111111111111100 |
|
924 2r1111111111111110 |
|
925 2r1111111111111110 |
|
926 2r1111111111111110 |
|
927 2r0111111111111100 |
|
928 2r0010111111101000 |
|
929 2r0001111111110000 |
|
930 2r0000111111100000 |
|
931 2r0000011111000000 |
|
932 2r0000001110000000 |
|
933 2r0000000000000000) |
|
934 offset: -7@ -7. |
|
935 |
|
936 ThumbsUpCursor := (Cursor |
|
937 extent: 16@16 |
|
938 sourceArray: #( |
|
939 2r0000000000100000 |
|
940 2r0000000001010000 |
|
941 2r0000000010010000 |
|
942 2r0000000011110000 |
|
943 2r0000000100010000 |
|
944 2r0000000100010000 |
|
945 2r0001111100011000 |
|
946 2r0010000100000110 |
|
947 2r0100000000000000 |
|
948 2r0111111000000000 |
|
949 2r0100000000000000 |
|
950 2r0111111000000000 |
|
951 2r0100000000000000 |
|
952 2r0011111000001110 |
|
953 2r0001000000010000 |
|
954 2r0001111111100000) |
|
955 maskArray: #( |
|
956 2r0000000000100000 |
|
957 2r0000000001110000 |
|
958 2r0000000011110000 |
|
959 2r0000000011110000 |
|
960 2r0000000111110000 |
|
961 2r0000000111110000 |
|
962 2r0001111111111000 |
|
963 2r0011111111111110 |
|
964 2r0111111111111110 |
|
965 2r0111111111111110 |
|
966 2r0111111111111110 |
|
967 2r0111111111111110 |
|
968 2r0111111111111110 |
|
969 2r0011111111111110 |
|
970 2r0001111111110000 |
|
971 2r0001111111100000) |
|
972 offset: -8@ -8). |
|
973 |
|
974 CaretCursor := (Cursor |
|
975 extent: 16@16 |
|
976 fromArray: #( |
|
977 2r0000000110000000 |
|
978 2r0000000110000000 |
|
979 2r0000001111000000 |
|
980 2r0000011111100000 |
|
981 2r0000011001100000 |
|
982 2r0000000000000000 |
|
983 2r0000000000000000 |
|
984 2r0000000000000000 |
|
985 2r0000000000000000 |
|
986 2r0000000000000000 |
|
987 2r0000000000000000 |
|
988 2r0000000000000000 |
|
989 2r0000000000000000 |
|
990 2r0000000000000000 |
|
991 2r0000000000000000 |
|
992 2r0000000000000000) |
|
993 offset: -8@0). |
|
994 |
|
995 ThumbsDownCursor := (Cursor |
|
996 extent: 16@16 |
|
997 sourceArray: #( |
|
998 2r0001111111100000 |
|
999 2r0001000000010000 |
|
1000 2r0011111000001110 |
|
1001 2r0100000000000000 |
|
1002 2r0111111000000000 |
|
1003 2r0100000000000000 |
|
1004 2r0111111000000000 |
|
1005 2r0100000000000000 |
|
1006 2r0010000100000110 |
|
1007 2r0001111100011000 |
|
1008 2r0000000100010000 |
|
1009 2r0000000100010000 |
|
1010 2r0000000011110000 |
|
1011 2r0000000010010000 |
|
1012 2r0000000001010000 |
|
1013 2r0000000000100000) |
|
1014 |
|
1015 maskArray: #( |
|
1016 2r0001111111100000 |
|
1017 2r0001111111110000 |
|
1018 2r0011111111111110 |
|
1019 2r0111111111111110 |
|
1020 2r0111111111111110 |
|
1021 2r0111111111111110 |
|
1022 2r0111111111111110 |
|
1023 2r0111111111111110 |
|
1024 2r0011111111111110 |
|
1025 2r0001111111111000 |
|
1026 2r0000000111110000 |
|
1027 2r0000000111110000 |
|
1028 2r0000000011110000 |
|
1029 2r0000000011110000 |
|
1030 2r0000000001110000 |
|
1031 2r0000000000100000) |
|
1032 offset: -8@ -8). |
|
1033 |
|
1034 StopCursor := (Cursor |
|
1035 extent: 16@16 |
|
1036 sourceArray: #( |
|
1037 2r0000000000000000 |
|
1038 2r0000011111000000 |
|
1039 2r0001111111110000 |
|
1040 2r0011111111111000 |
|
1041 2r0011111111111000 |
|
1042 2r0111111111111100 |
|
1043 2r0111111111111100 |
|
1044 2r0100000000000100 |
|
1045 2r0100000000000100 |
|
1046 2r0111111111111100 |
|
1047 2r0111111111111100 |
|
1048 2r0011111111111000 |
|
1049 2r0011111111111000 |
|
1050 2r0001111111110000 |
|
1051 2r0000011111000000 |
|
1052 2r0000000000000000 |
|
1053 ) |
|
1054 maskArray: #( |
|
1055 2r0000011111000000 |
|
1056 2r0001111111110000 |
|
1057 2r0011111111111000 |
|
1058 2r0111111111111100 |
|
1059 2r0111111111111100 |
|
1060 2r1111111111111110 |
|
1061 2r1111111111111110 |
|
1062 2r1111111111111110 |
|
1063 2r1111111111111110 |
|
1064 2r1111111111111110 |
|
1065 2r1111111111111110 |
|
1066 2r0111111111111100 |
|
1067 2r0111111111111100 |
|
1068 2r0011111111111000 |
|
1069 2r0001111111110000 |
|
1070 2r0000011111000000 |
|
1071 ) |
|
1072 offset: -8 @ -8). |
|
1073 |
|
1074 EyeCursor := (Cursor |
|
1075 extent: 16@16 |
|
1076 sourceArray: #( |
|
1077 2r0000000000000000 |
|
1078 2r0000000000000000 |
|
1079 2r0000000000000000 |
|
1080 2r0000011111000000 |
|
1081 2r0001111111110000 |
|
1082 2r0011000000011000 |
|
1083 2r0110001110001100 |
|
1084 2r1100011111000110 |
|
1085 2r1100011111000110 |
|
1086 2r0110001110001100 |
|
1087 2r0011000000011000 |
|
1088 2r0001111111110000 |
|
1089 2r0000011111000000 |
|
1090 2r0000000000000000 |
|
1091 2r0000000000000000 |
|
1092 2r0000000000000000 |
|
1093 ) |
|
1094 maskArray: #( |
|
1095 2r0000000000000000 |
|
1096 2r0000000000000000 |
|
1097 2r0000000000000000 |
|
1098 2r0000011111000000 |
|
1099 2r0001111111110000 |
|
1100 2r0011111111111000 |
|
1101 2r0111111111111100 |
|
1102 2r1111111111111110 |
|
1103 2r1111111111111110 |
|
1104 2r0111111111111100 |
|
1105 2r0011111111111000 |
|
1106 2r0001111111110000 |
|
1107 2r0000011111000000 |
|
1108 2r0000000000000000 |
|
1109 2r0000000000000000 |
|
1110 2r0000000000000000 |
|
1111 ) |
|
1112 offset: -8 @ -8). |
|
1113 |
|
1114 device := Display. |
|
1115 |
|
1116 FourWayCursor := FourWayCursor onDevice:device. |
|
1117 LeftCursor := LeftCursor onDevice:device. |
|
1118 RightCursor := RightCursor onDevice:device. |
|
1119 XMarkerCursor := XMarkerCursor onDevice:device. |
|
1120 |
|
1121 "/ OriginCursor := OriginCursor onDevice:device. |
|
1122 "/ CornerCursor := CornerCursor onDevice:device. |
|
1123 |
|
1124 ReadCursor := ReadCursor onDevice:device. |
|
1125 WriteCursor := WriteCursor onDevice:device. |
|
1126 WaitCursor := WaitCursor onDevice:device. |
|
1127 XeqCursor := XeqCursor onDevice:device. |
|
1128 |
|
1129 "/ SquareCursor := SquareCursor onDevice:device. |
|
1130 |
|
1131 NormalCursor := NormalCursor onDevice:device. |
|
1132 |
|
1133 "/ CrossHairCursor := CrossHairCursor onDevice:device. |
|
1134 |
|
1135 MarkerCursor := MarkerCursor onDevice:device. |
|
1136 UpCursor := UpCursor onDevice:device. |
|
1137 DownCursor := DownCursor onDevice:device. |
|
1138 LeftCursor := LeftCursor onDevice:device. |
|
1139 RightCursor := RightCursor onDevice:device. |
|
1140 XMarkerCursor := XMarkerCursor onDevice:device. |
|
1141 CaretCursor := CaretCursor onDevice:device. |
|
1142 |
|
1143 ThumbsUpCursor := ThumbsUpCursor onDevice:device. |
|
1144 ThumbsDownCursor := ThumbsDownCursor onDevice:device. |
|
1145 StopCursor := StopCursor onDevice:device. |
|
1146 EyeCursor := EyeCursor onDevice:device. |
|
1147 |
|
1148 "Cursor initializeNewCursors" |
|
1149 |
|
1150 "Modified: 28.3.1997 / 16:01:50 / cg" |
247 ! |
1151 ! |
248 |
1152 |
249 update:something with:aParameter from:changedObject |
1153 update:something with:aParameter from:changedObject |
250 "sent when restarted after a snapIn" |
1154 "sent when restarted after a snapIn" |
251 |
1155 |
514 hotY:hotY. |
1418 hotY:hotY. |
515 Lobby register:newCursor. |
1419 Lobby register:newCursor. |
516 ^ newCursor |
1420 ^ newCursor |
517 ! ! |
1421 ! ! |
518 |
1422 |
519 !Cursor class methodsFor:'class initialization'! |
|
520 |
|
521 initializeNewCursors |
|
522 "Create the new cursors |
|
523 Cursor blank |
|
524 Cursor down |
|
525 Cursor execute |
|
526 Cursor left |
|
527 Cursor marker |
|
528 Cursor normal |
|
529 Cursor read |
|
530 Cursor right |
|
531 Cursor square |
|
532 Cursor up |
|
533 Cursor wait |
|
534 Cursor write |
|
535 Cursor thumbsUp |
|
536 Cursor thumbsDown |
|
537 Cursor xMarker |
|
538 Cursor caret |
|
539 Cursor stop |
|
540 Cursor eye" |
|
541 |
|
542 |device| |
|
543 |
|
544 " claus: already there in ST/X" |
|
545 |
|
546 "/ OriginCursor := |
|
547 "/ (Cursor |
|
548 "/ extent: 16@16 |
|
549 "/ fromArray: #( |
|
550 "/ 2r1111111111111111 |
|
551 "/ 2r1111111111111111 |
|
552 "/ 2r1100000000000000 |
|
553 "/ 2r1100000000000000 |
|
554 "/ 2r1100000000000000 |
|
555 "/ 2r1100000000000000 |
|
556 "/ 2r1100000000000000 |
|
557 "/ 2r1100000000000000 |
|
558 "/ 2r1100000000000000 |
|
559 "/ 2r1100000000000000 |
|
560 "/ 2r1100000000000000 |
|
561 "/ 2r1100000000000000 |
|
562 "/ 2r1100000000000000 |
|
563 "/ 2r1100000000000000 |
|
564 "/ 2r1100000000000000 |
|
565 "/ 2r1100000000000000) |
|
566 "/ offset: -2@ -2). |
|
567 "/ |
|
568 |
|
569 " claus: already there in ST/X" |
|
570 |
|
571 "/ CornerCursor := |
|
572 "/ (Cursor |
|
573 "/ extent: 16@16 |
|
574 "/ fromArray: #( |
|
575 "/ 2r0000000000000011 |
|
576 "/ 2r0000000000000011 |
|
577 "/ 2r0000000000000011 |
|
578 "/ 2r0000000000000011 |
|
579 "/ 2r0000000000000011 |
|
580 "/ 2r0000000000000011 |
|
581 "/ 2r0000000000000011 |
|
582 "/ 2r0000000000000011 |
|
583 "/ 2r0000000000000011 |
|
584 "/ 2r0000000000000011 |
|
585 "/ 2r0000000000000011 |
|
586 "/ 2r0000000000000011 |
|
587 "/ 2r0000000000000011 |
|
588 "/ 2r0000000000000011 |
|
589 "/ 2r1111111111111111 |
|
590 "/ 2r1111111111111111) |
|
591 "/ offset: -14@ -14). |
|
592 |
|
593 |
|
594 "original from SMACK:" |
|
595 |
|
596 "/ ReadCursor := |
|
597 "/ (Cursor |
|
598 "/ extent: 16@16 |
|
599 "/ fromArray: #( |
|
600 "/ 2r0000110000000110 |
|
601 "/ 2r0001001000001001 |
|
602 "/ 2r0001001000001001 |
|
603 "/ 2r0010000000010000 |
|
604 "/ 2r0100000000100000 |
|
605 "/ 2r1111101111100000 |
|
606 "/ 2r1000010000100000 |
|
607 "/ 2r1000010000100000 |
|
608 "/ 2r1011010110100000 |
|
609 "/ 2r0111101111000000 |
|
610 "/ 2r0000000000000000 |
|
611 "/ 2r0000000000000000 |
|
612 "/ 2r0000000000000000 |
|
613 "/ 2r0000000000000000 |
|
614 "/ 2r0000000000000000 |
|
615 "/ 2r0000000000000000) |
|
616 "/ offset: 0@0). |
|
617 |
|
618 |
|
619 "claus: added mask" |
|
620 |
|
621 ReadCursor := (Cursor |
|
622 extent: 16@16 |
|
623 sourceArray: #( |
|
624 2r0 |
|
625 2r0000110000000110 |
|
626 2r0001001000001001 |
|
627 2r0001001000001001 |
|
628 2r0010000000010000 |
|
629 2r0100000000100000 |
|
630 2r1111101111100000 |
|
631 2r1000010000100000 |
|
632 2r1000010000100000 |
|
633 2r1011010110100000 |
|
634 2r0111101111000000 |
|
635 2r0000000000000000 |
|
636 2r0000000000000000 |
|
637 2r0000000000000000 |
|
638 2r0000000000000000 |
|
639 2r0000000000000000) |
|
640 maskArray: #( |
|
641 2r0001111000001111 |
|
642 2r0001111000011111 |
|
643 2r0011111000011111 |
|
644 2r0011100000111100 |
|
645 2r0111000000111000 |
|
646 2r1111111111110000 |
|
647 2r1111111111110000 |
|
648 2r1111111111110000 |
|
649 2r1111111111110000 |
|
650 2r1111111111110000 |
|
651 2r1111111111100000 |
|
652 2r0111111111000000 |
|
653 2r0000000000000000 |
|
654 2r0000000000000000 |
|
655 2r0000000000000000 |
|
656 2r0000000000000000) |
|
657 offset: -5 @ -7). |
|
658 |
|
659 "original from SMACK:" |
|
660 |
|
661 "/ WriteCursor := (Cursor |
|
662 "/ extent: 16@16 |
|
663 "/ fromArray: #( |
|
664 "/ 2r0000000000000110 |
|
665 "/ 2r0000000000001111 |
|
666 "/ 2r0000000000010110 |
|
667 "/ 2r0000000000100100 |
|
668 "/ 2r0000000001001000 |
|
669 "/ 2r0000000010010000 |
|
670 "/ 2r0000000100100000 |
|
671 "/ 2r0000001001000011 |
|
672 "/ 2r0000010010000010 |
|
673 "/ 2r0000100100000110 |
|
674 "/ 2r0001001000001000 |
|
675 "/ 2r0010010000001000 |
|
676 "/ 2r0111100001001000 |
|
677 "/ 2r0101000010111000 |
|
678 "/ 2r0110000110000000 |
|
679 "/ 2r1111111100000000) |
|
680 "/ offset: 0@0). |
|
681 |
|
682 "claus: added mask" |
|
683 |
|
684 WriteCursor := (Cursor |
|
685 extent: 16@16 |
|
686 sourceArray: #( |
|
687 2r0000000000000110 |
|
688 2r0000000000001111 |
|
689 2r0000000000010110 |
|
690 2r0000000000100100 |
|
691 2r0000000001001000 |
|
692 2r0000000010010000 |
|
693 2r0000000100100000 |
|
694 2r0000001001000011 |
|
695 2r0000010010000010 |
|
696 2r0000100100000110 |
|
697 2r0001001000001000 |
|
698 2r0010010000001000 |
|
699 2r0111100001001000 |
|
700 2r0101000010111000 |
|
701 2r0110000110000000 |
|
702 2r1111111100000000) |
|
703 maskArray: #( |
|
704 2r0000000000000111 |
|
705 2r0000000000001111 |
|
706 2r0000000000011110 |
|
707 2r0000000000111100 |
|
708 2r0000000001111000 |
|
709 2r0000000011110000 |
|
710 2r0000000111100001 |
|
711 2r0000001111000110 |
|
712 2r0000011110000110 |
|
713 2r0000111100001110 |
|
714 2r0001111000001100 |
|
715 2r0011110001001100 |
|
716 2r0111100011111000 |
|
717 2r0111000110111000 |
|
718 2r0111111110000000 |
|
719 2r1111111100000000) |
|
720 offset: 0@ -15). |
|
721 |
|
722 "original from SMACK:" |
|
723 |
|
724 "/ WaitCursor := |
|
725 "/ (Cursor |
|
726 "/ extent: 16@16 |
|
727 "/ fromArray: #( |
|
728 "/ 2r1111111111111111 |
|
729 "/ 2r1000000000000001 |
|
730 "/ 2r0100000000000010 |
|
731 "/ 2r0010000000000100 |
|
732 "/ 2r0001110000111000 |
|
733 "/ 2r0000111101110000 |
|
734 "/ 2r0000011011100000 |
|
735 "/ 2r0000001111000000 |
|
736 "/ 2r0000001111000000 |
|
737 "/ 2r0000010110100000 |
|
738 "/ 2r0000100010010000 |
|
739 "/ 2r0001000110001000 |
|
740 "/ 2r0010001101000100 |
|
741 "/ 2r0100111111110010 |
|
742 "/ 2r1011111111111101 |
|
743 "/ 2r1111111111111111) |
|
744 "/ offset: -8@ -8). |
|
745 |
|
746 "claus: added mask" |
|
747 |
|
748 WaitCursor := |
|
749 (Cursor |
|
750 extent: 16@16 |
|
751 sourceArray: #( |
|
752 2r1111111111111111 |
|
753 2r1000000000000001 |
|
754 2r0100000000000010 |
|
755 2r0010000000000100 |
|
756 2r0001110000111000 |
|
757 2r0000111101110000 |
|
758 2r0000011011100000 |
|
759 2r0000001111000000 |
|
760 2r0000001111000000 |
|
761 2r0000010110100000 |
|
762 2r0000100010010000 |
|
763 2r0001000110001000 |
|
764 2r0010001101000100 |
|
765 2r0100111111110010 |
|
766 2r1011111111111101 |
|
767 2r1111111111111111) |
|
768 maskArray: #( |
|
769 2r1111111111111111 |
|
770 2r1111111111111111 |
|
771 2r1111111111111111 |
|
772 2r0111111111111110 |
|
773 2r0011111111111100 |
|
774 2r0001111111111000 |
|
775 2r0000111111110000 |
|
776 2r0000011111100000 |
|
777 2r0000011111100000 |
|
778 2r0000111111110000 |
|
779 2r0001111111111000 |
|
780 2r0011111111111100 |
|
781 2r0111111111111110 |
|
782 2r1111111111111111 |
|
783 2r1111111111111111 |
|
784 2r1111111111111111) |
|
785 offset: -8@ -8). |
|
786 |
|
787 BlankCursor := Cursor new. |
|
788 |
|
789 "original from SMACK:" |
|
790 |
|
791 "/ XeqCursor := |
|
792 "/ (Cursor |
|
793 "/ extent: 16@16 |
|
794 "/ fromArray: #( |
|
795 "/ 2r1000000000010000 |
|
796 "/ 2r1100000000010000 |
|
797 "/ 2r1110000000111000 |
|
798 "/ 2r1111000111111111 |
|
799 "/ 2r1111100011000110 |
|
800 "/ 2r1111110001000100 |
|
801 "/ 2r1111111001111100 |
|
802 "/ 2r1111000001101100 |
|
803 "/ 2r1101100011000110 |
|
804 "/ 2r1001100010000010 |
|
805 "/ 2r0000110000000000 |
|
806 "/ 2r0000110000000000 |
|
807 "/ 2r0000011000000000 |
|
808 "/ 2r0000011000000000 |
|
809 "/ 2r0000001100000000 |
|
810 "/ 2r0000001100000000) |
|
811 "/ offset: 0@0). |
|
812 |
|
813 "claus: added mask" |
|
814 |
|
815 XeqCursor := |
|
816 (Cursor |
|
817 extent: 16@16 |
|
818 sourceArray: #( |
|
819 2r1000000000010000 |
|
820 2r1100000000010000 |
|
821 2r1110000000111000 |
|
822 2r1111000111111111 |
|
823 2r1111100011000110 |
|
824 2r1111110001000100 |
|
825 2r1111111001111100 |
|
826 2r1111000001101100 |
|
827 2r1101100011000110 |
|
828 2r1001100010000010 |
|
829 2r0000110000000000 |
|
830 2r0000110000000000 |
|
831 2r0000011000000000 |
|
832 2r0000011000000000 |
|
833 2r0000001100000000 |
|
834 2r0000001100000000) |
|
835 maskArray: #( |
|
836 2r1100000000111000 |
|
837 2r1110000000111000 |
|
838 2r1111000111111111 |
|
839 2r1111100111111111 |
|
840 2r1111110011111111 |
|
841 2r1111111001111110 |
|
842 2r1111111101111100 |
|
843 2r1111100001111110 |
|
844 2r1101110011100111 |
|
845 2r1001110011000010 |
|
846 2r0000111000000000 |
|
847 2r0000111000000000 |
|
848 2r0000011100000000 |
|
849 2r0000011100000000 |
|
850 2r0000001110000000 |
|
851 2r0000001110000000) |
|
852 offset: 0@0). |
|
853 |
|
854 "claus: already there in ST/X" |
|
855 |
|
856 "/ SquareCursor := |
|
857 "/ (Cursor |
|
858 "/ extent: 16@16 |
|
859 "/ fromArray: #( |
|
860 "/ 2r0000000000000000 |
|
861 "/ 2r0000000000000000 |
|
862 "/ 2r0000000000000000 |
|
863 "/ 2r0000000000000000 |
|
864 "/ 2r0000000000000000 |
|
865 "/ 2r0000001111000000 |
|
866 "/ 2r0000001111000000 |
|
867 "/ 2r0000001111000000 |
|
868 "/ 2r0000001111000000 |
|
869 "/ 2r0000000000000000 |
|
870 "/ 2r0000000000000000 |
|
871 "/ 2r0000000000000000 |
|
872 "/ 2r0000000000000000 |
|
873 "/ 2r0000000000000000 |
|
874 "/ 2r0000000000000000 |
|
875 "/ 2r0000000000000000) |
|
876 "/ offset: -8@ -8). |
|
877 |
|
878 |
|
879 "original from SMACK:" |
|
880 |
|
881 "/ NormalCursor := |
|
882 "/ (Cursor |
|
883 "/ extent: 16@16 |
|
884 "/ fromArray: #( |
|
885 "/ 2r1000000000000000 |
|
886 "/ 2r1100000000000000 |
|
887 "/ 2r1110000000000000 |
|
888 "/ 2r1111000000000000 |
|
889 "/ 2r1111100000000000 |
|
890 "/ 2r1111110000000000 |
|
891 "/ 2r1111111000000000 |
|
892 "/ 2r1111100000000000 |
|
893 "/ 2r1111100000000000 |
|
894 "/ 2r1001100000000000 |
|
895 "/ 2r0000110000000000 |
|
896 "/ 2r0000110000000000 |
|
897 "/ 2r0000011000000000 |
|
898 "/ 2r0000011000000000 |
|
899 "/ 2r0000001100000000 |
|
900 "/ 2r0000001100000000) |
|
901 "/ offset: 0@0). |
|
902 |
|
903 "claus: added mask" |
|
904 |
|
905 NormalCursor := |
|
906 (Cursor |
|
907 extent: 16@16 |
|
908 sourceArray: #( |
|
909 2r1000000000000000 |
|
910 2r1100000000000000 |
|
911 2r1110000000000000 |
|
912 2r1111000000000000 |
|
913 2r1111100000000000 |
|
914 2r1111110000000000 |
|
915 2r1111111000000000 |
|
916 2r1111100000000000 |
|
917 2r1111100000000000 |
|
918 2r1001100000000000 |
|
919 2r0000110000000000 |
|
920 2r0000110000000000 |
|
921 2r0000011000000000 |
|
922 2r0000011000000000 |
|
923 2r0000001100000000 |
|
924 2r0000001100000000) |
|
925 maskArray: #( |
|
926 2r1100000000000000 |
|
927 2r1110000000000000 |
|
928 2r1111000000000000 |
|
929 2r1111100000000000 |
|
930 2r1111110000000000 |
|
931 2r1111111000000000 |
|
932 2r1111111100000000 |
|
933 2r1111110000000000 |
|
934 2r1111110000000000 |
|
935 2r1001110000000000 |
|
936 2r0000111000000000 |
|
937 2r0000111000000000 |
|
938 2r0000011100000000 |
|
939 2r0000011100000000 |
|
940 2r0000001110000000 |
|
941 2r0000001110000000) |
|
942 offset: 0@0). |
|
943 |
|
944 "original from SMACK:" |
|
945 |
|
946 "/ CrossHairCursor := |
|
947 "/ (Cursor |
|
948 "/ extent: 16@16 |
|
949 "/ fromArray: #( |
|
950 "/ 2r0000000100000000 |
|
951 "/ 2r0000000100000000 |
|
952 "/ 2r0000000100000000 |
|
953 "/ 2r0000000100000000 |
|
954 "/ 2r0000000100000000 |
|
955 "/ 2r0000000100000000 |
|
956 "/ 2r0000000100000000 |
|
957 "/ 2r1111111111111110 |
|
958 "/ 2r0000000100000000 |
|
959 "/ 2r0000000100000000 |
|
960 "/ 2r0000000100000000 |
|
961 "/ 2r0000000100000000 |
|
962 "/ 2r0000000100000000 |
|
963 "/ 2r0000000100000000 |
|
964 "/ 2r0000000100000000 |
|
965 "/ 2r0) |
|
966 "/ offset: -7@ -7). |
|
967 |
|
968 "claus: added mask" |
|
969 |
|
970 "no: already there in ST/X" |
|
971 |
|
972 "/ CrossHairCursor := |
|
973 "/ (Cursor |
|
974 "/ extent: 16@16 |
|
975 "/ sourceArray: #( |
|
976 "/ 2r0000000100000000 |
|
977 "/ 2r0000000100000000 |
|
978 "/ 2r0000000100000000 |
|
979 "/ 2r0000000100000000 |
|
980 "/ 2r0000000100000000 |
|
981 "/ 2r0000000100000000 |
|
982 "/ 2r0000000100000000 |
|
983 "/ 2r1111111111111110 |
|
984 "/ 2r0000000100000000 |
|
985 "/ 2r0000000100000000 |
|
986 "/ 2r0000000100000000 |
|
987 "/ 2r0000000100000000 |
|
988 "/ 2r0000000100000000 |
|
989 "/ 2r0000000100000000 |
|
990 "/ 2r0000000100000000 |
|
991 "/ 2r0) |
|
992 "/ maskArray: #( |
|
993 "/ 2r0000000110000000 |
|
994 "/ 2r0000000110000000 |
|
995 "/ 2r0000000110000000 |
|
996 "/ 2r0000000110000000 |
|
997 "/ 2r0000000110000000 |
|
998 "/ 2r0000000110000000 |
|
999 "/ 2r0000000110000000 |
|
1000 "/ 2r1111111111111110 |
|
1001 "/ 2r1111111111111110 |
|
1002 "/ 2r0000000110000000 |
|
1003 "/ 2r0000000110000000 |
|
1004 "/ 2r0000000110000000 |
|
1005 "/ 2r0000000110000000 |
|
1006 "/ 2r0000000110000000 |
|
1007 "/ 2r0000000110000000 |
|
1008 "/ 2r0) |
|
1009 "/ offset: -7@ -7). |
|
1010 |
|
1011 MarkerCursor := |
|
1012 Cursor |
|
1013 extent: 16@16 |
|
1014 fromArray: #( |
|
1015 2r0000000000000000 |
|
1016 2r0000000000000000 |
|
1017 2r0000000000000000 |
|
1018 2r0000001000000000 |
|
1019 2r0000001110000000 |
|
1020 2r0000001111100000 |
|
1021 2r1111111111111000 |
|
1022 2r1111111111111110 |
|
1023 2r1111111111111000 |
|
1024 2r0000001111100000 |
|
1025 2r0000001110000000 |
|
1026 2r0000001000000000 |
|
1027 2r0000000000000000 |
|
1028 2r0000000000000000 |
|
1029 2r0000000000000000 |
|
1030 2r0000000000000000) |
|
1031 offset: -7@ -7. |
|
1032 |
|
1033 UpCursor := |
|
1034 Cursor |
|
1035 extent: 16@16 |
|
1036 fromArray: #( |
|
1037 2r1000000000000000 |
|
1038 2r1100000000000000 |
|
1039 2r1110000000000000 |
|
1040 2r1111000000000000 |
|
1041 2r1111100000000000 |
|
1042 2r1111110000000000 |
|
1043 2r1100000000000000 |
|
1044 2r1100000000000000 |
|
1045 2r1100000000000000 |
|
1046 2r1100000000000000 |
|
1047 2r1100000000000000 |
|
1048 2r1100000000000000 |
|
1049 2r1100000000000000 |
|
1050 2r1100000000000000 |
|
1051 2r1100000000000000 |
|
1052 2r1100000000000000) |
|
1053 offset: 0@ -7. |
|
1054 |
|
1055 DownCursor := |
|
1056 Cursor |
|
1057 extent: 16@16 |
|
1058 fromArray: #( |
|
1059 2r0000110000000000 |
|
1060 2r0000110000000000 |
|
1061 2r0000110000000000 |
|
1062 2r0000110000000000 |
|
1063 2r0000110000000000 |
|
1064 2r0000110000000000 |
|
1065 2r0000110000000000 |
|
1066 2r0000110000000000 |
|
1067 2r0000110000000000 |
|
1068 2r0000110000000000 |
|
1069 2r1111110000000000 |
|
1070 2r0111110000000000 |
|
1071 2r0011110000000000 |
|
1072 2r0001110000000000 |
|
1073 2r0000110000000000 |
|
1074 2r0000010000000000) |
|
1075 offset: -5@ -7. |
|
1076 |
|
1077 LeftCursor := |
|
1078 Cursor |
|
1079 extent: 16@16 |
|
1080 fromArray: #( |
|
1081 2r1111111111111111 |
|
1082 2r0111111111111111 |
|
1083 2r0011110000000000 |
|
1084 2r0001110000000000 |
|
1085 2r0000110000000000 |
|
1086 2r0000010000000000 |
|
1087 2r0000000000000000 |
|
1088 2r0000000000000000 |
|
1089 2r0000000000000000 |
|
1090 2r0000000000000000 |
|
1091 2r0000000000000000 |
|
1092 2r0000000000000000 |
|
1093 2r0000000000000000 |
|
1094 2r0000000000000000 |
|
1095 2r0000000000000000 |
|
1096 2r0000000000000000) |
|
1097 offset: -7@0. |
|
1098 |
|
1099 RightCursor := |
|
1100 Cursor |
|
1101 extent: 16@16 |
|
1102 fromArray: #( |
|
1103 2r0000000000100000 |
|
1104 2r0000000000110000 |
|
1105 2r0000000000111000 |
|
1106 2r0000000000111100 |
|
1107 2r1111111111111110 |
|
1108 2r1111111111111111 |
|
1109 2r0000000000000000 |
|
1110 2r0000000000000000 |
|
1111 2r0000000000000000 |
|
1112 2r0000000000000000 |
|
1113 2r0000000000000000 |
|
1114 2r0000000000000000 |
|
1115 2r0000000000000000 |
|
1116 2r0000000000000000 |
|
1117 2r0000000000000000 |
|
1118 2r0000000000000000) |
|
1119 offset: -7@ -5. |
|
1120 XMarkerCursor := |
|
1121 Cursor |
|
1122 extent: 16@16 |
|
1123 fromArray: #( |
|
1124 2r0 |
|
1125 2r0000000100000000 |
|
1126 2r0000000100000000 |
|
1127 2r0000001110000000 |
|
1128 2r0000001110000000 |
|
1129 2r0000011111000000 |
|
1130 2r0000011111000000 |
|
1131 2r0000111111100000 |
|
1132 2r0000111111100000 |
|
1133 2r0001111111110000 |
|
1134 2r0000001110000000 |
|
1135 2r0000001110000000 |
|
1136 2r0000001110000000 |
|
1137 2r0000001110000000 |
|
1138 2r0000001110000000 |
|
1139 2r0000001110000000) |
|
1140 offset: -7@ -7. |
|
1141 |
|
1142 "original from SMACK:" |
|
1143 |
|
1144 "/ FourWayCursor := |
|
1145 "/ Cursor |
|
1146 "/ extent: 16@16 |
|
1147 "/ fromArray: #( |
|
1148 "/ 2r0000000100000000 |
|
1149 "/ 2r0000001110000000 |
|
1150 "/ 2r0000011111000000 |
|
1151 "/ 2r0000111111100000 |
|
1152 "/ 2r0001001110010000 |
|
1153 "/ 2r0011001110011000 |
|
1154 "/ 2r0111111111111100 |
|
1155 "/ 2r1111111111111110 |
|
1156 "/ 2r0111111111111100 |
|
1157 "/ 2r0011001110011000 |
|
1158 "/ 2r0001001110010000 |
|
1159 "/ 2r0000111111100000 |
|
1160 "/ 2r0000011111000000 |
|
1161 "/ 2r0000001110000000 |
|
1162 "/ 2r0000000100000000 |
|
1163 "/ 2r0000000000000000) |
|
1164 "/ offset: -7@ -7. |
|
1165 "/ |
|
1166 |
|
1167 "claus: added mask" |
|
1168 |
|
1169 FourWayCursor := |
|
1170 Cursor |
|
1171 extent: 16@16 |
|
1172 sourceArray: #( |
|
1173 2r0000000100000000 |
|
1174 2r0000001110000000 |
|
1175 2r0000011111000000 |
|
1176 2r0000111111100000 |
|
1177 2r0001001110010000 |
|
1178 2r0011001110011000 |
|
1179 2r0111111111111100 |
|
1180 2r1111111111111110 |
|
1181 2r0111111111111100 |
|
1182 2r0011001110011000 |
|
1183 2r0001001110010000 |
|
1184 2r0000111111100000 |
|
1185 2r0000011111000000 |
|
1186 2r0000001110000000 |
|
1187 2r0000000100000000 |
|
1188 2r0000000000000000) |
|
1189 maskArray: #( |
|
1190 2r0000001110000000 |
|
1191 2r0000011111000000 |
|
1192 2r0000111111100000 |
|
1193 2r0001111111110000 |
|
1194 2r0010111111101000 |
|
1195 2r0111111111111100 |
|
1196 2r1111111111111110 |
|
1197 2r1111111111111110 |
|
1198 2r1111111111111110 |
|
1199 2r0111111111111100 |
|
1200 2r0010111111101000 |
|
1201 2r0001111111110000 |
|
1202 2r0000111111100000 |
|
1203 2r0000011111000000 |
|
1204 2r0000001110000000 |
|
1205 2r0000000000000000) |
|
1206 offset: -7@ -7. |
|
1207 |
|
1208 ThumbsUpCursor := (Cursor |
|
1209 extent: 16@16 |
|
1210 sourceArray: #( |
|
1211 2r0000000000100000 |
|
1212 2r0000000001010000 |
|
1213 2r0000000010010000 |
|
1214 2r0000000011110000 |
|
1215 2r0000000100010000 |
|
1216 2r0000000100010000 |
|
1217 2r0001111100011000 |
|
1218 2r0010000100000110 |
|
1219 2r0100000000000000 |
|
1220 2r0111111000000000 |
|
1221 2r0100000000000000 |
|
1222 2r0111111000000000 |
|
1223 2r0100000000000000 |
|
1224 2r0011111000001110 |
|
1225 2r0001000000010000 |
|
1226 2r0001111111100000) |
|
1227 maskArray: #( |
|
1228 2r0000000000100000 |
|
1229 2r0000000001110000 |
|
1230 2r0000000011110000 |
|
1231 2r0000000011110000 |
|
1232 2r0000000111110000 |
|
1233 2r0000000111110000 |
|
1234 2r0001111111111000 |
|
1235 2r0011111111111110 |
|
1236 2r0111111111111110 |
|
1237 2r0111111111111110 |
|
1238 2r0111111111111110 |
|
1239 2r0111111111111110 |
|
1240 2r0111111111111110 |
|
1241 2r0011111111111110 |
|
1242 2r0001111111110000 |
|
1243 2r0001111111100000) |
|
1244 offset: -8@ -8). |
|
1245 |
|
1246 CaretCursor := (Cursor |
|
1247 extent: 16@16 |
|
1248 fromArray: #( |
|
1249 2r0000000110000000 |
|
1250 2r0000000110000000 |
|
1251 2r0000001111000000 |
|
1252 2r0000011111100000 |
|
1253 2r0000011001100000 |
|
1254 2r0000000000000000 |
|
1255 2r0000000000000000 |
|
1256 2r0000000000000000 |
|
1257 2r0000000000000000 |
|
1258 2r0000000000000000 |
|
1259 2r0000000000000000 |
|
1260 2r0000000000000000 |
|
1261 2r0000000000000000 |
|
1262 2r0000000000000000 |
|
1263 2r0000000000000000 |
|
1264 2r0000000000000000) |
|
1265 offset: -8@0). |
|
1266 |
|
1267 ThumbsDownCursor := (Cursor |
|
1268 extent: 16@16 |
|
1269 sourceArray: #( |
|
1270 2r0001111111100000 |
|
1271 2r0001000000010000 |
|
1272 2r0011111000001110 |
|
1273 2r0100000000000000 |
|
1274 2r0111111000000000 |
|
1275 2r0100000000000000 |
|
1276 2r0111111000000000 |
|
1277 2r0100000000000000 |
|
1278 2r0010000100000110 |
|
1279 2r0001111100011000 |
|
1280 2r0000000100010000 |
|
1281 2r0000000100010000 |
|
1282 2r0000000011110000 |
|
1283 2r0000000010010000 |
|
1284 2r0000000001010000 |
|
1285 2r0000000000100000) |
|
1286 |
|
1287 maskArray: #( |
|
1288 2r0001111111100000 |
|
1289 2r0001111111110000 |
|
1290 2r0011111111111110 |
|
1291 2r0111111111111110 |
|
1292 2r0111111111111110 |
|
1293 2r0111111111111110 |
|
1294 2r0111111111111110 |
|
1295 2r0111111111111110 |
|
1296 2r0011111111111110 |
|
1297 2r0001111111111000 |
|
1298 2r0000000111110000 |
|
1299 2r0000000111110000 |
|
1300 2r0000000011110000 |
|
1301 2r0000000011110000 |
|
1302 2r0000000001110000 |
|
1303 2r0000000000100000) |
|
1304 offset: -8@ -8). |
|
1305 |
|
1306 StopCursor := (Cursor |
|
1307 extent: 16@16 |
|
1308 sourceArray: #( |
|
1309 2r0000000000000000 |
|
1310 2r0000011111000000 |
|
1311 2r0001111111110000 |
|
1312 2r0011111111111000 |
|
1313 2r0011111111111000 |
|
1314 2r0111111111111100 |
|
1315 2r0111111111111100 |
|
1316 2r0100000000000100 |
|
1317 2r0100000000000100 |
|
1318 2r0111111111111100 |
|
1319 2r0111111111111100 |
|
1320 2r0011111111111000 |
|
1321 2r0011111111111000 |
|
1322 2r0001111111110000 |
|
1323 2r0000011111000000 |
|
1324 2r0000000000000000 |
|
1325 ) |
|
1326 maskArray: #( |
|
1327 2r0000011111000000 |
|
1328 2r0001111111110000 |
|
1329 2r0011111111111000 |
|
1330 2r0111111111111100 |
|
1331 2r0111111111111100 |
|
1332 2r1111111111111110 |
|
1333 2r1111111111111110 |
|
1334 2r1111111111111110 |
|
1335 2r1111111111111110 |
|
1336 2r1111111111111110 |
|
1337 2r1111111111111110 |
|
1338 2r0111111111111100 |
|
1339 2r0111111111111100 |
|
1340 2r0011111111111000 |
|
1341 2r0001111111110000 |
|
1342 2r0000011111000000 |
|
1343 ) |
|
1344 offset: -8 @ -8). |
|
1345 |
|
1346 EyeCursor := (Cursor |
|
1347 extent: 16@16 |
|
1348 sourceArray: #( |
|
1349 2r0000000000000000 |
|
1350 2r0000000000000000 |
|
1351 2r0000000000000000 |
|
1352 2r0000011111000000 |
|
1353 2r0001111111110000 |
|
1354 2r0011000000011000 |
|
1355 2r0110001110001100 |
|
1356 2r1100011111000110 |
|
1357 2r1100011111000110 |
|
1358 2r0110001110001100 |
|
1359 2r0011000000011000 |
|
1360 2r0001111111110000 |
|
1361 2r0000011111000000 |
|
1362 2r0000000000000000 |
|
1363 2r0000000000000000 |
|
1364 2r0000000000000000 |
|
1365 ) |
|
1366 maskArray: #( |
|
1367 2r0000000000000000 |
|
1368 2r0000000000000000 |
|
1369 2r0000000000000000 |
|
1370 2r0000011111000000 |
|
1371 2r0001111111110000 |
|
1372 2r0011111111111000 |
|
1373 2r0111111111111100 |
|
1374 2r1111111111111110 |
|
1375 2r1111111111111110 |
|
1376 2r0111111111111100 |
|
1377 2r0011111111111000 |
|
1378 2r0001111111110000 |
|
1379 2r0000011111000000 |
|
1380 2r0000000000000000 |
|
1381 2r0000000000000000 |
|
1382 2r0000000000000000 |
|
1383 ) |
|
1384 offset: -8 @ -8). |
|
1385 |
|
1386 device := Display. |
|
1387 |
|
1388 FourWayCursor := FourWayCursor on:device. |
|
1389 LeftCursor := LeftCursor on:device. |
|
1390 RightCursor := RightCursor on:device. |
|
1391 XMarkerCursor := XMarkerCursor on:device. |
|
1392 |
|
1393 "/ OriginCursor := OriginCursor on:device. |
|
1394 "/ CornerCursor := CornerCursor on:device. |
|
1395 |
|
1396 ReadCursor := ReadCursor on:device. |
|
1397 WriteCursor := WriteCursor on:device. |
|
1398 WaitCursor := WaitCursor on:device. |
|
1399 XeqCursor := XeqCursor on:device. |
|
1400 |
|
1401 "/ SquareCursor := SquareCursor on:device. |
|
1402 |
|
1403 NormalCursor := NormalCursor on:device. |
|
1404 |
|
1405 "/ CrossHairCursor := CrossHairCursor on:device. |
|
1406 |
|
1407 MarkerCursor := MarkerCursor on:device. |
|
1408 UpCursor := UpCursor on:device. |
|
1409 DownCursor := DownCursor on:device. |
|
1410 LeftCursor := LeftCursor on:device. |
|
1411 RightCursor := RightCursor on:device. |
|
1412 XMarkerCursor := XMarkerCursor on:device. |
|
1413 CaretCursor := CaretCursor on:device. |
|
1414 |
|
1415 ThumbsUpCursor := ThumbsUpCursor on:device. |
|
1416 ThumbsDownCursor := ThumbsDownCursor on:device. |
|
1417 StopCursor := StopCursor on:device. |
|
1418 EyeCursor := EyeCursor on:device. |
|
1419 |
|
1420 "Cursor initializeNewCursors" |
|
1421 |
|
1422 "Modified: 29.5.1996 / 15:03:44 / cg" |
|
1423 ! ! |
|
1424 |
|
1425 !Cursor class methodsFor:'cleanup'! |
1423 !Cursor class methodsFor:'cleanup'! |
1426 |
1424 |
1427 releaseResourcesOnDevice:aDevice |
1425 releaseResourcesOnDevice:aDevice |
1428 "this is sent when a display connection is closed, |
1426 "this is sent when a display connection is closed, |
1429 to release all cached Cursors from that device" |
1427 to release all cached Cursors from that device" |