Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
comments
authorClaus Gittinger <cg@exept.de>
Mon, 13 May 1996 10:50:38 +0200
changeset 265 45c83acd7562
parent 264 6c886ecb050d
child 266 e9d35cd74f64
comments
FillWrpr.st file | annotate | diff | comparison | revisions
FillingWrapper.st file | annotate | diff | comparison | revisions
GeomWrpr.st file | annotate | diff | comparison | revisions
GeometricWrapper.st file | annotate | diff | comparison | revisions
StrokeWrpr.st file | annotate | diff | comparison | revisions
StrokingWrapper.st file | annotate | diff | comparison | revisions
VComponent.st file | annotate | diff | comparison | revisions
VisualComponent.st file | annotate | diff | comparison | revisions
VisualPart.st file | annotate | diff | comparison | revisions 
--- a/FillWrpr.st	Mon May 13 10:30:42 1996 +0200
+++ b/FillWrpr.st	Mon May 13 10:50:38 1996 +0200
@@ -46,6 +46,13 @@
      keep any color or lineStyle attributes. Wrappers add this information
      and can also be used as components of a view)
 
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+
     [see also:]
         StrokingWrapper Geometric GraphicsContext
 
@@ -160,5 +167,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.5 1996-05-09 08:43:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.6 1996-05-13 08:50:30 cg Exp $'
 ! !
--- a/FillingWrapper.st	Mon May 13 10:30:42 1996 +0200
+++ b/FillingWrapper.st	Mon May 13 10:50:38 1996 +0200
@@ -46,6 +46,13 @@
      keep any color or lineStyle attributes. Wrappers add this information
      and can also be used as components of a view)
 
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+
     [see also:]
         StrokingWrapper Geometric GraphicsContext
 
@@ -160,5 +167,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.5 1996-05-09 08:43:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.6 1996-05-13 08:50:30 cg Exp $'
 ! !
--- a/GeomWrpr.st	Mon May 13 10:30:42 1996 +0200
+++ b/GeomWrpr.st	Mon May 13 10:50:38 1996 +0200
@@ -50,6 +50,13 @@
      keep any color or lineStyle attributes. Wrappers add this information
      and can also be used as components of a view)
 
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+
     [see also:]
         StrokingWrapper FillingWrapper
         Geometric GraphicsContext
@@ -75,5 +82,5 @@
 !GeometricWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/GeomWrpr.st,v 1.2 1996-05-09 08:43:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/GeomWrpr.st,v 1.3 1996-05-13 08:50:25 cg Exp $'
 ! !
--- a/GeometricWrapper.st	Mon May 13 10:30:42 1996 +0200
+++ b/GeometricWrapper.st	Mon May 13 10:50:38 1996 +0200
@@ -50,6 +50,13 @@
      keep any color or lineStyle attributes. Wrappers add this information
      and can also be used as components of a view)
 
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+
     [see also:]
         StrokingWrapper FillingWrapper
         Geometric GraphicsContext
@@ -75,5 +82,5 @@
 !GeometricWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GeometricWrapper.st,v 1.2 1996-05-09 08:43:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GeometricWrapper.st,v 1.3 1996-05-13 08:50:25 cg Exp $'
 ! !
--- a/StrokeWrpr.st	Mon May 13 10:30:42 1996 +0200
+++ b/StrokeWrpr.st	Mon May 13 10:50:38 1996 +0200
@@ -44,6 +44,13 @@
      keep any color or lineStyle attributes. Wrappers add this information
      and can also be used as components of a view)
 
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+
     [see also:]
         FillingWrapper Geometric GraphicsContext
 
@@ -264,5 +271,5 @@
 !StrokingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/StrokeWrpr.st,v 1.7 1996-05-12 20:35:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/StrokeWrpr.st,v 1.8 1996-05-13 08:50:20 cg Exp $'
 ! !
--- a/StrokingWrapper.st	Mon May 13 10:30:42 1996 +0200
+++ b/StrokingWrapper.st	Mon May 13 10:50:38 1996 +0200
@@ -44,6 +44,13 @@
      keep any color or lineStyle attributes. Wrappers add this information
      and can also be used as components of a view)
 
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+
     [see also:]
         FillingWrapper Geometric GraphicsContext
 
@@ -264,5 +271,5 @@
 !StrokingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.7 1996-05-12 20:35:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.8 1996-05-13 08:50:20 cg Exp $'
 ! !
--- a/VComponent.st	Mon May 13 10:30:42 1996 +0200
+++ b/VComponent.st	Mon May 13 10:50:38 1996 +0200
@@ -40,10 +40,23 @@
 documentation
 "
     abstract superclass for all kinds of visual components.
-    This is still being constructed - not yet finished.
+    This class and its subclasses (currently) exist mostly for
+    ST-80 compatibility - to provide a home for ported PD classes,
+    which depend on the VisualComponent hierarchy.
+
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+        This is still being constructed - not yet finished.
 
     [author:]
         Claus Gittinger
+
+    [see also:]
+        GeometricWrapper
 "
 
 ! !
