460 " |
460 " |
461 self iconRadioGroupDisabledOff inspect |
461 self iconRadioGroupDisabledOff inspect |
462 ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOff |
462 ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOff |
463 " |
463 " |
464 |
464 |
465 <resource: #image> |
465 "/ <resource: #image> |
466 |
466 "/ |
467 IconDisabledRadioOff isNil ifTrue:[ |
467 "/ IconDisabledRadioOff isNil ifTrue:[ |
468 IconDisabledRadioOff := Icon |
468 "/ IconDisabledRadioOff := Icon |
469 constantNamed:#'MenuPanel iconRadioGroupDisabledOff' |
469 "/ constantNamed:#'MenuPanel iconRadioGroupDisabledOff' |
470 ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJ*Y@DZ**(AJ**+AJ***LR***#D***(1J***LR***#AZ**#@Z**(0A** 0@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
470 "/ ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJ*Y@DZ**(AJ**+AJ***LR***#D***(1J***LR***#AZ**#@Z**(0A** 0@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
471 ]. |
471 "/ ]. |
472 ^ IconDisabledRadioOff |
472 "/ ^ IconDisabledRadioOff |
|
473 |
|
474 <resource: #programImage> |
|
475 ^ RadioButton disabledPassiveForm |
473 ! |
476 ! |
474 |
477 |
475 iconRadioGroupDisabledOn |
478 iconRadioGroupDisabledOn |
476 "This resource specification was automatically generated |
479 "This resource specification was automatically generated |
477 by the ImageEditor of ST/X." |
480 by the ImageEditor of ST/X." |
483 self iconRadioGroupDisabledOn inspect |
486 self iconRadioGroupDisabledOn inspect |
484 ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOn |
487 ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOn |
485 Icon flushCachedIcons |
488 Icon flushCachedIcons |
486 " |
489 " |
487 |
490 |
488 <resource: #image> |
491 "/ <resource: #image> |
489 |
492 "/ |
490 IconDisabledRadioOn isNil ifTrue:[ |
493 "/ IconDisabledRadioOn isNil ifTrue:[ |
491 IconDisabledRadioOn := Icon |
494 "/ IconDisabledRadioOn := Icon |
492 constantNamed:#'MenuPanel class iconRadioGroupDisabledOn' |
495 "/ constantNamed:#'MenuPanel class iconRadioGroupDisabledOn' |
493 ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJ*Y@DYUZ(AIUU+AIUUVLRUUU#D%UUX1IUUVLRUUU#AYUU#@Z%U(0A** 0@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
496 "/ ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJ*Y@DYUZ(AIUU+AIUUVLRUUU#D%UUX1IUUVLRUUU#AYUU#@Z%U(0A** 0@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
494 ]. |
497 "/ ]. |
495 ^ IconDisabledRadioOn |
498 "/ ^ IconDisabledRadioOn |
|
499 |
|
500 <resource: #programImage> |
|
501 ^ RadioButton disabledActiveForm |
|
502 ! |
|
503 |
|
504 iconRadioGroupEnteredOff |
|
505 <resource: #programImage> |
|
506 ^ RadioButton enteredPassiveForm |
|
507 ! |
|
508 |
|
509 iconRadioGroupEnteredOn |
|
510 <resource: #programImage> |
|
511 ^ RadioButton enteredActiveForm |
496 ! |
512 ! |
497 |
513 |
498 iconRadioGroupOff |
514 iconRadioGroupOff |
499 "This resource specification was automatically generated |
515 "This resource specification was automatically generated |
500 by the ImageEditor of ST/X." |
516 by the ImageEditor of ST/X." |
505 " |
521 " |
506 self iconRadioGroupOff inspect |
522 self iconRadioGroupOff inspect |
507 ImageEditor openOnClass:self andSelector:#iconRadioGroupOff |
523 ImageEditor openOnClass:self andSelector:#iconRadioGroupOff |
508 " |
524 " |
509 |
525 |
510 <resource: #image> |
526 "/ <resource: #image> |
511 |
527 "/ |
512 IconRadioOff isNil ifTrue:[ |
528 "/ IconRadioOff isNil ifTrue:[ |
513 IconRadioOff := Icon |
529 "/ IconRadioOff := Icon |
514 constantNamed:#'MenuPanel iconRadioGroupOff' |
530 "/ constantNamed:#'MenuPanel iconRadioGroupOff' |
515 ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D_?>(AO??;AO???LS???3D???<1O???LS???3A_??3@Z??<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
531 "/ ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D_?>(AO??;AO???LS???3D???<1O???LS???3A_??3@Z??<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
516 ]. |
532 "/ ]. |
517 ^ IconRadioOff |
533 "/ ^ IconRadioOff |
|
534 |
|
535 <resource: #programImage> |
|
536 ^ RadioButton passiveForm |
518 ! |
537 ! |
519 |
538 |
520 iconRadioGroupOn |
539 iconRadioGroupOn |
521 "This resource specification was automatically generated |
540 "This resource specification was automatically generated |
522 by the ImageEditor of ST/X." |
541 by the ImageEditor of ST/X." |
527 " |
546 " |
528 self iconRadioGroupOn inspect |
547 self iconRadioGroupOn inspect |
529 ImageEditor openOnClass:self andSelector:#iconRadioGroupOn |
548 ImageEditor openOnClass:self andSelector:#iconRadioGroupOn |
530 " |
549 " |
531 |
550 |
532 <resource: #image> |
551 "/ <resource: #image> |
533 |
552 "/ |
534 IconRadioOn isNil ifTrue:[ |
553 "/ IconRadioOn isNil ifTrue:[ |
535 IconRadioOn := Icon |
554 "/ IconRadioOn := Icon |
536 constantNamed:#'MenuPanel iconRadioGroupOn' |
555 "/ constantNamed:#'MenuPanel iconRadioGroupOn' |
537 ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D]@^(AL@@;AM@@GLS@@@3D0@@L1L@@CLSP@A3A\@@3@Z4A<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
556 "/ ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D]@^(AL@@;AM@@GLS@@@3D0@@L1L@@CLSP@A3A\@@3@Z4A<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself] |
538 ]. |
557 "/ ]. |
539 ^ IconRadioOn |
558 "/ ^ IconRadioOn |
|
559 |
|
560 <resource: #programImage> |
|
561 ^ RadioButton activeForm |
540 ! |
562 ! |
541 |
563 |
542 menuIndicator |
564 menuIndicator |
543 "This resource specification was automatically generated |
565 "This resource specification was automatically generated |
544 by the ImageEditor of ST/X." |
566 by the ImageEditor of ST/X." |
1826 |
1848 |
1827 iconRadioGroupDisabledOn |
1849 iconRadioGroupDisabledOn |
1828 ^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn) |
1850 ^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn) |
1829 ! |
1851 ! |
1830 |
1852 |
|
1853 iconRadioGroupEnteredOff |
|
1854 ^ self registerImageOnDevice:(self class iconRadioGroupEnteredOff) |
|
1855 ! |
|
1856 |
|
1857 iconRadioGroupEnteredOn |
|
1858 ^ self registerImageOnDevice:(self class iconRadioGroupEnteredOn) |
|
1859 ! |
|
1860 |
1831 iconRadioGroupOff |
1861 iconRadioGroupOff |
1832 ^ self registerImageOnDevice:(self class iconRadioGroupOff) |
1862 ^ self registerImageOnDevice:(self class iconRadioGroupOff) |
1833 ! |
1863 ! |
1834 |
1864 |
1835 iconRadioGroupOn |
1865 iconRadioGroupOn |
6719 isOn := (choice value = menuItem choiceValue). |
6749 isOn := (choice value = menuItem choiceValue). |
6720 self enabled ifFalse:[ |
6750 self enabled ifFalse:[ |
6721 ^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn] |
6751 ^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn] |
6722 ifFalse:[menuPanel iconRadioGroupDisabledOff] |
6752 ifFalse:[menuPanel iconRadioGroupDisabledOff] |
6723 ]. |
6753 ]. |
|
6754 self isSelected ifTrue:[ |
|
6755 ^ isOn == true |
|
6756 ifTrue:[menuPanel iconRadioGroupEnteredOn] |
|
6757 ifFalse:[menuPanel iconRadioGroupEnteredOff] |
|
6758 ]. |
6724 ^ isOn ifTrue:[menuPanel iconRadioGroupOn] |
6759 ^ isOn ifTrue:[menuPanel iconRadioGroupOn] |
6725 ifFalse:[menuPanel iconRadioGroupOff] |
6760 ifFalse:[menuPanel iconRadioGroupOff] |
6726 ! |
6761 ! |
6727 |
6762 |
6728 draw |
6763 draw |
7167 ! |
7202 ! |
7168 |
7203 |
7169 indicatorForm |
7204 indicatorForm |
7170 "returns indication form or nil" |
7205 "returns indication form or nil" |
7171 |
7206 |
7172 |val| |
7207 |isOn| |
7173 |
7208 |
7174 indication isNil ifTrue:[^ nil]. |
7209 indication isNil ifTrue:[^ nil]. |
7175 |
7210 |
7176 val := self indicationValue. |
7211 isOn := self indicationValue. |
7177 self enabled ifFalse:[ |
7212 self enabled ifFalse:[ |
7178 ^ val == true |
7213 ^ isOn == true |
7179 ifTrue:[menuPanel iconIndicationDisabledOn] |
7214 ifTrue:[menuPanel iconIndicationDisabledOn] |
7180 ifFalse:[menuPanel iconIndicationDisabledOff] |
7215 ifFalse:[menuPanel iconIndicationDisabledOff] |
7181 ]. |
7216 ]. |
7182 ^ val == true |
7217 "/ self isSelected ifTrue:[ |
|
7218 "/ ^ isOn == true |
|
7219 "/ ifTrue:[menuPanel iconIndicationEnteredOn] |
|
7220 "/ ifFalse:[menuPanel iconIndicationEnteredOff] |
|
7221 "/ ]. |
|
7222 |
|
7223 ^ isOn == true |
7183 ifTrue:[menuPanel iconIndicationOn] |
7224 ifTrue:[menuPanel iconIndicationOn] |
7184 ifFalse:[menuPanel iconIndicationOff] |
7225 ifFalse:[menuPanel iconIndicationOff] |
7185 ! |
7226 ! |
7186 |
7227 |
7187 invalidate |
7228 invalidate |