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

  1. proc somefunc {
  2. ...
  3. grid .pw -row 0 -column 0 -sticky nsew
  4. .pw add .pw.fsimage_info
  5. .pw add .pw.inode_detail
  6. grid rowconfigure . 0 -weight 1
  7. grid columnconfigure . 0 -weight 1
  8. }
  9.  
  10. # set up status update bar
  11. entry .status -justify left
  12. grid .status -row 1 -column 0 -sticky sew
  13. grid rowconfigure . 1 -weight 1
  14. grid columnconfigure . 0 -weight 1
  15.  
  16. # set up menu
  17. menu .mbar
  18. . configure -menu .mbar
  19.  
  20. .mbar add cascade -label File -menu .mbar.file -underline 0
  21. menu .mbar.file -tearoff 0
  22. .mbar.file add command -label "Open File" -command somefunc
  23.  
  24.