Tk Library Source Code: Artifact [49095c413d]

Artifact 49095c413d41d2be6dd899f2896e2050c52d7347:

Attachment "t.tcl" to ticket [3105665fff] added by ssmedley 2010-11-09 08:21:41.


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