SelectionInListModelView.st
changeset 4648 5c5c17b052fb
parent 4647 caf78f4a0548
child 4652 1a4f9ee861c1
equal deleted inserted replaced
4647:caf78f4a0548 4648:5c5c17b052fb
    21 		cursorItem lineMask keyActionStyle returnKeyActionStyle strikeOut
    21 		cursorItem lineMask keyActionStyle returnKeyActionStyle strikeOut
    22 		modelChangedDuringButtonPress selectOnButtonPress
    22 		modelChangedDuringButtonPress selectOnButtonPress
    23 		selectOnMenuButton minimumEditorHeight extraSpaceAtBottomForDrop'
    23 		selectOnMenuButton minimumEditorHeight extraSpaceAtBottomForDrop'
    24 	classVariableNames:'DefaultHilightStyle DefaultHilightBackgroundColor
    24 	classVariableNames:'DefaultHilightStyle DefaultHilightBackgroundColor
    25 		DefaultHilightForegroundColor DefaultHilightLevel
    25 		DefaultHilightForegroundColor DefaultHilightLevel
    26 		DefaultHilightFrameColor'
    26 		DefaultHilightFrameColor DefaultHilightBackgroundColorNoFocus
       
    27 		DefaultHilightForegroundColorNoFocus'
    27 	poolDictionaries:''
    28 	poolDictionaries:''
    28 	category:'Views-Lists'
    29 	category:'Views-Lists'
    29 !
    30 !
    30 
    31 
    31 !SelectionInListModelView class methodsFor:'documentation'!
    32 !SelectionInListModelView class methodsFor:'documentation'!
   191 updateStyleCache
   192 updateStyleCache
   192     "extract values from the styleSheet and cache them in class variables"
   193     "extract values from the styleSheet and cache them in class variables"
   193 
   194 
   194     <resource: #style   (
   195     <resource: #style   (
   195                         #'selection.hilightForegroundColor' #'selection.hilightBackgroundColor'
   196                         #'selection.hilightForegroundColor' #'selection.hilightBackgroundColor'
       
   197                         #'selection.hilightForegroundColorNoFocus' #'selection.hilightBackgroundColorNoFocus'
   196                         #'selection.hilightFrameColor'      #'selection.hilightLevel'
   198                         #'selection.hilightFrameColor'      #'selection.hilightLevel'
   197                         #'selection.foregroundColor'        #'selection.backgroundColor'
   199                         #'selection.foregroundColor'        #'selection.backgroundColor'
   198                         #'selection.shadowColor'            #'selection.lightColor'
   200                         #'selection.shadowColor'            #'selection.lightColor'
   199                         #'selection.font'                   #'selection.hilightStyle'
   201                         #'selection.font'                   #'selection.hilightStyle'
   200                         #'text.foregroundColor'
   202                         #'text.foregroundColor'
   201                         )>
   203                         )>
   202 
   204 
   203     DefaultHilightForegroundColor  := StyleSheet colorAt:'selection.hilightForegroundColor'.
   205     DefaultHilightForegroundColor  := StyleSheet colorAt:'selection.hilightForegroundColor'.
   204     DefaultHilightBackgroundColor  := StyleSheet colorAt:'selection.hilightBackgroundColor'.
   206     DefaultHilightBackgroundColor  := StyleSheet colorAt:'selection.hilightBackgroundColor'.
       
   207     DefaultHilightForegroundColorNoFocus  := StyleSheet colorAt:'selection.hilightForegroundColorNoFocus'.
       
   208     DefaultHilightBackgroundColorNoFocus  := StyleSheet colorAt:'selection.hilightBackgroundColorNoFocus'.
   205     DefaultHilightFrameColor       := StyleSheet colorAt:'selection.hilightFrameColor'.
   209     DefaultHilightFrameColor       := StyleSheet colorAt:'selection.hilightFrameColor'.
   206     DefaultHilightLevel            := StyleSheet at:'selection.hilightLevel' default:0.
   210     DefaultHilightLevel            := StyleSheet at:'selection.hilightLevel' default:0.
   207     DefaultHilightStyle            := StyleSheet at:'selection.hilightStyle' default:(StyleSheet name).
   211     DefaultHilightStyle            := StyleSheet at:'selection.hilightStyle' default:(StyleSheet name).
   208     DefaultForegroundColor         := StyleSheet colorAt:'selection.foregroundColor'.
   212     DefaultForegroundColor         := StyleSheet colorAt:'selection.foregroundColor'.
   209     DefaultBackgroundColor         := StyleSheet colorAt:'selection.backgroundColor'.
   213     DefaultBackgroundColor         := StyleSheet colorAt:'selection.backgroundColor'.
  2071         hilightFgColor := bgColor.
  2075         hilightFgColor := bgColor.
  2072         hilightBgColor := fgColor.
  2076         hilightBgColor := fgColor.
  2073     ].
  2077     ].
  2074 
  2078 
  2075     hilightFgColorNoFocus isNil ifTrue:[
  2079     hilightFgColorNoFocus isNil ifTrue:[
  2076         hilightFgColorNoFocus := hilightFgColor.
  2080         hilightFgColorNoFocus := DefaultHilightForegroundColorNoFocus ? hilightFgColor.
  2077     ].
  2081     ].
  2078     hilightBgColorNoFocus isNil ifTrue:[
  2082     hilightBgColorNoFocus isNil ifTrue:[
  2079         hilightBgColorNoFocus := hilightBgColor lightened.
  2083         hilightBgColorNoFocus := DefaultHilightBackgroundColorNoFocus.
       
  2084         hilightBgColorNoFocus isNil ifTrue:[ 
       
  2085             hilightBgColorNoFocus := hilightBgColor lightened.
       
  2086         ].
  2080     ].
  2087     ].
  2081 
  2088 
  2082     "Modified: / 14-08-2010 / 12:23:09 / cg"
  2089     "Modified: / 14-08-2010 / 12:23:09 / cg"
  2083 !
  2090 !
  2084 
  2091 
  2810 ! !
  2817 ! !
  2811 
  2818 
  2812 !SelectionInListModelView class methodsFor:'documentation'!
  2819 !SelectionInListModelView class methodsFor:'documentation'!
  2813 
  2820 
  2814 version
  2821 version
  2815     ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.171 2014-07-08 21:41:17 cg Exp $'
  2822     ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.172 2014-07-08 22:04:10 cg Exp $'
  2816 !
  2823 !
  2817 
  2824 
  2818 version_CVS
  2825 version_CVS
  2819     ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.171 2014-07-08 21:41:17 cg Exp $'
  2826     ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.172 2014-07-08 22:04:10 cg Exp $'
  2820 ! !
  2827 ! !
  2821 
  2828