diff options
| author | culler <culler> | 2020-07-25 14:15:07 (GMT) |
|---|---|---|
| committer | culler <culler> | 2020-07-25 14:15:07 (GMT) |
| commit | 03090437950d662b8892aaaf5238917c8bcca961 (patch) | |
| tree | 90e032d9ad9c8672fd4da8ec72b31b3c341c0738 /library/demos/fontchoose.tcl | |
| parent | 9c3c347b22063ccdb5d7dc9d9bdffd69962f7844 (diff) | |
| download | tk-03090437950d662b8892aaaf5238917c8bcca961.zip tk-03090437950d662b8892aaaf5238917c8bcca961.tar.gz tk-03090437950d662b8892aaaf5238917c8bcca961.tar.bz2 | |
Fix the fontchooser demo correctly.
Diffstat (limited to 'library/demos/fontchoose.tcl')
| -rw-r--r-- | library/demos/fontchoose.tcl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/library/demos/fontchoose.tcl b/library/demos/fontchoose.tcl index b93928d..446ed34 100644 --- a/library/demos/fontchoose.tcl +++ b/library/demos/fontchoose.tcl @@ -55,10 +55,6 @@ grid $f.msg $f.vs -sticky news grid $f.font - -sticky e grid columnconfigure $f 0 -weight 1 grid rowconfigure $f 0 -weight 1 -bind $w <Visibility> { - bind %W <Visibility> {} - grid propagate %W 0 -} ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] @@ -67,3 +63,5 @@ grid $f -sticky news grid $btns -sticky ew grid columnconfigure $w 0 -weight 1 grid rowconfigure $w 0 -weight 1 +update idletasks +grid propagate $f 0 |