DSVColumnView.st
changeset 2637 d563163414b8
parent 2636 103067a67ff9
child 2670 27dacfff1d6d
equal deleted inserted replaced
2636:103067a67ff9 2637:d563163414b8
    28 		buttonHalfShadowColor checkToggleExtent checkToggleForm
    28 		buttonHalfShadowColor checkToggleExtent checkToggleForm
    29 		checkToggleActiveImage checkTogglePassiveImage checkToggleLevel
    29 		checkToggleActiveImage checkTogglePassiveImage checkToggleLevel
    30 		comboButtonExtent comboButtonForm comboButtonLevel dropTarget
    30 		comboButtonExtent comboButtonForm comboButtonLevel dropTarget
    31 		dropSource columnAdaptor tabAtEndAction tabAtStartAction
    31 		dropSource columnAdaptor tabAtEndAction tabAtStartAction
    32 		modifiedChannel autoScroll autoScrollBlock needFitColumns
    32 		modifiedChannel autoScroll autoScrollBlock needFitColumns
    33 		scrollWhenUpdating selectionForegroundColor
    33 		scrollWhenUpdating separatorOneDColor selectionForegroundColor
    34 		selectionBackgroundColor previousExtent selectConditionBlock'
    34 		selectionBackgroundColor previousExtent selectConditionBlock'
    35 	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
    35 	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
    36 		DefaultHilightForegroundColor DefaultHilightBackgroundColor
    36 		DefaultHilightForegroundColor DefaultHilightBackgroundColor
    37 		ButtonLightColor ButtonShadowColor CheckToggleActiveImage
    37 		ButtonLightColor ButtonShadowColor CheckToggleActiveImage
    38 		CheckTogglePassiveImage ButtonHalfLightColor
    38 		CheckTogglePassiveImage ButtonHalfLightColor
   633     "returns the light color used for drawing a shadowed separator (3D)
   633     "returns the light color used for drawing a shadowed separator (3D)
   634     "
   634     "
   635     ^ lightColor
   635     ^ lightColor
   636 
   636 
   637 
   637 
       
   638 !
       
   639 
       
   640 separatorOneDColor
       
   641     "returns the color used for drawing a oneD separator
       
   642     "
       
   643     separatorOneDColor isNil ifTrue:[^ fgColor].
       
   644     ^ separatorOneDColor
       
   645 !
       
   646 
       
   647 separatorOneDColor:aColorOrNil
       
   648     "set the color used for drawing a oneD separator; if the color
       
   649      is nil, the current forgroundColor is used
       
   650     "
       
   651     separatorOneDColor = aColorOrNil ifTrue:[^ self].
       
   652     separatorOneDColor := aColorOrNil.
       
   653 
       
   654     self realized ifTrue:[
       
   655         separatorOneDColor notNil ifTrue:[
       
   656             separatorOneDColor := separatorOneDColor onDevice:device.
       
   657         ].
       
   658         self invalidate.
       
   659     ].
   638 ! !
   660 ! !
   639 
   661 
   640 !DSVColumnView methodsFor:'accessing-columns'!
   662 !DSVColumnView methodsFor:'accessing-columns'!
   641 
   663 
   642 columnAt:anIndex
   664 columnAt:anIndex
  4012 ! !
  4034 ! !
  4013 
  4035 
  4014 !DSVColumnView class methodsFor:'documentation'!
  4036 !DSVColumnView class methodsFor:'documentation'!
  4015 
  4037 
  4016 version
  4038 version
  4017     ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.178 2004-02-17 13:10:51 ca Exp $'
  4039     ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.179 2004-02-18 05:35:52 ca Exp $'
  4018 ! !
  4040 ! !