equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 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 |
2834 font := gc font. |
2832 font := gc font. |
2835 |
2833 |
2836 label := item printString ? ''. |
2834 label := item printString ? ''. |
2837 (inSelection := self isInSelection:anIndex) ifTrue:[ |
2835 (inSelection := self isInSelection:anIndex) ifTrue:[ |
2838 self hasFocus ifTrue:[ |
2836 self hasFocus ifTrue:[ |
2839 self paint:hilightFgColor on:hilightBgColor. |
2837 gc paint:hilightFgColor on:hilightBgColor. |
2840 ] ifFalse:[ |
2838 ] ifFalse:[ |
2841 self paint:hilightFgColorNoFocus on:hilightBgColorNoFocus |
2839 gc paint:hilightFgColorNoFocus on:hilightBgColorNoFocus |
2842 ]. |
2840 ]. |
2843 label := label string. "/ to avoid printing blue on blue |
2841 label := label string. "/ to avoid printing blue on blue |
2844 ] ifFalse:[ |
2842 ] ifFalse:[ |
2845 self paint:fgColor on:bgColor. |
2843 gc paint:fgColor on:bgColor. |
2846 ]. |
2844 ]. |
2847 |
2845 |
2848 lineNrString := ' [ %1 ]' bindWith:item lineNumber. |
2846 lineNrString := ' [ %1 ]' bindWith:item lineNumber. |
2849 inSelection ifFalse:[ |
2847 inSelection ifFalse:[ |
2850 lineNrString := lineNrString withColor:Color darkGray. |
2848 lineNrString := lineNrString withColor:Color darkGray. |
2896 x1 := (self widthOfContents - viewOrigin x) max:(width - margin). |
2894 x1 := (self widthOfContents - viewOrigin x) max:(width - margin). |
2897 wL := x1 - x0. |
2895 wL := x1 - x0. |
2898 |
2896 |
2899 wL > 0 ifFalse:[^ self]. |
2897 wL > 0 ifFalse:[^ self]. |
2900 |
2898 |
2901 self paint:(self hasFocus ifTrue:[hilightBgColor] ifFalse:[hilightBgColorNoFocus]). |
2899 gc paint:(self hasFocus ifTrue:[hilightBgColor] ifFalse:[hilightBgColorNoFocus]). |
2902 self fillRectangleX:x0 y:y0 width:wL height:hL. |
2900 gc fillRectangleX:x0 y:y0 width:wL height:hL. |
2903 |
2901 |
2904 "/ DRAW THE FRAME |
2902 "/ DRAW THE FRAME |
2905 |
2903 |
2906 hilightFrameColor notNil ifTrue:[ |
2904 hilightFrameColor notNil ifTrue:[ |
2907 hilightLevel == 0 ifTrue:[ |
2905 hilightLevel == 0 ifTrue:[ |
2908 self paint:hilightFrameColor. |
2906 gc paint:hilightFrameColor. |
2909 self displayRectangleX:x0 y:y0 width:wL height:hL. |
2907 gc displayRectangleX:x0 y:y0 width:wL height:hL. |
2910 ^ self. |
2908 ^ self. |
2911 ] |
2909 ] |
2912 ] ifFalse:[ |
2910 ] ifFalse:[ |
2913 hilightStyle == #motif ifTrue:[ |
2911 hilightStyle == #motif ifTrue:[ |
2914 self paint:bgColor. |
2912 gc paint:bgColor. |
2915 y1 := y0 + 1. |
2913 y1 := y0 + 1. |
2916 self displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2. |
2914 gc displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2. |
2917 ] |
2915 ] |
2918 ]. |
2916 ]. |
2919 |
2917 |
2920 hilightLevel ~~ 0 ifTrue:[ |
2918 hilightLevel ~~ 0 ifTrue:[ |
2921 "/ draw edge |
2919 "/ draw edge |