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

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

Revision: 369
          http://sourceforge.net/p/fvwm-crystal/code/369
Author:   dominique_libre
Date:     2013-05-06 19:11:23 +0000 (Mon, 06 May 2013)
Log Message:
-----------
components/Fullscreen: remove temporary files when a full screened window is closed

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

Modified: ChangeLog
===================================================================
--- ChangeLog	2013-05-06 16:30:43 UTC (rev 368)
+++ ChangeLog	2013-05-06 19:11:23 UTC (rev 369)
@@ -3,6 +3,8 @@
 Lundi 6 Mai 2013 Dominique Michel
   functions/About: version change to 3.1.13-svn
   a few better quality icons
+  components/Fullscreen: remove temporary files when a full screened window
+  is closed.
 
 Dimanche 5 Mai 2013 Dominique Michel
 + locale/fr_FR.UTF-8/*/fvwm-crystal-script.mo

Modified: fvwm/components/functions/Fullscreen
===================================================================
--- fvwm/components/functions/Fullscreen	2013-05-06 16:30:43 UTC (rev 368)
+++ fvwm/components/functions/Fullscreen	2013-05-06 19:11:23 UTC (rev 369)
@@ -140,4 +140,14 @@
 AddToFunc ExitFunction I Test (!ToRestart) Exec rm -f $[infostore.TmpDirectory]/fullscreen.19.*
 AddToFunc ExitFunction I Test (!ToRestart) Exec rm -f $[infostore.TmpDirectory]/fullscreen.20.*
 
+# Be sure the temporary files are destroyed when a window is closed
+DestroyFunc Window-Fullscreen-Destroy
+AddToFunc Window-Fullscreen-Destroy
++ i PipeRead 'for file in /tmp/fullscreen.??.$[w.id].?.?.tmp; do rm $file; done'
+
+DestroyModuleConfig FvwmEvent-Window-Fullscreen-Destroy: *
+*FvwmEvent-Window-FullScreen-Destroy: destroy_window Window-Fullscreen-Destroy
+Module FvwmEvent FvwmEvent-Window-Fullscreen-Destroy
+
+
 # vim:ft=fvwm

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