From a8e07cded2e2033b01a6bfff157ea3a7db1dda4a Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Thu, 21 Feb 2008 18:09:55 +0000 Subject: [PATCH] rename mztake-less mztake to gui-debugger svn: r8756 --- collects/{mztake => gui-debugger}/TODO.txt | 0 collects/{mztake => gui-debugger}/annotator.ss | 2 +- collects/{mztake => gui-debugger}/debug-tool.ss | 16 ++++++++-------- .../icons/emblem-ohno.png | Bin .../{mztake => gui-debugger}/icons/icon-big.png | Bin .../icons/icon-small.png | Bin .../{mztake => gui-debugger}/icons/icon.png | Bin .../{mztake => gui-debugger}/icons/icon2.png | Bin collects/{mztake => gui-debugger}/icons/no.png | Bin .../{mztake => gui-debugger}/icons/pause.png | Bin .../{mztake => gui-debugger}/icons/resume.png | Bin .../icons/step-out2.png | Bin .../icons/step-over2.png | Bin .../{mztake => gui-debugger}/icons/step.png | Bin .../icons/stock_macro-check-brackets-16.png | Bin .../icons/stock_macro-check-brackets.png | Bin collects/gui-debugger/info.ss | 6 ++++++ .../{mztake => gui-debugger}/load-sandbox.ss | 8 -------- collects/{mztake => gui-debugger}/marks.ss | 0 collects/mztake/info.ss | 6 ------ 20 files changed, 15 insertions(+), 23 deletions(-) rename collects/{mztake => gui-debugger}/TODO.txt (100%) rename collects/{mztake => gui-debugger}/annotator.ss (99%) rename collects/{mztake => gui-debugger}/debug-tool.ss (98%) rename collects/{mztake => gui-debugger}/icons/emblem-ohno.png (100%) rename collects/{mztake => gui-debugger}/icons/icon-big.png (100%) rename collects/{mztake => gui-debugger}/icons/icon-small.png (100%) rename collects/{mztake => gui-debugger}/icons/icon.png (100%) rename collects/{mztake => gui-debugger}/icons/icon2.png (100%) rename collects/{mztake => gui-debugger}/icons/no.png (100%) rename collects/{mztake => gui-debugger}/icons/pause.png (100%) rename collects/{mztake => gui-debugger}/icons/resume.png (100%) rename collects/{mztake => gui-debugger}/icons/step-out2.png (100%) rename collects/{mztake => gui-debugger}/icons/step-over2.png (100%) rename collects/{mztake => gui-debugger}/icons/step.png (100%) rename collects/{mztake => gui-debugger}/icons/stock_macro-check-brackets-16.png (100%) rename collects/{mztake => gui-debugger}/icons/stock_macro-check-brackets.png (100%) create mode 100644 collects/gui-debugger/info.ss rename collects/{mztake => gui-debugger}/load-sandbox.ss (91%) rename collects/{mztake => gui-debugger}/marks.ss (100%) delete mode 100644 collects/mztake/info.ss diff --git a/collects/mztake/TODO.txt b/collects/gui-debugger/TODO.txt similarity index 100% rename from collects/mztake/TODO.txt rename to collects/gui-debugger/TODO.txt diff --git a/collects/mztake/annotator.ss b/collects/gui-debugger/annotator.ss similarity index 99% rename from collects/mztake/annotator.ss rename to collects/gui-debugger/annotator.ss index efcc9986ae..6afe3bd778 100644 --- a/collects/mztake/annotator.ss +++ b/collects/gui-debugger/annotator.ss @@ -2,7 +2,7 @@ (require (prefix-in kernel: (lib "kerncase.ss" "syntax")) (lib "list.ss") - (lib "marks.ss" "mztake") + (lib "marks.ss" "gui-debugger") (lib "etc.ss") (prefix-in srfi: (lib "search.ss" "srfi" "1")) (for-syntax scheme/base) diff --git a/collects/mztake/debug-tool.ss b/collects/gui-debugger/debug-tool.ss similarity index 98% rename from collects/mztake/debug-tool.ss rename to collects/gui-debugger/debug-tool.ss index eda7b6584e..ef93437ad8 100644 --- a/collects/mztake/debug-tool.ss +++ b/collects/gui-debugger/debug-tool.ss @@ -1012,7 +1012,7 @@ (make-object button% ((bitmap-label-maker (string-constant debug-tool-button-name) - (build-path (collection-path "mztake" "icons") "icon-small.png")) this) + (build-path (collection-path "gui-debugger" "icons") "icon-small.png")) this) (make-object vertical-pane% (get-button-panel)) (lambda (button evt) (set! debug? #t) (execute-callback)))) @@ -1020,7 +1020,7 @@ (instantiate button% () [label ((bitmap-label-maker "Pause" - (build-path (collection-path "mztake" "icons") "pause.png")) this)] + (build-path (collection-path "gui-debugger" "icons") "pause.png")) this)] [parent debug-panel] [callback (lambda (button evt) (if (send (get-current-tab) get-stack-frames) @@ -1035,7 +1035,7 @@ (instantiate button% () [label ((bitmap-label-maker "Continue" - (build-path (collection-path "mztake" "icons") "resume.png")) this)] + (build-path (collection-path "gui-debugger" "icons") "resume.png")) this)] [parent debug-panel] [callback (lambda (button evt) (if (send (get-current-tab) get-stack-frames) @@ -1047,7 +1047,7 @@ (instantiate button% () [label ((bitmap-label-maker "Step" - (build-path (collection-path "mztake" "icons") "step.png")) this)] + (build-path (collection-path "gui-debugger" "icons") "step.png")) this)] [parent debug-panel] [callback (lambda (btn evt) (if (send (get-current-tab) get-stack-frames) @@ -1098,7 +1098,7 @@ (new button% [label ((bitmap-label-maker "Over" - (build-path (collection-path "mztake" "icons") "step-over2.png")) this)] + (build-path (collection-path "gui-debugger" "icons") "step-over2.png")) this)] [parent debug-panel] [callback (make-big-step-callback #f)] [enabled #f])) @@ -1107,7 +1107,7 @@ (new button% [label ((bitmap-label-maker "Out" - (build-path (collection-path "mztake" "icons") "step-out2.png")) this)] + (build-path (collection-path "gui-debugger" "icons") "step-out2.png")) this)] [parent debug-panel] [callback (make-big-step-callback #t)] [enabled #f])) @@ -1140,7 +1140,7 @@ (define/public (check-current-language-for-debugger) (let* ([settings (send (get-definitions-text) get-next-settings)] [lang (drscheme:language-configuration:language-settings-language settings)] - [visible? (and (send lang capability-value 'mztake:debug-button) + [visible? (and (send lang capability-value 'gui-debugger:debug-button) (not (debugger-does-not-work-for? (extract-language-level settings))))]) (if visible? @@ -1156,7 +1156,7 @@ ; hide debug button if it's not supported for the initial language: (check-current-language-for-debugger))) - (drscheme:language:register-capability 'mztake:debug-button (flat-contract boolean?) #t) + (drscheme:language:register-capability 'gui-debugger:debug-button (flat-contract boolean?) #t) (drscheme:get/extend:extend-definitions-text debug-definitions-text-mixin) (drscheme:get/extend:extend-interactions-text debug-interactions-text-mixin) (drscheme:get/extend:extend-unit-frame debug-unit-frame-mixin) diff --git a/collects/mztake/icons/emblem-ohno.png b/collects/gui-debugger/icons/emblem-ohno.png similarity index 100% rename from collects/mztake/icons/emblem-ohno.png rename to collects/gui-debugger/icons/emblem-ohno.png diff --git a/collects/mztake/icons/icon-big.png b/collects/gui-debugger/icons/icon-big.png similarity index 100% rename from collects/mztake/icons/icon-big.png rename to collects/gui-debugger/icons/icon-big.png diff --git a/collects/mztake/icons/icon-small.png b/collects/gui-debugger/icons/icon-small.png similarity index 100% rename from collects/mztake/icons/icon-small.png rename to collects/gui-debugger/icons/icon-small.png diff --git a/collects/mztake/icons/icon.png b/collects/gui-debugger/icons/icon.png similarity index 100% rename from collects/mztake/icons/icon.png rename to collects/gui-debugger/icons/icon.png diff --git a/collects/mztake/icons/icon2.png b/collects/gui-debugger/icons/icon2.png similarity index 100% rename from collects/mztake/icons/icon2.png rename to collects/gui-debugger/icons/icon2.png diff --git a/collects/mztake/icons/no.png b/collects/gui-debugger/icons/no.png similarity index 100% rename from collects/mztake/icons/no.png rename to collects/gui-debugger/icons/no.png diff --git a/collects/mztake/icons/pause.png b/collects/gui-debugger/icons/pause.png similarity index 100% rename from collects/mztake/icons/pause.png rename to collects/gui-debugger/icons/pause.png diff --git a/collects/mztake/icons/resume.png b/collects/gui-debugger/icons/resume.png similarity index 100% rename from collects/mztake/icons/resume.png rename to collects/gui-debugger/icons/resume.png diff --git a/collects/mztake/icons/step-out2.png b/collects/gui-debugger/icons/step-out2.png similarity index 100% rename from collects/mztake/icons/step-out2.png rename to collects/gui-debugger/icons/step-out2.png diff --git a/collects/mztake/icons/step-over2.png b/collects/gui-debugger/icons/step-over2.png similarity index 100% rename from collects/mztake/icons/step-over2.png rename to collects/gui-debugger/icons/step-over2.png diff --git a/collects/mztake/icons/step.png b/collects/gui-debugger/icons/step.png similarity index 100% rename from collects/mztake/icons/step.png rename to collects/gui-debugger/icons/step.png diff --git a/collects/mztake/icons/stock_macro-check-brackets-16.png b/collects/gui-debugger/icons/stock_macro-check-brackets-16.png similarity index 100% rename from collects/mztake/icons/stock_macro-check-brackets-16.png rename to collects/gui-debugger/icons/stock_macro-check-brackets-16.png diff --git a/collects/mztake/icons/stock_macro-check-brackets.png b/collects/gui-debugger/icons/stock_macro-check-brackets.png similarity index 100% rename from collects/mztake/icons/stock_macro-check-brackets.png rename to collects/gui-debugger/icons/stock_macro-check-brackets.png diff --git a/collects/gui-debugger/info.ss b/collects/gui-debugger/info.ss new file mode 100644 index 0000000000..b851ad7e61 --- /dev/null +++ b/collects/gui-debugger/info.ss @@ -0,0 +1,6 @@ +#lang setup/infotab + +(define name "Graphical Debugger") +(define tools '(("debug-tool.ss"))) +(define tool-names '("Graphical Debugger")) +(define tool-icons '(("emblem-ohno.png" "gui-debugger" "icons"))) diff --git a/collects/mztake/load-sandbox.ss b/collects/gui-debugger/load-sandbox.ss similarity index 91% rename from collects/mztake/load-sandbox.ss rename to collects/gui-debugger/load-sandbox.ss index 6dbafe9fcb..6f7dc7f8a8 100644 --- a/collects/mztake/load-sandbox.ss +++ b/collects/gui-debugger/load-sandbox.ss @@ -79,12 +79,4 @@ (values p filename)))) - (define (test annotate-all?) - (require/annotations '(lib "mztake.ss" "mztake") - (lambda (fn m) - (printf "~a ~a~n" fn m) - annotate-all?) - (lambda (fn m stx) stx))) - ;(test #t) ; slow - ;(test #f) ; fast ) \ No newline at end of file diff --git a/collects/mztake/marks.ss b/collects/gui-debugger/marks.ss similarity index 100% rename from collects/mztake/marks.ss rename to collects/gui-debugger/marks.ss diff --git a/collects/mztake/info.ss b/collects/mztake/info.ss deleted file mode 100644 index 28f0236c08..0000000000 --- a/collects/mztake/info.ss +++ /dev/null @@ -1,6 +0,0 @@ -#lang setup/infotab - -(define name "MzTake Debugger") -(define tools '(("debug-tool.ss"))) -(define tool-names '("MzTake Debugger")) -(define tool-icons '(("emblem-ohno.png" "mztake" "icons")))