redraw directoryMarks if size changes
authorClaus Gittinger <cg@exept.de>
Thu, 08 Feb 1996 20:21:03 +0100
changeset 329 dc3de413de73
parent 328 6c4daccc6fb5
child 330 56fcae58bcb5
redraw directoryMarks if size changes
FSelList.st
FileSelectionList.st
--- a/FSelList.st	Thu Feb 08 15:30:23 1996 +0100
+++ b/FSelList.st	Thu Feb 08 20:21:03 1996 +0100
@@ -437,6 +437,16 @@
     ]
 ! !
 
+!FileSelectionList methodsFor:'events'!
+
+sizeChanged:how
+    "redraw marks if any"
+
+    super sizeChanged:how.
+    markDirectories ifFalse:[^ self].
+    self redraw
+! !
+
 !FileSelectionList methodsFor:'initialization'!
 
 initialize
@@ -630,5 +640,5 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.20 1996-01-18 21:28:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.21 1996-02-08 19:21:03 cg Exp $'
 ! !
--- a/FileSelectionList.st	Thu Feb 08 15:30:23 1996 +0100
+++ b/FileSelectionList.st	Thu Feb 08 20:21:03 1996 +0100
@@ -437,6 +437,16 @@
     ]
 ! !
 
+!FileSelectionList methodsFor:'events'!
+
+sizeChanged:how
+    "redraw marks if any"
+
+    super sizeChanged:how.
+    markDirectories ifFalse:[^ self].
+    self redraw
+! !
+
 !FileSelectionList methodsFor:'initialization'!
 
 initialize
@@ -630,5 +640,5 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.20 1996-01-18 21:28:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.21 1996-02-08 19:21:03 cg Exp $'
 ! !