1  #lang racket/base
 2  (require (except-in mred
 3                      make-gui-namespace
 4                      make-gui-empty-namespace))
 5  
 6  (provide (all-from-out mred)
 7           make-gui-namespace
 8           make-gui-empty-namespace)
 9  
10  (define-namespace-anchor anchor)
11  
12  (define (make-gui-empty-namespace)
13    (let ([ns (make-base-empty-namespace)])
14      (namespace-attach-module (namespace-anchor->empty-namespace anchor)
15                               'racket/gui/base
16                               ns)
17      ns))
18  
19  (define (make-gui-namespace)
20    (let ([ns (make-gui-empty-namespace)])
21      (parameterize ([current-namespace ns])
22        (namespace-require 'racket/base)
23        (namespace-require 'racket/gui/base)
24        (namespace-require 'racket/class))
25      ns))