--- a/GC.st Thu Feb 13 14:25:34 1997 +0100
+++ b/GC.st Thu Feb 13 22:55:41 1997 +0100
@@ -786,10 +786,7 @@
!
medium
- "return the destination medium.
- Historically, in ST/X, all views were subclasses of GraphicsContext;
- this is now being migrated and things are separated.
- In the meanwhile, those old views have themself as the medium."
+ "return the destination medium i.e. the underlying graphics device"
^ device
@@ -1526,6 +1523,6 @@
!GraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.50 1997-02-10 12:51:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.51 1997-02-13 21:55:41 ca Exp $'
! !
GraphicsContext initialize!
--- a/GraphicsContext.st Thu Feb 13 14:25:34 1997 +0100
+++ b/GraphicsContext.st Thu Feb 13 22:55:41 1997 +0100
@@ -786,10 +786,7 @@
!
medium
- "return the destination medium.
- Historically, in ST/X, all views were subclasses of GraphicsContext;
- this is now being migrated and things are separated.
- In the meanwhile, those old views have themself as the medium."
+ "return the destination medium i.e. the underlying graphics device"
^ device
@@ -1526,6 +1523,6 @@
!GraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.50 1997-02-10 12:51:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.51 1997-02-13 21:55:41 ca Exp $'
! !
GraphicsContext initialize!