--- a/DebugView.st	Thu Mar 01 14:21:31 2012 +0100
+++ b/DebugView.st	Thu Mar 01 14:29:29 2012 +0100
@@ -2293,7 +2293,7 @@
 
 initialize
     |menu menuPanel mH panel bpanel bH bpanel1 bH1 bpanel2 bH2 codePanel
-     newLayout v exceptionAndTogglePanel|
+     newLayout v exceptionAndTogglePanel codeToggleLabels|
 
     super initialize.
 
@@ -2389,8 +2389,12 @@
 
         methodCodeToggleSelectionHolder := 1 asValue.
         methodCodeToggleSelectionHolder onChangeSend:#methodCodeToggleChanged to:self.
-        methodCodeToggle := PopUpList label:(resources string:'Original Code (Executed)') in:exceptionAndTogglePanel.
-        methodCodeToggle list:(resources array:#( 'Original Code (Executed)' 'Current Code')).
+        codeToggleLabels := resources array:{ 
+                    'Showing Original Code (being executed, but obsolete)' asText backgroundColorizeAllWith:Color red lightened . 
+                    'Showing Current Code'                                 asText backgroundColorizeAllWith:Color green lightened . 
+                  }.
+        methodCodeToggle := PopUpList label:codeToggleLabels first in:exceptionAndTogglePanel.
+        methodCodeToggle list:codeToggleLabels.
         methodCodeToggle useIndex:true.
         methodCodeToggle model:methodCodeToggleSelectionHolder.
         methodCodeToggle beInvisible.
@@ -2419,7 +2423,7 @@
      Debugger newDebugger
     "
 
-    "Modified: / 10-11-2010 / 10:09:34 / cg"
+    "Modified: / 01-03-2012 / 14:28:38 / cg"
 !
 
 initializeAbortButtonIn:bpanel
@@ -7301,11 +7305,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.529 2012-03-01 13:21:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.530 2012-03-01 13:29:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.529 2012-03-01 13:21:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.530 2012-03-01 13:29:29 cg Exp $'
 !
 
 version_SVN