# HG changeset patch
# User ca
# Date 892028936 -7200
# Node ID 8395a2d0546486c85ab8062564bf1ea9fe82edcf
# Parent  368acc8d9258ff1fff4bcc1484df7e89a63bbeb6
recompute image height whenever list changed

diff -r 368acc8d9258 -r 8395a2d05464 SelTreeV.st
--- a/SelTreeV.st	Wed Apr 08 09:04:19 1998 +0200
+++ b/SelTreeV.st	Wed Apr 08 11:48:56 1998 +0200
@@ -12,15 +12,15 @@
 
 
 SelectionInListView subclass:#SelectionInTreeView
-        instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
-                showLines listOfNodes imageInset textInset labelOffsetY lineMask
-                lineColor computeResources showRoot showDirectoryIndicator
-                closeIndicator openIndicator showDirectoryIndicatorForRoot
-                imageOpened imageClosed imageItem discardMotionEvents
-                registeredImages supportsExpandAll'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Views-Text'
+	instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
+		showLines listOfNodes imageInset textInset labelOffsetY lineMask
+		lineColor computeResources showRoot showDirectoryIndicator
+		closeIndicator openIndicator showDirectoryIndicatorForRoot
+		imageOpened imageClosed imageItem discardMotionEvents
+		registeredImages supportsExpandAll'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Text'
 !
 
 !SelectionInTreeView class methodsFor:'documentation'!
@@ -846,7 +846,7 @@
     ].
     sensor := self sensor.
 
-    (sensor notNil and:[(sensor ctrlDown or:[sensor shiftDown])]) ifTrue:[
+    (supportsExpandAll and:[sensor notNil and:[(sensor ctrlDown or:[sensor shiftDown])]]) ifTrue:[
         what := nil
     ] ifFalse:[
         what := node isExpandable
@@ -1228,7 +1228,8 @@
     |msg|
 
     widthOfWidestLine := nil.
-    listOfNodes := (msg := listMsg ? aspectMsg) notNil ifTrue:[model perform:msg] ifFalse:[#()].
+    list := listOfNodes := (msg := listMsg ? aspectMsg) notNil ifTrue:[model perform:msg] ifFalse:[#()].
+    self refetchDeviceResources.
   ^ listOfNodes
 !
 
@@ -1792,5 +1793,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.54 1998-04-08 07:04:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.55 1998-04-08 09:48:56 ca Exp $'
 ! !
diff -r 368acc8d9258 -r 8395a2d05464 SelectionInTreeView.st
--- a/SelectionInTreeView.st	Wed Apr 08 09:04:19 1998 +0200
+++ b/SelectionInTreeView.st	Wed Apr 08 11:48:56 1998 +0200
@@ -12,15 +12,15 @@
 
 
 SelectionInListView subclass:#SelectionInTreeView
-        instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
-                showLines listOfNodes imageInset textInset labelOffsetY lineMask
-                lineColor computeResources showRoot showDirectoryIndicator
-                closeIndicator openIndicator showDirectoryIndicatorForRoot
-                imageOpened imageClosed imageItem discardMotionEvents
-                registeredImages supportsExpandAll'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Views-Text'
+	instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
+		showLines listOfNodes imageInset textInset labelOffsetY lineMask
+		lineColor computeResources showRoot showDirectoryIndicator
+		closeIndicator openIndicator showDirectoryIndicatorForRoot
+		imageOpened imageClosed imageItem discardMotionEvents
+		registeredImages supportsExpandAll'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Text'
 !
 
 !SelectionInTreeView class methodsFor:'documentation'!
@@ -846,7 +846,7 @@
     ].
     sensor := self sensor.
 
-    (sensor notNil and:[(sensor ctrlDown or:[sensor shiftDown])]) ifTrue:[
+    (supportsExpandAll and:[sensor notNil and:[(sensor ctrlDown or:[sensor shiftDown])]]) ifTrue:[
         what := nil
     ] ifFalse:[
         what := node isExpandable
@@ -1228,7 +1228,8 @@
     |msg|
 
     widthOfWidestLine := nil.
-    listOfNodes := (msg := listMsg ? aspectMsg) notNil ifTrue:[model perform:msg] ifFalse:[#()].
+    list := listOfNodes := (msg := listMsg ? aspectMsg) notNil ifTrue:[model perform:msg] ifFalse:[#()].
+    self refetchDeviceResources.
   ^ listOfNodes
 !
 
@@ -1792,5 +1793,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.54 1998-04-08 07:04:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.55 1998-04-08 09:48:56 ca Exp $'
 ! !