20 lines
542 B
Scheme
20 lines
542 B
Scheme
|
|
(module browser mzscheme
|
|
(require (lib "unitsig.ss")
|
|
"interfaces.ss"
|
|
"frame.ss"
|
|
"implementation.ss")
|
|
(provide-signature-elements browser^)
|
|
(provide-signature-elements snip^)
|
|
|
|
(define browser@
|
|
(compound-unit/sig
|
|
(import)
|
|
(link [PREFS : prefs^ (global-prefs@)]
|
|
[IMPL : implementation^ (implementation@)]
|
|
[FRAME : browser^ (frame@ PREFS (IMPL widget))])
|
|
(export (open FRAME))))
|
|
|
|
(define-values/invoke-unit/sig browser^ browser@)
|
|
)
|