diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-04-06 10:35:55 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-04-06 10:35:55 +0000 |
commit | a61a219163f905601bee2acf80da842425f52df4 (patch) | |
tree | db5265f70394114be0f5b45cb38100296d4a0208 | |
parent | 6106da54497253e97b2e74a11511f528de27e3da (diff) |
Fixed stats reporting TeXworks checkbox (-command instead of bind)
git-svn-id: svn://tug.org/texlive/trunk@58767 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/tlpkg/installer/install-tl-gui.tcl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl index 455641f4db8..66ba9a0252f 100755 --- a/Master/tlpkg/installer/install-tl-gui.tcl +++ b/Master/tlpkg/installer/install-tl-gui.tcl @@ -1644,6 +1644,7 @@ proc run_menu {} { ttk::checkbutton .srcb -variable ::vars(tlpdbopt_install_srcfiles) \ -command {update_vars; show_stats} pgrid .srcb -in $curf -row $rw -column 2 -sticky e + puts stderr [bindtags .srcb] } } @@ -1698,14 +1699,9 @@ proc run_menu {} { pgrid [ttk::label .texwl -text [__ "Install TeXworks front end"]] \ -in $curf -row $rw -column 0 -columnspan 2 -sticky w ttk::checkbutton .texwb -variable ::vars(collection-texworks) + .texwb configure -command \ + {set ::vars(selected_scheme) "scheme-custom"; update_vars; show_stats} pgrid .texwb -in $curf -row $rw -column 2 -sticky e - bind .texwb <ButtonRelease> {+ - set ::vars(selected_scheme) "scheme-custom"; update_vars; show_stats} - bind .texwb <Return> {+ - set ::vars(selected_scheme) "scheme-custom"; update_vars; show_stats} - bind .texwb <space> {+ - set ::vars(selected_scheme) "scheme-custom"; update_vars; show_stats} - } else { if $::advanced { # instopt_adjustpath, unix edition: symlinks |