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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 09 Sep 1997 20:23:08 +0200
changeset 1320 47ff27735939
parent 1319 2739903e7a80
child 1321 c585942b58a4
*** empty log message ***
FSelBox.st file | annotate | diff | comparison | revisions
FileSelectionBox.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg