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:#GraphColumnView2DSpec |
14 GraphColumnViewSpec subclass:#GraphColumnView2DSpec |
16 instanceVariableNames:'gridX gridY actionBlock doubleClickBlock buttonReleaseBlock |
15 instanceVariableNames:'gridX gridY actionBlock doubleClickBlock buttonReleaseBlock |
17 menuAccessBlock' |
16 menuAccessBlock' |
319 !GraphColumnView2DSpec methodsFor:'accessing'! |
318 !GraphColumnView2DSpec methodsFor:'accessing'! |
320 |
319 |
321 actionBlock |
320 actionBlock |
322 "return the value of the instance variable 'actionBlock' (automatically generated)" |
321 "return the value of the instance variable 'actionBlock' (automatically generated)" |
323 |
322 |
324 ^ actionBlock! |
323 ^ actionBlock |
|
324 ! |
325 |
325 |
326 actionBlock:something |
326 actionBlock:something |
327 "set the value of the instance variable 'actionBlock' (automatically generated)" |
327 "set the value of the instance variable 'actionBlock' (automatically generated)" |
328 |
328 |
329 actionBlock := something.! |
329 actionBlock := something. |
|
330 ! |
330 |
331 |
331 buttonReleaseBlock |
332 buttonReleaseBlock |
332 "return the value of the instance variable 'buttonReleaseBlock' (automatically generated)" |
333 "return the value of the instance variable 'buttonReleaseBlock' (automatically generated)" |
333 |
334 |
334 ^ buttonReleaseBlock! |
335 ^ buttonReleaseBlock |
|
336 ! |
335 |
337 |
336 buttonReleaseBlock:something |
338 buttonReleaseBlock:something |
337 "set the value of the instance variable 'buttonReleaseBlock' (automatically generated)" |
339 "set the value of the instance variable 'buttonReleaseBlock' (automatically generated)" |
338 |
340 |
339 buttonReleaseBlock := something.! |
341 buttonReleaseBlock := something. |
|
342 ! |
340 |
343 |
341 doubleClickBlock |
344 doubleClickBlock |
342 "return the value of the instance variable 'doubleClickBlock' (automatically generated)" |
345 "return the value of the instance variable 'doubleClickBlock' (automatically generated)" |
343 |
346 |
344 ^ doubleClickBlock! |
347 ^ doubleClickBlock |
|
348 ! |
345 |
349 |
346 doubleClickBlock:something |
350 doubleClickBlock:something |
347 "set the value of the instance variable 'doubleClickBlock' (automatically generated)" |
351 "set the value of the instance variable 'doubleClickBlock' (automatically generated)" |
348 |
352 |
349 doubleClickBlock := something.! |
353 doubleClickBlock := something. |
|
354 ! |
350 |
355 |
351 gridX |
356 gridX |
352 "return the value of the instance variable 'gridX' (automatically generated)" |
357 "return the value of the instance variable 'gridX' (automatically generated)" |
353 |
358 |
354 ^ gridX ? 0 |
359 ^ gridX ? 0 |
355 ! |
360 ! |
356 |
361 |
357 gridX:something |
362 gridX:something |
358 "set the value of the instance variable 'gridX' (automatically generated)" |
363 "set the value of the instance variable 'gridX' (automatically generated)" |
359 |
364 |
360 gridX := something.! |
365 gridX := something. |
|
366 ! |
361 |
367 |
362 gridY |
368 gridY |
363 "return the value of the instance variable 'gridY' (automatically generated)" |
369 "return the value of the instance variable 'gridY' (automatically generated)" |
364 |
370 |
365 ^ gridY ? 0 |
371 ^ gridY ? 0 |
366 ! |
372 ! |
367 |
373 |
368 gridY:something |
374 gridY:something |
369 "set the value of the instance variable 'gridY' (automatically generated)" |
375 "set the value of the instance variable 'gridY' (automatically generated)" |
370 |
376 |
371 gridY := something.! |
377 gridY := something. |
|
378 ! |
372 |
379 |
373 menuAccessBlock |
380 menuAccessBlock |
374 "return the value of the instance variable 'menuAccessBlock' (automatically generated)" |
381 "return the value of the instance variable 'menuAccessBlock' (automatically generated)" |
375 |
382 |
376 ^ menuAccessBlock! |
383 ^ menuAccessBlock |
|
384 ! |
377 |
385 |
378 menuAccessBlock:something |
386 menuAccessBlock:something |
379 "set the value of the instance variable 'menuAccessBlock' (automatically generated)" |
387 "set the value of the instance variable 'menuAccessBlock' (automatically generated)" |
380 |
388 |
381 menuAccessBlock := something.! ! |
389 menuAccessBlock := something. |
|
390 ! ! |
382 |
391 |
383 !GraphColumnView2DSpec methodsFor:'building'! |
392 !GraphColumnView2DSpec methodsFor:'building'! |
384 |
393 |
385 actionSelectors |
394 actionSelectors |
386 "add more action selectors |
395 "add more action selectors |
422 setAttributesIn:aView with:aBuilder |
431 setAttributesIn:aView with:aBuilder |
423 |
432 |
424 super setAttributesIn:aView with:aBuilder. |
433 super setAttributesIn:aView with:aBuilder. |
425 |
434 |
426 aBuilder isEditing ifFalse:[ |
435 aBuilder isEditing ifFalse:[ |
427 aView gridExtent:(self gridX @ self gridY). |
436 aView gridExtent:(self gridX @ self gridY). |
428 |
437 actionBlock notNil ifTrue:[ |
429 aView action:(self defineCallBackActionFor:actionBlock with:aBuilder). |
438 aView action:(self callBackActionFor:actionBlock with:aBuilder). |
430 aView doubleClickAction:(self defineCallBackActionFor:doubleClickBlock with:aBuilder). |
439 ]. |
431 aView buttonReleaseBlock:(self defineCallBackActionFor:buttonReleaseBlock with:aBuilder). |
440 doubleClickBlock notNil ifTrue:[ |
432 aView menuAccessBlock:(self defineCallBackActionFor:menuAccessBlock with:aBuilder). |
441 aView doubleClickAction:(self callBackActionFor:doubleClickBlock with:aBuilder). |
|
442 ]. |
|
443 buttonReleaseBlock notNil ifTrue:[ |
|
444 aView buttonReleaseBlock:(self callBackActionFor:buttonReleaseBlock with:aBuilder). |
|
445 ]. |
|
446 menuAccessBlock notNil ifTrue:[ |
|
447 aView menuAccessBlock:(self callBackActionFor:menuAccessBlock with:aBuilder). |
|
448 ] |
433 ] |
449 ] |
434 ! ! |
450 ! ! |
435 |
451 |
436 !GraphColumnView2DSpec methodsFor:'converting'! |
452 !GraphColumnView2DSpec methodsFor:'converting'! |
437 |
453 |