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.
Use Color>>onDevice: instead of obsolete Color>>on:
authorStefan Vogel <sv@exept.de>
Thu, 15 Jan 1998 01:06:41 +0100
changeset 1414 b86d8f36f3a9
parent 1413 e00159f1414d
child 1415 f75eeebc0d1d
Use Color>>onDevice: instead of obsolete Color>>on:
Label.st file | annotate | diff | comparison | revisions 
--- a/Label.st	Wed Jan 14 16:17:01 1998 +0100
+++ b/Label.st	Thu Jan 15 01:06:41 1998 +0100
@@ -916,14 +916,15 @@
     "set the background color"
 
     aColor ~~ bgColor ifTrue:[
-        bgColor := aColor on:device.
+        bgColor := aColor onDevice:device.
         self class == Label ifTrue:[
-	    super viewBackground:bgColor
+            super viewBackground:bgColor
         ].
         shown ifTrue:[self invalidate]
     ]
 
-    "Modified: 8.2.1997 / 15:19:31 / cg"
+    "Modified: / 8.2.1997 / 15:19:31 / cg"
+    "Modified: / 15.1.1998 / 00:14:10 / stefan"
 !
 
 foregroundColor
@@ -936,26 +937,28 @@
     "set the foreground color"
 
     aColor ~~ fgColor ifTrue:[
-        fgColor := aColor on:device.
+        fgColor := aColor onDevice:device.
         shown ifTrue:[self invalidate]
     ].
 
-    "Modified: 8.2.1997 / 15:19:29 / cg"
+    "Modified: / 8.2.1997 / 15:19:29 / cg"
+    "Modified: / 15.1.1998 / 00:14:22 / stefan"
 !
 
 foregroundColor:fg backgroundColor:bg
     "set the colors to be used for drawing"
 
     (fgColor ~~ fg or:[bgColor ~~ bg]) ifTrue:[
-        fgColor := fg on:device.
-        bgColor := bg on:device.
+        fgColor := fg onDevice:device.
+        bgColor := bg onDevice:device.
         self class == Label ifTrue:[
-	    super viewBackground:bgColor
+            super viewBackground:bgColor
         ].
         shown ifTrue:[self invalidate]
     ].
 
-    "Modified: 8.2.1997 / 15:19:22 / cg"
+    "Modified: / 8.2.1997 / 15:19:22 / cg"
+    "Modified: / 15.1.1998 / 00:14:36 / stefan"
 !
 
 viewBackground:aColor
@@ -1289,10 +1292,11 @@
 
     super fetchDeviceResources.
 
-    fgColor := fgColor on:device.
-    bgColor := bgColor on:device.
+    fgColor := fgColor onDevice:device.
+    bgColor := bgColor onDevice:device.
 
-    "Created: 13.1.1997 / 23:34:30 / cg"
+    "Created: / 13.1.1997 / 23:34:30 / cg"
+    "Modified: / 15.1.1998 / 00:13:46 / stefan"
 !
 
 initStyle
@@ -1722,5 +1726,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.86 1997-11-14 14:37:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.87 1998-01-15 00:06:41 stefan Exp $'
 ! !
hg/stx-libwidg