--- a/DebugView.st	Wed Aug 30 01:46:56 1995 +0200
+++ b/DebugView.st	Wed Aug 30 02:12:54 1995 +0200
@@ -19,7 +19,7 @@
 		steppedContextAddress canAbort abortButton terminateButton
 		continueButton stepButton nextButton sendButton returnButton restartButton
 		exclusive inspecting nChainShown inspectedProcess updateProcess
-		monitorToggle stepping steppedContextLineno actualContext inWrap'
+		stopButton updateButton monitorToggle stepping steppedContextLineno actualContext inWrap'
 	 classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail'
 	 poolDictionaries:''
 	 category:'Interface-Debugger'
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.44 1995-08-29 23:46:35 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.45 1995-08-30 00:12:54 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.44 1995-08-29 23:46:35 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.45 1995-08-30 00:12:54 claus Exp $
 "
 !
 
@@ -860,6 +860,12 @@
     aComponent == monitorToggle ifTrue:[
 	s := 'HELP_MONITOR'
     ].
+    aComponent == updateButton ifTrue:[
+	s := 'HELP_UPDATE'
+    ].
+    aComponent == stopButton ifTrue:[
+	s := 'HELP_STOP'
+    ].
     (aComponent isSubViewOf:receiverInspector) ifTrue:[
 	s := 'HELP_REC_INSP'
     ].
@@ -1196,7 +1202,7 @@
      one. (think of it as an inspector showing more detail, and offering
      some more control operations)"
 
-    |bpanel updateButton stopButton dummy|
+    |bpanel dummy|
 
     busy := true.
     bigStep := false.