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.
another example
authorClaus Gittinger <cg@exept.de>
Wed, 08 May 1996 21:53:59 +0200
changeset 243 dfbfd389ec48
parent 242 5b7f59450c65
child 244 74c365cb546a
another example
AlignOrg.st file | annotate | diff | comparison | revisions
AlignmentOrigin.st file | annotate | diff | comparison | revisions 
--- a/AlignOrg.st	Wed May 08 21:07:16 1996 +0200
+++ b/AlignOrg.st	Wed May 08 21:53:59 1996 +0200
@@ -117,6 +117,44 @@
 
         top open
                                                                         [exEnd]
+
+
+    four buttons around relative 0.75@0.75:
+                                                                        [exBegin]
+        |top button|
+
+        top := StandardSystemView new.
+        top extent:300@300.
+
+        button := Button label:'button1'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:1.0;
+                                topAlignmentFraction:1.0).
+
+        button := Button label:'button2'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:0.0;
+                                topAlignmentFraction:1.0).
+
+        button := Button label:'button3'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:0.0;
+                                topAlignmentFraction:0.0).
+
+        button := Button label:'button4'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:1.0;
+                                topAlignmentFraction:0.0).
+        top open
+                                                                        [exEnd]
 "
 ! !
 
@@ -253,5 +291,5 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.13 1996-05-08 19:07:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.14 1996-05-08 19:53:59 cg Exp $'
 ! !
--- a/AlignmentOrigin.st	Wed May 08 21:07:16 1996 +0200
+++ b/AlignmentOrigin.st	Wed May 08 21:53:59 1996 +0200
@@ -117,6 +117,44 @@
 
         top open
                                                                         [exEnd]
+
+
+    four buttons around relative 0.75@0.75:
+                                                                        [exBegin]
+        |top button|
+
+        top := StandardSystemView new.
+        top extent:300@300.
+
+        button := Button label:'button1'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:1.0;
+                                topAlignmentFraction:1.0).
+
+        button := Button label:'button2'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:0.0;
+                                topAlignmentFraction:1.0).
+
+        button := Button label:'button3'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:0.0;
+                                topAlignmentFraction:0.0).
+
+        button := Button label:'button4'.
+        top add:button in:(AlignmentOrigin new
+                                leftFraction:0.75;
+                                topFraction:0.75;
+                                leftAlignmentFraction:1.0;
+                                topAlignmentFraction:0.0).
+        top open
+                                                                        [exEnd]
 "
 ! !
 
@@ -253,5 +291,5 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.13 1996-05-08 19:07:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.14 1996-05-08 19:53:59 cg Exp $'
 ! !
hg/stx-libview2