# HG changeset patch # User Claus Gittinger # Date 922044228 -3600 # Node ID cc62615ed032aa5e7723e5e5d7d2f3ac67d071a1 # Parent 0f36e87f6b21a6ed167e170647389018310d4097 checkin from browser diff -r 0f36e87f6b21 -r cc62615ed032 SelTreeV.st --- a/SelTreeV.st Sun Mar 21 18:41:08 1999 +0100 +++ b/SelTreeV.st Sun Mar 21 20:23:48 1999 +0100 @@ -343,71 +343,6 @@ ] ! -showDirectoryIndicator - "returns true if directories has an open/closed indicator - " - ^ showDirectoryIndicator -! - -showDirectoryIndicator:aState - "set or clear open/closed indicator for directories - " - "show or hide lines - " - aState ~~ showDirectoryIndicator ifTrue:[ - showDirectoryIndicator := aState. - self recomputeDirectoryIndicator. - self invalidate - ]. -! - -showDirectoryIndicatorForRoot - "returns true if root directory has an open/closed indicator if - the common showDirectoryIndicator is enabled - " - ^ showDirectoryIndicatorForRoot -! - -showDirectoryIndicatorForRoot:aState - "true if root directory has an open/closed indicator if - the common showDirectoryIndicator is enabled - " - aState ~~ showDirectoryIndicator ifTrue:[ - showDirectoryIndicatorForRoot := aState. - self recomputeDirectoryIndicator. - self invalidate - ]. -! - -showLines - "returns true if lines are shown - " - ^ showLines -! - -showLines:aState - "show or hide lines - " - aState ~~ showLines ifTrue:[ - showLines := aState. - self invalidate - ]. -! - -showRoot - "list with or without root - " - ^ showRoot -! - -showRoot:aState - "list with or without root - " - showRoot ~~ aState ifTrue:[ - model showRoot:(showRoot := aState). - ]. -! - supportsExpandAll ^ supportsExpandAll ! @@ -544,6 +479,73 @@ "Created: 3.7.1997 / 12:34:28 / cg" ! ! +!SelectionInTreeView methodsFor:'accessing-look'! + +showDirectoryIndicator + "returns true if directories has an open/closed indicator + " + ^ showDirectoryIndicator +! + +showDirectoryIndicator:aState + "set or clear open/closed indicator for directories + " + "show or hide lines + " + aState ~~ showDirectoryIndicator ifTrue:[ + showDirectoryIndicator := aState. + self recomputeDirectoryIndicator. + self invalidate + ]. +! + +showDirectoryIndicatorForRoot + "returns true if root directory has an open/closed indicator if + the common showDirectoryIndicator is enabled + " + ^ showDirectoryIndicatorForRoot +! + +showDirectoryIndicatorForRoot:aState + "true if root directory has an open/closed indicator if + the common showDirectoryIndicator is enabled + " + aState ~~ showDirectoryIndicatorForRoot ifTrue:[ + showDirectoryIndicatorForRoot := aState. + self recomputeDirectoryIndicator. + self invalidate + ]. +! + +showLines + "returns true if lines are shown + " + ^ showLines +! + +showLines:aState + "show or hide lines + " + aState ~~ showLines ifTrue:[ + showLines := aState. + self invalidate + ]. +! + +showRoot + "list with or without root + " + ^ showRoot +! + +showRoot:aState + "list with or without root + " + showRoot ~~ aState ifTrue:[ + model showRoot:(showRoot := aState). + ]. +! ! + !SelectionInTreeView methodsFor:'change & update'! modelChanged:what with:aPara @@ -1576,7 +1578,8 @@ self bitGravity:#NorthWest. showRoot := showDirectoryIndicatorForRoot := showLines := computeResources := true. showDirectoryIndicator := discardMotionEvents := false. - lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55]. + leftMargin := 2. + lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55]. registeredImages := IdentityDictionary new. drawVLinesFromLevel := 1. textInset := 4. @@ -2335,5 +2338,5 @@ !SelectionInTreeView class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.77 1999-03-19 21:18:05 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.78 1999-03-21 19:23:48 cg Exp $' ! ! diff -r 0f36e87f6b21 -r cc62615ed032 SelectionInTreeView.st --- a/SelectionInTreeView.st Sun Mar 21 18:41:08 1999 +0100 +++ b/SelectionInTreeView.st Sun Mar 21 20:23:48 1999 +0100 @@ -343,71 +343,6 @@ ] ! -showDirectoryIndicator - "returns true if directories has an open/closed indicator - " - ^ showDirectoryIndicator -! - -showDirectoryIndicator:aState - "set or clear open/closed indicator for directories - " - "show or hide lines - " - aState ~~ showDirectoryIndicator ifTrue:[ - showDirectoryIndicator := aState. - self recomputeDirectoryIndicator. - self invalidate - ]. -! - -showDirectoryIndicatorForRoot - "returns true if root directory has an open/closed indicator if - the common showDirectoryIndicator is enabled - " - ^ showDirectoryIndicatorForRoot -! - -showDirectoryIndicatorForRoot:aState - "true if root directory has an open/closed indicator if - the common showDirectoryIndicator is enabled - " - aState ~~ showDirectoryIndicator ifTrue:[ - showDirectoryIndicatorForRoot := aState. - self recomputeDirectoryIndicator. - self invalidate - ]. -! - -showLines - "returns true if lines are shown - " - ^ showLines -! - -showLines:aState - "show or hide lines - " - aState ~~ showLines ifTrue:[ - showLines := aState. - self invalidate - ]. -! - -showRoot - "list with or without root - " - ^ showRoot -! - -showRoot:aState - "list with or without root - " - showRoot ~~ aState ifTrue:[ - model showRoot:(showRoot := aState). - ]. -! - supportsExpandAll ^ supportsExpandAll ! @@ -544,6 +479,73 @@ "Created: 3.7.1997 / 12:34:28 / cg" ! ! +!SelectionInTreeView methodsFor:'accessing-look'! + +showDirectoryIndicator + "returns true if directories has an open/closed indicator + " + ^ showDirectoryIndicator +! + +showDirectoryIndicator:aState + "set or clear open/closed indicator for directories + " + "show or hide lines + " + aState ~~ showDirectoryIndicator ifTrue:[ + showDirectoryIndicator := aState. + self recomputeDirectoryIndicator. + self invalidate + ]. +! + +showDirectoryIndicatorForRoot + "returns true if root directory has an open/closed indicator if + the common showDirectoryIndicator is enabled + " + ^ showDirectoryIndicatorForRoot +! + +showDirectoryIndicatorForRoot:aState + "true if root directory has an open/closed indicator if + the common showDirectoryIndicator is enabled + " + aState ~~ showDirectoryIndicatorForRoot ifTrue:[ + showDirectoryIndicatorForRoot := aState. + self recomputeDirectoryIndicator. + self invalidate + ]. +! + +showLines + "returns true if lines are shown + " + ^ showLines +! + +showLines:aState + "show or hide lines + " + aState ~~ showLines ifTrue:[ + showLines := aState. + self invalidate + ]. +! + +showRoot + "list with or without root + " + ^ showRoot +! + +showRoot:aState + "list with or without root + " + showRoot ~~ aState ifTrue:[ + model showRoot:(showRoot := aState). + ]. +! ! + !SelectionInTreeView methodsFor:'change & update'! modelChanged:what with:aPara @@ -1576,7 +1578,8 @@ self bitGravity:#NorthWest. showRoot := showDirectoryIndicatorForRoot := showLines := computeResources := true. showDirectoryIndicator := discardMotionEvents := false. - lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55]. + leftMargin := 2. + lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55]. registeredImages := IdentityDictionary new. drawVLinesFromLevel := 1. textInset := 4. @@ -2335,5 +2338,5 @@ !SelectionInTreeView class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.77 1999-03-19 21:18:05 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.78 1999-03-21 19:23:48 cg Exp $' ! !