--- a/DeviceGraphicsContext.st Thu May 31 17:26:08 2007 +0200
+++ b/DeviceGraphicsContext.st Thu May 31 17:28:39 2007 +0200
@@ -2847,9 +2847,9 @@
"
create temp-forms;
"
- bgForm := Form width:w height:h depth:deviceDepth on:device.
- fgForm := Form width:w height:h depth:deviceDepth on:device.
- tmpForm := Form width:w height:h depth:deviceDepth on:device.
+ bgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+ fgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+ tmpForm := Form width:w height:h depth:deviceDepth onDevice:device.
"
fill
@@ -3128,10 +3128,10 @@
"
create temp-forms;
"
- bgForm := Form width:w height:h depth:deviceDepth on:device.
- fgForm := Form width:w height:h depth:deviceDepth on:device.
- tmpForm := Form width:w height:h depth:deviceDepth on:device.
- maskForm := Form width:w height:h depth:deviceDepth on:device.
+ bgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+ fgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+ tmpForm := Form width:w height:h depth:deviceDepth onDevice:device.
+ maskForm := Form width:w height:h depth:deviceDepth onDevice:device.
"
fill
@@ -3919,7 +3919,7 @@
!DeviceGraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.114 2007-05-29 10:11:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.115 2007-05-31 15:28:39 stefan Exp $'
! !
DeviceGraphicsContext initialize!