# HG changeset patch # User ca # Date 823870095 -3600 # Node ID 9cbc51998a23f9ac1aae401674b86a014192a595 # Parent b3920857d44806f4b7678a43e3842fe40563eec3 oops diff -r b3920857d448 -r 9cbc51998a23 FSelList.st --- a/FSelList.st Fri Feb 09 02:42:42 1996 +0100 +++ b/FSelList.st Fri Feb 09 13:48:15 1996 +0100 @@ -303,13 +303,6 @@ ^ directory ! -directoryChangeCheckBlock:aBlock - "set the directoryChangeCheckBlock - if non-nil, it controls if - a directory change is legal." - - directoryChangeCheckBlock := aBlock -! - directory:nameOrDirectory "set the lists contents to the filenames in the directory. This does not validate the change with any directoryChangeBlock." @@ -339,11 +332,11 @@ ] ! -ignoreParentDirectory:aBoolean - "set/clear the flag which controls if the parent directory (..) - is shown in the list. The default is false (i.e. show it)" +directoryChangeCheckBlock:aBlock + "set the directoryChangeCheckBlock - if non-nil, it controls if + a directory change is legal." - ignoreParentDirectory := aBoolean + directoryChangeCheckBlock := aBlock ! ignoreDirectories:aBoolean @@ -353,6 +346,13 @@ ignoreDirectories := aBoolean ! +ignoreParentDirectory:aBoolean + "set/clear the flag which controls if the parent directory (..) + is shown in the list. The default is false (i.e. show it)" + + ignoreParentDirectory := aBoolean +! + markDirectories:aBoolean "turn on/off marking of directories with an arrow. The default is on" @@ -443,7 +443,7 @@ "redraw marks if any" super sizeChanged:how. - shown and:[markDirectories] ifTrue:[ + (shown and:[markDirectories]) ifTrue:[ self redraw ] ! ! @@ -641,5 +641,5 @@ !FileSelectionList class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.22 1996-02-08 19:22:02 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.23 1996-02-09 12:48:15 ca Exp $' ! ! diff -r b3920857d448 -r 9cbc51998a23 FileSelectionList.st --- a/FileSelectionList.st Fri Feb 09 02:42:42 1996 +0100 +++ b/FileSelectionList.st Fri Feb 09 13:48:15 1996 +0100 @@ -303,13 +303,6 @@ ^ directory ! -directoryChangeCheckBlock:aBlock - "set the directoryChangeCheckBlock - if non-nil, it controls if - a directory change is legal." - - directoryChangeCheckBlock := aBlock -! - directory:nameOrDirectory "set the lists contents to the filenames in the directory. This does not validate the change with any directoryChangeBlock." @@ -339,11 +332,11 @@ ] ! -ignoreParentDirectory:aBoolean - "set/clear the flag which controls if the parent directory (..) - is shown in the list. The default is false (i.e. show it)" +directoryChangeCheckBlock:aBlock + "set the directoryChangeCheckBlock - if non-nil, it controls if + a directory change is legal." - ignoreParentDirectory := aBoolean + directoryChangeCheckBlock := aBlock ! ignoreDirectories:aBoolean @@ -353,6 +346,13 @@ ignoreDirectories := aBoolean ! +ignoreParentDirectory:aBoolean + "set/clear the flag which controls if the parent directory (..) + is shown in the list. The default is false (i.e. show it)" + + ignoreParentDirectory := aBoolean +! + markDirectories:aBoolean "turn on/off marking of directories with an arrow. The default is on" @@ -443,7 +443,7 @@ "redraw marks if any" super sizeChanged:how. - shown and:[markDirectories] ifTrue:[ + (shown and:[markDirectories]) ifTrue:[ self redraw ] ! ! @@ -641,5 +641,5 @@ !FileSelectionList class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.22 1996-02-08 19:22:02 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.23 1996-02-09 12:48:15 ca Exp $' ! !