Root functor: Main.oz

### Root functor: `Main.oz`

Source File

>     functor

>     import
>        Tk TkTools

>        Edit(page)
>        Compute(page)
>        Application(exit)

>     define

>        T = {New Tk.toplevel      tkInit(title:    'Glass Plates'
>                                         delete:   Application.exit # 0
>                                         withdraw: true)}
>        B = {New TkTools.notebook tkInit(parent: T)}

>        E = {New Edit.page        init(parent:  B
>                                       compute: C)}
>        C = {New Compute.page     init(parent: B
>                                       edit:   E)}

>     in

>        {B add(E)} {B add(C)}

>        {Tk.batch [pack(B)
>                   update(idletasks)
>                   wm(deiconify T)
>                   wm(resizable T false false)]}

>     end