@@ -115,6 +128,21 @@
     "Modified: 9.5.1996 / 00:13:39 / cg"
 ! !
 
+!VisualComponent methodsFor:'displaying'!
+
+displayOn:aGC x:x y:y
+    |oldTranslation|
+
+    oldTranslation := aGC translation.
+    aGC translation:(x @ y).
+
+    self displayOn:aGC.
+
+    aGC translation:oldTranslation
+
+    "Created: 13.5.1996 / 10:18:43 / cg"
+! !
+
 !VisualComponent methodsFor:'event handling'!
 
 buttonPress:button x:x y:y
@@ -153,6 +181,29 @@
     "Created: 8.5.1996 / 23:49:54 / cg"
 ! !
 
+!VisualComponent methodsFor:'queries'!
+
+heightOn:aGC
+    "return my height, if displayed on aGC;
+     I assume that my height is independent of the device, and return
+     the bounds height"
+
+    ^ self bounds height
+
+    "Modified: 13.5.1996 / 10:15:13 / cg"
+!
+
+widthOn:aGC
+    "return my width, if displayed on aGC;
+     I assume that my width is independent of the device, and return
+     the bounds width"
+
+    ^ self bounds width
+
+    "Created: 13.5.1996 / 10:14:44 / cg"
+    "Modified: 13.5.1996 / 10:15:17 / cg"
+! !
+
 !VisualComponent methodsFor:'testing'!
 
 containsPoint:aPoint
@@ -184,5 +235,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.4 1996-05-08 23:16:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.5 1996-05-13 08:50:38 cg Exp $'
 ! !
--- a/VisualComponent.st	Mon May 13 10:30:42 1996 +0200
+++ b/VisualComponent.st	Mon May 13 10:50:38 1996 +0200
@@ -40,10 +40,23 @@
 documentation
 "
     abstract superclass for all kinds of visual components.
-    This is still being constructed - not yet finished.
+    This class and its subclasses (currently) exist mostly for
+    ST-80 compatibility - to provide a home for ported PD classes,
+    which depend on the VisualComponent hierarchy.
+
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+        This is still being constructed - not yet finished.
 
     [author:]
         Claus Gittinger
+
+    [see also:]
+        GeometricWrapper
 "
 
 ! !
@@ -115,6 +128,21 @@
     "Modified: 9.5.1996 / 00:13:39 / cg"
 ! !
 
+!VisualComponent methodsFor:'displaying'!
+
+displayOn:aGC x:x y:y
+    |oldTranslation|
+
+    oldTranslation := aGC translation.
+    aGC translation:(x @ y).
+
+    self displayOn:aGC.
+
+    aGC translation:oldTranslation
+
+    "Created: 13.5.1996 / 10:18:43 / cg"
+! !
+
 !VisualComponent methodsFor:'event handling'!
 
 buttonPress:button x:x y:y
@@ -153,6 +181,29 @@
     "Created: 8.5.1996 / 23:49:54 / cg"
 ! !
 
+!VisualComponent methodsFor:'queries'!
+
+heightOn:aGC
+    "return my height, if displayed on aGC;
+     I assume that my height is independent of the device, and return
+     the bounds height"
+
+    ^ self bounds height
+
+    "Modified: 13.5.1996 / 10:15:13 / cg"
+!
+
+widthOn:aGC
+    "return my width, if displayed on aGC;
+     I assume that my width is independent of the device, and return
+     the bounds width"
+
+    ^ self bounds width
+
+    "Created: 13.5.1996 / 10:14:44 / cg"
+    "Modified: 13.5.1996 / 10:15:17 / cg"
+! !
+
 !VisualComponent methodsFor:'testing'!
 
 containsPoint:aPoint
@@ -184,5 +235,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.4 1996-05-08 23:16:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.5 1996-05-13 08:50:38 cg Exp $'
 ! !
--- a/VisualPart.st	Mon May 13 10:30:42 1996 +0200
+++ b/VisualPart.st	Mon May 13 10:50:38 1996 +0200
@@ -5,6 +5,33 @@
 	category:'Graphics-Display Objects'
 !
 
+!VisualPart class methodsFor:'documentation'!
+
+documentation
+"
+    abstract superclass for all kinds of visual components, which
+    are containers for some other component.
+    This class and its subclasses (currently) exist mostly for
+    ST-80 compatibility - to provide a home for ported PD classes,
+    which depend on the VisualPart hierarchy.
+
+    Notice: 
+        this class was implemented using protocol information
+        from alpha testers and from the Hopkins/Horan book.
+        - it may not be complete or compatible to the corresponding ST-80 class. 
+        If you encounter any incompatibilities, please forward a note 
+        describing the incompatibility verbal (i.e. no code) to the ST/X team.
+        This is still being constructed - not yet finished.
+
+    [author:]
+        Claus Gittinger
+
+    [see also:]
+        GeometricWrapper
+"
+
+
+! !
 
 !VisualPart methodsFor:'accessing'!
 
@@ -54,5 +81,5 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.2 1996-05-09 08:43:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.3 1996-05-13 08:50:34 cg Exp $'
 ! !
hg/stx-libview2