(define-module (mg-1)
  :use-module (oop goops)

  :export (<widget-a>
	    dialog

	    make-widget-a
	    ))


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

(define (make-widget-a)
  (make <widget-a> :dialog 'dialog-a))