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

  :export (<p-widget>
	    dialog

	    make-p-widget
	    ))


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

(define (make-p-widget)
  (let ((p-widget (make <p-widget>
		    :dialog (make <gtk-message-dialog>
			      ))))
    p-widget))