(require "Tk-classes")
(define-class <tt> (<Tk-composite-widget>) 
		((toplevel :accessor toplevel)  
		 (title        :accessor       title
                       		:init-keyword   :title
                       		:allocation     :propagated
                       		:propagate-to   (graph-toplevel))))

(define-method initialize ((self <tt>) initargs)
	(slot-set! self 'toplevel (make <top-level> :title "hi")))