[Fvwm-crystal-commits] SF.net SVN: fvwm-crystal:[61] fvwm/components/functions

[<dom...@us...>]

Revision: 61
          http://fvwm-crystal.svn.sourceforge.net/fvwm-crystal/?rev=61&view=rev
Author:   dominique_libre
Date:     2011-01-29 20:09:44 +0000 (Sat, 29 Jan 2011)

Log Message:
-----------
Developper menu: replaced man system doc browser by support for info browser via emacs, pinfo or tkinfo

Modified Paths:
--------------
    ChangeLog
    fvwm/components/functions/Developer-Menu

Modified: ChangeLog
===================================================================
--- ChangeLog	2011-01-29 20:03:35 UTC (rev 60)
+++ ChangeLog	2011-01-29 20:09:44 UTC (rev 61)
@@ -5,6 +5,8 @@
   * Updated DesktopDir in fvwm-crystal.generate-menu
   * Added mplayer wrapper
   * Updated About dialog
+  * Developper menu: replaced man system doc browser by support for info browser
+    via emacs, pinfo or tkinfo
   
 Samedi 1 janvier 2011 Dominique Michel
   * Wimdow-Raise-Move-Lover witll focus on a non overlapped window

Modified: fvwm/components/functions/Developer-Menu
===================================================================
--- fvwm/components/functions/Developer-Menu	2011-01-29 20:03:35 UTC (rev 60)
+++ fvwm/components/functions/Developer-Menu	2011-01-29 20:09:44 UTC (rev 61)
@@ -1,8 +1,5 @@
 # FVWM-Crystal Developer menu
 
-# Where is your system documentation:
-SetEnv System_Documentation /usr/share/doc
-
 DestroyMenu /Developer
 AddToMenu /Developer '$[gt.Developer menu]' Title
 + '$[gt.Reload current recipe]' Include preferences/LastChoosenRecipe
@@ -22,9 +19,11 @@
 + '$[gt.FVWM-Crystal documentation]' Popup /Developer/FVWM-Crystal-Documentation
 + '$[gt.FVWM manpages]' Popup /Developer/FvwmManpages
 + '$[gt.X.org documentation]' Popup /Developer/X.Org-Documentation
-+ MissingSubmenuFunction System_Documentation-generator
-+ '$[gt.Main system documentation]' Popup $[System_Documentation]
 + "" Nop
+Test (x emacs)	+ '$[gt.Browse Info pages with EMacs]' X emacs -f info
+Test (x pinfo)	+ '$[gt.Browse Info pages with pinfo]' A pinfo
+Test (x tkinfo)	+ '$[gt.Browse Info pages with tkinfo]' X tkinfo
++ "" Nop
 + '$[gt.WindowStyle]'	Popup /Developer/WindowStyle
 
 DestroyMenu /Developer/FVWM-Crystal-Documentation
@@ -154,19 +153,6 @@
 + "%22x22/categories/help.png%exa" FvwmViewManPage exa
 + "%22x22/categories/help.png%fbdevhw" FvwmViewManPage fbdevhw
 
-DestroyFunc System_Documentation-generator
-AddToFunc System_Documentation-generator
-+ I Test (EnvIsSet PAGER) PipeRead 'case "$0" in \
-        "$[System_Documentation]"*) myexec="$[PAGER]" direxec="mc";; \
-    esac; \
-    fvwm-menu-directory --func-name System_Documentation-generator --dir "$0" --exec-t="${direxec}" \
-    --exec-file "${myexec}"' 
-+ I Test (!EnvIsSet PAGER) PipeRead 'case "$0" in \
-        "$[System_Documentation]"*) myexec="less" direxec="mc";; \
-    esac; \
-    fvwm-menu-directory --func-name System_Documentation-generator --dir "$0" --exec-t="${direxec}" \
-    --exec-file "${myexec}"'
-
 DestroyMenu /Developer/WindowStyle
 AddToMenu /Developer/WindowStyle "WindowStyle" Title
 + "DestroyWindowStyle"		Pick DestroyWindowStyle


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.