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.
recompute image height whenever list changed
authorca
Wed, 08 Apr 1998 11:48:56 +0200
changeset 847 8395a2d05464
parent 846 368acc8d9258
child 848 29f1947578b8
recompute image height whenever list changed
SelTreeV.st file | annotate | diff | comparison | revisions
SelectionInTreeView.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg2