1878 ) |
1878 ) |
1879 offset: -8 @ -8). |
1879 offset: -8 @ -8). |
1880 QuestionMarkCursor setShape:#questionMark. |
1880 QuestionMarkCursor setShape:#questionMark. |
1881 |
1881 |
1882 "/ if possible, preallocate them on the default display |
1882 "/ if possible, preallocate them on the default display |
1883 device notNil ifTrue:[ |
1883 |
1884 FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device]. |
1884 "/ cg: no, do not do this here; |
1885 LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device]. |
1885 "/ defaultFG / defaultBG is not yet initialized. |
1886 RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device]. |
1886 |
1887 XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device]. |
1887 "/ device notNil ifTrue:[ |
1888 |
1888 "/ FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device]. |
1889 OriginCursor notNil ifTrue:[OriginCursor := OriginCursor onDevice:device]. |
1889 "/ LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device]. |
1890 CornerCursor notNil ifTrue:[CornerCursor := CornerCursor onDevice:device]. |
1890 "/ RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device]. |
1891 TopRightCornerCursor notNil ifTrue:[TopRightCornerCursor := TopRightCornerCursor onDevice:device]. |
1891 "/ XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device]. |
1892 BottomLeftCornerCursor notNil ifTrue:[BottomLeftCornerCursor := BottomLeftCornerCursor onDevice:device]. |
1892 "/ |
1893 |
1893 "/ OriginCursor notNil ifTrue:[OriginCursor := OriginCursor onDevice:device]. |
1894 LeftLimitCursor notNil ifTrue:[LeftLimitCursor := LeftLimitCursor onDevice:device]. |
1894 "/ CornerCursor notNil ifTrue:[CornerCursor := CornerCursor onDevice:device]. |
1895 RightLimitCursor notNil ifTrue:[RightLimitCursor := RightLimitCursor onDevice:device]. |
1895 "/ TopRightCornerCursor notNil ifTrue:[TopRightCornerCursor := TopRightCornerCursor onDevice:device]. |
1896 DownLimitCursor notNil ifTrue:[DownLimitCursor := DownLimitCursor onDevice:device]. |
1896 "/ BottomLeftCornerCursor notNil ifTrue:[BottomLeftCornerCursor := BottomLeftCornerCursor onDevice:device]. |
1897 UpLimitCursor notNil ifTrue:[UpLimitCursor := UpLimitCursor onDevice:device]. |
1897 "/ |
1898 |
1898 "/ LeftLimitCursor notNil ifTrue:[LeftLimitCursor := LeftLimitCursor onDevice:device]. |
1899 ReadCursor notNil ifTrue:[ReadCursor := ReadCursor onDevice:device]. |
1899 "/ RightLimitCursor notNil ifTrue:[RightLimitCursor := RightLimitCursor onDevice:device]. |
1900 WriteCursor notNil ifTrue:[WriteCursor := WriteCursor onDevice:device]. |
1900 "/ DownLimitCursor notNil ifTrue:[DownLimitCursor := DownLimitCursor onDevice:device]. |
1901 WaitCursor notNil ifTrue:[WaitCursor := WaitCursor onDevice:device]. |
1901 "/ UpLimitCursor notNil ifTrue:[UpLimitCursor := UpLimitCursor onDevice:device]. |
1902 XeqCursor notNil ifTrue:[XeqCursor := XeqCursor onDevice:device]. |
1902 "/ |
1903 |
1903 "/ ReadCursor notNil ifTrue:[ReadCursor := ReadCursor onDevice:device]. |
1904 SquareCursor notNil ifTrue:[SquareCursor := SquareCursor onDevice:device]. |
1904 "/ WriteCursor notNil ifTrue:[WriteCursor := WriteCursor onDevice:device]. |
1905 |
1905 "/ WaitCursor notNil ifTrue:[WaitCursor := WaitCursor onDevice:device]. |
1906 NormalCursor notNil ifTrue:[NormalCursor := NormalCursor onDevice:device]. |
1906 "/ XeqCursor notNil ifTrue:[XeqCursor := XeqCursor onDevice:device]. |
1907 |
1907 "/ |
1908 CrossHairCursor notNil ifTrue:[CrossHairCursor := CrossHairCursor onDevice:device]. |
1908 "/ SquareCursor notNil ifTrue:[SquareCursor := SquareCursor onDevice:device]. |
1909 |
1909 "/ |
1910 MarkerCursor notNil ifTrue:[MarkerCursor := MarkerCursor onDevice:device]. |
1910 "/ NormalCursor notNil ifTrue:[NormalCursor := NormalCursor onDevice:device]. |
1911 UpCursor notNil ifTrue:[UpCursor := UpCursor onDevice:device]. |
1911 "/ |
1912 DownCursor notNil ifTrue:[DownCursor := DownCursor onDevice:device]. |
1912 "/ CrossHairCursor notNil ifTrue:[CrossHairCursor := CrossHairCursor onDevice:device]. |
1913 LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device]. |
1913 "/ |
1914 RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device]. |
1914 "/ MarkerCursor notNil ifTrue:[MarkerCursor := MarkerCursor onDevice:device]. |
1915 XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device]. |
1915 "/ UpCursor notNil ifTrue:[UpCursor := UpCursor onDevice:device]. |
1916 CaretCursor notNil ifTrue:[CaretCursor := CaretCursor onDevice:device]. |
1916 "/ DownCursor notNil ifTrue:[DownCursor := DownCursor onDevice:device]. |
1917 |
1917 "/ LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device]. |
1918 ThumbsUpCursor notNil ifTrue:[ThumbsUpCursor := ThumbsUpCursor onDevice:device]. |
1918 "/ RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device]. |
1919 ThumbsDownCursor notNil ifTrue:[ThumbsDownCursor := ThumbsDownCursor onDevice:device]. |
1919 "/ XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device]. |
1920 StopCursor notNil ifTrue:[StopCursor := StopCursor onDevice:device]. |
1920 "/ CaretCursor notNil ifTrue:[CaretCursor := CaretCursor onDevice:device]. |
1921 EyeCursor notNil ifTrue:[EyeCursor := EyeCursor onDevice:device]. |
1921 "/ |
1922 QuestionMarkCursor notNil ifTrue:[QuestionMarkCursor := QuestionMarkCursor onDevice:device]. |
1922 "/ ThumbsUpCursor notNil ifTrue:[ThumbsUpCursor := ThumbsUpCursor onDevice:device]. |
1923 ]. |
1923 "/ ThumbsDownCursor notNil ifTrue:[ThumbsDownCursor := ThumbsDownCursor onDevice:device]. |
|
1924 "/ StopCursor notNil ifTrue:[StopCursor := StopCursor onDevice:device]. |
|
1925 "/ EyeCursor notNil ifTrue:[EyeCursor := EyeCursor onDevice:device]. |
|
1926 "/ QuestionMarkCursor notNil ifTrue:[QuestionMarkCursor := QuestionMarkCursor onDevice:device]. |
|
1927 "/ ]. |
1924 |
1928 |
1925 " |
1929 " |
1926 Cursor initializeNewCursors |
1930 Cursor initializeNewCursors |
1927 " |
1931 " |
1928 |
1932 |