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