equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger |
4 COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
548 enableStateChanged |
550 enableStateChanged |
549 |fieldBG fieldFG| |
551 |fieldBG fieldFG| |
550 |
552 |
551 super enableStateChanged. |
553 super enableStateChanged. |
552 self enabled ifTrue:[ |
554 self enabled ifTrue:[ |
553 fieldBG := (styleSheet colorAt:#'comboList.backgroundColor' default:Color white). |
555 fieldBG := (styleSheet colorAt:#'comboList.backgroundColor' default:self whiteColor). |
554 fieldFG := Button defaultForegroundColor |
556 fieldFG := Button defaultForegroundColor |
555 ] ifFalse:[ |
557 ] ifFalse:[ |
556 fieldBG := View defaultViewBackgroundColor. |
558 fieldBG := View defaultViewBackgroundColor. |
557 fieldFG := Button defaultDisabledForegroundColor. |
559 fieldFG := Button defaultDisabledForegroundColor. |
558 ]. |
560 ]. |
655 field := CheckLabel in:self. |
657 field := CheckLabel in:self. |
656 field level:((styleSheet at:#'comboList.level') ? -1). |
658 field level:((styleSheet at:#'comboList.level') ? -1). |
657 field borderWidth:0. |
659 field borderWidth:0. |
658 field adjust:#left. |
660 field adjust:#left. |
659 field delegate:self. "delegate mouseWheel events to myself" |
661 field delegate:self. "delegate mouseWheel events to myself" |
660 field backgroundColor:(styleSheet colorAt:#'comboList.backgroundColor' default:Color white). |
662 field backgroundColor:(styleSheet colorAt:#'comboList.backgroundColor' default:self whiteColor). |
661 field font:self font. |
663 field font:self font. |
662 |
664 |
663 " |
665 " |
664 |b| |
666 |b| |
665 |
667 |