[Groff-commit] groff ChangeLog src/devices/xditview/GXditview....

[Werner LEMBERG]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Werner LEMBERG <wl>     07/06/05 19:40:31

Modified files:
        .              : ChangeLog 
        src/devices/xditview: GXditview.ad xditview.c 

Log message:
        * src/devices/xditview/xditview.c (main): Add support for
        accelerators.
        
        * src/devices/xditview/GXditview.ad: Updated.
        Make widget more colourful.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/ChangeLog?cvsroot=groff&r1=1.1086&r2=1.1087
http://cvs.savannah.gnu.org/viewcvs/groff/src/devices/xditview/GXditview.ad?cvsroot=groff&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/groff/src/devices/xditview/xditview.c?cvsroot=groff&r1=1.1.1.1&r2=1.2

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/ChangeLog,v
retrieving revision 1.1086
retrieving revision 1.1087
diff -u -b -r1.1086 -r1.1087
--- ChangeLog   30 May 2007 13:58:29 -0000      1.1086
+++ ChangeLog   5 Jun 2007 19:40:30 -0000       1.1087
@@ -1,3 +1,11 @@
+2007-06-05  Tadziu Hoffmann  <address@hidden>
+
+       * src/devices/xditview/xditview.c (main): Add support for
+       accelerators.
+
+       * src/devices/xditview/GXditview.ad: Updated.
+       Make widget more colourful.
+
 2007-05-30  Werner LEMBERG <address@hidden>
 
        * tmac/groff_mdoc.man: Convert `-' to `\-' where appropriate.

Index: src/devices/xditview/GXditview.ad
===================================================================
RCS file: /cvsroot/groff/groff/src/devices/xditview/GXditview.ad,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- src/devices/xditview/GXditview.ad   25 Feb 2007 21:06:22 -0000      1.2
+++ src/devices/xditview/GXditview.ad   5 Jun 2007 19:40:30 -0000       1.3
@@ -1,13 +1,33 @@
-GXditview.height: 840
+
+GXditview*shapeStyle: rectangle
 
 GXditview.paned.allowResize:           true
-GXditview.paned.viewport.allowVert:    true
-GXditview.paned.viewport.allowHoriz:   true
+GXditview.paned.label.skipAdjust:    true
 GXditview.paned.viewport.skipAdjust:   false
-GXditview.paned.viewport.width:                600
-GXditview.paned.viewport.height:       800
 GXditview.paned.viewport.showGrip:     false
-GXditview.paned.label.skipAdjust:      true
+GXditview.paned.viewport.allowVert:  true
+GXditview.paned.viewport.allowHoriz: true
+GXditview.paned.viewport.forceBars:  true
+! viewport size = papersize * resol + scrollbarthickness + 1
+! letter size paper
+!GXditview.paned.viewport.width:     652
+!GXditview.paned.viewport.height:    840
+! a4 size paper
+GXditview.paned.viewport.width:      635
+GXditview.paned.viewport.height:     892
+GXditview.paned.viewport.Scrollbar.thickness: 14
+
+GXditview.paned.viewport.Scrollbar.background: Thistle
+GXditview.paned.viewport.Scrollbar.foreground: Orchid
+GXditview.paned.viewport.Scrollbar.thumb: None
+GXditview.paned.viewport.dvi.background: LemonChiffon
+GXditview.paned.viewport.background: Thistle
+GXditview.paned.label.background: PeachPuff
+GXditview.menu.background: Gold
+GXditview.promptShell.promptDialog*background: Gold
+GXditview.promptShell.promptDialog.accept.background: DarkOliveGreen1
+GXditview.promptShell.promptDialog.cancel.background: RosyBrown1
+GXditview.promptShell.promptDialog.value.background: Khaki
 
 GXditview.paned.translations: #augment \
        <Key>Next:      NextPage()\n\
@@ -16,26 +36,39 @@
        <Key>Return:    NextPage()\n\
        <Key>Prior:     PreviousPage()\n\
        <Key>p:         PreviousPage()\n\
+  <Key>b:         PreviousPage()\n\
        <Key>BackSpace: PreviousPage()\n\
        <Key>Delete:    PreviousPage()\n\
-       <Key>Select:    SelectPage()\n\
-       <Key>Find:      OpenFile()\n\
+  <Key>g:         SelectPage()\n\
+  <Key>o:         OpenFile()\n\
        <Key>r:         Rerasterize()\n\
        <Key>q:         Quit()
-GXditview.paned.viewport.dvi.translations: #augment \
+GXditview.paned.viewport.clip.translations: #augment \
        <Btn1Down>:     XawPositionSimpleMenu(menu) MenuPopup(menu)
 GXditview.paned.label.translations: #augment \
        <Btn1Down>:     XawPositionSimpleMenu(menu) MenuPopup(menu)
+GXditview.paned.viewport.vertical.accelerators: #override \
+  <Key>k:     StartScroll(Backward) NotifyScroll(FullLength) EndScroll()\n\
+  <Key>j:     StartScroll(Forward)  NotifyScroll(FullLength) EndScroll()\n\
+  <Key>Up:    StartScroll(Backward) NotifyScroll(FullLength) EndScroll()\n\
+  <Key>Down:  StartScroll(Forward)  NotifyScroll(FullLength) EndScroll()
+GXditview.paned.viewport.horizontal.accelerators: #override \
+  <Key>h:     StartScroll(Backward) NotifyScroll(FullLength) EndScroll()\n\
+  <Key>l:     StartScroll(Forward)  NotifyScroll(FullLength) EndScroll()\n\
+  <Key>Left:  StartScroll(Backward) NotifyScroll(FullLength) EndScroll()\n\
+  <Key>Right: StartScroll(Forward)  NotifyScroll(FullLength) EndScroll()
+
 GXditview.menu.nextPage.label:         Next Page
 GXditview.menu.previousPage.label:     Previous Page
-GXditview.menu.selectPage.label:       Select Page
+GXditview.menu.selectPage.label:   Goto Page
 GXditview.menu.print.label:            Print
 GXditview.menu.openFile.label:         Open
 GXditview.menu.quit.label:             Quit
 
 GXditview.promptShell.allowShellResize:        true
 GXditview.promptShell.promptDialog.value.translations: #override \
-       <Key>Return:    Accept()
+  <Key>Return: Accept() \n\
+  <Key>Escape: Cancel()
 
 GXditview.promptShell.promptDialog.accept.label: Accept
 GXditview.promptShell.promptDialog.accept.translations: #override \
@@ -44,3 +77,4 @@
 GXditview.promptShell.promptDialog.cancel.label: Cancel
 GXditview.promptShell.promptDialog.cancel.translations: #override \
        <BtnUp>:        Cancel() unset()
+

Index: src/devices/xditview/xditview.c
===================================================================
RCS file: /cvsroot/groff/groff/src/devices/xditview/xditview.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -b -r1.1.1.1 -r1.2
--- src/devices/xditview/xditview.c     1 Jun 2004 10:39:55 -0000       1.1.1.1
+++ src/devices/xditview/xditview.c     5 Jun 2007 19:40:30 -0000       1.2
@@ -262,6 +262,7 @@
     XtRealizeWidget (toplevel);
     if (file_name)
        SetPageNumber (page_number);
+    XtInstallAllAccelerators(paned,paned);
     XtAppMainLoop(xtcontext);
     return 0;
 }