equal
deleted
inserted
replaced
13 |
13 |
14 "{ NameSpace: Smalltalk }" |
14 "{ NameSpace: Smalltalk }" |
15 |
15 |
16 DialogBox subclass:#OptionBox |
16 DialogBox subclass:#OptionBox |
17 instanceVariableNames:'labelPanel formLabel textLabel buttons actions defaultButtonIndex' |
17 instanceVariableNames:'labelPanel formLabel textLabel buttons actions defaultButtonIndex' |
18 classVariableNames:'WarnBitmap' |
18 classVariableNames:'WarnBitmap InfoBitmap YesNoBitmap' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Views-DialogBoxes' |
20 category:'Views-DialogBoxes' |
21 ! |
21 ! |
22 |
22 |
23 !OptionBox class methodsFor:'documentation'! |
23 !OptionBox class methodsFor:'documentation'! |
572 ! ! |
572 ! ! |
573 |
573 |
574 !OptionBox methodsFor:'initialization'! |
574 !OptionBox methodsFor:'initialization'! |
575 |
575 |
576 initFormBitmap |
576 initFormBitmap |
|
577 self initYesNoBitmap |
|
578 |
|
579 "Modified: / 28-11-2017 / 14:33:16 / cg" |
|
580 ! |
|
581 |
|
582 initInfoBitmap |
|
583 InfoBitmap isNil ifTrue:[ |
|
584 InfoBitmap := InfoBox iconBitmap. |
|
585 ]. |
|
586 formLabel label:InfoBitmap |
|
587 |
|
588 "Created: / 28-11-2017 / 14:31:51 / cg" |
|
589 ! |
|
590 |
|
591 initWarnBitmap |
577 WarnBitmap isNil ifTrue:[ |
592 WarnBitmap isNil ifTrue:[ |
578 WarnBitmap := WarningBox iconBitmap. |
593 WarnBitmap := WarningBox iconBitmap. |
579 "/ WarnBitmap := Image fromFile:'bitmaps/Warning.xbm' resolution:100 on:Display |
594 "/ WarnBitmap := Image fromFile:'bitmaps/Warning.xbm' resolution:100 on:Display |
580 ]. |
595 ]. |
581 formLabel label:WarnBitmap |
596 formLabel label:WarnBitmap |
582 |
597 |
583 "Modified: / 25.5.1999 / 16:08:06 / cg" |
598 "Created: / 28-11-2017 / 14:31:31 / cg" |
|
599 ! |
|
600 |
|
601 initYesNoBitmap |
|
602 YesNoBitmap isNil ifTrue:[ |
|
603 YesNoBitmap := YesNoBox iconBitmap. |
|
604 ]. |
|
605 formLabel label:YesNoBitmap |
|
606 |
|
607 "Created: / 28-11-2017 / 14:32:45 / cg" |
584 ! |
608 ! |
585 |
609 |
586 initialize |
610 initialize |
587 |mm vPanelLayout| |
611 |mm vPanelLayout| |
588 |
612 |