Mercurial Mercurial > hg > stx-libwidg2 / 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>
Sat, 24 Apr 1999 16:39:15 +0200
changeset 1333 011e6414dae5
parent 1332 8969b8f75c6f
child 1334 cc79acaebf00
*** empty log message ***
DSVColumnView.st file | annotate | diff | comparison | revisions 
--- a/DSVColumnView.st	Sat Apr 24 16:22:50 1999 +0200
+++ b/DSVColumnView.st	Sat Apr 24 16:39:15 1999 +0200
@@ -196,26 +196,26 @@
                        #'selection.hilightForegroundColor'
                        #'selection.hilightBackgroundColor'   )>
 
-    DefaultForegroundColor        := StyleSheet colorAt:'textForegroundColor' default:(Color black).
-    DefaultBackgroundColor        := StyleSheet colorAt:'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
-
-    DefaultHilightForegroundColor := StyleSheet colorAt:'selection.hilightForegroundColor' default:DefaultBackgroundColor.
-    DefaultHilightBackgroundColor := StyleSheet colorAt:'selection.hilightBackgroundColor' default:DefaultForegroundColor.
+    DefaultForegroundColor        := StyleSheet colorAt:#'textForegroundColor' default:(Color black).
+    DefaultBackgroundColor        := StyleSheet colorAt:#'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
+
+    DefaultHilightForegroundColor := StyleSheet colorAt:#'selection.hilightForegroundColor' default:DefaultBackgroundColor.
+    DefaultHilightBackgroundColor := StyleSheet colorAt:#'selection.hilightBackgroundColor' default:DefaultForegroundColor.
 
     DefaultHilightForegroundColor = DefaultHilightBackgroundColor ifTrue:[
         DefaultHilightBackgroundColor := Color black
     ].
-    ButtonLightColor       := StyleSheet colorAt:'button.lightColor'.
-    ButtonShadowColor      := StyleSheet colorAt:'button.shadowColor'.
-    ButtonHalfLightColor   := StyleSheet colorAt:'button.halfLightColor'.
-    ButtonHalfShadowColor  := StyleSheet colorAt:'button.halfShadowColor'.
-    ButtonEdgeStyle        := StyleSheet at:'button.edgeStyle'.
-    CheckToggleActiveImage := StyleSheet at:'checkToggle.activeImage'.
+    ButtonLightColor       := StyleSheet colorAt:#'button.lightColor'.
+    ButtonShadowColor      := StyleSheet colorAt:#'button.shadowColor'.
+    ButtonHalfLightColor   := StyleSheet colorAt:#'button.halfLightColor'.
+    ButtonHalfShadowColor  := StyleSheet colorAt:#'button.halfShadowColor'.
+    ButtonEdgeStyle        := StyleSheet at:#'button.edgeStyle'.
+    CheckToggleActiveImage := StyleSheet at:#'checkToggle.activeImage'.
 
     CheckToggleActiveImage isNil ifTrue:[
         CheckTogglePassiveImage := nil
     ] ifFalse:[
-        CheckTogglePassiveImage := StyleSheet at:'checkToggle.passiveImage'.
+        CheckTogglePassiveImage := StyleSheet at:#'checkToggle.passiveImage'.
 
         CheckTogglePassiveImage isNil ifTrue:[
             CheckToggleActiveImage := nil
@@ -2989,5 +2989,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.74 1999-04-23 12:41:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.75 1999-04-24 14:39:15 cg Exp $'
 ! !
hg/stx-libwidg2