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

  :export (<widget-b>
	    dialog

	    make-widget-b
	    ))


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

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



#!

(use-modules (macros push))
(push! "/usr/local/share/guile/alto/2.0/tests"
       %load-path)

;;;
;;; Test multiple imports - 1
;;;

(use-modules (mg-1)
	     (mg-2))
(define widget (make-widget-b))
(dialog widget)


;;;
;;; Test multiple imports - 2
;;;

(use-modules (mg-2)
	     (mg-1))
(define widget (make-widget-b))
(dialog widget)


!#