texlive[45153] Master/texmf-dist/scripts/tlshell/tlshell.tcl: Fixed

[commits+siepo at tug.org]

Revision: 45153
          http://tug.org/svn/texlive?view=revision&revision=45153
Author:   siepo
Date:     2017-08-28 17:37:11 +0200 (Mon, 28 Aug 2017)
Log Message:
-----------
Fixed column indicators for package list

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2017-08-28 14:03:06 UTC (rev 45152)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2017-08-28 15:37:11 UTC (rev 45153)
@@ -33,7 +33,7 @@
 set prmpt "tlmgr>"
 set busy 0
 
-set ddebug 1
+set ddebug 0
 if $::ddebug {
   frame .dbg
   pack [ttk::scrollbar .dbg.scroll -command ".dbg.tx yview"] \
@@ -469,8 +469,8 @@
   grid .pkhsb -in .fpkg -row 1 -column 0 -sticky ew
   grid columnconfigure .fpkg 0 -weight 1
   pack .fpkg -side top -expand 1
-  bind .pkglist <space> {toggle_marked [.pkglist focus] mk}
-  bind .pkglist <Return> {toggle_marked [.pkglist focus] mk}
+  bind .pkglist <space> {toggle_marked [.pkglist focus] "#1"}
+  bind .pkglist <Return> {toggle_marked [.pkglist focus] "#1"}
   bind .pkglist <ButtonRelease-1> {toggle_marked \
       [.pkglist identify item %x %y] [.pkglist identify column %x %y]}
   bind .pkglist <ButtonRelease-2> \