suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rackety and minor edits.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-09-17 16:39:27 -04:00
parent f147871728
commit a2157b86dc
3 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribblings/gui/widget-gallery.rkt
View File

@ -1,12 +1,10 @@
(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 ()
((_ widget code ...)
(begin (begin
(racketlink widget (racketlink widget
(image #:suffixes (image #:suffixes
@ -15,4 +13,4 @@
(string-trim (symbol->string 'widget) (string-trim (symbol->string 'widget)
"%" "%"
#:left? #f)))) #:left? #f))))
(racketblock code ...)))))) (racketblock code ...)))

7
collects/scribblings/gui/widget-gallery.scrbl
View File

@ -4,7 +4,12 @@
@title[#:style '(toc quiet)]{Widget Gallery} @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% @(showcase-widget button%
(define button (new button% (define button (new button%