--- a/DebugView.st	Wed Oct 13 02:01:11 1993 +0100
+++ b/DebugView.st	Wed Oct 13 02:01:32 1993 +0100
@@ -32,7 +32,7 @@
 connection to the display and dispatch on this one. This will be changed
 using processes soon.
 
-%W% %E%
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.2 1993-10-13 01:01:32 claus Exp $
 
 written spring/summer 89 by claus
 '!
@@ -107,19 +107,19 @@
     bpanel layout:#left.
 
     abortButton := Button
-                        label:(Resources at:'abort')
+                        label:(resources at:'abort')
                         action:[abortButton turnOffWithoutRedraw. self doAbort]
                         in:bpanel.
     continueButton := Button
-                        label:(Resources at:'continue')
+                        label:(resources at:'continue')
                         action:[continueButton turnOffWithoutRedraw. self doContinue]
                         in:bpanel.
     stepButton := Button
-                        label:(Resources at:'step')
+                        label:(resources at:'step')
                         action:[stepButton turnOff. self doStep]
                         in:bpanel.
     sendButton := Button
-                        label:(Resources at:'send')
+                        label:(resources at:'send')
                         action:[sendButton turnOff. self doSend]
                         in:bpanel.
 
@@ -154,7 +154,7 @@
 initializeMiddleButtonMenu
     |labels|
 
-    labels := Resources array:#('continue'
+    labels := resources array:#('continue'
                                 'abort'
                                 '-'
                                 'step'
@@ -399,7 +399,7 @@
          look for pending interrupts"
         ObjectMemory flushInlineCaches.
 
-        StepInterruptHandler := self.
+        ObjectMemory stepInterruptHandler:self.
         StepInterruptPending := true.
         InterruptPending := true
     ]