texlive[58767] Master/tlpkg/installer/install-tl-gui.tcl: Fixed stats

[commits+siepo at tug.org]

Revision: 58767
          http://tug.org/svn/texlive?view=revision&revision=58767
Author:   siepo
Date:     2021-04-06 12:35:55 +0200 (Tue, 06 Apr 2021)
Log Message:
-----------
Fixed stats reporting TeXworks checkbox (-command instead of bind)

Modified Paths:
--------------
    trunk/Master/tlpkg/installer/install-tl-gui.tcl

Modified: trunk/Master/tlpkg/installer/install-tl-gui.tcl
===================================================================
--- trunk/Master/tlpkg/installer/install-tl-gui.tcl	2021-04-05 23:48:51 UTC (rev 58766)
+++ trunk/Master/tlpkg/installer/install-tl-gui.tcl	2021-04-06 10:35:55 UTC (rev 58767)
@@ -1644,6 +1644,7 @@
       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 @@
     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