Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 21 Mar 1999 20:23:48 +0100
changeset 1275 cc62615ed032
parent 1274 0f36e87f6b21
child 1276 d44c8332940d
checkin from browser
SelTreeV.st file | annotate | diff | comparison | revisions
SelectionInTreeView.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg2