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

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

Revision: 283
          http://sourceforge.net/p/fvwm-crystal/code/283
Author:   dominique_libre
Date:     2013-04-23 19:33:39 +0000 (Tue, 23 Apr 2013)
Log Message:
-----------
functions/Icon-Launcher: cleanup; fix for wrong mount point

Modified Paths:
--------------
    ChangeLog
    fvwm/components/functions/Icon-Launcher

Modified: ChangeLog
===================================================================
--- ChangeLog	2013-04-23 17:26:01 UTC (rev 282)
+++ ChangeLog	2013-04-23 19:33:39 UTC (rev 283)
@@ -7,6 +7,7 @@
   disappear with EWMH-Toggle. Work best with StaloneTray.
   recipes/Amiga: removed non needed tests
   functions/Fullscreen: cleanup
+  functions/Icon-Launcher: cleanup; fix for wrong mount point.
 
 Lundi 22 Avril Dominique Michel
   recipes/*: move some SetEnv to Infostore; include Fullscreen functions

Modified: fvwm/components/functions/Icon-Launcher
===================================================================
--- fvwm/components/functions/Icon-Launcher	2013-04-23 17:26:01 UTC (rev 282)
+++ fvwm/components/functions/Icon-Launcher	2013-04-23 19:33:39 UTC (rev 283)
@@ -1,5 +1,5 @@
 # Desktop icons for the mounted partition(s) and for $HOME.
-# Written by Dominique Michel <dom...@so...>, 2010
+# Written by Dominique Michel <dom...@us...>, 2010
 # for Fvwm-Crystal.
 #
 # From Fvwm FAQ, 7.13 with huge modifications and added functions.
@@ -11,7 +11,7 @@
 #
 # Requirement: /etc/mtab, sed, Thunar, and Fvwm.
 # In order to use it, add "Test (x thunar) Include components/functions/Icon-Launcher"
-# into some recipe after the "Include Icon-Amiga" command. Not tested with Icon-Thumbnails.
+# into some recipe after "Include Icon-Amiga" or "Include Icon-Thumbnails".
 #
 # Todo:	- preference setting for the action
 
@@ -34,12 +34,12 @@
 + I DestroyModuleConfig $0: *
 + I *$0: Font "xft:$[panel_font]"
 + I *$0: (1x1+0+0)
++ I All ($0) Layer 0 2
++ I Module FvwmButtons $0
++ I Module FvwmAuto 10 -menter "Change-Icon $0 $1" "Restore-Icon $0 $1"
 + I Style $0 UseStyle *
 + I Style $0 Icon $1, StartIconic, !Handles, VariablePosition, BorderWidth 0, \
       !Borders, ParentalRelativity
-+ I All ($0) Layer 0 2
-+ I Module FvwmButtons $0
-+ I Module FvwmAuto 10 -menter "Change-Icon $0 $1" "Restore-Icon $0 $1"
 
 DestroyFunc Change-Icon
 AddToFunc Change-Icon
@@ -59,7 +59,7 @@
 # which drives are mounted into the system
 DestroyFunc Make-Icons
 AddToFunc Make-Icons
-#+ I PipeRead "cat /etc/mtab|grep ^/dev|sed -e 's,/dev/.... \\(/[^ ]*\\).*,\\1,'|sort > /tmp/Icon-Drives"
+#+ I PipeRead "cat /etc/mtab|grep ^/dev | cut -d " " -f 2 | sort > /tmp/Icon-Drives"
 # Root
 + I PipeRead 'Root="/"; echo "Launcher Root 48x48/categories/Boing_4.png"; \
 	echo "All (Root) Layer 0 0"; \

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