changed the convert teachpack so that it does not print anything out when it runs

svn: r10109
This commit is contained in:
Robby Findler 2008-06-03 16:49:50 +00:00
parent a50e7011ea
commit 3ce56114f8

View File

@ -145,10 +145,11 @@
;; create labels; aligned with sliders
(define mpanel (make-object vertical-panel% main-panel))
(begin
(let ()
(make-object message% "Fahrenheit" mpanel)
(make-object message% "" mpanel)
(make-object message% "Celsius" mpanel))
(make-object message% "Celsius" mpanel)
(void))
(send mpanel stretchable-width #f)
(define panel (make-object vertical-panel% main-panel))