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

shorter window

Browse Source 
svn: r1609
This commit is contained in:
Eli Barzilay 2005-12-13 16:50:39 +00:00
parent 5fa19d556c
commit c60213c37e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
install
View File

@ -135,7 +135,7 @@ exit 1
(define f (make-object (define f (make-object
(class frame% () (class frame% ()
(define/augment (can-close?) (quit) #f) (define/augment (can-close?) (quit) #f)
(super-instantiate ("PLT Installer" #f 600 480))))) (super-instantiate ("PLT Installer" #f 600 450)))))
(define e (make-object text%)) (define e (make-object text%))
(define c (make-object editor-canvas% f e '(no-hscroll))) (define c (make-object editor-canvas% f e '(no-hscroll)))
(define b (make-object button% "Stop Installation" f (lambda _ (quit)))) (define b (make-object button% "Stop Installation" f (lambda _ (quit))))