Mercurial Mercurial > hg > stx-libwidg / 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.
oops
authorca
Fri, 09 Feb 1996 13:48:15 +0100
changeset 338 9cbc51998a23
parent 337 b3920857d448
child 339 ed1fcd2056f2
oops
FSelList.st file | annotate | diff | comparison | revisions
FileSelectionList.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg