equal
deleted
inserted
replaced
324 Cursor xMarker |
324 Cursor xMarker |
325 Cursor caret |
325 Cursor caret |
326 Cursor stop |
326 Cursor stop |
327 Cursor eye" |
327 Cursor eye" |
328 |
328 |
329 |device builtIn| |
329 |device builtIn bits isWindows| |
330 |
330 |
331 device := Display. |
331 device := Display. |
|
332 isWindows := device platformName = 'WIN32'. |
332 builtIn := device builtInCursorShapes. |
333 builtIn := device builtInCursorShapes. |
333 |
334 |
334 (builtIn includes:#folder) ifFalse:[ |
335 (builtIn includes:#folder) ifFalse:[ |
335 FolderCursor := |
336 FolderCursor := |
336 (Cursor |
337 (Cursor |
786 2r0) |
787 2r0) |
787 offset: -7@ -7). |
788 offset: -7@ -7). |
788 ]. |
789 ]. |
789 |
790 |
790 (builtIn includes:#scrollMarkerH) ifFalse:[ |
791 (builtIn includes:#scrollMarkerH) ifFalse:[ |
|
792 isWindows ifTrue:[ |
|
793 bits := #( |
|
794 2r1111111111111111 |
|
795 2r1111111111111111 |
|
796 2r1111111111111111 |
|
797 2r1111110111111111 |
|
798 2r1111110001111111 |
|
799 2r1111110000011111 |
|
800 2r1000000000000111 |
|
801 2r1000000000000001 |
|
802 2r1000000000000111 |
|
803 2r1111110000011111 |
|
804 2r1111110001111111 |
|
805 2r1111110111111111 |
|
806 2r1111111111111111 |
|
807 2r1111111111111111 |
|
808 2r1111111111111111 |
|
809 2r1111111111111111). |
|
810 ] ifFalse:[ |
|
811 bits := #( |
|
812 2r0000000000000000 |
|
813 2r0000000000000000 |
|
814 2r0000000000000000 |
|
815 2r0000001000000000 |
|
816 2r0000001110000000 |
|
817 2r0000001111100000 |
|
818 2r0111111111111000 |
|
819 2r0111111111111110 |
|
820 2r0111111111111000 |
|
821 2r0000001111100000 |
|
822 2r0000001110000000 |
|
823 2r0000001000000000 |
|
824 2r0000000000000000 |
|
825 2r0000000000000000 |
|
826 2r0000000000000000 |
|
827 2r0000000000000000). |
|
828 ]. |
|
829 |
791 MarkerCursor := |
830 MarkerCursor := |
792 Cursor |
831 Cursor |
793 extent: 16@16 |
832 extent: 16@16 |
794 sourceArray: #( |
833 sourceArray:bits |
795 2r0000000000000000 |
|
796 2r0000000000000000 |
|
797 2r0000000000000000 |
|
798 2r0000001000000000 |
|
799 2r0000001110000000 |
|
800 2r0000001111100000 |
|
801 2r0111111111111000 |
|
802 2r0111111111111110 |
|
803 2r0111111111111000 |
|
804 2r0000001111100000 |
|
805 2r0000001110000000 |
|
806 2r0000001000000000 |
|
807 2r0000000000000000 |
|
808 2r0000000000000000 |
|
809 2r0000000000000000 |
|
810 2r0000000000000000) |
|
811 maskArray: #( |
834 maskArray: #( |
812 2r0000000000000000 |
835 2r0000000000000000 |
813 2r0000000000000000 |
836 2r0000000000000000 |
814 2r0000000000000000 |
837 2r0000000000000000 |
815 2r0000011100000000 |
838 2r0000011100000000 |
827 2r0000000000000000) |
850 2r0000000000000000) |
828 offset: -14@ -7. |
851 offset: -14@ -7. |
829 ]. |
852 ]. |
830 |
853 |
831 (builtIn includes:#scrollUp) ifFalse:[ |
854 (builtIn includes:#scrollUp) ifFalse:[ |
|
855 isWindows ifTrue:[ |
|
856 bits := #( |
|
857 2r1111111111111111 |
|
858 2r1011111111111111 |
|
859 2r1001111111111111 |
|
860 2r1000111111111111 |
|
861 2r1000011111111111 |
|
862 2r1000001111111111 |
|
863 2r1000000111111111 |
|
864 2r1001111111111111 |
|
865 2r1001111111111111 |
|
866 2r1001111111111111 |
|
867 2r1001111111111111 |
|
868 2r1001111111111111 |
|
869 2r1001111111111111 |
|
870 2r1001111111111111 |
|
871 2r1001111111111111 |
|
872 2r1111111111111111). |
|
873 ] ifFalse:[ |
|
874 bits := #( |
|
875 2r0000000000000000 |
|
876 2r0100000000000000 |
|
877 2r0110000000000000 |
|
878 2r0111000000000000 |
|
879 2r0111100000000000 |
|
880 2r0111110000000000 |
|
881 2r0111111000000000 |
|
882 2r0110000000000000 |
|
883 2r0110000000000000 |
|
884 2r0110000000000000 |
|
885 2r0110000000000000 |
|
886 2r0110000000000000 |
|
887 2r0110000000000000 |
|
888 2r0110000000000000 |
|
889 2r0110000000000000 |
|
890 2r0000000000000000). |
|
891 ]. |
832 UpCursor := |
892 UpCursor := |
833 Cursor |
893 Cursor |
834 extent: 16@16 |
894 extent: 16@16 |
835 sourceArray: #( |
895 sourceArray:bits |
836 2r0000000000000000 |
|
837 2r0100000000000000 |
|
838 2r0110000000000000 |
|
839 2r0111000000000000 |
|
840 2r0111100000000000 |
|
841 2r0111110000000000 |
|
842 2r0111111000000000 |
|
843 2r0110000000000000 |
|
844 2r0110000000000000 |
|
845 2r0110000000000000 |
|
846 2r0110000000000000 |
|
847 2r0110000000000000 |
|
848 2r0110000000000000 |
|
849 2r0110000000000000 |
|
850 2r0110000000000000 |
|
851 2r0000000000000000) |
|
852 maskArray: #( |
896 maskArray: #( |
853 2r1100000000000000 |
897 2r1100000000000000 |
854 2r1110000000000000 |
898 2r1110000000000000 |
855 2r1111000000000000 |
899 2r1111000000000000 |
856 2r1111100000000000 |
900 2r1111100000000000 |
868 2r1111000000000000) |
912 2r1111000000000000) |
869 offset: -1@ -1. |
913 offset: -1@ -1. |
870 ]. |
914 ]. |
871 |
915 |
872 (builtIn includes:#scrollDown) ifFalse:[ |
916 (builtIn includes:#scrollDown) ifFalse:[ |
|
917 isWindows ifTrue:[ |
|
918 bits := #( |
|
919 2r1111111111111111 |
|
920 2r1111100111111111 |
|
921 2r1111100111111111 |
|
922 2r1111100111111111 |
|
923 2r1111100111111111 |
|
924 2r1111100111111111 |
|
925 2r1111100111111111 |
|
926 2r1111100111111111 |
|
927 2r1111100111111111 |
|
928 2r1000000111111111 |
|
929 2r1100000111111111 |
|
930 2r1110000111111111 |
|
931 2r1111000111111111 |
|
932 2r1111100111111111 |
|
933 2r1111110111111111 |
|
934 2r1111111111111111). |
|
935 ] ifFalse:[ |
|
936 bits := #( |
|
937 2r0000000000000000 |
|
938 2r0000011000000000 |
|
939 2r0000011000000000 |
|
940 2r0000011000000000 |
|
941 2r0000011000000000 |
|
942 2r0000011000000000 |
|
943 2r0000011000000000 |
|
944 2r0000011000000000 |
|
945 2r0000011000000000 |
|
946 2r0111111000000000 |
|
947 2r0011111000000000 |
|
948 2r0001111000000000 |
|
949 2r0000111000000000 |
|
950 2r0000011000000000 |
|
951 2r0000001000000000 |
|
952 2r0000000000000000). |
|
953 ]. |
|
954 |
873 DownCursor := |
955 DownCursor := |
874 Cursor |
956 Cursor |
875 extent: 16@16 |
957 extent: 16@16 |
876 sourceArray: #( |
958 sourceArray:bits |
877 2r0000000000000000 |
|
878 2r0000011000000000 |
|
879 2r0000011000000000 |
|
880 2r0000011000000000 |
|
881 2r0000011000000000 |
|
882 2r0000011000000000 |
|
883 2r0000011000000000 |
|
884 2r0000011000000000 |
|
885 2r0000011000000000 |
|
886 2r0111111000000000 |
|
887 2r0011111000000000 |
|
888 2r0001111000000000 |
|
889 2r0000111000000000 |
|
890 2r0000011000000000 |
|
891 2r0000001000000000 |
|
892 2r0000000000000000) |
|
893 maskArray: #( |
959 maskArray: #( |
894 2r0000111100000000 |
960 2r0000111100000000 |
895 2r0000111100000000 |
961 2r0000111100000000 |
896 2r0000111100000000 |
962 2r0000111100000000 |
897 2r0000111100000000 |
963 2r0000111100000000 |
909 2r0000001100000000) |
975 2r0000001100000000) |
910 offset: -7@ -15. |
976 offset: -7@ -15. |
911 ]. |
977 ]. |
912 |
978 |
913 (builtIn includes:#scrollLeft) ifFalse:[ |
979 (builtIn includes:#scrollLeft) ifFalse:[ |
|
980 isWindows ifTrue:[ |
|
981 bits := #( |
|
982 2r1111111111111111 |
|
983 2r1000000000000001 |
|
984 2r1100000000000001 |
|
985 2r1110000111111111 |
|
986 2r1111000111111111 |
|
987 2r1111100111111111 |
|
988 2r1111110111111111 |
|
989 2r1111111111111111 |
|
990 2r1111111111111111 |
|
991 2r1111111111111111 |
|
992 2r1111111111111111 |
|
993 2r1111111111111111 |
|
994 2r1111111111111111 |
|
995 2r1111111111111111 |
|
996 2r1111111111111111 |
|
997 2r1111111111111111). |
|
998 ] ifFalse:[ |
|
999 bits := #( |
|
1000 2r0000000000000000 |
|
1001 2r0111111111111110 |
|
1002 2r0011111111111110 |
|
1003 2r0001111000000000 |
|
1004 2r0000111000000000 |
|
1005 2r0000011000000000 |
|
1006 2r0000001000000000 |
|
1007 2r0000000000000000 |
|
1008 2r0000000000000000 |
|
1009 2r0000000000000000 |
|
1010 2r0000000000000000 |
|
1011 2r0000000000000000 |
|
1012 2r0000000000000000 |
|
1013 2r0000000000000000 |
|
1014 2r0000000000000000 |
|
1015 2r0000000000000000). |
|
1016 ]. |
|
1017 |
914 LeftCursor := |
1018 LeftCursor := |
915 Cursor |
1019 Cursor |
916 extent: 16@16 |
1020 extent: 16@16 |
917 sourceArray: #( |
1021 sourceArray:bits |
918 2r0000000000000000 |
|
919 2r0111111111111110 |
|
920 2r0011111111111110 |
|
921 2r0001111000000000 |
|
922 2r0000111000000000 |
|
923 2r0000011000000000 |
|
924 2r0000001000000000 |
|
925 2r0000000000000000 |
|
926 2r0000000000000000 |
|
927 2r0000000000000000 |
|
928 2r0000000000000000 |
|
929 2r0000000000000000 |
|
930 2r0000000000000000 |
|
931 2r0000000000000000 |
|
932 2r0000000000000000 |
|
933 2r0000000000000000) |
|
934 maskArray: #( |
1022 maskArray: #( |
935 2r1111111111111111 |
1023 2r1111111111111111 |
936 2r1111111111111111 |
1024 2r1111111111111111 |
937 2r0111111111111111 |
1025 2r0111111111111111 |
938 2r0011111111111111 |
1026 2r0011111111111111 |
950 2r0000000000000000) |
1038 2r0000000000000000) |
951 offset: -1 @ -1. |
1039 offset: -1 @ -1. |
952 ]. |
1040 ]. |
953 |
1041 |
954 (builtIn includes:#scrollRight) ifFalse:[ |
1042 (builtIn includes:#scrollRight) ifFalse:[ |
|
1043 isWindows ifTrue:[ |
|
1044 bits := #( |
|
1045 2r1111111111111111 |
|
1046 2r1111111110111111 |
|
1047 2r1111111110011111 |
|
1048 2r1111111110001111 |
|
1049 2r1111111110000111 |
|
1050 2r1000000000000011 |
|
1051 2r1000000000000001 |
|
1052 2r1111111111111111 |
|
1053 2r1111111111111111 |
|
1054 2r1111111111111111 |
|
1055 2r1111111111111111 |
|
1056 2r1111111111111111 |
|
1057 2r1111111111111111 |
|
1058 2r1111111111111111 |
|
1059 2r1111111111111111 |
|
1060 2r1111111111111111). |
|
1061 ] ifFalse:[ |
|
1062 bits := #( |
|
1063 2r0000000000000000 |
|
1064 2r0000000001000000 |
|
1065 2r0000000001100000 |
|
1066 2r0000000001110000 |
|
1067 2r0000000001111000 |
|
1068 2r0111111111111100 |
|
1069 2r0111111111111110 |
|
1070 2r0000000000000000 |
|
1071 2r0000000000000000 |
|
1072 2r0000000000000000 |
|
1073 2r0000000000000000 |
|
1074 2r0000000000000000 |
|
1075 2r0000000000000000 |
|
1076 2r0000000000000000 |
|
1077 2r0000000000000000 |
|
1078 2r0000000000000000). |
|
1079 ]. |
|
1080 |
955 RightCursor := |
1081 RightCursor := |
956 Cursor |
1082 Cursor |
957 extent: 16@16 |
1083 extent: 16@16 |
958 sourceArray: #( |
1084 sourceArray: bits |
959 2r0000000000000000 |
|
960 2r0000000001000000 |
|
961 2r0000000001100000 |
|
962 2r0000000001110000 |
|
963 2r0000000001111000 |
|
964 2r0111111111111100 |
|
965 2r0111111111111110 |
|
966 2r0000000000000000 |
|
967 2r0000000000000000 |
|
968 2r0000000000000000 |
|
969 2r0000000000000000 |
|
970 2r0000000000000000 |
|
971 2r0000000000000000 |
|
972 2r0000000000000000 |
|
973 2r0000000000000000 |
|
974 2r0000000000000000) |
|
975 maskArray: #( |
1085 maskArray: #( |
976 2r0000000011000000 |
1086 2r0000000011000000 |
977 2r0000000011100000 |
1087 2r0000000011100000 |
978 2r0000000011110000 |
1088 2r0000000011110000 |
979 2r0000000011111000 |
1089 2r0000000011111000 |
991 2r0000000000000000) |
1101 2r0000000000000000) |
992 offset: -15@ -6. |
1102 offset: -15@ -6. |
993 ]. |
1103 ]. |
994 |
1104 |
995 (builtIn includes:#scrollMarkerV) ifFalse:[ |
1105 (builtIn includes:#scrollMarkerV) ifFalse:[ |
|
1106 isWindows ifTrue:[ |
|
1107 bits := #( |
|
1108 2r1111111111111111 |
|
1109 2r1111111011111111 |
|
1110 2r1111111011111111 |
|
1111 2r1111110001111111 |
|
1112 2r1111110001111111 |
|
1113 2r1111100000111111 |
|
1114 2r1111100000111111 |
|
1115 2r1111000000011111 |
|
1116 2r1111000000011111 |
|
1117 2r1110000000001111 |
|
1118 2r1111110001111111 |
|
1119 2r1111110001111111 |
|
1120 2r1111110001111111 |
|
1121 2r1111110001111111 |
|
1122 2r1111110001111111 |
|
1123 2r1111111111111111). |
|
1124 ] ifFalse:[ |
|
1125 bits := #( |
|
1126 2r0000000000000000 |
|
1127 2r0000000100000000 |
|
1128 2r0000000100000000 |
|
1129 2r0000001110000000 |
|
1130 2r0000001110000000 |
|
1131 2r0000011111000000 |
|
1132 2r0000011111000000 |
|
1133 2r0000111111100000 |
|
1134 2r0000111111100000 |
|
1135 2r0001111111110000 |
|
1136 2r0000001110000000 |
|
1137 2r0000001110000000 |
|
1138 2r0000001110000000 |
|
1139 2r0000001110000000 |
|
1140 2r0000001110000000 |
|
1141 2r0000000000000000). |
|
1142 ]. |
|
1143 |
996 XMarkerCursor := |
1144 XMarkerCursor := |
997 Cursor |
1145 Cursor |
998 extent: 16@16 |
1146 extent: 16@16 |
999 sourceArray: #( |
1147 sourceArray: bits |
1000 2r0000000000000000 |
|
1001 2r0000000100000000 |
|
1002 2r0000000100000000 |
|
1003 2r0000001110000000 |
|
1004 2r0000001110000000 |
|
1005 2r0000011111000000 |
|
1006 2r0000011111000000 |
|
1007 2r0000111111100000 |
|
1008 2r0000111111100000 |
|
1009 2r0001111111110000 |
|
1010 2r0000001110000000 |
|
1011 2r0000001110000000 |
|
1012 2r0000001110000000 |
|
1013 2r0000001110000000 |
|
1014 2r0000001110000000 |
|
1015 2r0000000000000000) |
|
1016 maskArray: #( |
1148 maskArray: #( |
1017 2r0000000100000000 |
1149 2r0000000100000000 |
1018 2r0000001110000000 |
1150 2r0000001110000000 |
1019 2r0000001110000000 |
1151 2r0000001110000000 |
1020 2r0000011111000000 |
1152 2r0000011111000000 |
1313 |
1445 |
1314 " |
1446 " |
1315 Cursor initializeNewCursors |
1447 Cursor initializeNewCursors |
1316 " |
1448 " |
1317 |
1449 |
1318 "Modified: / 19.5.1998 / 17:23:10 / cg" |
1450 "Modified: / 27.9.1998 / 22:23:08 / cg" |
1319 ! |
1451 ! |
1320 |
1452 |
1321 update:something with:aParameter from:changedObject |
1453 update:something with:aParameter from:changedObject |
1322 "sent when restarted after a snapIn" |
1454 "sent when restarted after a snapIn" |
1323 |
1455 |
2569 'Cursor [warning]: cursor has no form' errorPrintCR. |
2701 'Cursor [warning]: cursor has no form' errorPrintCR. |
2570 ^ self |
2702 ^ self |
2571 ]. |
2703 ]. |
2572 w := sourceForm width. |
2704 w := sourceForm width. |
2573 h := sourceForm height. |
2705 h := sourceForm height. |
2574 |
2706 id := aDevice |
2575 id := aDevice createCursorSourceForm:sF |
2707 createCursorSourceForm:sF |
2576 maskForm:mF |
2708 maskForm:mF |
2577 hotX:hotX |
2709 hotX:hotX hotY:hotY |
2578 hotY:hotY |
2710 width:w height:h. |
2579 width:w |
2711 |
2580 height:h. |
|
2581 id isNil ifTrue:[ |
2712 id isNil ifTrue:[ |
2582 'Cursor [warning]: cannot create pixmap cursor' errorPrintCR. |
2713 'Cursor [warning]: cannot create pixmap cursor' errorPrintCR. |
2583 ^ self |
2714 ^ self |
2584 ]. |
2715 ]. |
2585 ]. |
2716 ]. |
2657 ! ! |
2788 ! ! |
2658 |
2789 |
2659 !Cursor class methodsFor:'documentation'! |
2790 !Cursor class methodsFor:'documentation'! |
2660 |
2791 |
2661 version |
2792 version |
2662 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.60 1998-09-24 10:01:42 cg Exp $' |
2793 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.61 1998-09-28 09:27:16 cg Exp $' |
2663 ! ! |
2794 ! ! |
2664 Cursor initialize! |
2795 Cursor initialize! |