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

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

Revision: 409
          http://sourceforge.net/p/fvwm-crystal/code/409
Author:   dominique_libre
Date:     2013-05-16 12:39:35 +0000 (Thu, 16 May 2013)
Log Message:
-----------
functions/FvwmExpose: fixed the synchronization

Modified Paths:
--------------
    ChangeLog
    fvwm/components/functions/FvwmExpose

Modified: ChangeLog
===================================================================
--- ChangeLog	2013-05-16 09:45:25 UTC (rev 408)
+++ ChangeLog	2013-05-16 12:39:35 UTC (rev 409)
@@ -4,6 +4,7 @@
 + preferences/DesktopMenu; functions/LoadCommonStuffs;
   functions/Preferences-Menu; recipes/*: make the desktop menu with
   Mouse 1 optional; incorporate the Music menu in all the recipes.
+  functions/FvwmExpose: fixed the synchronization
 
 Mercredi 15 Mai 2013 Dominique Michel
   functions/LoadCommonStuffs; recipes/*: Moved back DefaultDesktopManager

Modified: fvwm/components/functions/FvwmExpose
===================================================================
--- fvwm/components/functions/FvwmExpose	2013-05-16 09:45:25 UTC (rev 408)
+++ fvwm/components/functions/FvwmExpose	2013-05-16 12:39:35 UTC (rev 409)
@@ -13,14 +13,22 @@
 
 # Create 1 picture and 1 FvwmExpose button at a time
 # To use w.name instead of w.class need something like \\\\\"$[w.name]\\\\\"
-# and to filter out or quote the () (they confuse Fvwm-Buttons)
+# and to filter out the possible () (they confuse Fvwm-Buttons even with quoting)
+# The sleep value determine the delay between raise and the screenshot. I get it to work
+# with a value as low than 0.005 seconde. It is set to 0.05 which is 10 time bigger.
+# This delay is not influenced by the system load, but the overall function will.
+# Howeber, it work for me at 0.005 even with a 100% load of all the processor cores.
+# If you get black screenshots, you can increase this value.
+# The Raise before the PipeRead make the delay shorter than a Raise inside it.
 DestroyFunc FvwmExpose-Thumbnail
 AddToFunc FvwmExpose-Thumbnail
++ I Raise
 + I PipeRead \
-    "echo Raise; xwd -id $[w.id] > /tmp/icon.exp.$[w.id].xwd ; convert -scale 300 -quality 0 xwd:/tmp/icon.exp.$[w.id].xwd png:/tmp/icon.exp.$[w.id].png ; \
+    "sleep 0.05; xwd -id $[w.id] > /tmp/icon.exp.$[w.id].xwd ; convert -scale 300 -quality 0 xwd:/tmp/icon.exp.$[w.id].xwd png:/tmp/icon.exp.$[w.id].png ; \
      echo '*FvwmExpose: (1x1, Title (Center) $[w.class], Icon /tmp/icon.exp.$[w.id].png, Action FvwmExpose-Action $[w.id] )'"
 # Not flaky, but no transparency:
 #     echo '*FvwmExpose: (1x1, Swallow (UseOld,NoKill) IM:$[w.id] `Exec animate -title IM:$[w.id] /tmp/icon.exp.$[w.id].png &`, Action FvwmExpose-Action $[w.id] )'"
+#     echo '*FvwmExpose: (1x1, Swallow (UseOld,NoKill) IM:$[w.id] `Exec feh -x -N  --title IM:$[w.id] --no-screen-clip /tmp/icon.exp.$[w.id].png &`, Action FvwmExpose-Action $[w.id] )'"
 
 # Bind this
 DestroyFunc FvwmExpose
@@ -33,7 +41,7 @@
 + I *FvwmExpose: Padding 4 4
 + I *FvwmExpose: Frame 0
 + I *FvwmExpose: Font "xft:$[panel_font]:pixelsize=$[panel_font_size]:$[panel_font_style]"
-+ I All (!Iconic, !FvwmMiniConsoleNeedsUniqueName, !Shaded, CurrentPage, AcceptsFocus) FvwmExpose-Thumbnail
++ I All (!FvwmButtons*, !Iconic, !FvwmMiniConsoleNeedsUniqueName, !Shaded, CurrentPage, AcceptsFocus) FvwmExpose-Thumbnail
 + I Module FvwmButtons FvwmExpose
 + I None (FvwmExpose) Wait
 + I All (FvwmExpose) Layer 0 6

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