MainFrame(3tk) MainFrame(3tk) NAME MainFrame - CREATION MainFrame pathName ?option value...? DESCRIPTION MainFrame : * * * WIDGET-SPECIFIC OPTIONS -height Tk_GetPixels () -menu (read-only) : { (tag) Id ...} : : {separator} : {command ?? ?? ?? ?? ...} : {checkbutton ?? ?? ?? ?? ...} : {radiobutton ?? ?? ?? ?? ...} : {cascad ?? Id } : &, menu add MainFrame::setmenustate Id id MainFrame::getmenu CtrlAlt CtrlAlt ( menu add ) ? -separator () / nonetopbottom both (relief) -textvariable textvariable MainFrame MainFrame::configure -width Tk_GetPixels () set descmenu { "&File" {} {} 0 { {command "&New" {} "" {Ctrl n} -command Menu::new} {command "&Open..." {} "" {Ctrl o} -command Menu::open} {command "&Save" open "" {Ctrl s} -command Menu::save} {cascad "&Export" {} export 0 { {command "Format &1" open " 1" {} -command {Menu::export 1}} {command "Format &2" open " 2" {} -command {Menu::export 2}} }} {separator} {cascad "&Recent files" {} recent 0 {}} {separator} {command "E&xit" {} "" {} -command Menu::exit} } "&Options" {} {} 0 { {checkbutton "Toolbar" {} "/" {} -variable Menu::_drawtoolbar -command {$Menu::_mainframe showtoolbar toolbar $Menu::_drawtoolbar} } } } pathName addindicator ?arg...? (indicator) ?arg...? - Tk (label)-relief -borderwidth sunken() 1 pathName addtoolbar MainFrame pathName cget option option Option pathName configure ?option? ?value option value ...? option pathName value option option ( option )- Option pathName getframe pathName getindicator index index pathName getmenu menuid id menuid pathName gettoolbar index index pathName setmenustate tag state tag -state state pathName showstatusbar name name nonestatus progression none status (label) progression pathName showtoolbar index bool bool 0 index bool 1 index /(manage) [wm geometry $top [wm geometry $top]] [] [] 2001/05/06 Linux man : http://cmpp.linuxforum.net man man https://github.com/man-pages-zh/manpages- zh tcllib - BWidget MainFrame(3tk)