--- a/Color.st Wed May 07 16:13:16 2003 +0200
+++ b/Color.st Wed May 07 16:32:08 2003 +0200
@@ -3499,7 +3499,7 @@
"Modified: 11.7.1996 / 18:20:14 / cg"
! !
-!Color methodsFor:'Compatibility - ST80'!
+!Color methodsFor:'Compatibility-ST80'!
asDevicePaintOn:aDevice
"ST-80 compatibility: an alias for on:.
@@ -3521,7 +3521,7 @@
^ self darkened
! !
-!Color methodsFor:'Compatibility - Squeak'!
+!Color methodsFor:'Compatibility-Squeak'!
bitPatternForDepth: depth
"Return a Bitmap, possibly containing a stipple pattern,
@@ -5188,7 +5188,7 @@
!Color class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.176 2003-05-07 14:10:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.177 2003-05-07 14:32:00 cg Exp $'
! !
Color initialize!
--- a/Controller.st Wed May 07 16:13:16 2003 +0200
+++ b/Controller.st Wed May 07 16:32:08 2003 +0200
@@ -91,7 +91,7 @@
^ self basicNew initialize
! !
-!Controller methodsFor:'Compatibility - ST80'!
+!Controller methodsFor:'Compatibility-ST80'!
blueButtonActivity
"actually, this should be called 'rightButtonActivity'.
@@ -582,5 +582,5 @@
!Controller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.50 2002-10-26 15:52:52 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.51 2003-05-07 14:31:01 cg Exp $'
! !
--- a/DeviceGraphicsContext.st Wed May 07 16:13:16 2003 +0200
+++ b/DeviceGraphicsContext.st Wed May 07 16:32:08 2003 +0200
@@ -150,7 +150,7 @@
"Created: 16.1.1997 / 16:43:52 / cg"
! !
-!DeviceGraphicsContext methodsFor:'Compatibility - ST80'!
+!DeviceGraphicsContext methodsFor:'Compatibility-ST80'!
key
^ self id
@@ -3871,6 +3871,7 @@
!DeviceGraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.87 2002-07-24 17:57:41 mb Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.88 2003-05-07 14:30:25 cg Exp $'
! !
+
DeviceGraphicsContext initialize!
--- a/DeviceWorkstation.st Wed May 07 16:13:16 2003 +0200
+++ b/DeviceWorkstation.st Wed May 07 16:32:08 2003 +0200
@@ -915,7 +915,7 @@
"Modified: 23.4.1996 / 22:01:28 / cg"
! !
-!DeviceWorkstation methodsFor:'Compatibility - ST80'!
+!DeviceWorkstation methodsFor:'Compatibility-ST80'!
colorDepth
"alias for depth - for ST-80 compatibility"
@@ -1013,7 +1013,7 @@
"Modified: 27.1.1997 / 18:24:58 / cg"
! !
-!DeviceWorkstation methodsFor:'Compatibility - Squeak'!
+!DeviceWorkstation methodsFor:'Compatibility-Squeak'!
border:aRectangle width:bw
"draw a rectangular border on the display with black.
@@ -7271,7 +7271,7 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.442 2003-04-23 14:53:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.443 2003-05-07 14:30:29 cg Exp $'
! !
DeviceWorkstation initialize!
--- a/FontDescription.st Wed May 07 16:13:16 2003 +0200
+++ b/FontDescription.st Wed May 07 16:32:08 2003 +0200
@@ -283,7 +283,7 @@
"
! !
-!FontDescription methodsFor:'Compatibility - ST80'!
+!FontDescription methodsFor:'Compatibility-ST80'!
boldness:aNumber
"added for ST-80 compatibility; actually ignored currently"
@@ -1037,7 +1037,7 @@
!FontDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.45 2003-03-28 11:31:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.46 2003-05-07 14:32:08 cg Exp $'
! !
FontDescription initialize!
--- a/Form.st Wed May 07 16:13:16 2003 +0200
+++ b/Form.st Wed May 07 16:32:08 2003 +0200
@@ -845,7 +845,7 @@
2r00000000)
! !
-!Form methodsFor:'Compatibility - ST80'!
+!Form methodsFor:'Compatibility-ST80'!
destroy
"destroy my underlying device resource(s)"
@@ -946,7 +946,7 @@
"Created: 10.2.1997 / 12:43:00 / cg"
! !
-!Form methodsFor:'Compatibility - Squeak'!
+!Form methodsFor:'Compatibility-Squeak'!
colormapIfNeededForDepth:destDepth
@@ -2146,7 +2146,7 @@
!Form class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.124 2003-02-28 17:21:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.125 2003-05-07 14:31:23 cg Exp $'
! !
Form initialize!
--- a/GraphicsContext.st Wed May 07 16:13:16 2003 +0200
+++ b/GraphicsContext.st Wed May 07 16:32:08 2003 +0200
@@ -493,7 +493,7 @@
^ #round
! !
-!GraphicsContext methodsFor:'Compatibility - ST80'!
+!GraphicsContext methodsFor:'Compatibility-ST80'!
displayArc:origin radius:radius from:startAngle angle:angle
"draw an arc around a point"
@@ -641,7 +641,7 @@
"Modified: 28.5.1996 / 20:22:18 / cg"
! !
-!GraphicsContext methodsFor:'Compatibility - Squeak'!
+!GraphicsContext methodsFor:'Compatibility-Squeak'!
fill:aRectangle fillColor:aColor
"fill a rectangle with the given color color"
@@ -2245,7 +2245,7 @@
!GraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.95 2002-09-19 07:58:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.96 2003-05-07 14:31:58 cg Exp $'
! !
GraphicsContext initialize!
--- a/GraphicsMedium.st Wed May 07 16:13:16 2003 +0200
+++ b/GraphicsMedium.st Wed May 07 16:32:08 2003 +0200
@@ -51,7 +51,7 @@
"
! !
-!GraphicsMedium methodsFor:'Compatibility - Squeak'!
+!GraphicsMedium methodsFor:'Compatibility-Squeak'!
copyBits:aRectangle from:aForm at:srcOrigin clippingBox:clippingBox rule:rule fillColor:fillColor
|f oldClip oldFunction|
@@ -404,5 +404,5 @@
!GraphicsMedium class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.15 2001-01-08 17:32:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.16 2003-05-07 14:30:30 cg Exp $'
! !
--- a/HostGraphicsDevice.st Wed May 07 16:13:16 2003 +0200
+++ b/HostGraphicsDevice.st Wed May 07 16:32:08 2003 +0200
@@ -12,8 +12,6 @@
-'From Smalltalk/X, Version:4.1.4 on 20-Mai-2002 at 15:13:09' !
-
"{ Package: 'stx:libview' }"
GraphicsDevice subclass:#HostGraphicsDevice
@@ -85,7 +83,7 @@
^ newDevice.
! !
-!HostGraphicsDevice methodsFor:'Compatibility - Squeak'!
+!HostGraphicsDevice methodsFor:'Compatibility-Squeak'!
deferUpdates: aBoolean
"Set the deferUpdates flag in the virtual machine.
@@ -286,5 +284,5 @@
!HostGraphicsDevice class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.19 2002-05-21 08:09:26 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.20 2003-05-07 14:30:46 cg Exp $'
! !
--- a/Image.st Wed May 07 16:13:16 2003 +0200
+++ b/Image.st Wed May 07 16:32:08 2003 +0200
@@ -1999,7 +1999,7 @@
"Modified: / 10.10.2001 / 14:13:29 / cg"
! !
-!Image methodsFor:'Compatibility - Squeak'!
+!Image methodsFor:'Compatibility-Squeak'!
boundingBox
@@ -2045,7 +2045,7 @@
^ (mask pixelAt:aPoint) == 0
! !
-!Image methodsFor:'Compatibility - VW'!
+!Image methodsFor:'Compatibility-VW'!
asCachedImage
"return the receiver associated to the current screens device.
@@ -12477,7 +12477,7 @@
!Image class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.343 2003-05-06 18:25:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.344 2003-05-07 14:29:48 cg Exp $'
! !
Image initialize!
--- a/SimpleView.st Wed May 07 16:13:16 2003 +0200
+++ b/SimpleView.st Wed May 07 16:32:08 2003 +0200
@@ -1342,7 +1342,7 @@
^ self new open
! !
-!SimpleView methodsFor:'Compatibility - ST80'!
+!SimpleView methodsFor:'Compatibility-ST80'!
bounds
"ST-80 compatibility: return my bounds"
@@ -1437,7 +1437,7 @@
self invalidate
! !
-!SimpleView methodsFor:'Compatibility - Squeak'!
+!SimpleView methodsFor:'Compatibility-Squeak'!
insetDisplayBox
"Squeak mimicri: return my bounds"
@@ -9367,7 +9367,7 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.471 2003-04-15 11:57:58 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.472 2003-05-07 14:30:23 cg Exp $'
! !
SimpleView initialize!
--- a/StandardSystemView.st Wed May 07 16:13:16 2003 +0200
+++ b/StandardSystemView.st Wed May 07 16:32:08 2003 +0200
@@ -479,7 +479,7 @@
^ self open
! !
-!StandardSystemView methodsFor:'Compatibility - ST80'!
+!StandardSystemView methodsFor:'Compatibility-ST80'!
maximumSize
"same as maxExtent; for ST-80 compatibility"
@@ -1524,7 +1524,7 @@
!StandardSystemView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.147 2003-03-21 17:05:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.148 2003-05-07 14:30:42 cg Exp $'
! !
StandardSystemView initialize!
--- a/TopView.st Wed May 07 16:13:16 2003 +0200
+++ b/TopView.st Wed May 07 16:32:08 2003 +0200
@@ -108,7 +108,7 @@
ForceModalBoxesToOpenAtPointer := aBoolean
! !
-!TopView methodsFor:'Compatibility - ST80'!
+!TopView methodsFor:'Compatibility-ST80'!
displayBox
^ self bounds
@@ -800,5 +800,5 @@
!TopView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.78 2003-03-17 16:27:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.79 2003-05-07 14:31:11 cg Exp $'
! !
--- a/WindowSensor.st Wed May 07 16:13:16 2003 +0200
+++ b/WindowSensor.st Wed May 07 16:32:08 2003 +0200
@@ -640,7 +640,7 @@
"
! !
-!WindowSensor methodsFor:'Compatibility - ST80'!
+!WindowSensor methodsFor:'Compatibility-ST80'!
blueButtonPressed
"ST-80 compatibility: return true, if the right mouse button is pressed.
@@ -3094,7 +3094,7 @@
!WindowSensor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.212 2003-04-15 11:59:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.213 2003-05-07 14:31:43 cg Exp $'
! !
WindowSensor initialize!