require 'MasterFrame.rb'



def main

    p1 = proc { p 'p1' }
    p2 = proc { p 'p2' }
    p3 = proc { p 'p3' }
    p4 = proc { p 'p4' }

    init_system_settings()

    root = TkRoot.new { title "Nephros H2H" }
    top = MasterFrame.new(root)
    print "Hello!\n"
    
    
    top.help_button.command{
        p 'Threads-----------------'
        Thread.list.each{|t| p t.to_s + " " + t.status}
        p ''
        }
        
    top.back_button.configure('command'=>p1)
    top.ok_button  .configure('command'=>p2)
    top.forw_button.configure('command'=>p3)
    
    
    # Modify button behavior on the fly
    top.help_button.configure('command'=>proc{
        top.back_button.configure('command'=>p3)
        top.ok_button  .configure('command'=>p1)
        top.forw_button.configure('command'=>p2)
    })

    
    Tk.pack(top)
    Tk.mainloop
    
end

def init_system_settings
    Thread.abort_on_exception = true
#    set_trace_func TraceCalls.new(1).func
end



main