Rackety and minor edits.

collects/scribblings/gui/taking-screenshots/instructions

@@ -1,12 +1,12 @@
 -*- org -*-
 
 * Using GIMP
-  
+
   To take screen shots of the widgets, you can follow these steps:
 
   1. Take a widget screen shot
-  2. Open it with GIMP                                                                                                                                                                       
+  2. Open it with GIMP
-  3. Cut it to 240 x 73                                                                                                                                                                      
+  3. Cut it to 240 x 73
   4. Add a border using Filters/Decor/Add Border...
      + Border X size :: 1
      + Border Y size :: 1
@@ -22,7 +22,7 @@
      + Opacity :: 80
      + Allow resizing :: #t
   7. Save as .png
-     
+
   There are two scripts in this directory that might help in this
   process. Keep in mind though that the GIMP script is very fragile
   and some tweaking might be necessary to make it work in different

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%