7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libwidg2' }" |
12 "{ Package: 'stx:libwidg2' }" |
14 |
13 |
15 GraphColumnViewSpec subclass:#GraphColumnView3DSpec |
14 GraphColumnViewSpec subclass:#GraphColumnView3DSpec |
16 instanceVariableNames:'rotateX rotateY rotateZ zoomZ' |
15 instanceVariableNames:'rotateX rotateY rotateZ zoomZ' |
17 classVariableNames:'' |
16 classVariableNames:'' |
264 ! |
263 ! |
265 |
264 |
266 rotateX:something |
265 rotateX:something |
267 "set the value of the instance variable 'rotateX' (automatically generated)" |
266 "set the value of the instance variable 'rotateX' (automatically generated)" |
268 |
267 |
269 rotateX := something.! |
268 rotateX := something. |
|
269 ! |
270 |
270 |
271 rotateY |
271 rotateY |
272 "return the value of the instance variable 'rotateY' (automatically generated)" |
272 "return the value of the instance variable 'rotateY' (automatically generated)" |
273 |
273 |
274 ^ rotateY |
274 ^ rotateY |
275 ! |
275 ! |
276 |
276 |
277 rotateY:something |
277 rotateY:something |
278 "set the value of the instance variable 'rotateY' (automatically generated)" |
278 "set the value of the instance variable 'rotateY' (automatically generated)" |
279 |
279 |
280 rotateY := something.! |
280 rotateY := something. |
|
281 ! |
281 |
282 |
282 rotateZ |
283 rotateZ |
283 "return the value of the instance variable 'rotateZ' (automatically generated)" |
284 "return the value of the instance variable 'rotateZ' (automatically generated)" |
284 |
285 |
285 ^ rotateZ |
286 ^ rotateZ |
286 ! |
287 ! |
287 |
288 |
288 rotateZ:something |
289 rotateZ:something |
289 "set the value of the instance variable 'rotateZ' (automatically generated)" |
290 "set the value of the instance variable 'rotateZ' (automatically generated)" |
290 |
291 |
291 rotateZ := something.! |
292 rotateZ := something. |
|
293 ! |
292 |
294 |
293 zoomZ |
295 zoomZ |
294 "return the value of the instance variable 'zoomZ' (automatically generated)" |
296 "return the value of the instance variable 'zoomZ' (automatically generated)" |
295 |
297 |
296 ^ zoomZ! |
298 ^ zoomZ |
|
299 ! |
297 |
300 |
298 zoomZ:something |
301 zoomZ:something |
299 "set the value of the instance variable 'zoomZ' (automatically generated)" |
302 "set the value of the instance variable 'zoomZ' (automatically generated)" |
300 |
303 |
301 zoomZ := something.! ! |
304 zoomZ := something. |
|
305 ! ! |
302 |
306 |
303 !GraphColumnView3DSpec methodsFor:'building'! |
307 !GraphColumnView3DSpec methodsFor:'building'! |
304 |
308 |
305 aspectSelectors |
309 aspectSelectors |
306 "add more aspect selectors |
310 "add more aspect selectors (these generate aspect methods in the definer)" |
307 " |
311 |
308 |more| |
312 |more| |
309 |
313 |
310 more := super aspectSelectors. |
314 more := super aspectSelectors. |
311 |
315 |
312 rotateX notNil ifTrue:[more add:rotateX]. |
316 rotateX notNil ifTrue:[more add:rotateX]. |
313 rotateY notNil ifTrue:[more add:rotateY]. |
317 rotateY notNil ifTrue:[more add:rotateY]. |
314 rotateZ notNil ifTrue:[more add:rotateZ]. |
318 rotateZ notNil ifTrue:[more add:rotateZ]. |
315 zoomZ notNil ifTrue:[more add:zoomZ]. |
319 zoomZ notNil ifTrue:[more add:zoomZ]. |
316 |
320 |
317 ^ more |
321 ^ more |
318 |
|
319 |
|
320 ! |
322 ! |
321 |
323 |
322 setAttributesIn:aView with:aBuilder |
324 setAttributesIn:aView with:aBuilder |
323 |
325 |
324 super setAttributesIn:aView with:aBuilder. |
326 super setAttributesIn:aView with:aBuilder. |