(define-module (mg-3)
  :use-module (ice-9 format)
  :use-module (oop goops)
  :use-module (mg-1)
  :use-module (mg-2)

  :duplicates (merge-generics)

  :export (a
	   b
	   letstry))


(define a (make <widget-a>))
(define b (make <widget-b>))

(define (letstry)
  (format #t "Dialog a: ~S~%" (dialog a))
  (format #t "Dialog b: ~S~%" (dialog b)))


#!

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

(use-modules (mg-3))
(letstry)

!#