# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 873829388 -7200
# Node ID 47ff2773593972f4da546b27cd17a8c27e8bc248
# Parent  2739903e7a800b2d1ebeb1bf06aa2f7ef8cabb22
*** empty log message ***

diff -r 2739903e7a80 -r 47ff27735939 FSelBox.st
--- a/FSelBox.st	Tue Sep 09 19:37:42 1997 +0200
+++ b/FSelBox.st	Tue Sep 09 20:23:08 1997 +0200
@@ -10,9 +10,11 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.9 on 9-sep-1997 at 10:13:58 pm'                  !
+
 ListSelectionBox subclass:#FileSelectionBox
 	instanceVariableNames:'patternField selectingDirectory'
-	classVariableNames:''
+	classVariableNames:'LastFileSelectionDirectory'
 	poolDictionaries:''
 	category:'Views-DialogBoxes'
 !
@@ -248,6 +250,20 @@
 "
 ! !
 
+!FileSelectionBox class methodsFor:'accessing'!
+
+lastFileSelectionDirectory
+    ^ LastFileSelectionDirectory
+
+    "Created: 9.9.1997 / 10:03:17 / cg"
+!
+
+lastFileSelectionDirectory:aDirectoryString
+    LastFileSelectionDirectory := aDirectoryString
+
+    "Created: 9.9.1997 / 10:03:42 / cg"
+! !
+
 !FileSelectionBox class methodsFor:'defaults'!
 
 listViewType
@@ -599,5 +615,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.43 1997-07-24 16:19:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.44 1997-09-09 18:23:08 cg Exp $'
 ! !
diff -r 2739903e7a80 -r 47ff27735939 FileSelectionBox.st
--- a/FileSelectionBox.st	Tue Sep 09 19:37:42 1997 +0200
+++ b/FileSelectionBox.st	Tue Sep 09 20:23:08 1997 +0200
@@ -10,9 +10,11 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.9 on 9-sep-1997 at 10:13:58 pm'                  !
+
 ListSelectionBox subclass:#FileSelectionBox
 	instanceVariableNames:'patternField selectingDirectory'
-	classVariableNames:''
+	classVariableNames:'LastFileSelectionDirectory'
 	poolDictionaries:''
 	category:'Views-DialogBoxes'
 !
@@ -248,6 +250,20 @@
 "
 ! !
 
+!FileSelectionBox class methodsFor:'accessing'!
+
+lastFileSelectionDirectory
+    ^ LastFileSelectionDirectory
+
+    "Created: 9.9.1997 / 10:03:17 / cg"
+!
+
+lastFileSelectionDirectory:aDirectoryString
+    LastFileSelectionDirectory := aDirectoryString
+
+    "Created: 9.9.1997 / 10:03:42 / cg"
+! !
+
 !FileSelectionBox class methodsFor:'defaults'!
 
 listViewType
@@ -599,5 +615,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.43 1997-07-24 16:19:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.44 1997-09-09 18:23:08 cg Exp $'
 ! !