equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
252 ! ! |
250 ! ! |
253 |
251 |
254 !NoteBookView methodsFor:'accepting-items'! |
252 !NoteBookView methodsFor:'accepting-items'! |
255 |
253 |
256 tabAtIndex:tabIndex put:newLabelOrTabItem |
254 tabAtIndex:tabIndex put:newLabelOrTabItem |
257 "called if the contents of a tab changed; test whether the old layout can |
255 "called when the contents of a tab changed; |
258 be reused otherwise we must recompute the whole list |
256 test whether the old layout can be reused; |
|
257 otherwise we must recompute the whole list |
259 " |
258 " |
260 |tab tabLayout prefX prefY tabPrefExtent| |
259 |tab tabLayout prefX prefY tabPrefExtent| |
261 |
260 |
262 "/ a single items label has changed |
261 "/ a single items label has changed |
263 tab := list at:tabIndex ifAbsent:nil. |
262 tab := list at:tabIndex ifAbsent:nil. |
657 activeBackgroundColor := aColor. |
656 activeBackgroundColor := aColor. |
658 self invalidate. |
657 self invalidate. |
659 ! |
658 ! |
660 |
659 |
661 activeForegroundColor |
660 activeForegroundColor |
662 "returns the color used when drawing the active tabs label" |
661 "returns the color used when drawing the active tab's label" |
663 |
662 |
664 ^ activeForegroundColor |
663 ^ activeForegroundColor |
665 ! |
664 ! |
666 |
665 |
667 activeForegroundColor:aColor |
666 activeForegroundColor:aColor |
668 "set the color used when drawing the active tabs label" |
667 "set the color used when drawing the active tab's label" |
669 |
668 |
670 aColor = activeForegroundColor ifTrue:[ |
669 aColor = activeForegroundColor ifTrue:[ |
671 ^ self |
670 ^ self |
672 ]. |
671 ]. |
673 activeForegroundColor := aColor. |
672 activeForegroundColor := aColor. |
678 "win-XP style marker" |
677 "win-XP style marker" |
679 |
678 |
680 ^ activeTabMarkerColor |
679 ^ activeTabMarkerColor |
681 ! |
680 ! |
682 |
681 |
683 activeTabMarkerColor:something |
682 activeTabMarkerColor:aColor |
684 activeTabMarkerColor := something. |
683 activeTabMarkerColor := aColor. |
685 ! |
684 ! |
686 |
685 |
687 activeTabMarkerFgColor |
686 activeTabMarkerFgColor |
688 "win-XP style marker" |
687 "win-XP style marker" |
689 |
688 |
725 |
724 |
726 ^ disabledForegroundColor |
725 ^ disabledForegroundColor |
727 ! |
726 ! |
728 |
727 |
729 drawLightColor |
728 drawLightColor |
730 "get the color to be used for lighted edges; bug fix caused by common drawEdge" |
729 "get the color to be used for lighted edges; |
|
730 bug fix caused by common drawEdge" |
731 |
731 |
732 ^ drawLightColor |
732 ^ drawLightColor |
733 ! |
733 ! |
734 |
734 |
735 foregroundColor |
735 foregroundColor |