--- a/FileBrowser.st Sun Aug 27 04:00:12 1995 +0200
+++ b/FileBrowser.st Mon Aug 28 01:22:45 1995 +0200
@@ -27,7 +27,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.45 1995-08-27 00:37:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.46 1995-08-27 23:22:29 claus Exp $
'!
!FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.45 1995-08-27 00:37:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.46 1995-08-27 23:22:29 claus Exp $
"
!
@@ -303,6 +303,24 @@
self updateCurrentDirectory
! !
+!FileBrowser methodsFor:'help '!
+
+helpTextFor:aComponent
+ aComponent == subView ifTrue:[
+ ^ resources string:'HELP_SUBVIEW'
+ ].
+ aComponent == fileListView ifTrue:[
+ ^ resources string:'HELP_FILELIST'
+ ].
+ aComponent == filterField ifTrue:[
+ ^ resources string:'HELP_FILTER'
+ ].
+ aComponent == labelView ifTrue:[
+ ^ resources string:'HELP_PATHFIELD'
+ ].
+ ^ nil
+! !
+
!FileBrowser methodsFor:'queries'!
path