Posted to tcl by jsuntheimer72 at Sun Jan 21 21:10:14 GMT 2018view raw

  1. #works
  2. package require Tk
  3.  
  4. ttk::entry .entry
  5. text .text
  6. ttk::sizegrip .grip
  7.  
  8. grid rowconfigure . 1 -weight 1
  9. grid columnconfigure . 0 -weight 1
  10.  
  11. grid .entry -sticky new
  12. grid .text -sticky nsew
  13. grid .grip -sticky se
  14.  
  15.  
  16. #doesn't work
  17. if 0 {
  18. package require Tk
  19.  
  20. ttk::frame .main
  21. ttk::entry .main.entry
  22. text .main.text
  23. ttk::sizegrip .main.grip
  24.  
  25. grid rowconfigure .main 1 -weight 1
  26. grid columnconfigure .main 0 -weight 1
  27.  
  28. grid .main.entry -sticky new
  29. grid .main.text -sticky nsew
  30. grid .main.grip -sticky se
  31. grid .main
  32.  
  33. }