equal
deleted
inserted
replaced
438 fetchDeviceResources |
438 fetchDeviceResources |
439 "fetch device colors, to avoid reallocation at redraw time" |
439 "fetch device colors, to avoid reallocation at redraw time" |
440 |
440 |
441 super fetchDeviceResources. |
441 super fetchDeviceResources. |
442 |
442 |
443 lampColor notNil ifTrue:[lampColor := lampColor on:device]. |
443 lampColor notNil ifTrue:[lampColor := lampColor onDevice:device]. |
444 |
444 |
445 "Created: 13.1.1997 / 23:46:31 / cg" |
445 "Created: 13.1.1997 / 23:46:31 / cg" |
446 ! |
446 ! |
447 |
447 |
448 initStyle |
448 initStyle |
632 ! ! |
632 ! ! |
633 |
633 |
634 !Toggle class methodsFor:'documentation'! |
634 !Toggle class methodsFor:'documentation'! |
635 |
635 |
636 version |
636 version |
637 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.45 1999-04-24 17:14:10 cg Exp $' |
637 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.46 1999-08-18 14:31:00 cg Exp $' |
638 ! ! |
638 ! ! |