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.
more examples & comments
authorClaus Gittinger <cg@exept.de>
Thu, 09 May 1996 01:11:08 +0200
changeset 248 266a7ec53d9f
parent 247 7b29d5a02e68
child 249 38827944ca9c
more examples & comments
FillWrpr.st file | annotate | diff | comparison | revisions
FillingWrapper.st file | annotate | diff | comparison | revisions
StrokeWrpr.st file | annotate | diff | comparison | revisions
StrokingWrapper.st file | annotate | diff | comparison | revisions 
--- a/FillWrpr.st	Thu May 09 00:25:48 1996 +0200
+++ b/FillWrpr.st	Thu May 09 01:11:08 1996 +0200
@@ -42,6 +42,9 @@
     a wrapper for a geometric object, which is to be drawn filled.
     This allows any geometric thingy to be used as a filled component in a view.
 
+    [see also:]
+        StrokingWrapper Geometric GraphicsContext
+
     [author:]
         Claus Gittinger
 "
@@ -128,5 +131,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.2 1996-05-08 22:14:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.3 1996-05-08 23:11:05 cg Exp $'
 ! !
--- a/FillingWrapper.st	Thu May 09 00:25:48 1996 +0200
+++ b/FillingWrapper.st	Thu May 09 01:11:08 1996 +0200
@@ -42,6 +42,9 @@
     a wrapper for a geometric object, which is to be drawn filled.
     This allows any geometric thingy to be used as a filled component in a view.
 
+    [see also:]
+        StrokingWrapper Geometric GraphicsContext
+
     [author:]
         Claus Gittinger
 "
@@ -128,5 +131,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.2 1996-05-08 22:14:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.3 1996-05-08 23:11:05 cg Exp $'
 ! !
--- a/StrokeWrpr.st	Thu May 09 00:25:48 1996 +0200
+++ b/StrokeWrpr.st	Thu May 09 01:11:08 1996 +0200
@@ -40,49 +40,51 @@
     a wrapper for a geometric object, which is to be drawn stroked.
     This allows any geometric thingy to be used as a component in a view.
 
+    [see also:]
+        FillingWrapper Geometric GraphicsContext
+
     [author:]
         Claus Gittinger
 "
-
 !
 
 examples
 "
                                                                         [exBegin]
-        |v e component|
+    |v e component|
 
-        v := (View extent:250@250) openAndWait.
+    v := (View extent:250@250) openAndWait.
 
-        e := EllipticalArc boundingBox:(10@10 corner:90@90)
-                            startAngle:0 
-                            sweepAngle:270.
-        component := StrokingWrapper on:e.
+    e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                        startAngle:0 
+                        sweepAngle:270.
+    component := StrokingWrapper on:e.
 
-        component displayOn:v.
+    component displayOn:v.
                                                                         [exEnd]
 
                                                                         [exBegin]
-        |v e component|
+    |v e component|
 
-        v := View new.
-        v extent:250@250.
+    v := View new.
+    v extent:250@250.
 
-        e := Rectangle origin:10@10 corner:90@90.
-        component := FillingWrapper on:e.
-        component foregroundColor:Color red.
+    e := Rectangle origin:10@10 corner:90@90.
+    component := FillingWrapper on:e.
+    component foregroundColor:Color red.
 
-        v addComponent:component.
+    v addComponent:component.
 
-        e := EllipticalArc boundingBox:(10@10 corner:90@90)
-                         startAngle:0 sweepAngle:270.
-        component := StrokingWrapper on:e.
-        component lineWidth:5.
+    e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                     startAngle:0 sweepAngle:360.
+    component := StrokingWrapper on:e.
+    component lineWidth:5.
 
-        v addComponent:component.
+    v addComponent:component.
 
-        v addComponent:(Button label:'hello').
+    v addComponent:(Button label:'hello').
 
-        v open
+    v open
                                                                         [exEnd]
 "
 ! !
@@ -162,5 +164,5 @@
 !StrokingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/StrokeWrpr.st,v 1.2 1996-05-08 22:14:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/StrokeWrpr.st,v 1.3 1996-05-08 23:11:08 cg Exp $'
 ! !
--- a/StrokingWrapper.st	Thu May 09 00:25:48 1996 +0200
+++ b/StrokingWrapper.st	Thu May 09 01:11:08 1996 +0200
@@ -40,49 +40,51 @@
     a wrapper for a geometric object, which is to be drawn stroked.
     This allows any geometric thingy to be used as a component in a view.
 
+    [see also:]
+        FillingWrapper Geometric GraphicsContext
+
     [author:]
         Claus Gittinger
 "
-
 !
 
 examples
 "
                                                                         [exBegin]
-        |v e component|
+    |v e component|
 
-        v := (View extent:250@250) openAndWait.
+    v := (View extent:250@250) openAndWait.
 
-        e := EllipticalArc boundingBox:(10@10 corner:90@90)
-                            startAngle:0 
-                            sweepAngle:270.
-        component := StrokingWrapper on:e.
+    e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                        startAngle:0 
+                        sweepAngle:270.
+    component := StrokingWrapper on:e.
 
-        component displayOn:v.
+    component displayOn:v.
                                                                         [exEnd]
 
                                                                         [exBegin]
-        |v e component|
+    |v e component|
 
-        v := View new.
-        v extent:250@250.
+    v := View new.
+    v extent:250@250.
 
-        e := Rectangle origin:10@10 corner:90@90.
-        component := FillingWrapper on:e.
-        component foregroundColor:Color red.
+    e := Rectangle origin:10@10 corner:90@90.
+    component := FillingWrapper on:e.
+    component foregroundColor:Color red.
 
-        v addComponent:component.
+    v addComponent:component.
 
-        e := EllipticalArc boundingBox:(10@10 corner:90@90)
-                         startAngle:0 sweepAngle:270.
-        component := StrokingWrapper on:e.
-        component lineWidth:5.
+    e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                     startAngle:0 sweepAngle:360.
+    component := StrokingWrapper on:e.
+    component lineWidth:5.
 
-        v addComponent:component.
+    v addComponent:component.
 
-        v addComponent:(Button label:'hello').
+    v addComponent:(Button label:'hello').
 
-        v open
+    v open
                                                                         [exEnd]
 "
 ! !
@@ -162,5 +164,5 @@
 !StrokingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.2 1996-05-08 22:14:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.3 1996-05-08 23:11:08 cg Exp $'
 ! !
hg/stx-libview2