--- a/DebugView.st	Tue Aug 29 19:57:16 1995 +0200
+++ b/DebugView.st	Wed Aug 30 01:46:56 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.43 1995-08-28 16:13:00 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.44 1995-08-29 23:46:35 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.43 1995-08-28 16:13:00 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.44 1995-08-29 23:46:35 claus Exp $
 "
 !
 
@@ -819,6 +819,62 @@
     ]
 ! !
 
+!DebugView methodsFor:'help'!
+
+helpTextFor:aComponent
+    |s|
+
+    aComponent == abortButton ifTrue:[
+	s := 'HELP_ABORT'
+    ].
+    aComponent == terminateButton ifTrue:[
+	s := 'HELP_TERMINATE'
+    ].
+    aComponent == continueButton ifTrue:[
+	s := 'HELP_CONTINUE'
+    ].
+    aComponent == stepButton ifTrue:[
+	s := 'HELP_STEP'
+    ].
+    aComponent == nextButton ifTrue:[
+	s := 'HELP_NEXT'
+    ].
+    aComponent == stepButton ifTrue:[
+	s := 'HELP_STEP'
+    ].
+    aComponent == sendButton ifTrue:[
+	s := 'HELP_SEND'
+    ].
+    aComponent == returnButton ifTrue:[
+	s := 'HELP_RETURN'
+    ].
+    aComponent == restartButton ifTrue:[
+	s := 'HELP_RESTART'
+    ].
+    aComponent == contextView ifTrue:[
+	s := 'HELP_WALKBACK'
+    ].
+    aComponent == codeView ifTrue:[
+	s := 'HELP_CODEVIEW'
+    ].
+    aComponent == monitorToggle ifTrue:[
+	s := 'HELP_MONITOR'
+    ].
+    (aComponent isSubViewOf:receiverInspector) ifTrue:[
+	s := 'HELP_REC_INSP'
+    ].
+    (aComponent isSubViewOf:contextInspector) ifTrue:[
+	s := 'HELP_CON_INSP'
+    ].
+
+    s notNil ifTrue:[
+	^ resources string:s
+    ].
+    ^ nil
+
+    "Modified: 29.8.1995 / 23:38:54 / claus"
+! !
+
 !DebugView methodsFor:'basic'!
 
 enter:aContext