406 isWindows := OperatingSystem isMSWINDOWSlike. |
406 isWindows := OperatingSystem isMSWINDOWSlike. |
407 ] ifFalse:[ |
407 ] ifFalse:[ |
408 isWindows := device platformName = 'WIN32'. |
408 isWindows := device platformName = 'WIN32'. |
409 ]. |
409 ]. |
410 |
410 |
411 HandCursor := |
411 HandCursor := |
412 (Cursor |
412 (Cursor |
413 extent: 16@16 |
413 extent: 16@16 |
414 sourceArray: #( |
414 sourceArray: #( |
415 2r0000000000000011 |
415 2r0000000000000011 |
416 2r0000000000001111 |
416 2r0000000000001111 |
417 2r0000000000111100 |
417 2r0000000000111100 |
418 2r0000000001111000 |
418 2r0000000001111000 |
419 2r0000000011110000 |
419 2r0000000011110000 |
420 2r0000000111111000 |
420 2r0000000111111000 |
421 2r0000001111111100 |
421 2r0000001111111100 |
422 2r0000001111111000 |
422 2r0000001111111000 |
423 2r0001111111111100 |
423 2r0001111111111100 |
424 2r0011011111111100 |
424 2r0011011111111100 |
425 2r0110000111111000 |
425 2r0110000111111000 |
426 2r0110000111110000 |
426 2r0110000111110000 |
427 2r0011001010000000 |
427 2r0011001010000000 |
428 2r0001100010000000 |
428 2r0001100010000000 |
429 2r0000110100000000 |
429 2r0000110100000000 |
430 2r0000011000000000) |
430 2r0000011000000000) |
431 maskArray: #( |
431 maskArray: #( |
432 2r0000000000000011 |
432 2r0000000000000011 |
433 2r0000000000001111 |
433 2r0000000000001111 |
434 2r0000000000111100 |
434 2r0000000000111100 |
435 2r0000000001111000 |
435 2r0000000001111000 |
436 2r0000000011110000 |
436 2r0000000011110000 |
437 2r0000000111111000 |
437 2r0000000111111000 |
438 2r0000001111111100 |
438 2r0000001111111100 |
439 2r0000001111111000 |
439 2r0000001111111000 |
440 2r0001111111111100 |
440 2r0001111111111100 |
441 2r0011011111111100 |
441 2r0011011111111100 |
442 2r0110000111111000 |
442 2r0110000111111000 |
443 2r0110000111110000 |
443 2r0110000111110000 |
444 2r0011001010000000 |
444 2r0011001010000000 |
445 2r0001100010000000 |
445 2r0001100010000000 |
446 2r0000110100000000 |
446 2r0000110100000000 |
447 2r0000011000000000) |
447 2r0000011000000000) |
448 offset: 0@ -15). |
448 offset: 0@ -15). |
449 HandCursor setShape:#upRightHand. |
449 HandCursor setShape:#upRightHand. |
450 |
450 |
451 FolderCursor := |
451 FolderCursor := |
452 (Cursor |
452 (Cursor |
453 extent: 16@16 |
453 extent: 16@16 |
454 sourceArray: #( |
454 sourceArray: #( |
455 2r0000000000000000 |
455 2r0000000000000000 |
456 2r0011111000000000 |
456 2r0011111000000000 |
457 2r0100000100000000 |
457 2r0100000100000000 |
458 2r1111111111111110 |
458 2r1111111111111110 |
459 2r1000000000000001 |
459 2r1000000000000001 |
460 2r1000000000000001 |
460 2r1000000000000001 |
461 2r1000000000000001 |
461 2r1000000000000001 |
462 2r1000000000000001 |
462 2r1000000000000001 |
463 2r1000000000000001 |
463 2r1000000000000001 |
464 2r1000000000000001 |
464 2r1000000000000001 |
465 2r1000000000000001 |
465 2r1000000000000001 |
466 2r1000000000000001 |
466 2r1000000000000001 |
467 2r1000000000000001 |
467 2r1000000000000001 |
468 2r1010101010101011 |
468 2r1010101010101011 |
469 2r0111111111111111 |
469 2r0111111111111111 |
470 2r0000000000000000) |
470 2r0000000000000000) |
471 maskArray: #( |
471 maskArray: #( |
472 2r0000000000000000 |
472 2r0000000000000000 |
473 2r0011111000000000 |
473 2r0011111000000000 |
474 2r0111111100000000 |
474 2r0111111100000000 |
475 2r1111111111111110 |
475 2r1111111111111110 |
476 2r1111111111111111 |
476 2r1111111111111111 |
477 2r1111111111111111 |
477 2r1111111111111111 |
478 2r1111111111111111 |
478 2r1111111111111111 |
479 2r1111111111111111 |
479 2r1111111111111111 |
480 2r1111111111111111 |
480 2r1111111111111111 |
481 2r1111111111111111 |
481 2r1111111111111111 |
482 2r1111111111111111 |
482 2r1111111111111111 |
483 2r1111111111111111 |
483 2r1111111111111111 |
484 2r1111111111111111 |
484 2r1111111111111111 |
485 2r1111111111111111 |
485 2r1111111111111111 |
486 2r0111111111111111 |
486 2r0111111111111111 |
487 2r0000000000000000) |
487 2r0000000000000000) |
488 offset: 0@ -3). |
488 offset: 0@ -3). |
489 |
489 |
490 DocumentCursor := |
490 DocumentCursor := |
491 (Cursor |
491 (Cursor |
492 extent: 16@16 |
492 extent: 16@16 |
493 sourceArray: #( |
493 sourceArray: #( |
494 2r0000000000000000 |
494 2r0000000000000000 |
495 2r0011111111100000 |
495 2r0011111111100000 |
496 2r0010000000110000 |
496 2r0010000000110000 |
497 2r0010000000101000 |
497 2r0010000000101000 |
498 2r0010000000111100 |
498 2r0010000000111100 |
499 2r0010000000000100 |
499 2r0010000000000100 |
500 2r0010000000000100 |
500 2r0010000000000100 |
501 2r0010000000000100 |
501 2r0010000000000100 |
502 2r0010000000000100 |
502 2r0010000000000100 |
503 2r0010000000000100 |
503 2r0010000000000100 |
504 2r0010000000000100 |
504 2r0010000000000100 |
505 2r0010000000000100 |
505 2r0010000000000100 |
506 2r0010000000000100 |
506 2r0010000000000100 |
507 2r0010000000000100 |
507 2r0010000000000100 |
508 2r0011111111111100 |
508 2r0011111111111100 |
509 2r0000000000000000) |
509 2r0000000000000000) |
510 maskArray: #( |
510 maskArray: #( |
511 2r0000000000000000 |
511 2r0000000000000000 |
512 2r0011111111100000 |
512 2r0011111111100000 |
513 2r0011111111110000 |
513 2r0011111111110000 |
514 2r0011111111111000 |
514 2r0011111111111000 |
515 2r0011111111111100 |
515 2r0011111111111100 |
516 2r0011111111111100 |
516 2r0011111111111100 |
517 2r0011111111111100 |
517 2r0011111111111100 |
518 2r0011111111111100 |
518 2r0011111111111100 |
519 2r0011111111111100 |
519 2r0011111111111100 |
520 2r0011111111111100 |
520 2r0011111111111100 |
521 2r0011111111111100 |
521 2r0011111111111100 |
522 2r0011111111111100 |
522 2r0011111111111100 |
523 2r0011111111111100 |
523 2r0011111111111100 |
524 2r0011111111111100 |
524 2r0011111111111100 |
525 2r0011111111111100 |
525 2r0011111111111100 |
526 2r0000000000000000) |
526 2r0000000000000000) |
527 offset: -2@ -1). |
527 offset: -2@ -1). |
528 |
528 |
529 OriginCursor := |
529 OriginCursor := |
530 (Cursor |
530 (Cursor |
531 extent: 16@16 |
531 extent: 16@16 |
532 sourceArray: #( |
532 sourceArray: #( |
533 2r0000000000000000 |
533 2r0000000000000000 |
534 2r0111111111111111 |
534 2r0111111111111111 |
535 2r0111111111111111 |
535 2r0111111111111111 |
536 2r0110000000000000 |
536 2r0110000000000000 |
537 2r0110000000000000 |
537 2r0110000000000000 |
538 2r0110000000000000 |
538 2r0110000000000000 |
539 2r0110000000000000 |
539 2r0110000000000000 |
540 2r0110000000000000 |
540 2r0110000000000000 |
541 2r0110000000000000 |
541 2r0110000000000000 |
542 2r0110000000000000 |
542 2r0110000000000000 |
543 2r0110000000000000 |
543 2r0110000000000000 |
544 2r0110000000000000 |
544 2r0110000000000000 |
545 2r0110000000000000 |
545 2r0110000000000000 |
546 2r0110000000000000 |
546 2r0110000000000000 |
547 2r0110000000000000 |
547 2r0110000000000000 |
548 2r0110000000000000) |
548 2r0110000000000000) |
549 maskArray: #( |
549 maskArray: #( |
550 2r1111111111111111 |
550 2r1111111111111111 |
551 2r1111111111111111 |
551 2r1111111111111111 |
552 2r1111111111111111 |
552 2r1111111111111111 |
553 2r1111111111111111 |
553 2r1111111111111111 |
554 2r1111000000000000 |
554 2r1111000000000000 |
555 2r1111000000000000 |
555 2r1111000000000000 |
556 2r1111000000000000 |
556 2r1111000000000000 |
557 2r1111000000000000 |
557 2r1111000000000000 |
558 2r1111000000000000 |
558 2r1111000000000000 |
559 2r1111000000000000 |
559 2r1111000000000000 |
560 2r1111000000000000 |
560 2r1111000000000000 |
561 2r1111000000000000 |
561 2r1111000000000000 |
562 2r1111000000000000 |
562 2r1111000000000000 |
563 2r1111000000000000 |
563 2r1111000000000000 |
564 2r1111000000000000 |
564 2r1111000000000000 |
565 2r1111000000000000) |
565 2r1111000000000000) |
566 offset: -1@ -1). |
566 offset: -1@ -1). |
567 OriginCursor setShape:#origin. |
567 OriginCursor setShape:#origin. |
568 |
568 |
569 TopRightCornerCursor := |
569 TopRightCornerCursor := |
570 (Cursor |
570 (Cursor |
571 extent: 16@16 |
571 extent: 16@16 |
572 sourceArray: #( |
572 sourceArray: #( |
573 2r0000000000000000 |
573 2r0000000000000000 |
574 2r0111111111111111 |
574 2r0111111111111111 |
575 2r0111111111111111 |
575 2r0111111111111111 |
576 2r0000000000000110 |
576 2r0000000000000110 |
577 2r0000000000000110 |
577 2r0000000000000110 |
578 2r0000000000000110 |
578 2r0000000000000110 |
579 2r0000000000000110 |
579 2r0000000000000110 |
580 2r0000000000000110 |
580 2r0000000000000110 |
581 2r0000000000000110 |
581 2r0000000000000110 |
582 2r0000000000000110 |
582 2r0000000000000110 |
583 2r0000000000000110 |
583 2r0000000000000110 |
584 2r0000000000000110 |
584 2r0000000000000110 |
585 2r0000000000000110 |
585 2r0000000000000110 |
586 2r0000000000000110 |
586 2r0000000000000110 |
587 2r0000000000000110 |
587 2r0000000000000110 |
588 2r0000000000000110) |
588 2r0000000000000110) |
589 maskArray: #( |
589 maskArray: #( |
590 2r1111111111111111 |
590 2r1111111111111111 |
591 2r1111111111111111 |
591 2r1111111111111111 |
592 2r1111111111111111 |
592 2r1111111111111111 |
593 2r1111111111111111 |
593 2r1111111111111111 |
594 2r0000000000001111 |
594 2r0000000000001111 |
595 2r0000000000001111 |
595 2r0000000000001111 |
596 2r0000000000001111 |
596 2r0000000000001111 |
597 2r0000000000001111 |
597 2r0000000000001111 |
598 2r0000000000001111 |
598 2r0000000000001111 |
599 2r0000000000001111 |
599 2r0000000000001111 |
600 2r0000000000001111 |
600 2r0000000000001111 |
601 2r0000000000001111 |
601 2r0000000000001111 |
602 2r0000000000001111 |
602 2r0000000000001111 |
603 2r0000000000001111 |
603 2r0000000000001111 |
604 2r0000000000001111 |
604 2r0000000000001111 |
605 2r0000000000001111) |
605 2r0000000000001111) |
606 offset: -1@ -1). |
606 offset: -1@ -1). |
607 TopRightCornerCursor setShape:#topRightCorner. |
607 TopRightCornerCursor setShape:#topRightCorner. |
608 |
608 |
609 CornerCursor := |
609 CornerCursor := |
610 (Cursor |
610 (Cursor |
611 extent: 16@16 |
611 extent: 16@16 |
612 sourceArray: #( |
612 sourceArray: #( |
613 2r0000000000000110 |
613 2r0000000000000110 |
614 2r0000000000000110 |
614 2r0000000000000110 |
615 2r0000000000000110 |
615 2r0000000000000110 |
616 2r0000000000000110 |
616 2r0000000000000110 |
617 2r0000000000000110 |
617 2r0000000000000110 |
618 2r0000000000000110 |
618 2r0000000000000110 |
619 2r0000000000000110 |
619 2r0000000000000110 |
620 2r0000000000000110 |
620 2r0000000000000110 |
621 2r0000000000000110 |
621 2r0000000000000110 |
622 2r0000000000000110 |
622 2r0000000000000110 |
623 2r0000000000000110 |
623 2r0000000000000110 |
624 2r0000000000000110 |
624 2r0000000000000110 |
625 2r0000000000000110 |
625 2r0000000000000110 |
626 2r1111111111111110 |
626 2r1111111111111110 |
627 2r1111111111111110 |
627 2r1111111111111110 |
628 2r0000000000000000) |
628 2r0000000000000000) |
629 maskArray: #( |
629 maskArray: #( |
630 2r0000000000001111 |
630 2r0000000000001111 |
631 2r0000000000001111 |
631 2r0000000000001111 |
632 2r0000000000001111 |
632 2r0000000000001111 |
633 2r0000000000001111 |
633 2r0000000000001111 |
634 2r0000000000001111 |
634 2r0000000000001111 |
635 2r0000000000001111 |
635 2r0000000000001111 |
636 2r0000000000001111 |
636 2r0000000000001111 |
637 2r0000000000001111 |
637 2r0000000000001111 |
638 2r0000000000001111 |
638 2r0000000000001111 |
639 2r0000000000001111 |
639 2r0000000000001111 |
640 2r0000000000001111 |
640 2r0000000000001111 |
641 2r0000000000001111 |
641 2r0000000000001111 |
642 2r1111111111111111 |
642 2r1111111111111111 |
643 2r1111111111111111 |
643 2r1111111111111111 |
644 2r1111111111111111 |
644 2r1111111111111111 |
645 2r1111111111111111) |
645 2r1111111111111111) |
646 offset: -14@ -14). |
646 offset: -14@ -14). |
647 CornerCursor setShape:#corner. |
647 CornerCursor setShape:#corner. |
648 |
648 |
649 BottomLeftCornerCursor := |
649 BottomLeftCornerCursor := |
650 (Cursor |
650 (Cursor |
651 extent: 16@16 |
651 extent: 16@16 |
652 sourceArray: #( |
652 sourceArray: #( |
653 2r0110000000000000 |
653 2r0110000000000000 |
654 2r0110000000000000 |
654 2r0110000000000000 |
655 2r0110000000000000 |
655 2r0110000000000000 |
656 2r0110000000000000 |
656 2r0110000000000000 |
657 2r0110000000000000 |
657 2r0110000000000000 |
658 2r0110000000000000 |
658 2r0110000000000000 |
659 2r0110000000000000 |
659 2r0110000000000000 |
660 2r0110000000000000 |
660 2r0110000000000000 |
661 2r0110000000000000 |
661 2r0110000000000000 |
662 2r0110000000000000 |
662 2r0110000000000000 |
663 2r0110000000000000 |
663 2r0110000000000000 |
664 2r0110000000000000 |
664 2r0110000000000000 |
665 2r0110000000000000 |
665 2r0110000000000000 |
666 2r0111111111111111 |
666 2r0111111111111111 |
667 2r0111111111111111 |
667 2r0111111111111111 |
668 2r0000000000000000) |
668 2r0000000000000000) |
669 maskArray: #( |
669 maskArray: #( |
670 2r1111000000000000 |
670 2r1111000000000000 |
671 2r1111000000000000 |
671 2r1111000000000000 |
672 2r1111000000000000 |
672 2r1111000000000000 |
673 2r1111000000000000 |
673 2r1111000000000000 |
674 2r1111000000000000 |
674 2r1111000000000000 |
675 2r1111000000000000 |
675 2r1111000000000000 |
676 2r1111000000000000 |
676 2r1111000000000000 |
677 2r1111000000000000 |
677 2r1111000000000000 |
678 2r1111000000000000 |
678 2r1111000000000000 |
679 2r1111000000000000 |
679 2r1111000000000000 |
680 2r1111000000000000 |
680 2r1111000000000000 |
681 2r1111000000000000 |
681 2r1111000000000000 |
682 2r1111111111111111 |
682 2r1111111111111111 |
683 2r1111111111111111 |
683 2r1111111111111111 |
684 2r1111111111111111 |
684 2r1111111111111111 |
685 2r1111111111111111) |
685 2r1111111111111111) |
686 offset: -1@ -1). |
686 offset: -1@ -1). |
687 BottomLeftCornerCursor setShape:#bottomLeftCorner. |
687 BottomLeftCornerCursor setShape:#bottomLeftCorner. |
688 |
688 |
689 ReadCursor := (Cursor |
689 ReadCursor := (Cursor |
690 extent: 16@16 |
690 extent: 16@16 |
691 sourceArray: #( |
691 sourceArray: #( |
692 2r0 |
692 2r0 |
693 2r0000110000000110 |
693 2r0000110000000110 |
694 2r0001001000001001 |
694 2r0001001000001001 |
695 2r0001001000001001 |
695 2r0001001000001001 |
696 2r0010000000010000 |
696 2r0010000000010000 |
697 2r0100000000100000 |
697 2r0100000000100000 |
698 2r1111101111100000 |
698 2r1111101111100000 |
699 2r1000010000100000 |
699 2r1000010000100000 |
700 2r1000010000100000 |
700 2r1000010000100000 |
701 2r1011010110100000 |
701 2r1011010110100000 |
702 2r0111101111000000 |
702 2r0111101111000000 |
703 2r0000000000000000 |
703 2r0000000000000000 |
704 2r0000000000000000 |
704 2r0000000000000000 |
705 2r0000000000000000 |
705 2r0000000000000000 |
706 2r0000000000000000 |
706 2r0000000000000000 |
707 2r0000000000000000) |
707 2r0000000000000000) |
708 maskArray: #( |
708 maskArray: #( |
709 2r0001111000001111 |
709 2r0001111000001111 |
710 2r0001111000011111 |
710 2r0001111000011111 |
711 2r0011111000011111 |
711 2r0011111000011111 |
712 2r0011100000111100 |
712 2r0011100000111100 |
713 2r0111000000111000 |
713 2r0111000000111000 |
714 2r1111111111110000 |
714 2r1111111111110000 |
715 2r1111111111110000 |
715 2r1111111111110000 |
716 2r1111111111110000 |
716 2r1111111111110000 |
717 2r1111111111110000 |
717 2r1111111111110000 |
718 2r1111111111110000 |
718 2r1111111111110000 |
719 2r1111111111100000 |
719 2r1111111111100000 |
720 2r0111111111000000 |
720 2r0111111111000000 |
721 2r0000000000000000 |
721 2r0000000000000000 |
722 2r0000000000000000 |
722 2r0000000000000000 |
723 2r0000000000000000 |
723 2r0000000000000000 |
724 2r0000000000000000) |
724 2r0000000000000000) |
725 offset: -5 @ -7). |
725 offset: -5 @ -7). |
726 ReadCursor setShape:#read. |
726 ReadCursor setShape:#read. |
727 |
727 |
728 WriteCursor := (Cursor |
728 WriteCursor := (Cursor |
729 extent: 16@16 |
729 extent: 16@16 |
730 sourceArray: #( |
730 sourceArray: #( |
731 2r0000000000000110 |
731 2r0000000000000110 |
732 2r0000000000001111 |
732 2r0000000000001111 |
733 2r0000000000010110 |
733 2r0000000000010110 |
734 2r0000000000100100 |
734 2r0000000000100100 |
735 2r0000000001001000 |
735 2r0000000001001000 |
736 2r0000000010010000 |
736 2r0000000010010000 |
737 2r0000000100100000 |
737 2r0000000100100000 |
738 2r0000001001000011 |
738 2r0000001001000011 |
739 2r0000010010000010 |
739 2r0000010010000010 |
740 2r0000100100000110 |
740 2r0000100100000110 |
741 2r0001001000001000 |
741 2r0001001000001000 |
742 2r0010010000001000 |
742 2r0010010000001000 |
743 2r0111100001001000 |
743 2r0111100001001000 |
744 2r0101000010111000 |
744 2r0101000010111000 |
745 2r0110000110000000 |
745 2r0110000110000000 |
746 2r1111111100000000) |
746 2r1111111100000000) |
747 maskArray: #( |
747 maskArray: #( |
748 2r0000000000000111 |
748 2r0000000000000111 |
749 2r0000000000001111 |
749 2r0000000000001111 |
750 2r0000000000011110 |
750 2r0000000000011110 |
751 2r0000000000111100 |
751 2r0000000000111100 |
752 2r0000000001111000 |
752 2r0000000001111000 |
753 2r0000000011110000 |
753 2r0000000011110000 |
754 2r0000000111100001 |
754 2r0000000111100001 |
755 2r0000001111000110 |
755 2r0000001111000110 |
756 2r0000011110000110 |
756 2r0000011110000110 |
757 2r0000111100001110 |
757 2r0000111100001110 |
758 2r0001111000001100 |
758 2r0001111000001100 |
759 2r0011110001001100 |
759 2r0011110001001100 |
760 2r0111100011111000 |
760 2r0111100011111000 |
761 2r0111000110111000 |
761 2r0111000110111000 |
762 2r0111111110000000 |
762 2r0111111110000000 |
763 2r1111111100000000) |
763 2r1111111100000000) |
764 offset: 0@ -15). |
764 offset: 0@ -15). |
765 WriteCursor setShape:#write. |
765 WriteCursor setShape:#write. |
766 |
766 |
767 WaitCursor := |
767 WaitCursor := |
768 (Cursor |
768 (Cursor |
769 extent: 16@16 |
769 extent: 16@16 |
770 sourceArray: #( |
770 sourceArray: #( |
771 2r1111111111111111 |
771 2r1111111111111111 |
772 2r1000000000000001 |
772 2r1000000000000001 |
773 2r0100000000000010 |
773 2r0100000000000010 |
774 2r0010000000000100 |
774 2r0010000000000100 |
775 2r0001110000111000 |
775 2r0001110000111000 |
776 2r0000111101110000 |
776 2r0000111101110000 |
777 2r0000011011100000 |
777 2r0000011011100000 |
778 2r0000001111000000 |
778 2r0000001111000000 |
779 2r0000001111000000 |
779 2r0000001111000000 |
780 2r0000010110100000 |
780 2r0000010110100000 |
781 2r0000100010010000 |
781 2r0000100010010000 |
782 2r0001000110001000 |
782 2r0001000110001000 |
783 2r0010001101000100 |
783 2r0010001101000100 |
784 2r0100111111110010 |
784 2r0100111111110010 |
785 2r1011111111111101 |
785 2r1011111111111101 |
786 2r1111111111111111) |
786 2r1111111111111111) |
787 maskArray: #( |
787 maskArray: #( |
788 2r1111111111111111 |
788 2r1111111111111111 |
789 2r1111111111111111 |
789 2r1111111111111111 |
790 2r1111111111111111 |
790 2r1111111111111111 |
791 2r0111111111111110 |
791 2r0111111111111110 |
792 2r0011111111111100 |
792 2r0011111111111100 |
793 2r0001111111111000 |
793 2r0001111111111000 |
794 2r0000111111110000 |
794 2r0000111111110000 |
795 2r0000011111100000 |
795 2r0000011111100000 |
796 2r0000011111100000 |
796 2r0000011111100000 |
797 2r0000111111110000 |
797 2r0000111111110000 |
798 2r0001111111111000 |
798 2r0001111111111000 |
799 2r0011111111111100 |
799 2r0011111111111100 |
800 2r0111111111111110 |
800 2r0111111111111110 |
801 2r1111111111111111 |
801 2r1111111111111111 |
802 2r1111111111111111 |
802 2r1111111111111111 |
803 2r1111111111111111) |
803 2r1111111111111111) |
804 offset: -8@ -8). |
804 offset: -8@ -8). |
805 WaitCursor setShape:#wait. |
805 WaitCursor setShape:#wait. |
806 |
806 |
807 BlankCursor := |
807 BlankCursor := |
808 (Cursor |
808 (Cursor |
809 extent: 16@16 |
809 extent: 16@16 |
810 fromArray: #( |
810 fromArray: #( |
811 2r0000000000000000 |
811 2r0000000000000000 |
812 2r0000000000000000 |
812 2r0000000000000000 |
813 2r0000000000000000 |
813 2r0000000000000000 |
814 2r0000000000000000 |
814 2r0000000000000000 |
815 2r0000000000000000 |
815 2r0000000000000000 |
816 2r0000000000000000 |
816 2r0000000000000000 |
817 2r0000000000000000 |
817 2r0000000000000000 |
818 2r0000000000000000 |
818 2r0000000000000000 |
819 2r0000000000000000 |
819 2r0000000000000000 |
820 2r0000000000000000 |
820 2r0000000000000000 |
821 2r0000000000000000 |
821 2r0000000000000000 |
822 2r0000000000000000 |
822 2r0000000000000000 |
823 2r0000000000000000 |
823 2r0000000000000000 |
824 2r0000000000000000 |
824 2r0000000000000000 |
825 2r0000000000000000 |
825 2r0000000000000000 |
826 2r0000000000000000) |
826 2r0000000000000000) |
827 offset: 0@0). |
827 offset: 0@0). |
828 BlankCursor setShape:#blank. |
828 BlankCursor setShape:#blank. |
829 |
829 |
830 XeqCursor := |
830 XeqCursor := |
831 (Cursor |
831 (Cursor |
832 extent: 16@16 |
832 extent: 16@16 |
833 sourceArray: #( |
833 sourceArray: #( |
834 2r1000000000010000 |
834 2r1000000000010000 |
835 2r1100000000010000 |
835 2r1100000000010000 |
836 2r1110000000111000 |
836 2r1110000000111000 |
837 2r1111000111111111 |
837 2r1111000111111111 |
838 2r1111100011000110 |
838 2r1111100011000110 |
839 2r1111110001000100 |
839 2r1111110001000100 |
840 2r1111111001111100 |
840 2r1111111001111100 |
841 2r1111000001101100 |
841 2r1111000001101100 |
842 2r1101100011000110 |
842 2r1101100011000110 |
843 2r1001100010000010 |
843 2r1001100010000010 |
844 2r0000110000000000 |
844 2r0000110000000000 |
845 2r0000110000000000 |
845 2r0000110000000000 |
846 2r0000011000000000 |
846 2r0000011000000000 |
847 2r0000011000000000 |
847 2r0000011000000000 |
848 2r0000001100000000 |
848 2r0000001100000000 |
849 2r0000001100000000) |
849 2r0000001100000000) |
850 maskArray: #( |
850 maskArray: #( |
851 2r1100000000111000 |
851 2r1100000000111000 |
852 2r1110000000111000 |
852 2r1110000000111000 |
853 2r1111000111111111 |
853 2r1111000111111111 |
854 2r1111100111111111 |
854 2r1111100111111111 |
855 2r1111110011111111 |
855 2r1111110011111111 |
856 2r1111111001111110 |
856 2r1111111001111110 |
857 2r1111111101111100 |
857 2r1111111101111100 |
858 2r1111100001111110 |
858 2r1111100001111110 |
859 2r1101110011100111 |
859 2r1101110011100111 |
860 2r1001110011000010 |
860 2r1001110011000010 |
861 2r0000111000000000 |
861 2r0000111000000000 |
862 2r0000111000000000 |
862 2r0000111000000000 |
863 2r0000011100000000 |
863 2r0000011100000000 |
864 2r0000011100000000 |
864 2r0000011100000000 |
865 2r0000001110000000 |
865 2r0000001110000000 |
866 2r0000001110000000) |
866 2r0000001110000000) |
867 offset: 0@0). |
867 offset: 0@0). |
868 XeqCursor setShape:#execute. |
868 XeqCursor setShape:#execute. |
869 |
869 |
870 SquareCursor := |
870 SquareCursor := |
871 (Cursor |
871 (Cursor |
872 extent: 16@16 |
872 extent: 16@16 |
873 fromArray: #( |
873 fromArray: #( |
874 2r0000000000000000 |
874 2r0000000000000000 |
875 2r0000000000000000 |
875 2r0000000000000000 |
876 2r0000000000000000 |
876 2r0000000000000000 |
877 2r0000000000000000 |
877 2r0000000000000000 |
878 2r0000000000000000 |
878 2r0000000000000000 |
879 2r0000001111000000 |
879 2r0000001111000000 |
880 2r0000001111000000 |
880 2r0000001111000000 |
881 2r0000001111000000 |
881 2r0000001111000000 |
882 2r0000001111000000 |
882 2r0000001111000000 |
883 2r0000000000000000 |
883 2r0000000000000000 |
884 2r0000000000000000 |
884 2r0000000000000000 |
885 2r0000000000000000 |
885 2r0000000000000000 |
886 2r0000000000000000 |
886 2r0000000000000000 |
887 2r0000000000000000 |
887 2r0000000000000000 |
888 2r0000000000000000 |
888 2r0000000000000000 |
889 2r0000000000000000) |
889 2r0000000000000000) |
890 offset: -8@ -8). |
890 offset: -8@ -8). |
891 SquareCursor setShape:#square. |
891 SquareCursor setShape:#square. |
892 |
892 |
893 NormalCursor := |
893 NormalCursor := |
894 (Cursor |
894 (Cursor |
895 extent: 16@16 |
895 extent: 16@16 |
896 sourceArray: #( |
896 sourceArray: #( |
897 2r1000000000000000 |
897 2r1000000000000000 |
898 2r1100000000000000 |
898 2r1100000000000000 |
899 2r1110000000000000 |
899 2r1110000000000000 |
900 2r1111000000000000 |
900 2r1111000000000000 |
901 2r1111100000000000 |
901 2r1111100000000000 |
902 2r1111110000000000 |
902 2r1111110000000000 |
903 2r1111111000000000 |
903 2r1111111000000000 |
904 2r1111100000000000 |
904 2r1111100000000000 |
905 2r1111100000000000 |
905 2r1111100000000000 |
906 2r1001100000000000 |
906 2r1001100000000000 |
907 2r0000110000000000 |
907 2r0000110000000000 |
908 2r0000110000000000 |
908 2r0000110000000000 |
909 2r0000011000000000 |
909 2r0000011000000000 |
910 2r0000011000000000 |
910 2r0000011000000000 |
911 2r0000001100000000 |
911 2r0000001100000000 |
912 2r0000001100000000) |
912 2r0000001100000000) |
913 maskArray: #( |
913 maskArray: #( |
914 2r1100000000000000 |
914 2r1100000000000000 |
915 2r1110000000000000 |
915 2r1110000000000000 |
916 2r1111000000000000 |
916 2r1111000000000000 |
917 2r1111100000000000 |
917 2r1111100000000000 |
918 2r1111110000000000 |
918 2r1111110000000000 |
919 2r1111111000000000 |
919 2r1111111000000000 |
920 2r1111111100000000 |
920 2r1111111100000000 |
921 2r1111110000000000 |
921 2r1111110000000000 |
922 2r1111110000000000 |
922 2r1111110000000000 |
923 2r1001110000000000 |
923 2r1001110000000000 |
924 2r0000111000000000 |
924 2r0000111000000000 |
925 2r0000111000000000 |
925 2r0000111000000000 |
926 2r0000011100000000 |
926 2r0000011100000000 |
927 2r0000011100000000 |
927 2r0000011100000000 |
928 2r0000001110000000 |
928 2r0000001110000000 |
929 2r0000001110000000) |
929 2r0000001110000000) |
930 offset: 0@0). |
930 offset: 0@0). |
931 NormalCursor setShape:#upLeftArrow. |
931 NormalCursor setShape:#upLeftArrow. |
932 |
932 |
933 CrossHairCursor := |
933 CrossHairCursor := |
934 (Cursor |
934 (Cursor |
935 extent: 16@16 |
935 extent: 16@16 |
936 sourceArray: #( |
936 sourceArray: #( |
937 2r0000000100000000 |
937 2r0000000100000000 |
938 2r0000000100000000 |
938 2r0000000100000000 |
939 2r0000000100000000 |
939 2r0000000100000000 |
940 2r0000000100000000 |
940 2r0000000100000000 |
941 2r0000000100000000 |
941 2r0000000100000000 |
942 2r0000000100000000 |
942 2r0000000100000000 |
943 2r0000000100000000 |
943 2r0000000100000000 |
944 2r1111111111111110 |
944 2r1111111111111110 |
945 2r0000000100000000 |
945 2r0000000100000000 |
946 2r0000000100000000 |
946 2r0000000100000000 |
947 2r0000000100000000 |
947 2r0000000100000000 |
948 2r0000000100000000 |
948 2r0000000100000000 |
949 2r0000000100000000 |
949 2r0000000100000000 |
950 2r0000000100000000 |
950 2r0000000100000000 |
951 2r0000000100000000 |
951 2r0000000100000000 |
952 2r0) |
952 2r0) |
953 maskArray: #( |
953 maskArray: #( |
954 2r0000000110000000 |
954 2r0000000110000000 |
955 2r0000000110000000 |
955 2r0000000110000000 |
956 2r0000000110000000 |
956 2r0000000110000000 |
957 2r0000000110000000 |
957 2r0000000110000000 |
958 2r0000000110000000 |
958 2r0000000110000000 |
959 2r0000000110000000 |
959 2r0000000110000000 |
960 2r0000000110000000 |
960 2r0000000110000000 |
961 2r1111111111111110 |
961 2r1111111111111110 |
962 2r1111111111111110 |
962 2r1111111111111110 |
963 2r0000000110000000 |
963 2r0000000110000000 |
964 2r0000000110000000 |
964 2r0000000110000000 |
965 2r0000000110000000 |
965 2r0000000110000000 |
966 2r0000000110000000 |
966 2r0000000110000000 |
967 2r0000000110000000 |
967 2r0000000110000000 |
968 2r0000000110000000 |
968 2r0000000110000000 |
969 2r0) |
969 2r0) |
970 offset: -7@ -7). |
970 offset: -7@ -7). |
971 CrossHairCursor setShape:#upLeftArrow. |
971 CrossHairCursor setShape:#upLeftArrow. |
972 |
972 |
973 CrossCursor := |
973 CrossCursor := |
974 (Cursor |
974 (Cursor |
975 extent: 16@16 |
975 extent: 16@16 |
976 sourceArray: #( |
976 sourceArray: #( |
977 2r0000000000000000 |
977 2r0000000000000000 |
978 2r0110000000001100 |
978 2r0110000000001100 |
979 2r0111000000011100 |
979 2r0111000000011100 |
980 2r0011100000111000 |
980 2r0011100000111000 |
981 2r0001110001110000 |
981 2r0001110001110000 |
982 2r0000111011100000 |
982 2r0000111011100000 |
983 2r0000011111000000 |
983 2r0000011111000000 |
984 2r0000001110000000 |
984 2r0000001110000000 |
985 2r0000011111000000 |
985 2r0000011111000000 |
986 2r0000111011100000 |
986 2r0000111011100000 |
987 2r0001110001110000 |
987 2r0001110001110000 |
988 2r0011100000111000 |
988 2r0011100000111000 |
989 2r0111000000011100 |
989 2r0111000000011100 |
990 2r0110000000001100 |
990 2r0110000000001100 |
991 2r0000000000000000 |
991 2r0000000000000000 |
992 2r0) |
992 2r0) |
993 maskArray: #( |
993 maskArray: #( |
994 2r1110000000001110 |
994 2r1110000000001110 |
995 2r1111000000011110 |
995 2r1111000000011110 |
996 2r1111100000111110 |
996 2r1111100000111110 |
997 2r0111110001111100 |
997 2r0111110001111100 |
998 2r0011111011111000 |
998 2r0011111011111000 |
999 2r0001111111110000 |
999 2r0001111111110000 |
1000 2r0000111111100000 |
1000 2r0000111111100000 |
1001 2r0000011111000000 |
1001 2r0000011111000000 |
1002 2r0000111111100000 |
1002 2r0000111111100000 |
1003 2r0001111111110000 |
1003 2r0001111111110000 |
1004 2r0011111011111000 |
1004 2r0011111011111000 |
1005 2r0111110001111100 |
1005 2r0111110001111100 |
1006 2r1111100000111110 |
1006 2r1111100000111110 |
1007 2r1111000000011110 |
1007 2r1111000000011110 |
1008 2r1110000000001110 |
1008 2r1110000000001110 |
1009 2r0) |
1009 2r0) |
1010 offset: -7@ -7). |
1010 offset: -7@ -7). |
1011 CrossCursor setShape:#cross. |
1011 CrossCursor setShape:#cross. |
1012 |
1012 |
1013 RightLimitCursor := |
1013 RightLimitCursor := |
1014 Cursor |
1014 Cursor |
1015 extent: 16@16 |
1015 extent: 16@16 |
1016 sourceArray: #( |
1016 sourceArray: #( |
1017 2r0000000000000110 |
1017 2r0000000000000110 |
1018 2r0000000000000110 |
1018 2r0000000000000110 |
1019 2r0000000000000110 |
1019 2r0000000000000110 |
1020 2r0000001000000110 |
1020 2r0000001000000110 |
1021 2r0000001110000110 |
1021 2r0000001110000110 |
1022 2r0000001111100110 |
1022 2r0000001111100110 |
1023 2r0111111111111110 |
1023 2r0111111111111110 |
1024 2r0111111111111110 |
1024 2r0111111111111110 |
1025 2r0111111111111110 |
1025 2r0111111111111110 |
1026 2r0000001111100110 |
1026 2r0000001111100110 |
1027 2r0000001110000110 |
1027 2r0000001110000110 |
1028 2r0000001000000110 |
1028 2r0000001000000110 |
1029 2r0000000000000110 |
1029 2r0000000000000110 |
1030 2r0000000000000110 |
1030 2r0000000000000110 |
1031 2r0000000000000110 |
1031 2r0000000000000110 |
1032 2r0000000000000110) |
1032 2r0000000000000110) |
1033 maskArray: #( |
1033 maskArray: #( |
1034 2r0000000000001111 |
1034 2r0000000000001111 |
1035 2r0000000000001111 |
1035 2r0000000000001111 |
1036 2r0000000000001111 |
1036 2r0000000000001111 |
1037 2r0000011100001111 |
1037 2r0000011100001111 |
1038 2r0000011111001111 |
1038 2r0000011111001111 |
1165 2r0000011100001111 |
1165 2r0000011100001111 |
1166 2r0000011000001111 |
1166 2r0000011000001111 |
1167 2r0000000000001111 |
1167 2r0000000000001111 |
1168 2r0000000000001111 |
1168 2r0000000000001111 |
1169 2r0000000000001111) |
1169 2r0000000000001111) |
1170 offset: -14@ -7. |
1170 offset: -14@ -7. |
1171 DownLimitCursor setShape:#downLimit. |
1171 DownLimitCursor setShape:#downLimit. |
1172 |
1172 |
1173 LeftRightArrowCursor := |
1173 LeftRightArrowCursor := |
1174 Cursor |
1174 Cursor |
1175 extent: 16@16 |
1175 extent: 16@16 |
1176 sourceArray: #( |
1176 sourceArray: #( |
1177 2r0000000000000000 |
1177 2r0000000000000000 |
1178 2r0000000000000000 |
1178 2r0000000000000000 |
1179 2r0000000000000000 |
1179 2r0000000000000000 |
1180 2r0000100000010000 |
1180 2r0000100000010000 |
1181 2r0001100000011000 |
1181 2r0001100000011000 |
1182 2r0011100000011100 |
1182 2r0011100000011100 |
1183 2r0111111111111110 |
1183 2r0111111111111110 |
1184 2r1111100000011111 |
1184 2r1111100000011111 |
1185 2r0111111111111110 |
1185 2r0111111111111110 |
1186 2r0011100000011100 |
1186 2r0011100000011100 |
1187 2r0001100000011000 |
1187 2r0001100000011000 |
1188 2r0000100000010000 |
1188 2r0000100000010000 |
1189 2r0000000000000000 |
1189 2r0000000000000000 |
1190 2r0000000000000000 |
1190 2r0000000000000000 |
1191 2r0000000000000000 |
1191 2r0000000000000000 |
1192 2r0000000000000000) |
1192 2r0000000000000000) |
1193 maskArray: #( |
1193 maskArray: #( |
1194 2r0000000000000000 |
1194 2r0000000000000000 |
1195 2r0000000000000000 |
1195 2r0000000000000000 |
1196 2r0000000000000000 |
1196 2r0000000000000000 |
1197 2r0000100000010000 |
1197 2r0000100000010000 |
1198 2r0001100000011000 |
1198 2r0001100000011000 |
1199 2r0011100000011100 |
1199 2r0011100000011100 |
1200 2r0111111111111110 |
1200 2r0111111111111110 |
1201 2r1111111111111111 |
1201 2r1111111111111111 |
1202 2r0111111111111110 |
1202 2r0111111111111110 |
1203 2r0011100000011100 |
1203 2r0011100000011100 |
1204 2r0001100000011000 |
1204 2r0001100000011000 |
1205 2r0000100000010000 |
1205 2r0000100000010000 |
1206 2r0000000000000000 |
1206 2r0000000000000000 |
1207 2r0000000000000000 |
1207 2r0000000000000000 |
1208 2r0000000000000000 |
1208 2r0000000000000000 |
1209 2r0000000000000000) |
1209 2r0000000000000000) |
1210 offset: -14@ -7. |
1210 offset: -14@ -7. |
1211 LeftRightArrowCursor setShape:#leftRightArrow. |
1211 LeftRightArrowCursor setShape:#leftRightArrow. |
1212 |
1212 |
1213 isWindows ifTrue:[ |
1213 isWindows ifTrue:[ |
1214 "/ want it white-with black boundary |
1214 "/ want it white-with black boundary |
1215 bits := #( |
1215 bits := #( |
1216 2r1111111111111111 |
1216 2r1111111111111111 |
1217 2r1111111111111111 |
1217 2r1111111111111111 |
1218 2r1111111111111111 |
1218 2r1111111111111111 |
1219 2r1111110111111111 |
1219 2r1111110111111111 |
1220 2r1111110001111111 |
1220 2r1111110001111111 |
1221 2r1111110000011111 |
1221 2r1111110000011111 |
1222 2r1000000000000111 |
1222 2r1000000000000111 |
1223 2r1000000000000001 |
1223 2r1000000000000001 |
1224 2r1000000000000111 |
1224 2r1000000000000111 |
1225 2r1111110000011111 |
1225 2r1111110000011111 |
1226 2r1111110001111111 |
1226 2r1111110001111111 |
1227 2r1111110111111111 |
1227 2r1111110111111111 |
1228 2r1111111111111111 |
1228 2r1111111111111111 |
1229 2r1111111111111111 |
1229 2r1111111111111111 |
1230 2r1111111111111111 |
1230 2r1111111111111111 |
1231 2r1111111111111111). |
1231 2r1111111111111111). |
1232 ] ifFalse:[ |
1232 ] ifFalse:[ |
1233 "/ want it black-with white boundary |
1233 "/ want it black-with white boundary |
1234 bits := #( |
1234 bits := #( |
1235 2r0000000000000000 |
1235 2r0000000000000000 |
1236 2r0000000000000000 |
1236 2r0000000000000000 |
1237 2r0000000000000000 |
1237 2r0000000000000000 |
1238 2r0000001000000000 |
1238 2r0000001000000000 |
1239 2r0000001110000000 |
1239 2r0000001110000000 |
1240 2r0000001111100000 |
1240 2r0000001111100000 |
1241 2r0111111111111000 |
1241 2r0111111111111000 |
1242 2r0111111111111110 |
1242 2r0111111111111110 |
1243 2r0111111111111000 |
1243 2r0111111111111000 |
1244 2r0000001111100000 |
1244 2r0000001111100000 |
1245 2r0000001110000000 |
1245 2r0000001110000000 |
1246 2r0000001000000000 |
1246 2r0000001000000000 |
1247 2r0000000000000000 |
1247 2r0000000000000000 |
1248 2r0000000000000000 |
1248 2r0000000000000000 |
1249 2r0000000000000000 |
1249 2r0000000000000000 |
1250 2r0000000000000000). |
1250 2r0000000000000000). |
1251 ]. |
1251 ]. |
1252 |
1252 |
1253 MarkerCursor := |
1253 MarkerCursor := |
1254 Cursor |
1254 Cursor |
1255 extent: 16@16 |
1255 extent: 16@16 |
1256 sourceArray:bits |
1256 sourceArray:bits |
1257 maskArray: #( |
1257 maskArray: #( |
1258 2r0000000000000000 |
1258 2r0000000000000000 |
1259 2r0000000000000000 |
1259 2r0000000000000000 |
1260 2r0000000000000000 |
1260 2r0000000000000000 |
1261 2r0000011100000000 |
1261 2r0000011100000000 |
1262 2r0000011111000000 |
1262 2r0000011111000000 |
1263 2r1111111111110000 |
1263 2r1111111111110000 |
1264 2r1111111111111100 |
1264 2r1111111111111100 |
1265 2r1111111111111111 |
1265 2r1111111111111111 |
1266 2r1111111111111100 |
1266 2r1111111111111100 |
1267 2r1111111111110000 |
1267 2r1111111111110000 |
1268 2r0000011111000000 |
1268 2r0000011111000000 |
1269 2r0000011100000000 |
1269 2r0000011100000000 |
|
1270 2r0000011000000000 |
|
1271 2r0000000000000000 |
|
1272 2r0000000000000000 |
|
1273 2r0000000000000000) |
|
1274 offset: -14@ -7. |
|
1275 MarkerCursor setShape:#marker. |
|
1276 |
|
1277 isWindows ifTrue:[ |
|
1278 "/ want it white-with black boundary |
|
1279 bits := #( |
|
1280 2r1111111111111111 |
|
1281 2r1011111111111111 |
|
1282 2r1001111111111111 |
|
1283 2r1000111111111111 |
|
1284 2r1000011111111111 |
|
1285 2r1000001111111111 |
|
1286 2r1000000111111111 |
|
1287 2r1001111111111111 |
|
1288 2r1001111111111111 |
|
1289 2r1001111111111111 |
|
1290 2r1001111111111111 |
|
1291 2r1001111111111111 |
|
1292 2r1001111111111111 |
|
1293 2r1001111111111111 |
|
1294 2r1001111111111111 |
|
1295 2r1111111111111111). |
|
1296 ] ifFalse:[ |
|
1297 "/ want it black-with white boundary |
|
1298 bits := #( |
|
1299 2r0000000000000000 |
|
1300 2r0100000000000000 |
|
1301 2r0110000000000000 |
|
1302 2r0111000000000000 |
|
1303 2r0111100000000000 |
|
1304 2r0111110000000000 |
|
1305 2r0111111000000000 |
|
1306 2r0110000000000000 |
|
1307 2r0110000000000000 |
|
1308 2r0110000000000000 |
|
1309 2r0110000000000000 |
|
1310 2r0110000000000000 |
|
1311 2r0110000000000000 |
|
1312 2r0110000000000000 |
|
1313 2r0110000000000000 |
|
1314 2r0000000000000000). |
|
1315 ]. |
|
1316 |
|
1317 UpCursor := |
|
1318 Cursor |
|
1319 extent: 16@16 |
|
1320 sourceArray:bits |
|
1321 maskArray: #( |
|
1322 2r1100000000000000 |
|
1323 2r1110000000000000 |
|
1324 2r1111000000000000 |
|
1325 2r1111100000000000 |
|
1326 2r1111110000000000 |
|
1327 2r1111111000000000 |
|
1328 2r1111111100000000 |
|
1329 2r1111111100000000 |
|
1330 2r1111000000000000 |
|
1331 2r1111000000000000 |
|
1332 2r1111000000000000 |
|
1333 2r1111000000000000 |
|
1334 2r1111000000000000 |
|
1335 2r1111000000000000 |
|
1336 2r1111000000000000 |
|
1337 2r1111000000000000) |
|
1338 offset: -1@ -1. |
|
1339 UpCursor setShape:#upArrow. |
|
1340 |
|
1341 isWindows ifTrue:[ |
|
1342 "/ want it white-with black boundary |
|
1343 bits := #( |
|
1344 2r1111111111111111 |
|
1345 2r1111100111111111 |
|
1346 2r1111100111111111 |
|
1347 2r1111100111111111 |
|
1348 2r1111100111111111 |
|
1349 2r1111100111111111 |
|
1350 2r1111100111111111 |
|
1351 2r1111100111111111 |
|
1352 2r1111100111111111 |
|
1353 2r1000000111111111 |
|
1354 2r1100000111111111 |
|
1355 2r1110000111111111 |
|
1356 2r1111000111111111 |
|
1357 2r1111100111111111 |
|
1358 2r1111110111111111 |
|
1359 2r1111111111111111). |
|
1360 ] ifFalse:[ |
|
1361 "/ want it black-with white boundary |
|
1362 bits := #( |
|
1363 2r0000000000000000 |
1270 2r0000011000000000 |
1364 2r0000011000000000 |
1271 2r0000000000000000 |
1365 2r0000011000000000 |
1272 2r0000000000000000 |
1366 2r0000011000000000 |
1273 2r0000000000000000) |
1367 2r0000011000000000 |
1274 offset: -14@ -7. |
1368 2r0000011000000000 |
1275 MarkerCursor setShape:#marker. |
1369 2r0000011000000000 |
1276 |
1370 2r0000011000000000 |
1277 isWindows ifTrue:[ |
1371 2r0000011000000000 |
1278 "/ want it white-with black boundary |
1372 2r0111111000000000 |
1279 bits := #( |
1373 2r0011111000000000 |
1280 2r1111111111111111 |
1374 2r0001111000000000 |
1281 2r1011111111111111 |
1375 2r0000111000000000 |
1282 2r1001111111111111 |
1376 2r0000011000000000 |
1283 2r1000111111111111 |
1377 2r0000001000000000 |
1284 2r1000011111111111 |
1378 2r0000000000000000). |
1285 2r1000001111111111 |
1379 ]. |
1286 2r1000000111111111 |
1380 |
1287 2r1001111111111111 |
1381 DownCursor := |
1288 2r1001111111111111 |
1382 Cursor |
1289 2r1001111111111111 |
1383 extent: 16@16 |
1290 2r1001111111111111 |
1384 sourceArray:bits |
1291 2r1001111111111111 |
1385 maskArray: #( |
1292 2r1001111111111111 |
1386 2r0000111100000000 |
1293 2r1001111111111111 |
1387 2r0000111100000000 |
1294 2r1001111111111111 |
1388 2r0000111100000000 |
1295 2r1111111111111111). |
1389 2r0000111100000000 |
1296 ] ifFalse:[ |
1390 2r0000111100000000 |
1297 "/ want it black-with white boundary |
1391 2r0000111100000000 |
1298 bits := #( |
1392 2r0000111100000000 |
1299 2r0000000000000000 |
1393 2r0000111100000000 |
1300 2r0100000000000000 |
1394 2r1111111100000000 |
1301 2r0110000000000000 |
1395 2r1111111100000000 |
1302 2r0111000000000000 |
1396 2r0111111100000000 |
1303 2r0111100000000000 |
1397 2r0011111100000000 |
1304 2r0111110000000000 |
1398 2r0001111100000000 |
1305 2r0111111000000000 |
1399 2r0000111100000000 |
1306 2r0110000000000000 |
1400 2r0000011100000000 |
1307 2r0110000000000000 |
1401 2r0000001100000000) |
1308 2r0110000000000000 |
1402 offset: -7@ -15. |
1309 2r0110000000000000 |
1403 DownCursor setShape:#downArrow. |
1310 2r0110000000000000 |
1404 |
1311 2r0110000000000000 |
1405 isWindows ifTrue:[ |
1312 2r0110000000000000 |
1406 "/ want it white-with black boundary |
1313 2r0110000000000000 |
1407 bits := #( |
1314 2r0000000000000000). |
1408 2r1111111111111111 |
1315 ]. |
1409 2r1000000000000001 |
1316 |
1410 2r1100000000000001 |
1317 UpCursor := |
1411 2r1110000111111111 |
1318 Cursor |
1412 2r1111000111111111 |
1319 extent: 16@16 |
1413 2r1111100111111111 |
1320 sourceArray:bits |
1414 2r1111110111111111 |
1321 maskArray: #( |
1415 2r1111111111111111 |
1322 2r1100000000000000 |
1416 2r1111111111111111 |
1323 2r1110000000000000 |
1417 2r1111111111111111 |
1324 2r1111000000000000 |
1418 2r1111111111111111 |
1325 2r1111100000000000 |
1419 2r1111111111111111 |
1326 2r1111110000000000 |
1420 2r1111111111111111 |
1327 2r1111111000000000 |
1421 2r1111111111111111 |
1328 2r1111111100000000 |
1422 2r1111111111111111 |
1329 2r1111111100000000 |
1423 2r1111111111111111). |
1330 2r1111000000000000 |
1424 ] ifFalse:[ |
1331 2r1111000000000000 |
1425 "/ want it black-with white boundary |
1332 2r1111000000000000 |
1426 bits := #( |
1333 2r1111000000000000 |
1427 2r0000000000000000 |
1334 2r1111000000000000 |
1428 2r0111111111111110 |
1335 2r1111000000000000 |
1429 2r0011111111111110 |
1336 2r1111000000000000 |
1430 2r0001111000000000 |
1337 2r1111000000000000) |
1431 2r0000111000000000 |
1338 offset: -1@ -1. |
1432 2r0000011000000000 |
1339 UpCursor setShape:#upArrow. |
1433 2r0000001000000000 |
1340 |
1434 2r0000000000000000 |
1341 isWindows ifTrue:[ |
1435 2r0000000000000000 |
1342 "/ want it white-with black boundary |
1436 2r0000000000000000 |
1343 bits := #( |
1437 2r0000000000000000 |
1344 2r1111111111111111 |
1438 2r0000000000000000 |
1345 2r1111100111111111 |
1439 2r0000000000000000 |
1346 2r1111100111111111 |
1440 2r0000000000000000 |
1347 2r1111100111111111 |
1441 2r0000000000000000 |
1348 2r1111100111111111 |
1442 2r0000000000000000). |
1349 2r1111100111111111 |
1443 ]. |
1350 2r1111100111111111 |
1444 |
1351 2r1111100111111111 |
1445 LeftCursor := |
1352 2r1111100111111111 |
1446 Cursor |
1353 2r1000000111111111 |
1447 extent: 16@16 |
1354 2r1100000111111111 |
1448 sourceArray:bits |
1355 2r1110000111111111 |
1449 maskArray: #( |
1356 2r1111000111111111 |
1450 2r1111111111111111 |
1357 2r1111100111111111 |
1451 2r1111111111111111 |
1358 2r1111110111111111 |
1452 2r0111111111111111 |
1359 2r1111111111111111). |
1453 2r0011111111111111 |
1360 ] ifFalse:[ |
1454 2r0001111100000000 |
1361 "/ want it black-with white boundary |
1455 2r0000111100000000 |
1362 bits := #( |
1456 2r0000011100000000 |
1363 2r0000000000000000 |
1457 2r0000001100000000 |
1364 2r0000011000000000 |
1458 2r0000000000000000 |
1365 2r0000011000000000 |
1459 2r0000000000000000 |
1366 2r0000011000000000 |
1460 2r0000000000000000 |
1367 2r0000011000000000 |
1461 2r0000000000000000 |
1368 2r0000011000000000 |
1462 2r0000000000000000 |
1369 2r0000011000000000 |
1463 2r0000000000000000 |
1370 2r0000011000000000 |
1464 2r0000000000000000 |
1371 2r0000011000000000 |
1465 2r0000000000000000) |
1372 2r0111111000000000 |
1466 offset: -1 @ -1. |
1373 2r0011111000000000 |
1467 LeftCursor setShape:#leftArrow. |
1374 2r0001111000000000 |
1468 |
1375 2r0000111000000000 |
1469 isWindows ifTrue:[ |
1376 2r0000011000000000 |
1470 "/ want it white-with black boundary |
1377 2r0000001000000000 |
1471 bits := #( |
1378 2r0000000000000000). |
1472 2r1111111111111111 |
1379 ]. |
1473 2r1111111110111111 |
1380 |
1474 2r1111111110011111 |
1381 DownCursor := |
1475 2r1111111110001111 |
1382 Cursor |
1476 2r1111111110000111 |
1383 extent: 16@16 |
1477 2r1000000000000011 |
1384 sourceArray:bits |
1478 2r1000000000000001 |
1385 maskArray: #( |
1479 2r1111111111111111 |
1386 2r0000111100000000 |
1480 2r1111111111111111 |
1387 2r0000111100000000 |
1481 2r1111111111111111 |
1388 2r0000111100000000 |
1482 2r1111111111111111 |
1389 2r0000111100000000 |
1483 2r1111111111111111 |
1390 2r0000111100000000 |
1484 2r1111111111111111 |
1391 2r0000111100000000 |
1485 2r1111111111111111 |
1392 2r0000111100000000 |
1486 2r1111111111111111 |
1393 2r0000111100000000 |
1487 2r1111111111111111). |
1394 2r1111111100000000 |
1488 ] ifFalse:[ |
1395 2r1111111100000000 |
1489 "/ want it black-with white boundary |
1396 2r0111111100000000 |
1490 bits := #( |
1397 2r0011111100000000 |
1491 2r0000000000000000 |
1398 2r0001111100000000 |
1492 2r0000000001000000 |
1399 2r0000111100000000 |
1493 2r0000000001100000 |
1400 2r0000011100000000 |
1494 2r0000000001110000 |
1401 2r0000001100000000) |
1495 2r0000000001111000 |
1402 offset: -7@ -15. |
1496 2r0111111111111100 |
1403 DownCursor setShape:#downArrow. |
1497 2r0111111111111110 |
1404 |
1498 2r0000000000000000 |
1405 isWindows ifTrue:[ |
1499 2r0000000000000000 |
1406 "/ want it white-with black boundary |
1500 2r0000000000000000 |
1407 bits := #( |
1501 2r0000000000000000 |
1408 2r1111111111111111 |
1502 2r0000000000000000 |
1409 2r1000000000000001 |
1503 2r0000000000000000 |
1410 2r1100000000000001 |
1504 2r0000000000000000 |
1411 2r1110000111111111 |
1505 2r0000000000000000 |
1412 2r1111000111111111 |
1506 2r0000000000000000). |
1413 2r1111100111111111 |
1507 ]. |
1414 2r1111110111111111 |
1508 |
1415 2r1111111111111111 |
1509 RightCursor := |
1416 2r1111111111111111 |
1510 Cursor |
1417 2r1111111111111111 |
1511 extent: 16@16 |
1418 2r1111111111111111 |
1512 sourceArray: bits |
1419 2r1111111111111111 |
1513 maskArray: #( |
1420 2r1111111111111111 |
1514 2r0000000011000000 |
1421 2r1111111111111111 |
1515 2r0000000011100000 |
1422 2r1111111111111111 |
1516 2r0000000011110000 |
1423 2r1111111111111111). |
1517 2r0000000011111000 |
1424 ] ifFalse:[ |
1518 2r1111111111111100 |
1425 "/ want it black-with white boundary |
1519 2r1111111111111110 |
1426 bits := #( |
1520 2r1111111111111111 |
1427 2r0000000000000000 |
1521 2r1111111111111111 |
1428 2r0111111111111110 |
1522 2r0000000000000000 |
1429 2r0011111111111110 |
1523 2r0000000000000000 |
1430 2r0001111000000000 |
1524 2r0000000000000000 |
1431 2r0000111000000000 |
1525 2r0000000000000000 |
1432 2r0000011000000000 |
1526 2r0000000000000000 |
1433 2r0000001000000000 |
1527 2r0000000000000000 |
1434 2r0000000000000000 |
1528 2r0000000000000000 |
1435 2r0000000000000000 |
1529 2r0000000000000000) |
1436 2r0000000000000000 |
1530 offset: -15@ -6. |
1437 2r0000000000000000 |
1531 RightCursor setShape:#rightArrow. |
1438 2r0000000000000000 |
1532 |
1439 2r0000000000000000 |
1533 isWindows ifTrue:[ |
1440 2r0000000000000000 |
1534 "/ want it white-with black boundary |
1441 2r0000000000000000 |
1535 bits := #( |
1442 2r0000000000000000). |
1536 2r1111111111111111 |
1443 ]. |
1537 2r1111111011111111 |
1444 |
1538 2r1111111011111111 |
1445 LeftCursor := |
1539 2r1111110001111111 |
1446 Cursor |
1540 2r1111110001111111 |
1447 extent: 16@16 |
1541 2r1111100000111111 |
1448 sourceArray:bits |
1542 2r1111100000111111 |
1449 maskArray: #( |
1543 2r1111000000011111 |
1450 2r1111111111111111 |
1544 2r1111000000011111 |
1451 2r1111111111111111 |
1545 2r1110000000001111 |
1452 2r0111111111111111 |
1546 2r1111110001111111 |
1453 2r0011111111111111 |
1547 2r1111110001111111 |
1454 2r0001111100000000 |
1548 2r1111110001111111 |
1455 2r0000111100000000 |
1549 2r1111110001111111 |
1456 2r0000011100000000 |
1550 2r1111110001111111 |
1457 2r0000001100000000 |
1551 2r1111111111111111). |
1458 2r0000000000000000 |
1552 ] ifFalse:[ |
1459 2r0000000000000000 |
1553 "/ want it black-with white boundary |
1460 2r0000000000000000 |
1554 bits := #( |
1461 2r0000000000000000 |
1555 2r0000000000000000 |
1462 2r0000000000000000 |
1556 2r0000000100000000 |
1463 2r0000000000000000 |
|
1464 2r0000000000000000 |
|
1465 2r0000000000000000) |
|
1466 offset: -1 @ -1. |
|
1467 LeftCursor setShape:#leftArrow. |
|
1468 |
|
1469 isWindows ifTrue:[ |
|
1470 "/ want it white-with black boundary |
|
1471 bits := #( |
|
1472 2r1111111111111111 |
|
1473 2r1111111110111111 |
|
1474 2r1111111110011111 |
|
1475 2r1111111110001111 |
|
1476 2r1111111110000111 |
|
1477 2r1000000000000011 |
|
1478 2r1000000000000001 |
|
1479 2r1111111111111111 |
|
1480 2r1111111111111111 |
|
1481 2r1111111111111111 |
|
1482 2r1111111111111111 |
|
1483 2r1111111111111111 |
|
1484 2r1111111111111111 |
|
1485 2r1111111111111111 |
|
1486 2r1111111111111111 |
|
1487 2r1111111111111111). |
|
1488 ] ifFalse:[ |
|
1489 "/ want it black-with white boundary |
|
1490 bits := #( |
|
1491 2r0000000000000000 |
|
1492 2r0000000001000000 |
|
1493 2r0000000001100000 |
|
1494 2r0000000001110000 |
|
1495 2r0000000001111000 |
|
1496 2r0111111111111100 |
|
1497 2r0111111111111110 |
|
1498 2r0000000000000000 |
|
1499 2r0000000000000000 |
|
1500 2r0000000000000000 |
|
1501 2r0000000000000000 |
|
1502 2r0000000000000000 |
|
1503 2r0000000000000000 |
|
1504 2r0000000000000000 |
|
1505 2r0000000000000000 |
|
1506 2r0000000000000000). |
|
1507 ]. |
|
1508 |
|
1509 RightCursor := |
|
1510 Cursor |
|
1511 extent: 16@16 |
|
1512 sourceArray: bits |
|
1513 maskArray: #( |
|
1514 2r0000000011000000 |
|
1515 2r0000000011100000 |
|
1516 2r0000000011110000 |
|
1517 2r0000000011111000 |
|
1518 2r1111111111111100 |
|
1519 2r1111111111111110 |
|
1520 2r1111111111111111 |
|
1521 2r1111111111111111 |
|
1522 2r0000000000000000 |
|
1523 2r0000000000000000 |
|
1524 2r0000000000000000 |
|
1525 2r0000000000000000 |
|
1526 2r0000000000000000 |
|
1527 2r0000000000000000 |
|
1528 2r0000000000000000 |
|
1529 2r0000000000000000) |
|
1530 offset: -15@ -6. |
|
1531 RightCursor setShape:#rightArrow. |
|
1532 |
|
1533 isWindows ifTrue:[ |
|
1534 "/ want it white-with black boundary |
|
1535 bits := #( |
|
1536 2r1111111111111111 |
|
1537 2r1111111011111111 |
|
1538 2r1111111011111111 |
|
1539 2r1111110001111111 |
|
1540 2r1111110001111111 |
|
1541 2r1111100000111111 |
|
1542 2r1111100000111111 |
|
1543 2r1111000000011111 |
|
1544 2r1111000000011111 |
|
1545 2r1110000000001111 |
|
1546 2r1111110001111111 |
|
1547 2r1111110001111111 |
|
1548 2r1111110001111111 |
|
1549 2r1111110001111111 |
|
1550 2r1111110001111111 |
|
1551 2r1111111111111111). |
|
1552 ] ifFalse:[ |
|
1553 "/ want it black-with white boundary |
|
1554 bits := #( |
|
1555 2r0000000000000000 |
|
1556 2r0000000100000000 |
|
1557 2r0000000100000000 |
|
1558 2r0000001110000000 |
|
1559 2r0000001110000000 |
|
1560 2r0000011111000000 |
|
1561 2r0000011111000000 |
|
1562 2r0000111111100000 |
|
1563 2r0000111111100000 |
|
1564 2r0001111111110000 |
|
1565 2r0000001110000000 |
|
1566 2r0000001110000000 |
|
1567 2r0000001110000000 |
|
1568 2r0000001110000000 |
|
1569 2r0000001110000000 |
|
1570 2r0000000000000000). |
|
1571 ]. |
|
1572 |
|
1573 XMarkerCursor := |
|
1574 Cursor |
|
1575 extent: 16@16 |
|
1576 sourceArray: bits |
|
1577 maskArray: #( |
|
1578 2r0000000100000000 |
1557 2r0000000100000000 |
1579 2r0000001110000000 |
1558 2r0000001110000000 |
1580 2r0000001110000000 |
1559 2r0000001110000000 |
1581 2r0000011111000000 |
1560 2r0000011111000000 |
1582 2r0000011111000000 |
1561 2r0000011111000000 |
1583 2r0000111111100000 |
1562 2r0000111111100000 |
1584 2r0000111111100000 |
1563 2r0000111111100000 |
1585 2r0001111111110000 |
1564 2r0001111111110000 |
1586 2r0001111111110000 |
|
1587 2r0011111111111000 |
|
1588 2r0011111111111000 |
|
1589 2r0000011111000000 |
|
1590 2r0000011111000000 |
|
1591 2r0000011111000000 |
|
1592 2r0000011111000000 |
|
1593 2r0000011111000000) |
|
1594 offset: -7@ -1. |
|
1595 RightCursor setShape:#xMarker. |
|
1596 |
|
1597 FourWayCursor := |
|
1598 Cursor |
|
1599 extent: 16@16 |
|
1600 sourceArray: #( |
|
1601 2r0000000100000000 |
|
1602 2r0000001110000000 |
1565 2r0000001110000000 |
1603 2r0000011111000000 |
|
1604 2r0000111111100000 |
|
1605 2r0001001110010000 |
|
1606 2r0011001110011000 |
|
1607 2r0111111111111100 |
|
1608 2r1111111111111110 |
|
1609 2r0111111111111100 |
|
1610 2r0011001110011000 |
|
1611 2r0001001110010000 |
|
1612 2r0000111111100000 |
|
1613 2r0000011111000000 |
|
1614 2r0000001110000000 |
1566 2r0000001110000000 |
1615 2r0000000100000000 |
|
1616 2r0000000000000000) |
|
1617 maskArray: #( |
|
1618 2r0000001110000000 |
1567 2r0000001110000000 |
1619 2r0000011111000000 |
|
1620 2r0000111111100000 |
|
1621 2r0001111111110000 |
|
1622 2r0010111111101000 |
|
1623 2r0111111111111100 |
|
1624 2r1111111111111110 |
|
1625 2r1111111111111110 |
|
1626 2r1111111111111110 |
|
1627 2r0111111111111100 |
|
1628 2r0010111111101000 |
|
1629 2r0001111111110000 |
|
1630 2r0000111111100000 |
|
1631 2r0000011111000000 |
|
1632 2r0000001110000000 |
1568 2r0000001110000000 |
1633 2r0000000000000000) |
1569 2r0000001110000000 |
1634 offset: -7@ -7. |
1570 2r0000000000000000). |
1635 FourWayCursor setShape:#fourWay. |
1571 ]. |
1636 |
1572 |
1637 ThumbsUpCursor := (Cursor |
1573 XMarkerCursor := |
1638 extent: 16@16 |
1574 Cursor |
1639 sourceArray: #( |
1575 extent: 16@16 |
1640 2r0000000000100000 |
1576 sourceArray: bits |
1641 2r0000000001010000 |
1577 maskArray: #( |
1642 2r0000000010010000 |
1578 2r0000000100000000 |
1643 2r0000000011110000 |
1579 2r0000001110000000 |
1644 2r0000000100010000 |
1580 2r0000001110000000 |
1645 2r0000000100010000 |
1581 2r0000011111000000 |
1646 2r0001111100011000 |
1582 2r0000011111000000 |
1647 2r0010000100000110 |
1583 2r0000111111100000 |
1648 2r0100000000000000 |
1584 2r0000111111100000 |
1649 2r0111111000000000 |
1585 2r0001111111110000 |
1650 2r0100000000000000 |
1586 2r0001111111110000 |
1651 2r0111111000000000 |
1587 2r0011111111111000 |
1652 2r0100000000000000 |
1588 2r0011111111111000 |
1653 2r0011111000001110 |
1589 2r0000011111000000 |
1654 2r0001000000010000 |
1590 2r0000011111000000 |
1655 2r0001111111100000) |
1591 2r0000011111000000 |
1656 maskArray: #( |
1592 2r0000011111000000 |
1657 2r0000000000100000 |
1593 2r0000011111000000) |
1658 2r0000000001110000 |
1594 offset: -7@ -1. |
1659 2r0000000011110000 |
1595 RightCursor setShape:#xMarker. |
1660 2r0000000011110000 |
1596 |
1661 2r0000000111110000 |
1597 FourWayCursor := |
1662 2r0000000111110000 |
1598 Cursor |
1663 2r0001111111111000 |
1599 extent: 16@16 |
1664 2r0011111111111110 |
1600 sourceArray: #( |
1665 2r0111111111111110 |
1601 2r0000000100000000 |
1666 2r0111111111111110 |
1602 2r0000001110000000 |
1667 2r0111111111111110 |
1603 2r0000011111000000 |
1668 2r0111111111111110 |
1604 2r0000111111100000 |
1669 2r0111111111111110 |
1605 2r0001001110010000 |
1670 2r0011111111111110 |
1606 2r0011001110011000 |
1671 2r0001111111110000 |
1607 2r0111111111111100 |
1672 2r0001111111100000) |
1608 2r1111111111111110 |
1673 offset: -8@ 0). |
1609 2r0111111111111100 |
1674 ThumbsUpCursor setShape:#thumbsUp. |
1610 2r0011001110011000 |
1675 |
1611 2r0001001110010000 |
1676 CaretCursor := (Cursor |
1612 2r0000111111100000 |
1677 extent: 16@16 |
1613 2r0000011111000000 |
1678 sourceArray: #( |
1614 2r0000001110000000 |
1679 2r0000000000000000 |
1615 2r0000000100000000 |
1680 2r0000000110000000 |
1616 2r0000000000000000) |
1681 2r0000000110000000 |
1617 maskArray: #( |
1682 2r0000001111000000 |
1618 2r0000001110000000 |
1683 2r0000011111100000 |
1619 2r0000011111000000 |
1684 2r0000011001100000 |
1620 2r0000111111100000 |
1685 2r0000000000000000 |
1621 2r0001111111110000 |
1686 2r0000000000000000 |
1622 2r0010111111101000 |
1687 2r0000000000000000 |
1623 2r0111111111111100 |
1688 2r0000000000000000 |
1624 2r1111111111111110 |
1689 2r0000000000000000 |
1625 2r1111111111111110 |
1690 2r0000000000000000 |
1626 2r1111111111111110 |
1691 2r0000000000000000 |
1627 2r0111111111111100 |
1692 2r0000000000000000 |
1628 2r0010111111101000 |
1693 2r0000000000000000 |
1629 2r0001111111110000 |
1694 2r0000000000000000) |
1630 2r0000111111100000 |
1695 maskArray: #( |
1631 2r0000011111000000 |
1696 2r0000000110000000 |
1632 2r0000001110000000 |
1697 2r0000001111000000 |
1633 2r0000000000000000) |
1698 2r0000001111100000 |
1634 offset: -7@ -7. |
1699 2r0000011111100000 |
1635 FourWayCursor setShape:#fourWay. |
1700 2r0000111111110000 |
1636 |
1701 2r0000111111110000 |
1637 ThumbsUpCursor := (Cursor |
1702 2r0000011001100000 |
1638 extent: 16@16 |
1703 2r0000000000000000 |
1639 sourceArray: #( |
1704 2r0000000000000000 |
1640 2r0000000000100000 |
1705 2r0000000000000000 |
1641 2r0000000001010000 |
1706 2r0000000000000000 |
1642 2r0000000010010000 |
1707 2r0000000000000000 |
1643 2r0000000011110000 |
1708 2r0000000000000000 |
1644 2r0000000100010000 |
1709 2r0000000000000000 |
1645 2r0000000100010000 |
1710 2r0000000000000000 |
1646 2r0001111100011000 |
1711 2r0000000000000000) |
1647 2r0010000100000110 |
1712 offset: -8@0). |
1648 2r0100000000000000 |
1713 CaretCursor setShape:#caret. |
1649 2r0111111000000000 |
1714 |
1650 2r0100000000000000 |
1715 ThumbsDownCursor := (Cursor |
1651 2r0111111000000000 |
1716 extent: 16@16 |
1652 2r0100000000000000 |
1717 sourceArray: #( |
1653 2r0011111000001110 |
1718 2r0001111111100000 |
1654 2r0001000000010000 |
1719 2r0001000000010000 |
1655 2r0001111111100000) |
1720 2r0011111000001110 |
1656 maskArray: #( |
1721 2r0100000000000000 |
1657 2r0000000000100000 |
1722 2r0111111000000000 |
1658 2r0000000001110000 |
1723 2r0100000000000000 |
1659 2r0000000011110000 |
1724 2r0111111000000000 |
1660 2r0000000011110000 |
1725 2r0100000000000000 |
1661 2r0000000111110000 |
1726 2r0010000100000110 |
1662 2r0000000111110000 |
1727 2r0001111100011000 |
1663 2r0001111111111000 |
1728 2r0000000100010000 |
1664 2r0011111111111110 |
1729 2r0000000100010000 |
1665 2r0111111111111110 |
1730 2r0000000011110000 |
1666 2r0111111111111110 |
1731 2r0000000010010000 |
1667 2r0111111111111110 |
1732 2r0000000001010000 |
1668 2r0111111111111110 |
1733 2r0000000000100000) |
1669 2r0111111111111110 |
1734 |
1670 2r0011111111111110 |
1735 maskArray: #( |
1671 2r0001111111110000 |
1736 2r0001111111100000 |
1672 2r0001111111100000) |
1737 2r0001111111110000 |
1673 offset: -8@ 0). |
1738 2r0011111111111110 |
1674 ThumbsUpCursor setShape:#thumbsUp. |
1739 2r0111111111111110 |
1675 |
1740 2r0111111111111110 |
1676 CaretCursor := (Cursor |
1741 2r0111111111111110 |
1677 extent: 16@16 |
1742 2r0111111111111110 |
1678 sourceArray: #( |
1743 2r0111111111111110 |
1679 2r0000000000000000 |
1744 2r0011111111111110 |
1680 2r0000000110000000 |
1745 2r0001111111111000 |
1681 2r0000000110000000 |
1746 2r0000000111110000 |
1682 2r0000001111000000 |
1747 2r0000000111110000 |
1683 2r0000011111100000 |
1748 2r0000000011110000 |
1684 2r0000011001100000 |
1749 2r0000000011110000 |
1685 2r0000000000000000 |
1750 2r0000000001110000 |
1686 2r0000000000000000 |
1751 2r0000000000100000) |
1687 2r0000000000000000 |
1752 offset: -8@ -16). |
1688 2r0000000000000000 |
1753 ThumbsDownCursor setShape:#thumbsDown. |
1689 2r0000000000000000 |
1754 |
1690 2r0000000000000000 |
1755 StopCursor := (Cursor |
1691 2r0000000000000000 |
1756 extent: 16@16 |
1692 2r0000000000000000 |
1757 sourceArray: #( |
1693 2r0000000000000000 |
1758 2r0000000000000000 |
1694 2r0000000000000000) |
1759 2r0000011111000000 |
1695 maskArray: #( |
1760 2r0001111111110000 |
1696 2r0000000110000000 |
1761 2r0011111111111000 |
1697 2r0000001111000000 |
1762 2r0011111111111000 |
1698 2r0000001111100000 |
1763 2r0111111111111100 |
1699 2r0000011111100000 |
1764 2r0111111111111100 |
1700 2r0000111111110000 |
1765 2r0100000000000100 |
1701 2r0000111111110000 |
1766 2r0100000000000100 |
1702 2r0000011001100000 |
1767 2r0111111111111100 |
1703 2r0000000000000000 |
1768 2r0111111111111100 |
1704 2r0000000000000000 |
1769 2r0011111111111000 |
1705 2r0000000000000000 |
1770 2r0011111111111000 |
1706 2r0000000000000000 |
1771 2r0001111111110000 |
1707 2r0000000000000000 |
1772 2r0000011111000000 |
1708 2r0000000000000000 |
1773 2r0000000000000000 |
1709 2r0000000000000000 |
1774 ) |
1710 2r0000000000000000 |
1775 maskArray: #( |
1711 2r0000000000000000) |
1776 2r0000011111000000 |
1712 offset: -8@0). |
1777 2r0001111111110000 |
1713 CaretCursor setShape:#caret. |
1778 2r0011111111111000 |
1714 |
1779 2r0111111111111100 |
1715 ThumbsDownCursor := (Cursor |
1780 2r0111111111111100 |
1716 extent: 16@16 |
1781 2r1111111111111110 |
1717 sourceArray: #( |
1782 2r1111111111111110 |
1718 2r0001111111100000 |
1783 2r1111111111111110 |
1719 2r0001000000010000 |
1784 2r1111111111111110 |
1720 2r0011111000001110 |
1785 2r1111111111111110 |
1721 2r0100000000000000 |
1786 2r1111111111111110 |
1722 2r0111111000000000 |
1787 2r0111111111111100 |
1723 2r0100000000000000 |
1788 2r0111111111111100 |
1724 2r0111111000000000 |
1789 2r0011111111111000 |
1725 2r0100000000000000 |
1790 2r0001111111110000 |
1726 2r0010000100000110 |
1791 2r0000011111000000 |
1727 2r0001111100011000 |
1792 ) |
1728 2r0000000100010000 |
1793 offset: -8 @ -8). |
1729 2r0000000100010000 |
1794 StopCursor setShape:#stop. |
1730 2r0000000011110000 |
1795 |
1731 2r0000000010010000 |
1796 EyeCursor := (Cursor |
1732 2r0000000001010000 |
1797 extent: 16@16 |
1733 2r0000000000100000) |
1798 sourceArray: #( |
1734 |
1799 2r0000000000000000 |
1735 maskArray: #( |
1800 2r0000000000000000 |
1736 2r0001111111100000 |
1801 2r0000000000000000 |
1737 2r0001111111110000 |
1802 2r0000011111000000 |
1738 2r0011111111111110 |
1803 2r0001111111110000 |
1739 2r0111111111111110 |
1804 2r0011000000011000 |
1740 2r0111111111111110 |
1805 2r0110001110001100 |
1741 2r0111111111111110 |
1806 2r1100011111000110 |
1742 2r0111111111111110 |
1807 2r1100011111000110 |
1743 2r0111111111111110 |
1808 2r0110001110001100 |
1744 2r0011111111111110 |
1809 2r0011000000011000 |
1745 2r0001111111111000 |
1810 2r0001111111110000 |
1746 2r0000000111110000 |
1811 2r0000011111000000 |
1747 2r0000000111110000 |
1812 2r0000000000000000 |
1748 2r0000000011110000 |
1813 2r0000000000000000 |
1749 2r0000000011110000 |
1814 2r0000000000000000 |
1750 2r0000000001110000 |
1815 ) |
1751 2r0000000000100000) |
1816 maskArray: #( |
1752 offset: -8@ -16). |
1817 2r0000000000000000 |
1753 ThumbsDownCursor setShape:#thumbsDown. |
1818 2r0000000000000000 |
1754 |
1819 2r0000000000000000 |
1755 StopCursor := (Cursor |
1820 2r0000011111000000 |
1756 extent: 16@16 |
1821 2r0001111111110000 |
1757 sourceArray: #( |
1822 2r0011111111111000 |
1758 2r0000000000000000 |
1823 2r0111111111111100 |
1759 2r0000011111000000 |
1824 2r1111111111111110 |
1760 2r0001111111110000 |
1825 2r1111111111111110 |
1761 2r0011111111111000 |
1826 2r0111111111111100 |
1762 2r0011111111111000 |
1827 2r0011111111111000 |
1763 2r0111111111111100 |
1828 2r0001111111110000 |
1764 2r0111111111111100 |
1829 2r0000011111000000 |
1765 2r0100000000000100 |
1830 2r0000000000000000 |
1766 2r0100000000000100 |
1831 2r0000000000000000 |
1767 2r0111111111111100 |
1832 2r0000000000000000 |
1768 2r0111111111111100 |
1833 ) |
1769 2r0011111111111000 |
1834 offset: -8 @ -8). |
1770 2r0011111111111000 |
1835 EyeCursor setShape:#eye. |
1771 2r0001111111110000 |
|
1772 2r0000011111000000 |
|
1773 2r0000000000000000 |
|
1774 ) |
|
1775 maskArray: #( |
|
1776 2r0000011111000000 |
|
1777 2r0001111111110000 |
|
1778 2r0011111111111000 |
|
1779 2r0111111111111100 |
|
1780 2r0111111111111100 |
|
1781 2r1111111111111110 |
|
1782 2r1111111111111110 |
|
1783 2r1111111111111110 |
|
1784 2r1111111111111110 |
|
1785 2r1111111111111110 |
|
1786 2r1111111111111110 |
|
1787 2r0111111111111100 |
|
1788 2r0111111111111100 |
|
1789 2r0011111111111000 |
|
1790 2r0001111111110000 |
|
1791 2r0000011111000000 |
|
1792 ) |
|
1793 offset: -8 @ -8). |
|
1794 StopCursor setShape:#stop. |
|
1795 |
|
1796 EyeCursor := (Cursor |
|
1797 extent: 16@16 |
|
1798 sourceArray: #( |
|
1799 2r0000000000000000 |
|
1800 2r0000000000000000 |
|
1801 2r0000000000000000 |
|
1802 2r0000011111000000 |
|
1803 2r0001111111110000 |
|
1804 2r0011000000011000 |
|
1805 2r0110001110001100 |
|
1806 2r1100011111000110 |
|
1807 2r1100011111000110 |
|
1808 2r0110001110001100 |
|
1809 2r0011000000011000 |
|
1810 2r0001111111110000 |
|
1811 2r0000011111000000 |
|
1812 2r0000000000000000 |
|
1813 2r0000000000000000 |
|
1814 2r0000000000000000 |
|
1815 ) |
|
1816 maskArray: #( |
|
1817 2r0000000000000000 |
|
1818 2r0000000000000000 |
|
1819 2r0000000000000000 |
|
1820 2r0000011111000000 |
|
1821 2r0001111111110000 |
|
1822 2r0011111111111000 |
|
1823 2r0111111111111100 |
|
1824 2r1111111111111110 |
|
1825 2r1111111111111110 |
|
1826 2r0111111111111100 |
|
1827 2r0011111111111000 |
|
1828 2r0001111111110000 |
|
1829 2r0000011111000000 |
|
1830 2r0000000000000000 |
|
1831 2r0000000000000000 |
|
1832 2r0000000000000000 |
|
1833 ) |
|
1834 offset: -8 @ -8). |
|
1835 EyeCursor setShape:#eye. |
1836 |
1836 |
1837 "/ if possible, preallocate them on the default display |
1837 "/ if possible, preallocate them on the default display |
1838 device notNil ifTrue:[ |
1838 device notNil ifTrue:[ |
1839 FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device]. |
1839 FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device]. |
1840 LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device]. |
1840 LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device]. |