(require "Tk-classes")
(define c (make <canvas>))

(pack c :expand 'true :fill 'both)

(wm 'minsize *root* 200 200)

(bind c "<Configure>" (lambda (w h)
	(set! (width c) w)
	(set! (height c) h)))