78 ! |
78 ! |
79 |
79 |
80 examples |
80 examples |
81 " |
81 " |
82 example1: |
82 example1: |
83 |
83 [exBegin] |
84 |v p b1 b2 b3 b4| |
84 |v p b1 b2 b3 b4| |
85 |
85 |
86 v := StandardSystemView extent:200@200. |
86 v := StandardSystemView extent:200@200. |
87 p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
87 p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
88 b1 := ArrowButton upIn:p. |
88 b1 := ArrowButton upIn:p. |
89 b2 := ArrowButton downIn:p. |
89 b2 := ArrowButton downIn:p. |
90 b3 := ArrowButton leftIn:p. |
90 b3 := ArrowButton leftIn:p. |
91 b4 := ArrowButton rightIn:p. |
91 b4 := ArrowButton rightIn:p. |
92 |
92 |
93 b1 action:['whatEver you like here ...']. |
93 b1 action:['whatEver you like here ...']. |
94 b2 action:['whatEver you like here ...']. |
94 b2 action:['whatEver you like here ...']. |
95 b3 action:['whatEver you like here ...']. |
95 b3 action:['whatEver you like here ...']. |
96 b4 action:['whatEver you like here ...']. |
96 b4 action:['whatEver you like here ...']. |
97 |
97 |
98 v open |
98 v open |
|
99 [exEnd] |
99 |
100 |
100 |
101 |
101 example2: |
102 example2: |
102 |
103 [exBegin] |
103 |v p b1 b2 b3 b4| |
104 |v p b1 b2 b3 b4| |
104 |
105 |
105 v := StandardSystemView extent:200@200. |
106 v := StandardSystemView extent:200@200. |
106 p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
107 p := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
107 b1 := (ArrowButton upIn:p) extent:30@30. |
108 b1 := (ArrowButton upIn:p) extent:30@30. |
108 b2 := (ArrowButton downIn:p) extent:30@30. |
109 b2 := (ArrowButton downIn:p) extent:30@30. |
109 b3 := (ArrowButton leftIn:p) extent:30@30. |
110 b3 := (ArrowButton leftIn:p) extent:30@30. |
110 b4 := (ArrowButton rightIn:p) extent:30@30. |
111 b4 := (ArrowButton rightIn:p) extent:30@30. |
111 |
112 |
112 b1 action:['whatEver you like here ...']. |
113 b1 action:['whatEver you like here ...']. |
113 b2 action:['whatEver you like here ...']. |
114 b2 action:['whatEver you like here ...']. |
114 b3 action:['whatEver you like here ...']. |
115 b3 action:['whatEver you like here ...']. |
115 b4 action:['whatEver you like here ...']. |
116 b4 action:['whatEver you like here ...']. |
116 |
117 |
117 v open |
118 v open |
|
119 [exEnd] |
|
120 |
118 |
121 |
119 example3: |
122 example3: |
120 |
123 [exBegin] |
121 |v p b1 b2 b3 b4| |
124 |v p b1 b2 b3 b4| |
122 |
125 |
123 v := StandardSystemView extent:200@200. |
126 v := StandardSystemView extent:200@200. |
124 p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
127 p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
125 b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33). |
128 b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33). |
126 b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67). |
129 b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67). |
127 b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67). |
130 b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67). |
128 b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0). |
131 b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0). |
129 |
132 |
130 b1 action:['whatEver you like here ...']. |
133 b1 action:['whatEver you like here ...']. |
131 b2 action:['whatEver you like here ...']. |
134 b2 action:['whatEver you like here ...']. |
132 b3 action:['whatEver you like here ...']. |
135 b3 action:['whatEver you like here ...']. |
133 b4 action:['whatEver you like here ...']. |
136 b4 action:['whatEver you like here ...']. |
134 |
137 |
135 v open |
138 v open |
|
139 [exEnd] |
|
140 |
136 |
141 |
137 example4 (not good coding style, to explicitely use a particular style, |
142 example4 (not good coding style, to explicitely use a particular style, |
138 just a demonstration how it looks ..): |
143 just a demonstration how it looks ..): |
139 |
144 [exBegin] |
140 |v p b1 b2 b3 b4 oldStyle| |
145 |v p b1 b2 b3 b4 oldStyle| |
141 |
146 |
142 oldStyle := View defaultStyle. |
147 oldStyle := View defaultStyle. |
143 View defaultStyle:#motif. |
148 View defaultStyle:#motif. |
144 |
149 |
145 v := StandardSystemView extent:100@100. |
150 v := StandardSystemView extent:100@100. |
146 p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
151 p := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:v. |
147 |
152 |
148 b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33). |
153 b1 := (ArrowButton upIn:p) origin:(0.33 @ 0.0) corner:(0.67 @ 0.33). |
149 b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67). |
154 b3 := (ArrowButton leftIn:p) origin:(0.0 @ 0.33) corner:(0.33 @ 0.67). |
150 b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67). |
155 b4 := (ArrowButton rightIn:p) origin:(0.67 @ 0.33) corner:(1.0 @ 0.67). |
151 b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0). |
156 b2 := (ArrowButton downIn:p) origin:(0.33 @ 0.67) corner:(0.67 @ 1.0). |
152 |
157 |
153 b1 action:['whatEver you like here ...']. |
158 b1 action:['whatEver you like here ...']. |
154 b2 action:['whatEver you like here ...']. |
159 b2 action:['whatEver you like here ...']. |
155 b3 action:['whatEver you like here ...']. |
160 b3 action:['whatEver you like here ...']. |
156 b4 action:['whatEver you like here ...']. |
161 b4 action:['whatEver you like here ...']. |
157 |
162 |
158 View defaultStyle:oldStyle. |
163 View defaultStyle:oldStyle. |
159 v open |
164 v open |
|
165 [exEnd] |
160 " |
166 " |
161 ! ! |
167 ! ! |
162 |
168 |
163 !ArrowButton class methodsFor:'instance creation'! |
169 !ArrowButton class methodsFor:'instance creation'! |
164 |
170 |