Rackety and minor edits.

collects/scribblings/gui/widget-gallery.rkt

@@ -1,18 +1,16 @@
-(module widget scheme/base
+#lang racket/base
-  (require racket/string
+(require racket/string
-           "common.rkt")
+         "common.rkt")
 
-  (provide showcase-widget)
+(provide showcase-widget)
 
-  (define-syntax showcase-widget
+(define-syntax-rule (showcase-widget widget code ...)
-    (syntax-rules ()
+  (begin
-      ((_ widget code ...)
+    (racketlink widget
-       (begin
+                (image #:suffixes
-         (racketlink widget
+                       (list ".png")
-                     (image #:suffixes
+                       (string-append "image/"
-                            (list ".png")
+                                      (string-trim (symbol->string 'widget)
-                            (string-append "image/"
+                                                   "%"
-                                           (string-trim (symbol->string 'widget)
+                                                   #:left? #f))))
-                                                        "%"
+    (racketblock code ...)))
-                                                        #:left? #f))))
-         (racketblock code ...))))))

collects/scribblings/gui/widget-gallery.scrbl

@@ -4,7 +4,12 @@
 
 @title[#:style '(toc quiet)]{Widget Gallery}
 
-This section gives an overview of the main widgets available in the Racket Graphical Interface Toolkit and each image points to its full documentation.
+@; Note: Instructions for taking widget screenshots are avaiable at:
+@;   ./taking-screenshots/instructions
+
+This section shows the main widgets available in the Racket Graphical User
+Interface Toolkit. Each image is a link to the documentation of the relevant
+widget.
 
 @(showcase-widget button%
 (define button (new button%