--- a/FSelBox.st Thu Feb 29 16:20:42 1996 +0100
+++ b/FSelBox.st Thu Feb 29 23:04:54 1996 +0100
@@ -218,24 +218,6 @@
Transcript showCr:'files name: ' , box fileName.
Transcript showCr:'directory : ' , box directory.
]
-
- somewhat wierd example:
- only show files, if the directory we are in begins with 'lib':
-
- |box|
- box := FileSelectionBox new.
- box title:'Which directory ?'.
- box pattern:'l*'.
- box matchBlock:[:name |
- box directory asString beginsWith:'lib'
- ].
- box open
- box accepted ifTrue:[
- Transcript showCr:'full path: ' , box pathName.
- Transcript showCr:'files name: ' , box fileName.
- Transcript showCr:'directory : ' , box directory.
- ]
-
"
! !
@@ -607,5 +589,5 @@
!FileSelectionBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.28 1996-02-10 09:36:47 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.29 1996-02-29 22:04:54 cg Exp $'
! !
--- a/FileSelectionBox.st Thu Feb 29 16:20:42 1996 +0100
+++ b/FileSelectionBox.st Thu Feb 29 23:04:54 1996 +0100
@@ -218,24 +218,6 @@
Transcript showCr:'files name: ' , box fileName.
Transcript showCr:'directory : ' , box directory.
]
-
- somewhat wierd example:
- only show files, if the directory we are in begins with 'lib':
-
- |box|
- box := FileSelectionBox new.
- box title:'Which directory ?'.
- box pattern:'l*'.
- box matchBlock:[:name |
- box directory asString beginsWith:'lib'
- ].
- box open
- box accepted ifTrue:[
- Transcript showCr:'full path: ' , box pathName.
- Transcript showCr:'files name: ' , box fileName.
- Transcript showCr:'directory : ' , box directory.
- ]
-
"
! !
@@ -607,5 +589,5 @@
!FileSelectionBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.28 1996-02-10 09:36:47 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.29 1996-02-29 22:04:54 cg Exp $'
! !