Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dont allocate device cursors in initNewCursors;
authorClaus Gittinger <cg@exept.de>
Tue, 07 Dec 1999 16:32:20 +0100
changeset 3086 b1b3bfd40359
parent 3085 83ceb5bf4f10
child 3087 9d9e097b39ef
dont allocate device cursors in initNewCursors; defaultColor may be set later.
Cursor.st file | annotate | diff | comparison | revisions 
--- a/Cursor.st	Tue Dec 07 13:17:07 1999 +0100
+++ b/Cursor.st	Tue Dec 07 16:32:20 1999 +0100
@@ -1880,47 +1880,51 @@
     QuestionMarkCursor setShape:#questionMark.
 
     "/ if possible, preallocate them on the default display
-    device notNil ifTrue:[
-        FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
-        LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
-        RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
-        XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
-
-        OriginCursor notNil ifTrue:[OriginCursor := OriginCursor onDevice:device].
-        CornerCursor notNil ifTrue:[CornerCursor := CornerCursor onDevice:device].
-        TopRightCornerCursor notNil ifTrue:[TopRightCornerCursor := TopRightCornerCursor onDevice:device].
-        BottomLeftCornerCursor notNil ifTrue:[BottomLeftCornerCursor := BottomLeftCornerCursor onDevice:device].
-
-        LeftLimitCursor notNil ifTrue:[LeftLimitCursor := LeftLimitCursor onDevice:device].
-        RightLimitCursor notNil ifTrue:[RightLimitCursor := RightLimitCursor onDevice:device].
-        DownLimitCursor notNil ifTrue:[DownLimitCursor := DownLimitCursor onDevice:device].
-        UpLimitCursor notNil ifTrue:[UpLimitCursor := UpLimitCursor onDevice:device].
-
-        ReadCursor notNil ifTrue:[ReadCursor := ReadCursor onDevice:device].
-        WriteCursor notNil ifTrue:[WriteCursor := WriteCursor onDevice:device].
-        WaitCursor notNil ifTrue:[WaitCursor := WaitCursor onDevice:device].
-        XeqCursor notNil ifTrue:[XeqCursor := XeqCursor onDevice:device].
-
-        SquareCursor notNil ifTrue:[SquareCursor := SquareCursor onDevice:device].
-
-        NormalCursor notNil ifTrue:[NormalCursor := NormalCursor onDevice:device].
-
-        CrossHairCursor notNil ifTrue:[CrossHairCursor := CrossHairCursor onDevice:device].
-
-        MarkerCursor notNil ifTrue:[MarkerCursor := MarkerCursor onDevice:device].
-        UpCursor notNil ifTrue:[UpCursor := UpCursor onDevice:device].
-        DownCursor notNil ifTrue:[DownCursor := DownCursor onDevice:device].
-        LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
-        RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
-        XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
-        CaretCursor notNil ifTrue:[CaretCursor := CaretCursor onDevice:device].
-
-        ThumbsUpCursor notNil ifTrue:[ThumbsUpCursor := ThumbsUpCursor onDevice:device].
-        ThumbsDownCursor notNil ifTrue:[ThumbsDownCursor := ThumbsDownCursor onDevice:device].
-        StopCursor notNil ifTrue:[StopCursor := StopCursor onDevice:device].
-        EyeCursor notNil ifTrue:[EyeCursor := EyeCursor onDevice:device].
-        QuestionMarkCursor notNil ifTrue:[QuestionMarkCursor := QuestionMarkCursor onDevice:device].
-    ].
+
+"/ cg: no, do not do this here;
+"/ defaultFG / defaultBG is not yet initialized.
+
+"/    device notNil ifTrue:[
+"/        FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
+"/        LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
+"/        RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
+"/        XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
+"/
+"/        OriginCursor notNil ifTrue:[OriginCursor := OriginCursor onDevice:device].
+"/        CornerCursor notNil ifTrue:[CornerCursor := CornerCursor onDevice:device].
+"/        TopRightCornerCursor notNil ifTrue:[TopRightCornerCursor := TopRightCornerCursor onDevice:device].
+"/        BottomLeftCornerCursor notNil ifTrue:[BottomLeftCornerCursor := BottomLeftCornerCursor onDevice:device].
+"/
+"/        LeftLimitCursor notNil ifTrue:[LeftLimitCursor := LeftLimitCursor onDevice:device].
+"/        RightLimitCursor notNil ifTrue:[RightLimitCursor := RightLimitCursor onDevice:device].
+"/        DownLimitCursor notNil ifTrue:[DownLimitCursor := DownLimitCursor onDevice:device].
+"/        UpLimitCursor notNil ifTrue:[UpLimitCursor := UpLimitCursor onDevice:device].
+"/
+"/        ReadCursor notNil ifTrue:[ReadCursor := ReadCursor onDevice:device].
+"/        WriteCursor notNil ifTrue:[WriteCursor := WriteCursor onDevice:device].
+"/        WaitCursor notNil ifTrue:[WaitCursor := WaitCursor onDevice:device].
+"/        XeqCursor notNil ifTrue:[XeqCursor := XeqCursor onDevice:device].
+"/
+"/        SquareCursor notNil ifTrue:[SquareCursor := SquareCursor onDevice:device].
+"/
+"/        NormalCursor notNil ifTrue:[NormalCursor := NormalCursor onDevice:device].
+"/
+"/        CrossHairCursor notNil ifTrue:[CrossHairCursor := CrossHairCursor onDevice:device].
+"/
+"/        MarkerCursor notNil ifTrue:[MarkerCursor := MarkerCursor onDevice:device].
+"/        UpCursor notNil ifTrue:[UpCursor := UpCursor onDevice:device].
+"/        DownCursor notNil ifTrue:[DownCursor := DownCursor onDevice:device].
+"/        LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
+"/        RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
+"/        XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
+"/        CaretCursor notNil ifTrue:[CaretCursor := CaretCursor onDevice:device].
+"/
+"/        ThumbsUpCursor notNil ifTrue:[ThumbsUpCursor := ThumbsUpCursor onDevice:device].
+"/        ThumbsDownCursor notNil ifTrue:[ThumbsDownCursor := ThumbsDownCursor onDevice:device].
+"/        StopCursor notNil ifTrue:[StopCursor := StopCursor onDevice:device].
+"/        EyeCursor notNil ifTrue:[EyeCursor := EyeCursor onDevice:device].
+"/        QuestionMarkCursor notNil ifTrue:[QuestionMarkCursor := QuestionMarkCursor onDevice:device].
+"/    ].
 
     "
      Cursor initializeNewCursors
@@ -3162,6 +3166,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.82 1999-12-07 12:17:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.83 1999-12-07 15:32:20 cg Exp $'
 ! !
 Cursor initialize!
hg/stx-libview