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.
RadioButtonGroup.st
changeset 594 b9c5a5e5f905
parent 586 032b3245e53a
child 655 acad3ef3a46c 
--- a/RadioButtonGroup.st	Sat Apr 27 20:21:37 1996 +0200
+++ b/RadioButtonGroup.st	Sat Apr 27 20:25:18 1996 +0200
@@ -72,118 +72,125 @@
 examples 
 "
     example (using Toggles for 'at most one-on behavior'):
-
-	|top panel toggle b group|
+                                                                        [exBegin]
+        |top panel toggle b group|
 
-	top := StandardSystemView new.
-	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
-	group := RadioButtonGroup new.
-	b := Toggle label:'one' in:panel.
-	group add:b.
-	b := Toggle label:'two' in:panel.
-	group add:b.
-	b := Toggle label:'three' in:panel.
-	group add:b.
-	top extent:(panel preferredExtent).
-	top open.
+        top := StandardSystemView new.
+        panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+        group := RadioButtonGroup new.
+        b := Toggle label:'one' in:panel.
+        group add:b.
+        b := Toggle label:'two' in:panel.
+        group add:b.
+        b := Toggle label:'three' in:panel.
+        group add:b.
+        top extent:(panel preferredExtent).
+        top open.
+                                                                        [exEnd]
 
 
     example (using RadioButtons for 'one-on behavior'):
-
-	|top panel toggle b group|
+                                                                        [exBegin]
+        |top panel toggle b group|
 
-	top := StandardSystemView new.
-	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
-	group := RadioButtonGroup new.
-	b := RadioButton label:'one' in:panel.
-	group add:b.
-	b := RadioButton label:'two' in:panel.
-	group add:b.
-	b := RadioButton label:'three' in:panel.
-	group add:b.
-	top extent:(panel preferredExtent).
-	top open.
+        top := StandardSystemView new.
+        panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+        group := RadioButtonGroup new.
+        b := RadioButton label:'one' in:panel.
+        group add:b.
+        b := RadioButton label:'two' in:panel.
+        group add:b.
+        b := RadioButton label:'three' in:panel.
+        group add:b.
+        top extent:(panel preferredExtent).
+        top open.
+                                                                        [exEnd]
 
 
     example (using Buttons for 'none-on behavior'; but the groups value remembers the last button):
-
-	|top panel toggle b group|
+                                                                        [exBegin]
+        |top panel toggle b group|
 
-	top := StandardSystemView new.
-	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
-	group := RadioButtonGroup new.
-	b := Button label:'one' in:panel.
-	group add:b.
-	b := Button label:'two' in:panel.
-	group add:b.
-	b := Button label:'three' in:panel.
-	group add:b.
-	top extent:(panel preferredExtent).
-	top open.
-	group valueChannel inspect
+        top := StandardSystemView new.
+        panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+        group := RadioButtonGroup new.
+        b := Button label:'one' in:panel.
+        group add:b.
+        b := Button label:'two' in:panel.
+        group add:b.
+        b := Button label:'three' in:panel.
+        group add:b.
+        top extent:(panel preferredExtent).
+        top open.
+        group valueChannel inspect
+                                                                        [exEnd]
 
 
     example (same, with button 'two' initially on):
-
-	|top panel toggle b group|
+                                                                        [exBegin]
+        |top panel toggle b group|
 
-	top := StandardSystemView new.
-	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
-	group := RadioButtonGroup new.
-	b := RadioButton label:'one' in:panel.
-	group add:b.
-	b := RadioButton label:'two' in:panel.
-	group add:b.
-	group value:2.
-	b := RadioButton label:'three' in:panel.
-	group add:b.
-	top extent:(panel preferredExtent).
-	top open.
+        top := StandardSystemView new.
+        panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+        group := RadioButtonGroup new.
+        b := RadioButton label:'one' in:panel.
+        group add:b.
+        b := RadioButton label:'two' in:panel.
+        group add:b.
+        group value:2.
+        b := RadioButton label:'three' in:panel.
+        group add:b.
+        top extent:(panel preferredExtent).
+        top open.
+                                                                        [exEnd]
 
 
     using checkBoxes (these have a label included):
-
-	|top panel toggle b group|
+                                                                        [exBegin]
+        |top panel toggle b group|
 
-	top := StandardSystemView new.
-	panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
-	panel horizontalLayout:#left.
-	group := RadioButtonGroup new.
-	b := CheckBox label:'one' in:panel.
-	group add:b.
-	b := CheckBox label:'two' in:panel.
-	group add:b.
-	b := CheckBox label:'three' in:panel.
-	group add:b.
-	top extent:(panel preferredExtent).
-	top open.
+        top := StandardSystemView new.
+        panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+        panel horizontalLayout:#left.
+        group := RadioButtonGroup new.
+        b := CheckBox label:'one' in:panel.
+        group add:b.
+        b := CheckBox label:'two' in:panel.
+        group add:b.
+        b := CheckBox label:'three' in:panel.
+        group add:b.
+        top extent:(panel preferredExtent).
+        top open.
+                                                                        [exEnd]
 
 
     example (operating on a model)
-
-	|selected dialog group|
+                                                                        [exBegin]
+        |selected dialog group|
 
-	selected := 2 asValue.
-	dialog := Dialog new.
-	group := RadioButtonGroup new.
-	group add:(dialog addCheckBox:'one' on:nil) toggleView.
-	group add:(dialog addCheckBox:'two' on:nil) toggleView.
-	group add:(dialog addCheckBox:'three' on:nil) toggleView.
-	group valueChannel:selected.
-	dialog addAbortButton; addOkButton.
-	dialog open.
-	dialog accepted ifTrue:[
-	    Transcript showCr:'you selected: ' , selected value printString
-	] ifFalse:[
-	    Transcript showCr:'aborted'
-	]
+        selected := 2 asValue.
+        dialog := Dialog new.
+        group := RadioButtonGroup new.
+        group add:(dialog addCheckBox:'one' on:nil) toggleView.
+        group add:(dialog addCheckBox:'two' on:nil) toggleView.
+        group add:(dialog addCheckBox:'three' on:nil) toggleView.
+        group valueChannel:selected.
+        dialog addAbortButton; addOkButton.
+        dialog open.
+        dialog accepted ifTrue:[
+            Transcript showCr:'you selected: ' , selected value printString
+        ] ifFalse:[
+            Transcript showCr:'aborted'
+        ]
+                                                                        [exEnd]
 "
 
     "Created: 15.11.1995 / 17:14:53 / cg"
+    "Modified: 27.4.1996 / 19:27:37 / cg"
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.20 1996-04-25 17:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.21 1996-04-27 18:22:43 cg Exp $'
 ! !
 
 !RadioButtonGroup methodsFor:'accessing'!
hg/stx-libwidg