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 <[EMAIL PROTECTED]>
+
+ * 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 <[EMAIL PROTECTED]>
* 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;
}
_______________________________________________
Groff-commit mailing list
Groff-commit@gnu.org
http://lists.gnu.org/mailman/listinfo/groff-commit
