--- a/DevWorkst.st Wed Aug 18 18:42:22 1999 +0200
+++ b/DevWorkst.st Wed Aug 18 18:42:55 1999 +0200
@@ -4572,9 +4572,9 @@
"initialize heavily used device resources - to avoid looking them up later"
blackColor isNil ifTrue:[
- blackColor := Color black on:self.
- whiteColor := Color white on:self.
- Color getPrimaryColorsOn:self.
+ blackColor := Color black onDevice:self.
+ whiteColor := Color white onDevice:self.
+ Color getPrimaryColorsOn:self.
]
"Modified: 24.2.1997 / 22:07:50 / cg"
@@ -6455,6 +6455,6 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.310 1999-08-18 16:42:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.311 1999-08-18 16:42:55 cg Exp $'
! !
DeviceWorkstation initialize!
--- a/DeviceWorkstation.st Wed Aug 18 18:42:22 1999 +0200
+++ b/DeviceWorkstation.st Wed Aug 18 18:42:55 1999 +0200
@@ -4572,9 +4572,9 @@
"initialize heavily used device resources - to avoid looking them up later"
blackColor isNil ifTrue:[
- blackColor := Color black on:self.
- whiteColor := Color white on:self.
- Color getPrimaryColorsOn:self.
+ blackColor := Color black onDevice:self.
+ whiteColor := Color white onDevice:self.
+ Color getPrimaryColorsOn:self.
]
"Modified: 24.2.1997 / 22:07:50 / cg"
@@ -6455,6 +6455,6 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.310 1999-08-18 16:42:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.311 1999-08-18 16:42:55 cg Exp $'
! !
DeviceWorkstation initialize!