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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 30 Mar 1999 11:55:09 +0200
changeset 1290 821cbae57c66
parent 1289 1e5661e6c1ff
child 1291 a30021d56ab7
checkin from browser
ComboListV.st file | annotate | diff | comparison | revisions
ComboListView.st file | annotate | diff | comparison | revisions 
--- a/ComboListV.st	Mon Mar 29 17:18:19 1999 +0200
+++ b/ComboListV.st	Tue Mar 30 11:55:09 1999 +0200
@@ -567,13 +567,14 @@
     "the enable state has changed - pass this to my pullDownButton
      and change the fg-color of the label to some grey color"
 
-    |clr|
+    |clr key|
 
-    enableChannel value ifTrue:[
-        clr := Button styleSheet at:'button.foregroundColor' default:Color black.
+    enableChannel value == false ifTrue:[
+        key := 'button.disabledForegroundColor'.
     ] ifFalse:[
-        clr := Button styleSheet at:'button.disabledForegroundColor' default:Color black.
+        key := 'button.foregroundColor'.
     ].
+    clr := Button styleSheet at:key default:Color black.
     field foregroundColor:clr.
     super updateEnableState.
 ! !
@@ -646,5 +647,5 @@
 !ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboListV.st,v 1.31 1999-03-29 15:17:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboListV.st,v 1.32 1999-03-30 09:55:09 cg Exp $'
 ! !
--- a/ComboListView.st	Mon Mar 29 17:18:19 1999 +0200
+++ b/ComboListView.st	Tue Mar 30 11:55:09 1999 +0200
@@ -567,13 +567,14 @@
     "the enable state has changed - pass this to my pullDownButton
      and change the fg-color of the label to some grey color"
 
-    |clr|
+    |clr key|
 
-    enableChannel value ifTrue:[
-        clr := Button styleSheet at:'button.foregroundColor' default:Color black.
+    enableChannel value == false ifTrue:[
+        key := 'button.disabledForegroundColor'.
     ] ifFalse:[
-        clr := Button styleSheet at:'button.disabledForegroundColor' default:Color black.
+        key := 'button.foregroundColor'.
     ].
+    clr := Button styleSheet at:key default:Color black.
     field foregroundColor:clr.
     super updateEnableState.
 ! !
@@ -646,5 +647,5 @@
 !ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.31 1999-03-29 15:17:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.32 1999-03-30 09:55:09 cg Exp $'
 ! !
hg/stx-libwidg2