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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 09 Jun 1999 19:11:18 +0200
changeset 2763 75aed641b570
parent 2762 ea1b8d9c8f76
child 2764 c7d8d29c81ac
*** empty log message ***
GC.st file | annotate | diff | comparison | revisions
GraphicsContext.st file | annotate | diff | comparison | revisions 
--- a/GC.st	Wed Jun 09 19:09:48 1999 +0200
+++ b/GC.st	Wed Jun 09 19:11:18 1999 +0200
@@ -346,17 +346,20 @@
     ].
 
     White isNil ifTrue:[
+        "/ mhmh - the next two checks are historic leftOvers;
+        "/ they should never be nil.
         Color isNil ifTrue:[^ self].
+        Font isNil ifTrue:[^ self].
 
         White := Color white.
         Black := Color black.
 
-        Display isNil ifTrue:[^ self].
-
         Color initialize.
 
-        White := White on:Display.
-        Black := Black on:Display.
+        Display notNil ifTrue:[
+            White := White on:Display.
+            Black := Black on:Display.
+        ].
 
         Font initialize.
         DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12
@@ -2135,6 +2138,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.75 1999-06-09 17:09:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.76 1999-06-09 17:11:18 cg Exp $'
 ! !
 GraphicsContext initialize!
--- a/GraphicsContext.st	Wed Jun 09 19:09:48 1999 +0200
+++ b/GraphicsContext.st	Wed Jun 09 19:11:18 1999 +0200
@@ -346,17 +346,20 @@
     ].
 
     White isNil ifTrue:[
+        "/ mhmh - the next two checks are historic leftOvers;
+        "/ they should never be nil.
         Color isNil ifTrue:[^ self].
+        Font isNil ifTrue:[^ self].
 
         White := Color white.
         Black := Color black.
 
-        Display isNil ifTrue:[^ self].
-
         Color initialize.
 
-        White := White on:Display.
-        Black := Black on:Display.
+        Display notNil ifTrue:[
+            White := White on:Display.
+            Black := Black on:Display.
+        ].
 
         Font initialize.
         DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12
@@ -2135,6 +2138,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.75 1999-06-09 17:09:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.76 1999-06-09 17:11:18 cg Exp $'
 ! !
 GraphicsContext initialize!
hg/stx-libview