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 ***
authorchrisy
Tue, 05 Dec 1995 13:23:53 +0100
changeset 235 bbd0a7433459
parent 234 4afddb0d757f
child 236 5a040babf9f4
*** empty log message ***
FSelBox.st file | annotate | diff | comparison | revisions
FileSelectionBox.st file | annotate | diff | comparison | revisions 
--- a/FSelBox.st	Tue Dec 05 12:18:08 1995 +0100
+++ b/FSelBox.st	Tue Dec 05 13:23:53 1995 +0100
@@ -96,7 +96,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.23 1995-11-23 02:25:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.24 1995-12-05 12:23:53 chrisy Exp $'
 ! !
 
 !FileSelectionBox class methodsFor:'defaults'!
@@ -124,6 +124,45 @@
     "
      FileSelectionBox requestFilename:'which file ?'
     "
+!
+
+requestFilename:title default:aFileName
+    |fileBox|
+
+    fileBox := self
+		    title:title
+		    okText:'ok'
+		    abortText:'cancel'
+		    action:[:fileName | ^ fileName].
+
+    fileBox initialText:aFileName.
+    fileBox showAtPointer.
+    ^ nil
+
+    "
+     FileSelectionBox requestFilename:'which file ?' default:'Makefile'
+    "
+!
+
+requestFilename:title  fromDirectory: aDirectory
+
+    |fileBox|
+
+    fileBox := self
+		    title:title
+		    okText:'ok'
+		    abortText:'cancel'
+		    action:[:fileName | ^ fileName].
+
+    fileBox directory: aDirectory.
+    fileBox showAtPointer.
+    ^ nil
+
+    "
+     FileSelectionBox requestFilename:'which file ?' fromDirectory:'/etc'
+    "
+
+    "Modified: 12.10.1995 / 11:47:27 / markus"
 ! !
 
 !FileSelectionBox class methodsFor:'requests'!
--- a/FileSelectionBox.st	Tue Dec 05 12:18:08 1995 +0100
+++ b/FileSelectionBox.st	Tue Dec 05 13:23:53 1995 +0100
@@ -96,7 +96,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.23 1995-11-23 02:25:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.24 1995-12-05 12:23:53 chrisy Exp $'
 ! !
 
 !FileSelectionBox class methodsFor:'defaults'!
@@ -124,6 +124,45 @@
     "
      FileSelectionBox requestFilename:'which file ?'
     "
+!
+
+requestFilename:title default:aFileName
+    |fileBox|
+
+    fileBox := self
+		    title:title
+		    okText:'ok'
+		    abortText:'cancel'
+		    action:[:fileName | ^ fileName].
+
+    fileBox initialText:aFileName.
+    fileBox showAtPointer.
+    ^ nil
+
+    "
+     FileSelectionBox requestFilename:'which file ?' default:'Makefile'
+    "
+!
+
+requestFilename:title  fromDirectory: aDirectory
+
+    |fileBox|
+
+    fileBox := self
+		    title:title
+		    okText:'ok'
+		    abortText:'cancel'
+		    action:[:fileName | ^ fileName].
+
+    fileBox directory: aDirectory.
+    fileBox showAtPointer.
+    ^ nil
+
+    "
+     FileSelectionBox requestFilename:'which file ?' fromDirectory:'/etc'
+    "
+
+    "Modified: 12.10.1995 / 11:47:27 / markus"
 ! !
 
 !FileSelectionBox class methodsFor:'requests'!
hg/stx-libwidg