equal
deleted
inserted
replaced
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 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Button subclass:#Toggle |
16 Button subclass:#Toggle |
15 instanceVariableNames:'showLamp lampColor lampWidth lampHeight' |
17 instanceVariableNames:'showLamp lampColor lampWidth lampHeight' |
16 classVariableNames:'DefaultShowLamp DefaultLampColor LampInset' |
18 classVariableNames:'DefaultShowLamp DefaultLampColor LampInset' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
392 ] |
394 ] |
393 |
395 |
394 "Modified: / 6.6.1998 / 19:32:50 / cg" |
396 "Modified: / 6.6.1998 / 19:32:50 / cg" |
395 ! |
397 ! |
396 |
398 |
|
399 lampHeight |
|
400 ^ lampHeight |
|
401 ! |
|
402 |
397 lampHeight:something |
403 lampHeight:something |
398 lampHeight := something. |
404 lampHeight := something. |
|
405 ! |
|
406 |
|
407 lampWidth |
|
408 ^ lampWidth |
399 ! |
409 ! |
400 |
410 |
401 lampWidth: something |
411 lampWidth: something |
402 lampWidth := something |
412 lampWidth := something |
403 ! |
413 ! |
624 ! ! |
634 ! ! |
625 |
635 |
626 !Toggle class methodsFor:'documentation'! |
636 !Toggle class methodsFor:'documentation'! |
627 |
637 |
628 version |
638 version |
629 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.57 2014-02-18 16:59:47 stefan Exp $' |
639 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.58 2015-01-26 14:47:46 cg Exp $' |
630 ! |
640 ! |
631 |
641 |
632 version_CVS |
642 version_CVS |
633 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.57 2014-02-18 16:59:47 stefan Exp $' |
643 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.58 2015-01-26 14:47:46 cg Exp $' |
634 ! ! |
644 ! ! |
635 |
645 |