From a61a219163f905601bee2acf80da842425f52df4 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Tue, 6 Apr 2021 10:35:55 +0000 Subject: Fixed stats reporting TeXworks checkbox (-command instead of bind) git-svn-id: svn://tug.org/texlive/trunk@58767 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-tl-gui.tcl | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'Master/tlpkg') 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 {+ - set ::vars(selected_scheme) "scheme-custom"; update_vars; show_stats} - bind .texwb {+ - set ::vars(selected_scheme) "scheme-custom"; update_vars; show_stats} - bind .texwb {+ - set ::vars(selected_scheme) "scheme-custom"; update_vars; show_stats} - } else { if $::advanced { # instopt_adjustpath, unix edition: symlinks -- cgit v1.2.3