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

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

Revision: 960
          http://sourceforge.net/p/fvwm-crystal/code/960
Author:   dominique_libre
Date:     2020-02-04 15:58:23 +0000 (Tue, 04 Feb 2020)
Log Message:
-----------
ScreenLidSuspend: check if running at launch and load its preference at startup

Modified Paths:
--------------
    ChangeLog
    fvwm/components/desktop/FVWM-Crystal_Preferences
    fvwm/components/functions/Exit

Modified: ChangeLog
===================================================================
--- ChangeLog	2020-01-08 22:13:00 UTC (rev 959)
+++ ChangeLog	2020-02-04 15:58:23 UTC (rev 960)
@@ -1,5 +1,9 @@
 ChangeLog for FVWM-Crystal
 
+mardi 4 février 2020
+  fvwm/components/desktop/FVWM-Crystal_Preferences: Add ScreenLidSuspend laoding at startup
+  fvwm/components/functions/Exit: ScreenLidSuspend: check if allready running before to launch it
+
 Mercredi 8 janvier 2020
   fvwm/components/Fullscreen: workaround buggy browser windows which think they know
   better that the window manager.

Modified: fvwm/components/desktop/FVWM-Crystal_Preferences
===================================================================
--- fvwm/components/desktop/FVWM-Crystal_Preferences	2020-01-08 22:13:00 UTC (rev 959)
+++ fvwm/components/desktop/FVWM-Crystal_Preferences	2020-02-04 15:58:23 UTC (rev 960)
@@ -6,5 +6,6 @@
 InfoStoreAdd Desk_Pages_Y "1"
 DesktopSize $[infostore.Desk_Pages_X]x$[infostore.Desk_Pages_Y]
 LoadPreferences AutoHibernation
+LoadPreferences ScreenLidSuspend
 
 # vim:ft=fvwm

Modified: fvwm/components/functions/Exit
===================================================================
--- fvwm/components/functions/Exit	2020-01-08 22:13:00 UTC (rev 959)
+++ fvwm/components/functions/Exit	2020-02-04 15:58:23 UTC (rev 960)
@@ -56,7 +56,7 @@
 DestroyFunc ScreenLidSuspend
 AddToFunc ScreenLidSuspend
 + I Exec exec $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend
-+ I SavePreferences ScreenLidSuspend "Exec exec $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend"
++ I SavePreferences ScreenLidSuspend "Exec exec pgrep -f ScreenLidSuspen 1>/dev/null || $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend"
 
 DestroyFunc NoScreenLidSuspend
 AddToFunc NoScreenLidSuspend

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