FileBrowser.st
changeset 123 8490f8cecb6c
parent 120 05dd17f0b031
child 126 fca75dda31db
--- 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