equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1991 by Claus Gittinger |
2 COPYRIGHT (c) 1991 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
68 |top panel b group| |
66 |top panel b group| |
69 |
67 |
70 top := StandardSystemView new. |
68 top := StandardSystemView new. |
71 top extent:200@200. |
69 top extent:200@200. |
72 |
70 |
73 panel := HorizontalPanelView |
71 panel := HorizontalPanelView origin:(0.0@0.0) corner:(1.0@1.0) in:top. |
74 origin:0.0@0.0 |
|
75 corner:1.0@1.0 |
|
76 in:top. |
|
77 |
72 |
78 group := RadioButtonGroup new. |
73 group := RadioButtonGroup new. |
79 |
74 |
80 b := RadioButton label:'am' in:panel. |
75 b := RadioButton label:'am' in:panel. |
81 group add:b. |
76 group add:b. |
97 |top panel b group| |
92 |top panel b group| |
98 |
93 |
99 top := StandardSystemView new. |
94 top := StandardSystemView new. |
100 top extent:200@200. |
95 top extent:200@200. |
101 |
96 |
102 panel := HorizontalPanelView |
97 panel := HorizontalPanelView origin:(0.0@0.0) corner:(1.0@1.0) in:top. |
103 origin:0.0@0.0 |
|
104 corner:1.0@1.0 |
|
105 in:top. |
|
106 |
98 |
107 group := RadioButtonGroup new. |
99 group := RadioButtonGroup new. |
108 |
100 |
109 b := Toggle label:'am' in:panel. |
101 b := Toggle label:'am' in:panel. |
110 group add:b. |
102 group add:b. |
124 [exBegin] |
116 [exBegin] |
125 |top top2 panel b sv group selectionInList| |
117 |top top2 panel b sv group selectionInList| |
126 |
118 |
127 top := StandardSystemView extent:200@200. |
119 top := StandardSystemView extent:200@200. |
128 |
120 |
129 panel := HorizontalPanelView |
121 panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top. |
130 origin:0.0@0.0 corner:1.0@1.0 in:top. |
|
131 |
122 |
132 group := RadioButtonGroup new. |
123 group := RadioButtonGroup new. |
133 selectionInList := SelectionInList new. |
124 selectionInList := SelectionInList new. |
134 selectionInList list:#('am' 'fm' 'off'). |
125 selectionInList list:#('am' 'fm' 'off'). |
135 selectionInList selectionIndexHolder:group. |
126 selectionInList selectionIndexHolder:group. |