Mercurial Mercurial > hg > stx-libwidg / 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.
#on: -> #onDevice:
authorClaus Gittinger <cg@exept.de>
Wed, 18 Aug 1999 17:13:02 +0200
changeset 1995 cbbe9d803139
parent 1994 ad7004e6b2a4
child 1996 4478ffac9765
#on: -> #onDevice:
Button.st file | annotate | diff | comparison | revisions 
--- a/Button.st	Wed Aug 18 17:12:00 1999 +0200
+++ b/Button.st	Wed Aug 18 17:13:02 1999 +0200
@@ -1676,17 +1676,17 @@
 
     super fetchDeviceResources.
 
-    disabledFgColor notNil ifTrue:[disabledFgColor := disabledFgColor on:device].
-    activeFgColor notNil ifTrue:[activeFgColor := activeFgColor on:device].
-    activeBgColor notNil ifTrue:[activeBgColor := activeBgColor on:device].
-    enteredFgColor notNil ifTrue:[enteredFgColor := enteredFgColor on:device].
-    enteredBgColor notNil ifTrue:[enteredBgColor := enteredBgColor on:device].
-
-    formColor notNil ifTrue:[formColor := formColor on:device].
-    formLightColor notNil ifTrue:[formLightColor := formLightColor on:device].
-    formShadowColor notNil ifTrue:[formShadowColor := formShadowColor on:device].
-    halfShadowColor notNil ifTrue:[halfShadowColor := halfShadowColor on:device].
-    halfLightColor notNil ifTrue:[halfLightColor := halfLightColor on:device].
+    disabledFgColor notNil ifTrue:[disabledFgColor := disabledFgColor onDevice:device].
+    activeFgColor notNil ifTrue:[activeFgColor := activeFgColor onDevice:device].
+    activeBgColor notNil ifTrue:[activeBgColor := activeBgColor onDevice:device].
+    enteredFgColor notNil ifTrue:[enteredFgColor := enteredFgColor onDevice:device].
+    enteredBgColor notNil ifTrue:[enteredBgColor := enteredBgColor onDevice:device].
+
+    formColor notNil ifTrue:[formColor := formColor onDevice:device].
+    formLightColor notNil ifTrue:[formLightColor := formLightColor onDevice:device].
+    formShadowColor notNil ifTrue:[formShadowColor := formShadowColor onDevice:device].
+    halfShadowColor notNil ifTrue:[halfShadowColor := halfShadowColor onDevice:device].
+    halfLightColor notNil ifTrue:[halfLightColor := halfLightColor onDevice:device].
 
     "Modified: 15.2.1997 / 17:14:16 / cg"
 !
@@ -2246,5 +2246,5 @@
 !Button class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.111 1999-07-08 09:33:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.112 1999-08-18 15:13:02 cg Exp $'
 ! !
hg/stx-libwidg