Mercurial Mercurial > hg > stx-libwidg / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ArrowButton.st
changeset 593 86dd024ed773
parent 585 8f395aba0173
child 657 3215022ac50c 
--- a/ArrowButton.st	Sat Apr 27 20:13:37 1996 +0200
+++ b/ArrowButton.st	Sat Apr 27 20:21:37 1996 +0200
@@ -80,83 +80,89 @@
 examples 
 "
     example1:
-
-	|v p b1 b2 b3 b4|
+                                                                        [exBegin]
+        |v p b1 b2 b3 b4|
 
-	v := StandardSystemView extent:200@200.
-	p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
-	b1 := ArrowButton upIn:p.
-	b2 := ArrowButton downIn:p.
-	b3 := ArrowButton leftIn:p.
-	b4 := ArrowButton rightIn:p.
+        v := StandardSystemView extent:200@200.
+        p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
+        b1 := ArrowButton upIn:p.
+        b2 := ArrowButton downIn:p.
+        b3 := ArrowButton leftIn:p.
+        b4 := ArrowButton rightIn:p.
 
-	b1 action:['whatEver you like here ...'].
-	b2 action:['whatEver you like here ...'].
-	b3 action:['whatEver you like here ...'].
-	b4 action:['whatEver you like here ...'].
+        b1 action:['whatEver you like here ...'].
+        b2 action:['whatEver you like here ...'].
+        b3 action:['whatEver you like here ...'].
+        b4 action:['whatEver you like here ...'].
 
-	v open
+        v open
+                                                                        [exEnd]
 
 
     example2:
-
-	|v p b1 b2 b3 b4|
+                                                                        [exBegin]
+        |v p b1 b2 b3 b4|
 
-	v := StandardSystemView extent:200@200.
-	p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
-	b1 := (ArrowButton upIn:p) extent:30@30.
-	b2 := (ArrowButton downIn:p) extent:30@30.
-	b3 := (ArrowButton leftIn:p) extent:30@30.
-	b4 := (ArrowButton rightIn:p) extent:30@30.
+        v := StandardSystemView extent:200@200.
+        p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
+        b1 := (ArrowButton upIn:p) extent:30@30.
+        b2 := (ArrowButton downIn:p) extent:30@30.
+        b3 := (ArrowButton leftIn:p) extent:30@30.
+        b4 := (ArrowButton rightIn:p) extent:30@30.
 
-	b1 action:['whatEver you like here ...'].
-	b2 action:['whatEver you like here ...'].
-	b3 action:['whatEver you like here ...'].
-	b4 action:['whatEver you like here ...'].
+        b1 action:['whatEver you like here ...'].
+        b2 action:['whatEver you like here ...'].
+        b3 action:['whatEver you like here ...'].
+        b4 action:['whatEver you like here ...'].
 
-	v open
+        v open
+                                                                        [exEnd]
+
 
     example3:
-
-	|v p b1 b2 b3 b4|
+                                                                        [exBegin]
+        |v p b1 b2 b3 b4|
 
-	v := StandardSystemView extent:200@200.
-	p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
-	b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33).
-	b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67).
-	b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67).
-	b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0).
+        v := StandardSystemView extent:200@200.
+        p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
+        b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33).
+        b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67).
+        b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67).
+        b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0).
 
-	b1 action:['whatEver you like here ...'].
-	b2 action:['whatEver you like here ...'].
-	b3 action:['whatEver you like here ...'].
-	b4 action:['whatEver you like here ...'].
+        b1 action:['whatEver you like here ...'].
+        b2 action:['whatEver you like here ...'].
+        b3 action:['whatEver you like here ...'].
+        b4 action:['whatEver you like here ...'].
 
-	v open
+        v open
+                                                                        [exEnd]
+
 
     example4 (not good coding style, to explicitely use a particular style,
-	      just a demonstration how it looks ..):
-
-	|v p b1 b2 b3 b4 oldStyle|
+              just a demonstration how it looks ..):
+                                                                        [exBegin]
+        |v p b1 b2 b3 b4 oldStyle|
 
-	oldStyle := View defaultStyle.
-	View defaultStyle:#motif.
+        oldStyle := View defaultStyle.
+        View defaultStyle:#motif.
 
-	v := StandardSystemView extent:100@100.
-	p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
+        v := StandardSystemView extent:100@100.
+        p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v.
 
-	b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33).
-	b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67).
-	b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67).
-	b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0).
+        b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33).
+        b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67).
+        b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67).
+        b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0).
 
-	b1 action:['whatEver you like here ...'].
-	b2 action:['whatEver you like here ...'].
-	b3 action:['whatEver you like here ...'].
-	b4 action:['whatEver you like here ...'].
+        b1 action:['whatEver you like here ...'].
+        b2 action:['whatEver you like here ...'].
+        b3 action:['whatEver you like here ...'].
+        b4 action:['whatEver you like here ...'].
 
-	View defaultStyle:oldStyle.
-	v open
+        View defaultStyle:oldStyle.
+        v open
+                                                                        [exEnd]
 "
 ! !
 
@@ -744,5 +750,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.23 1996-04-25 17:24:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.24 1996-04-27 18:18:43 cg Exp $'
 ! !
hg/stx-libwidg