www

commit ae8282f5c7c8d740c6a77795629b3c1f4e6c8e60
parent f2d3f9d9c85817f94534bfb3fda5e451f36ed5dd
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Sun, 26 Jun 2011 03:29:41 -0600

close current macro stepper frame on Run, Macro Stepper, etc
  closes PR 11964

original commit: 0b47f0b7e289ebc47c6c87115fd14cc3f1bad4fe

Diffstat:
M
collects/macro-debugger/view/frame.rkt
 | 
3
+++
M
collects/macro-debugger/view/prefs.rkt
 | 
6
+++++-
M
collects/macro-debugger/view/view.rkt
 | 
2
+-

3 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/collects/macro-debugger/view/frame.rkt b/collects/macro-debugger/view/frame.rkt
@@ -208,6 +208,9 @@
                               "Refresh on resize"
                               (get-field refresh-on-resize? config))
       (menu-option/notify-box extras-menu
+                              "Close old stepper on Run"
+                              (get-field close-on-reset-console? config))
+      (menu-option/notify-box extras-menu
                               "Draw binding arrows"
                               (get-field draw-arrows? config))
       (menu-option/notify-box extras-menu
diff --git a/collects/macro-debugger/view/prefs.rkt b/collects/macro-debugger/view/prefs.rkt
@@ -6,6 +6,7 @@
          unstable/gui/notify
          unstable/gui/prefs)
 (provide pref:macro-step-limit
+         pref:close-on-reset-console?
          macro-stepper-config-base%
          macro-stepper-config/prefs%
          macro-stepper-config/prefs/readonly%)
@@ -30,6 +31,7 @@
 (preferences:set-default 'MacroStepper:MacroStepLimit 40000
                          (lambda (x) (or (eq? x #f) (exact-positive-integer? x))))
 (preferences:set-default 'MacroStepper:RefreshOnResize? #t boolean?)
+(preferences:set-default 'MacroStepper:CloseOnResetConsole? #t boolean?)
 
 (define pref:width (pref:get/set 'MacroStepper:Frame:Width))
 (define pref:height (pref:get/set 'MacroStepper:Frame:Height))
@@ -50,6 +52,7 @@
 (define pref:split-context? (pref:get/set 'MacroStepper:SplitContext?))
 (define pref:macro-step-limit (pref:get/set 'MacroStepper:MacroStepLimit))
 (define pref:refresh-on-resize? (pref:get/set 'MacroStepper:RefreshOnResize?))
+(define pref:close-on-reset-console? (pref:get/set 'MacroStepper:CloseOnResetConsole?))
 
 (define macro-stepper-config-base%
   (class* prefs-base% (config<%>)
@@ -75,7 +78,8 @@
       (extra-navigation? pref:extra-navigation?)
       (debug-catch-errors? pref:debug-catch-errors?)
       (split-context? pref:split-context?)
-      (refresh-on-resize? pref:refresh-on-resize?))
+      (refresh-on-resize? pref:refresh-on-resize?)
+      (close-on-reset-console? pref:close-on-reset-console?))
     (super-new)))
 
 (define macro-stepper-config/prefs%
diff --git a/collects/macro-debugger/view/view.rkt b/collects/macro-debugger/view/view.rkt
@@ -13,7 +13,7 @@
 
 (define macro-stepper-director%
   (class* object% (director<%>)
-    (define stepper-frames (make-hasheq))
+    (field [stepper-frames (make-hasheq)])
 
     ;; Flags is a subset(list) of '(no-obsolete no-new-traces)