From fccd1795d1f7dadd449c177eff2d527f82e0f99b Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Mon, 16 Jan 2012 12:44:40 -0700 Subject: [PATCH] Icon fixes: Split images/icons/misc into images/icons/symbol and images/icons/misc Updated tests Fixed Gtk assertion failure in Macro Stepper (came from "about" dialog being created before the stepper window was shown; fixed by creating it on demand) Changed Stepper similarly (though there was no assertion failure) Put a quote in the Macro Stepper logo Portable recycle-icon Removed recycle unicode from the docs (was causing PDF build to fail) Internal API fixes Please merge into release original commit: ea68677d2f4ece1d0ad1df6447fb27f90e98ba3e --- collects/macro-debugger/view/stepper.rkt | 26 +++++++++++++----------- 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/collects/macro-debugger/view/stepper.rkt b/collects/macro-debugger/view/stepper.rkt index c9e156e..8b7c340 100644 --- a/collects/macro-debugger/view/stepper.rkt +++ b/collects/macro-debugger/view/stepper.rkt @@ -42,6 +42,19 @@ (define small-logo (compiled-bitmap (macro-stepper-logo 32))) (define large-logo (compiled-bitmap (macro-stepper-logo))) +(define (show-about-dialog parent) + (define dlg + (new logo-about-dialog% + (label "About the Macro Stepper") + (parent parent) + (bitmap large-logo) + (messages '("The Macro Stepper is formalized and proved correct in\n" + "\n" + " Ryan Culpepper and Matthias Felleisen\n" + " Debugging Hygienic Macros\n" + " Science of Computer Programming, July 2010\n")))) + (send dlg show #t)) + ;; Macro Stepper ;; macro-stepper-widget% @@ -159,23 +172,12 @@ (alignment '(left center)) (style '(deleted)))) - (define about-dialog - (new logo-about-dialog% - (label "About the Macro Stepper") - (parent frame) - (bitmap large-logo) - (messages '("The Macro Stepper is formalized and proved correct in\n" - "\n" - " Ryan Culpepper and Matthias Felleisen\n" - " Debugging Hygienic Macros\n" - " Science of Computer Programming, July 2010\n")))) - (define logo-canvas (new (class bitmap-canvas% (super-new (parent top-panel) (bitmap small-logo)) (define/override (on-event evt) (when (eq? (send evt get-event-type) 'left-up) - (send about-dialog show #t)))))) + (show-about-dialog frame)))))) (define/i sbview sb:syntax-browser<%> (new stepper-syntax-widget%