summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2021-04-06 10:35:55 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2021-04-06 10:35:55 +0000
commita61a219163f905601bee2acf80da842425f52df4 (patch)
treedb5265f70394114be0f5b45cb38100296d4a0208
parent6106da54497253e97b2e74a11511f528de27e3da (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-xMaster/tlpkg/installer/install-tl-gui.tcl10
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