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 16:31:38 +0200
changeset 1987 599825bed176
parent 1986 7083145a236b
child 1988 55184833642a
#on: -> #onDevice:
TextView.st file | annotate | diff | comparison | revisions
Toggle.st file | annotate | diff | comparison | revisions
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions
WarnBox.st file | annotate | diff | comparison | revisions
WarningBox.st file | annotate | diff | comparison | revisions
YesNoBox.st file | annotate | diff | comparison | revisions 
--- a/TextView.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/TextView.st	Wed Aug 18 16:31:38 1999 +0200
@@ -179,14 +179,14 @@
 
     i := self classResources at:'ICON' default:nil.
     i isNil ifTrue:[
-	nm := ClassResources at:'ICON_FILE' default:'Editor.xbm'.
-	i := Image fromFile:nm resolution:100.
-	i isNil ifTrue:[
-	    i := Image fromFile:('bitmaps/' , nm) resolution:100.
-	]
+        nm := ClassResources at:'ICON_FILE' default:'Editor.xbm'.
+        i := Image fromFile:nm resolution:100.
+        i isNil ifTrue:[
+            i := Image fromFile:('bitmaps/' , nm) resolution:100.
+        ]
     ].
     i notNil ifTrue:[
-	i := i on:Display
+        i := i onDevice:Display
     ].
     ^ i
 
@@ -615,12 +615,12 @@
      The default is defined by the styleSheet; 
      typically black-on-green for color displays and white-on-black for b&w displays."
 
-    selectionFgColor := color1 on:device.
-    selectionBgColor := color2 on:device.
+    selectionFgColor := color1 onDevice:device.
+    selectionBgColor := color2 onDevice:device.
     shown ifTrue:[
-	self hasSelection ifTrue:[
-	    self invalidate
-	]
+        self hasSelection ifTrue:[
+            self invalidate
+        ]
     ]
 
     "Modified: 29.5.1996 / 16:22:15 / cg"
@@ -1091,8 +1091,8 @@
 
 mapped 
     super mapped.
-    selectionFgColor := selectionFgColor on:device.
-    selectionBgColor := selectionBgColor on:device.
+    selectionFgColor := selectionFgColor onDevice:device.
+    selectionBgColor := selectionBgColor onDevice:device.
 !
 
 quadClickX:x y:y
@@ -1120,8 +1120,8 @@
 
     super fetchDeviceResources.
 
-    selectionFgColor notNil ifTrue:[selectionFgColor := selectionFgColor on:device].
-    selectionBgColor notNil ifTrue:[selectionBgColor := selectionBgColor on:device].
+    selectionFgColor notNil ifTrue:[selectionFgColor := selectionFgColor onDevice:device].
+    selectionBgColor notNil ifTrue:[selectionBgColor := selectionBgColor onDevice:device].
 
     "Created: 14.1.1997 / 00:14:33 / cg"
 !
@@ -1557,12 +1557,12 @@
      line separation. This is required, to allow for proper handling of
      national characters, such as A-dieresis ..."
 
-    font := font on:device.
+    font := font onDevice:device.
     includesNonStrings == true ifTrue:[
-	"/ for now, we do not support variable height entries ...
-	fontHeight := list first heightOn:self
+        "/ for now, we do not support variable height entries ...
+        fontHeight := list first heightOn:self
     ] ifFalse:[
-	fontHeight := font maxHeight.
+        fontHeight := font maxHeight.
     ].
     fontHeight := fontHeight + lineSpacing.
     fontAscent := font maxAscent.
@@ -2953,5 +2953,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.139 1999-07-16 16:49:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.140 1999-08-18 14:31:38 cg Exp $'
 ! !
--- a/Toggle.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/Toggle.st	Wed Aug 18 16:31:38 1999 +0200
@@ -440,7 +440,7 @@
 
     super fetchDeviceResources.
 
-    lampColor notNil ifTrue:[lampColor := lampColor on:device].
+    lampColor notNil ifTrue:[lampColor := lampColor onDevice:device].
 
     "Created: 13.1.1997 / 23:46:31 / cg"
 !
@@ -634,5 +634,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.45 1999-04-24 17:14:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.46 1999-08-18 14:31:00 cg Exp $'
 ! !
--- a/VarPanel.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/VarPanel.st	Wed Aug 18 16:31:38 1999 +0200
@@ -1295,7 +1295,7 @@
     knobHeight := bH.
 
     handleLabels notNil ifTrue:[
-        font := font on:device.
+        font := font onDevice:device.
         bH := handleLabels inject:bH into:[:maxSoFar :thisLabel |
                                            thisLabel isNil ifTrue:[
                                                 maxSoFar
@@ -1341,7 +1341,7 @@
 
     super initStyle.
 
-    handleColor := DefaultHandleColor on:device.
+    handleColor := DefaultHandleColor onDevice:device.
 
     DefaultHandleStyle isNil ifTrue:[
         handleStyle := styleSheet name
@@ -1702,5 +1702,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.49 1999-08-04 14:15:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.50 1999-08-18 14:30:07 cg Exp $'
 ! !
--- a/VariablePanel.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/VariablePanel.st	Wed Aug 18 16:31:38 1999 +0200
@@ -1295,7 +1295,7 @@
     knobHeight := bH.
 
     handleLabels notNil ifTrue:[
-        font := font on:device.
+        font := font onDevice:device.
         bH := handleLabels inject:bH into:[:maxSoFar :thisLabel |
                                            thisLabel isNil ifTrue:[
                                                 maxSoFar
@@ -1341,7 +1341,7 @@
 
     super initStyle.
 
-    handleColor := DefaultHandleColor on:device.
+    handleColor := DefaultHandleColor onDevice:device.
 
     DefaultHandleStyle isNil ifTrue:[
         handleStyle := styleSheet name
@@ -1702,5 +1702,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.49 1999-08-04 14:15:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.50 1999-08-18 14:30:07 cg Exp $'
 ! !
--- a/WarnBox.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/WarnBox.st	Wed Aug 18 16:31:38 1999 +0200
@@ -149,7 +149,7 @@
             img := Image fromFile:imgFileName.
         ].
         img notNil ifTrue:[
-            img := img on:Display
+            img := img onDevice:Display
         ].
         WarnBitmap := img
     ].
@@ -208,5 +208,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.24 1999-05-25 14:15:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.25 1999-08-18 14:29:45 cg Exp $'
 ! !
--- a/WarningBox.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/WarningBox.st	Wed Aug 18 16:31:38 1999 +0200
@@ -149,7 +149,7 @@
             img := Image fromFile:imgFileName.
         ].
         img notNil ifTrue:[
-            img := img on:Display
+            img := img onDevice:Display
         ].
         WarnBitmap := img
     ].
@@ -208,5 +208,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.24 1999-05-25 14:15:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.25 1999-08-18 14:29:45 cg Exp $'
 ! !
--- a/YesNoBox.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/YesNoBox.st	Wed Aug 18 16:31:38 1999 +0200
@@ -179,7 +179,7 @@
             RequestBitmap := Image fromFile:imgFileName.
         ].
         RequestBitmap notNil ifTrue:[
-            RequestBitmap := RequestBitmap on:Display
+            RequestBitmap := RequestBitmap onDevice:Display
         ]
     ].
     ^ RequestBitmap
@@ -428,5 +428,5 @@
 !YesNoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.41 1999-03-06 03:03:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.42 1999-08-18 14:29:33 cg Exp $'
 ! !
hg/stx-libwidg