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

.

Browse Source 
original commit: 572d83a82ac15d3bb077735c7354a9371c22f0e8
This commit is contained in:
Matthew Flatt 2002-06-12 19:49:06 +00:00
parent 0403e29bdc
commit d2395e8d78
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -4982,8 +4982,8 @@
(define p (make-object horizontal-pane% f))
(define paper (make-object choice% #f papers p void))
(define _0 (make-object vertical-pane% p))
(define ok (make-object button% "OK" p (lambda (b e) (done #t)) '(border)))
(define cancel (make-object button% "Cancel" p (lambda (b e) (done #f))))
(define ok (make-object button% "OK" p (lambda (b e) (done #t)) '(border)))
(define unix? (eq? (system-type) 'unix))
(define dp (make-object horizontal-pane% f))
(define orientation (make-object radio-box% "Orientation:" '("Portrait" "Landscape") dp void))