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

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

Revision: 411
          http://sourceforge.net/p/fvwm-crystal/code/411
Author:   dominique_libre
Date:     2013-05-16 13:59:27 +0000 (Thu, 16 May 2013)
Log Message:
-----------
functions/FvwmExpose: move WindowId to the calling function

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

Modified: ChangeLog
===================================================================
--- ChangeLog	2013-05-16 12:57:02 UTC (rev 410)
+++ ChangeLog	2013-05-16 13:59:27 UTC (rev 411)
@@ -7,6 +7,7 @@
   functions/FvwmExpose: fixed the synchronization.
   desktop/Keyboard; desktop/Keyboard-NumLock; functions/LoasCommonStuffs:
   make FvwmExpose available through Alt+e.
+  functions/FvwmExpose: move WindoId to the calling function
 
 Mercredi 15 Mai 2013 Dominique Michel
   functions/LoadCommonStuffs; recipes/*: Moved back DefaultDesktopManager

Modified: fvwm/components/functions/FvwmExpose
===================================================================
--- fvwm/components/functions/FvwmExpose	2013-05-16 12:57:02 UTC (rev 410)
+++ fvwm/components/functions/FvwmExpose	2013-05-16 13:59:27 UTC (rev 411)
@@ -1,15 +1,20 @@
 # Expose clone for FVWM-Crystal
+#
+# Version 2.0.1
+#
 # Original idea from Taviso http://zensites.net/fvwm/guide/advanced_functions.html
-# Modified by Harnir and by me. Dominique Michel <dom...@so...>
+# Modified by Harnir
+# Changed by Dominique Michel <dom...@us...> 2013
+# 
 # See ChangeLog
+# TODO: Make FlipFocus to work
 
-# The synchronyzation is not good.
-
 # Raise the wanted window and kill FvwmExpose
 DestroyFunc FvwmExpose-Action
 AddToFunc FvwmExpose-Action
-+ I WindowId $* Raise
 + I KillModule FvwmButtons FvwmExpose
++ I Raise
++ I FlipFocus
 
 # Create 1 picture and 1 FvwmExpose button at a time
 # To use w.name instead of w.class need something like \\\\\"$[w.name]\\\\\"
@@ -25,7 +30,7 @@
 + I Raise
 + I PipeRead \
     "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] )'"
+     echo '*FvwmExpose: (1x1, Title (Center) $[w.class], Icon /tmp/icon.exp.$[w.id].png, Action WindowId $[w.id] FvwmExpose-Action)'"
 # 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] )'"

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