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

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

Revision: 650
          http://sourceforge.net/p/fvwm-crystal/code/650
Author:   dominique_libre
Date:     2014-10-28 16:47:25 +0000 (Tue, 28 Oct 2014)
Log Message:
-----------
functions/Preferences: new CopyPreferences function; can be used to copy a preference file from CONFIGDIR or SYSTEEMDIR to USERDIR. functions/Preferences-Menu: new submenu to define the thumbnail size into the wallpaper menu.

Modified Paths:
--------------
    ChangeLog
    fvwm/components/functions/Preferences
    fvwm/components/functions/Preferences-Menu

Modified: ChangeLog
===================================================================
--- ChangeLog	2014-10-17 20:32:42 UTC (rev 649)
+++ ChangeLog	2014-10-28 16:47:25 UTC (rev 650)
@@ -1,5 +1,11 @@
 ChangeLog for FVWM-Crystal
 
+mardi 28 octobre 2014
+  functions/Preferences: new CopyPreferences function; can be used to copy
+  a preference file from CONFIGDIR or SYSTEEMDIR to USERDIR
+  functions/Preferences-Menu: new submenu to define the thumbnail size into
+  the wallpaper menu.
+
 vendredi 17 octobre 2014
   script PrefVars: Add the full screen by default preference into the editor.
   preferences/FullScreenApps: Arrange the text to fit.

Modified: fvwm/components/functions/Preferences
===================================================================
--- fvwm/components/functions/Preferences	2014-10-17 20:32:42 UTC (rev 649)
+++ fvwm/components/functions/Preferences	2014-10-28 16:47:25 UTC (rev 650)
@@ -74,4 +74,14 @@
 + I Test (f $[FVWM_SYSTEMDIR]/preferences/$0) Break
 + I $1
 
+# This function looks for specified preference file in the user-wide directory.
+# If it's found, nothing is done, if it's not found, the first file found
+# in the config-wide or system-wide directories is copied to the user-wide
+# directory.
+DestroyFunc CopyPreferences
+AddToFunc CopyPreferences
++ I Test (f $[FVWM_USERDIR]/preferences/$0) Break
++ I Test (f $[FVWM_CONFIGDIR]/preferences/$0) Exec exec cp $[FVWM_CONFIGDIR]/preferences/$0 $[FVWM_USERDIR]/preferences/
++ I TestRC (NoMatch) Test (f $[FVWM_SYSTEMDIR]/preferences/$0) Exec exec cp $[FVWM_SYSTEMDIR]/preferences/$0 $[FVWM_USERDIR]/preferences/
+
 # vim:ft=fvwm

Modified: fvwm/components/functions/Preferences-Menu
===================================================================
--- fvwm/components/functions/Preferences-Menu	2014-10-17 20:32:42 UTC (rev 649)
+++ fvwm/components/functions/Preferences-Menu	2014-10-28 16:47:25 UTC (rev 650)
@@ -706,4 +706,21 @@
 + I SavePreferences SilentOps "InfoStoreAdd SILENT \' \'"
 + I Include components/functions/Exec-Accelerator
 
+#
+# Wallpaper thumbnails size
+#
+# See Wallpaper
+#DestroyMenu /WPThumbSize
+#AddToMenu /WPThumbSize
+#+ "42" WPThumbSize 42
+#+ "96" WPThumbSize 96
+#+ "120" WPThumbSize 120
+#+ "180" WPThumbSize 180
+
+DestroyFunc WPThumbSize
+AddToFunc WPThumbSize
++ I InfoStoreAdd WallpaperThumbSize $0
++ I SavePreferences WallpaperThumbSize "InfoStoreAdd WallpaperThumbSize $0"
++ I Include components/functions/Wallpaper
+
 # vim:ft=fvwm

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