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

[commits+siepo at tug.org]

Revision: 70419
          https://tug.org/svn/texlive?view=revision&revision=70419
Author:   siepo
Date:     2024-03-05 21:15:14 +0100 (Tue, 05 Mar 2024)
Log Message:
-----------
Tlshell: added bug reporting to package popup

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	2024-03-05 20:06:51 UTC (rev 70418)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2024-03-05 20:15:14 UTC (rev 70419)
@@ -1,6 +1,6 @@
 #!/usr/bin/env wish
 
-# Copyright 2017-2023 Siep Kroonenberg
+# Copyright 2017-2024 Siep Kroonenberg
 
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
@@ -2215,6 +2215,9 @@
       remove_pkgs "focus"
     }
   }
+  .pkg_popup add command -label [__ "Reporting bugs"] -command {
+    run_cmd "bug [.pkglist focus]" 1; vwait ::done_waiting
+  }
   .pkg_popup post [expr {$X - 2}] [expr {$Y - 2}]
   focus .pkg_popup
 } ; # do_package_popup_menu