(define-module (mg-wgtk-1)
  :use-module (oop goops)
  :use-module (gnome gobject)
  :use-module (gnome gtk)

  :export (<tl-widget>
	    dialog

	    make-tl-widget
	    ))


(define-class <tl-widget> ()
  (dialog :accessor dialog :init-keyword :dialog :init-value #f)
  )

(define (make-tl-widget)
  (let ((tl-widget (make <tl-widget>
		     :dialog (make <gtk-window>
			       :type 'toplevel
			       ))))
    tl-widget))