Posted to tcl by ericlee at Sun Aug 29 23:06:02 GMT 2021view pretty

proc somefunc {
    ...
    grid .pw -row 0 -column 0 -sticky nsew
    .pw add .pw.fsimage_info
    .pw add .pw.inode_detail
    grid rowconfigure . 0 -weight 1
    grid columnconfigure . 0 -weight 1
}

# set up status update bar
entry .status -justify left
grid .status -row 1 -column 0 -sticky sew
grid rowconfigure . 1 -weight 1
grid columnconfigure . 0 -weight 1

# set up menu
menu .mbar
. configure -menu .mbar

.mbar add cascade -label File -menu .mbar.file -underline 0
menu .mbar.file -tearoff 0
.mbar.file add command -label "Open File" -command somefunc