
lappend auto_path .
package require BWidget

namespace eval main {
	variable mf
}
 
set menus {
	"&File" all file 0 {
		{command "&Open" {} "Open" {Ctrl o} -command openFile -foreground purple}
		{command "&Save" {} "Save" {Ctrl s} -command save}
		{command "&Save As" {} "Save As" {} -command saveAs}
	}}

set main::mf [MainFrame .mainframe \
				-menu $menus \
				-textvariable statusText \
				-progressvar main::prg \
				-progressmax 40 \
				-progresstype infinite]
pack $main::mf -fill both -expand 1

set nb [NoteBook [$main::mf getframe].nb -activebackground lightgray]
pack $nb -pady 5 -padx 5 -expand 1 -fill both

set m [$main::mf cget -menu]
# $m configure -bg orange


# vim:ts=4 sw=4
