hg/stx-libwidg2: comparison SelectionInTreeView.st

equal deleted inserted replaced

-:8d0c73401ea8
+:1fa0de353686
 		itemClass lineColor computeResources showRoot
 		showDirectoryIndicator closeIndicator openIndicator
 		showDirectoryIndicatorForRoot imageOpened imageClosed imageItem
 		discardMotionEvents registeredImages supportsExpandAll
 		buildInArray drawVLinesFromLevel highlightMode editorWidget
-		editorIndex'
+		editorIndex editValueFgColor'
 	classVariableNames:'DefaultHilightMode SelectionInset'
 	poolDictionaries:''
 	category:'Views-Text'
 !
 ifFalse:[self paint:fgColor on:bgColor].
 self displayOpaqueString:label x:x0 y:y0.
 value notNil ifTrue:[
+isSel ifFalse:[
+self paint:editValueFgColor on:bgColor
+].
 self displayOpaqueString:value x:(xV + SelectionInset) y:y0
 ].
 ].
 super create.
 lineMask := lineMask onDevice:device.
 lineColor := lineColor isNil ifTrue:[fgColor]
 ifFalse:[lineColor onDevice:device].
+editValueFgColor := editValueFgColor onDevice:device.
 !
 destroy
 "remove dependencies
 "
 buildInArray := Array new:50.       "/ used for temporary calculation
 "/ suppress garbage collection
 self model:nil.     "/ creates a default model.
 highlightMode := #label.
+editValueFgColor := Color blue.
 !
 realize
 super realize.
 self  refetchDeviceResources.
 !
 openEditor
 "open an editor on selection
 "
-|node x0 x1 y0 focusView|
+|node x0 x1 y0|
 editorWidget notNil ifTrue:[
 ^ self
 ].
 editorIndex := self selectedIndex.
 or:[(y0           := self listLineToVisibleLine:editorIndex) isNil
 or:[(editorWidget := node editor) isNil]]
 ) ifTrue:[
 ^ self
 ].
-focusView := nil.
+editorWidget withAllSubViewsDo:[:v| v font:font ].
-editorWidget withAllSubViewsDo:[:v|
-focusView := v.
-v font:font
-].
 y0 := self yOfVisibleLine:y0.
 x0 := self xOfValueNode:node.
 x1 := (editorWidget preferredExtent x) max:50.
 x1 := (x0 + x1) min:(self width - 5).
-"/ editorWidget geometryLayout:(Rectangle left:x0 right:x1 top:y0 + 1 bottom:y0 - 2 + fontHeight).
 editorWidget geometryLayout:(Rectangle left:x0 right:x1 top:y0 bottom:y0 + fontHeight).
 self addComponent:editorWidget.
 editorWidget realize.
-self windowGroup focusView:focusView.
 self paint:bgColor.
 self fillRectangleX:(x0 - SelectionInset)
 y:y0
 width:SelectionInset + SelectionInset + (x1 - x0)
 ! !
 !SelectionInTreeView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.69 1998-10-31 12:02:10 ca Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.70 1998-11-01 12:57:46 ca Exp $'
 ! !

changeset 1175	1fa0de353686
parent 1171	0199f65bc8ce
child 1188	5c365b74eedd