--- a/SelListV.st Wed Aug 18 16:31:38 1999 +0200
+++ b/SelListV.st Wed Aug 18 16:39:18 1999 +0200
@@ -2525,10 +2525,10 @@
super fetchDeviceResources.
- hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor on:device].
- hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor on:device].
- halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor on:device].
- hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor on:device].
+ hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor onDevice:device].
+ hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor onDevice:device].
+ halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor onDevice:device].
+ hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor onDevice:device].
"Created: 14.1.1997 / 00:11:13 / cg"
!
@@ -3048,7 +3048,7 @@
(self line:listLine hasAttribute:#bold) ifTrue:[
newFont := font asBold.
(font bold
- or:[id := (newFont on:device) fontId.
+ or:[id := (newFont onDevice:device) fontId.
id isNil])
ifTrue:[
"
@@ -3615,5 +3615,5 @@
!SelectionInListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.149 1999-07-26 08:43:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.150 1999-08-18 14:36:27 cg Exp $'
! !