removed unnecessary begin statements
This commit is contained in:
parent
42eceeb36f
commit
ce93a60d0e
@ -12,8 +12,7 @@
|
|||||||
(provide make-gui)
|
(provide make-gui)
|
||||||
|
|
||||||
(define (make-gui)
|
(define (make-gui)
|
||||||
(begin
|
;;Create the frame/window with title "Example5", width 500 and height 700
|
||||||
;;Create the frame
|
|
||||||
(define main-frame (new frame%
|
(define main-frame (new frame%
|
||||||
[label "Example5"]
|
[label "Example5"]
|
||||||
[width 500]
|
[width 500]
|
||||||
@ -144,7 +143,7 @@
|
|||||||
(else (error "Invalid Request" command))
|
(else (error "Invalid Request" command))
|
||||||
))
|
))
|
||||||
;;dispatch goes below that
|
;;dispatch goes below that
|
||||||
dispatch))
|
dispatch)
|
||||||
|
|
||||||
|
|
||||||
;This one displays information
|
;This one displays information
|
||||||
|
Loading…
Reference in New Issue
Block a user