/draw_arc { % x y => - (draws an arc at the specifed location)
      100 0 355 arc
      gsave
      1 setgray fill
      grestore
      stroke
} def

/makewin { %  - => - (builds a test window)
      /GoWindow DefaultWindow                        % create a subclass
      dictbegin
           /FrameLabel ( Workspace ) def
      dictend
      classbegin
           /PaintClient { 100 100 draw_arc } def
           /PaintIcon {
                       .5 fillcanvas
                       0 strokecanvas
           } def  
       classend def

       /win framebuffer /new GoWindow send def          % cliche
       /reshapefromuser win send                        % resize window
       /map win send                                        % draw it
} def

makewin