www

commit fccd1795d1f7dadd449c177eff2d527f82e0f99b
parent 460774c696f23fd9f9dd5729146ae360c6bf16ef
Author: Neil Toronto <ntoronto@racket-lang.org>
Date:   Mon, 16 Jan 2012 12:44:40 -0700

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

Diffstat:
M
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
@@ -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%