--- a/DSurface.st Tue May 28 19:25:53 1996 +0200
+++ b/DSurface.st Tue May 28 19:28:39 1996 +0200
@@ -1436,9 +1436,12 @@
!
isView
- "return true, if the receiver is a view"
+ "return true, if the receiver is some kind of view;
+ true is returned here."
^ true
+
+ "Modified: 28.5.1996 / 19:27:34 / cg"
!
isXtWidget
@@ -1687,5 +1690,5 @@
!DisplaySurface class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.1 1996-05-28 15:56:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.2 1996-05-28 17:27:45 cg Exp $'
! !
--- a/DisplaySurface.st Tue May 28 19:25:53 1996 +0200
+++ b/DisplaySurface.st Tue May 28 19:28:39 1996 +0200
@@ -1436,9 +1436,12 @@
!
isView
- "return true, if the receiver is a view"
+ "return true, if the receiver is some kind of view;
+ true is returned here."
^ true
+
+ "Modified: 28.5.1996 / 19:27:34 / cg"
!
isXtWidget
@@ -1687,5 +1690,5 @@
!DisplaySurface class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.1 1996-05-28 15:56:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.2 1996-05-28 17:27:45 cg Exp $'
! !
--- a/GMedium.st Tue May 28 19:25:53 1996 +0200
+++ b/GMedium.st Tue May 28 19:28:39 1996 +0200
@@ -49,32 +49,6 @@
"
! !
-!GraphicsMedium methodsFor:'GC access'!
-
-at:aPoint
- "return pixel value at coordinate"
-
- ^ self subclassResponsibility
-!
-
-drawPattern:aPattern
- "set the pattern to be drawn with - the pattern may be a color,
- a bitmap or pixmap"
-
- aPattern isColor ifTrue:[
- self paint:aPattern
- ] ifFalse:[
- self mask:aPattern
- ]
-!
-
-gc
- "ST-80 compatibility;
- in STX a displayMedium is its own graphicsContext"
-
- ^ self
-! !
-
!GraphicsMedium methodsFor:'accessing'!
bottomCenter
@@ -136,12 +110,6 @@
height := anInteger
!
-isView
- "return true, if the receiver is a view"
-
- ^ false
-!
-
left
"return the left i.e. x-coordinate of top-left of the receiver"
@@ -448,5 +416,5 @@
!GraphicsMedium class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/GMedium.st,v 1.2 1996-05-28 15:56:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/GMedium.st,v 1.3 1996-05-28 17:27:10 cg Exp $'
! !
--- a/GraphicsMedium.st Tue May 28 19:25:53 1996 +0200
+++ b/GraphicsMedium.st Tue May 28 19:28:39 1996 +0200
@@ -49,32 +49,6 @@
"
! !
-!GraphicsMedium methodsFor:'GC access'!
-
-at:aPoint
- "return pixel value at coordinate"
-
- ^ self subclassResponsibility
-!
-
-drawPattern:aPattern
- "set the pattern to be drawn with - the pattern may be a color,
- a bitmap or pixmap"
-
- aPattern isColor ifTrue:[
- self paint:aPattern
- ] ifFalse:[
- self mask:aPattern
- ]
-!
-
-gc
- "ST-80 compatibility;
- in STX a displayMedium is its own graphicsContext"
-
- ^ self
-! !
-
!GraphicsMedium methodsFor:'accessing'!
bottomCenter
@@ -136,12 +110,6 @@
height := anInteger
!
-isView
- "return true, if the receiver is a view"
-
- ^ false
-!
-
left
"return the left i.e. x-coordinate of top-left of the receiver"
@@ -448,5 +416,5 @@
!GraphicsMedium class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.2 1996-05-28 15:56:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.3 1996-05-28 17:27:10 cg Exp $'
! !
--- a/SimpleView.st Tue May 28 19:25:53 1996 +0200
+++ b/SimpleView.st Tue May 28 19:28:39 1996 +0200
@@ -14,10 +14,9 @@
instanceVariableNames:'superView subViews components styleSheet resources borderColor
borderWidth borderShape viewShape top left extentChanged
originChanged cornerChanged relativeOrigin relativeExtent
- relativeCorner originRule extentRule cornerRule insets
- layout shown hiddenOnRealize name level margin innerClipRect
- shadowColor lightColor bitGravity viewGravity controller
- windowGroup'
+ relativeCorner originRule extentRule cornerRule insets layout
+ shown hiddenOnRealize name level margin innerClipRect shadowColor
+ lightColor bitGravity viewGravity controller windowGroup'
classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet
DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor
DefaultShadowColor DefaultBorderWidth DefaultFocusColor
@@ -27,6 +26,16 @@
!
SimpleView class instanceVariableNames:'ClassResources DefaultFont'
+
+"
+ The following class instance variables are inherited by this class:
+
+ DisplaySurface -
+ GraphicsMedium -
+ DeviceGraphicsContext -
+ GraphicsContext -
+ Object -
+"
!
!SimpleView class methodsFor:'documentation'!
@@ -4597,13 +4606,6 @@
^ superView isSubViewOf:aView
!
-isView
- "return true, if the receiver is some kind of view;
- true is returned here."
-
- ^ true
-!
-
preferredBounds
"ST-80 compatibility."
@@ -6100,6 +6102,6 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.99 1996-05-28 16:28:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.100 1996-05-28 17:28:39 cg Exp $'
! !
SimpleView initialize!