[groff] 21/21: [gxditview]: Add accelerators for "Print" action.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 99a550d1e770d66894922d0e2ca7e6695435c624
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Jul 28 06:30:22 2023 -0500

    [gxditview]: Add accelerators for "Print" action.
    
    An apparent bug in a support library affects some users; it disables
    gxditview's pop-up menu.  (The menu pops up, but no item can be
    selected.)  Also, "Print" was the only action for which no keyboard
    accelerator was defined.  "p" (unmodified) is already bound to
    `PreviousPage()`; bind "p" with any of the modifiers Shift, Ctrl, Alt,
    or Meta to `Print()`.
    
    * src/devices/xditview/GXditview.ad: Do it.
    * src/devices/xditview/gxditview.1.man: Document it.
---
 ChangeLog                            | 14 ++++++++++++++
 src/devices/xditview/GXditview.ad    |  4 ++++
 src/devices/xditview/gxditview.1.man | 12 ++++++++++++
 3 files changed, 30 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index da43ea620..9e697e83f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2023-07-28  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [gxditview]: Add accelerators for "Print" action.
+
+       An apparent bug in a support library affects some users; it
+       disables gxditview's pop-up menu.  (The menu pops up, but no
+       item can be selected.)  Also, "Print" was the only action for
+       which no keyboard accelerator was defined.  "p" (unmodified) is
+       already bound to `PreviousPage()`; bind "p" with any of the
+       modifiers Shift, Ctrl, Alt, or Meta to `Print()`.
+
+       * src/devices/xditview/GXditview.ad: Do it.
+       * src/devices/xditview/gxditview.1.man: Document it.
+
 2023-07-28  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/es.tmac: Scream the entire word "BIBLIOGRAPHÍA", instead
diff --git a/src/devices/xditview/GXditview.ad 
b/src/devices/xditview/GXditview.ad
index 549f0d71c..92fbe2deb 100644
--- a/src/devices/xditview/GXditview.ad
+++ b/src/devices/xditview/GXditview.ad
@@ -26,6 +26,10 @@ GXditview.paned.translations: #augment \
   <Key>space:     NextPage()\n\
   <Key>Return:    NextPage()\n\
   <Key>Prior:     PreviousPage()\n\
+  Shift<Key>p:    Print()\n\
+  Ctrl<Key>p:     Print()\n\
+  Alt<Key>p:      Print()\n\
+  Meta<Key>p:     Print()\n\
   <Key>p:         PreviousPage()\n\
   <Key>b:         PreviousPage()\n\
   <Key>BackSpace: PreviousPage()\n\
diff --git a/src/devices/xditview/gxditview.1.man 
b/src/devices/xditview/gxditview.1.man
index 67afde93a..a0d825e42 100644
--- a/src/devices/xditview/gxditview.1.man
+++ b/src/devices/xditview/gxditview.1.man
@@ -274,6 +274,18 @@ keys are bound to the
 action.
 .
 The
+.I p
+key with any modifier
+(Shift,
+Control,
+Alt,
+or
+Meta)
+is bound to the
+.B Print
+action.
+.
+The
 .I g
 key is bound to the
 .B SelectPage