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

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

Revision: 920
          http://sourceforge.net/p/fvwm-crystal/code/920
Author:   dominique_libre
Date:     2019-08-16 17:29:51 +0000 (Fri, 16 Aug 2019)
Log Message:
-----------
add pref to put on top the CustomButtonBar

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

Modified: ChangeLog
===================================================================
--- ChangeLog	2019-08-16 16:22:17 UTC (rev 919)
+++ ChangeLog	2019-08-16 17:29:51 UTC (rev 920)
@@ -3,6 +3,7 @@
 vendredi 16 août 2019
   desktop/FVWM-Crystal_Styles: introduce a schedule for applications Styles
   to work after a Restart.
+  functions/CustomButtonBar-Menu: add preference for toggle on top on same border.
 
 jeudi 15 août 2019
   bin/fvwm-crystal.apps, bin/fvwm-crystal.wallpaper,

Modified: fvwm/components/functions/CustomButtonBar-Menu
===================================================================
--- fvwm/components/functions/CustomButtonBar-Menu	2019-08-16 16:22:17 UTC (rev 919)
+++ fvwm/components/functions/CustomButtonBar-Menu	2019-08-16 17:29:51 UTC (rev 920)
@@ -28,6 +28,7 @@
 
 LoadPreferences CustomButtonBarLocation
 LoadPreferences CustomButtonSize
+LoadPreferences CustomButtonBarToggle
 LoadPreferences CustomButtonClock
 LoadPreferences CustomButtonCpuTemp
 LoadPreferences CustomButtonAcpiBatt
@@ -153,6 +154,21 @@
 + '$[gt.Medium]' ButtonMediumSize
 + '$[gt.Big]' ButtonBigSize
 
+DestroyFunc ToggleButtonBarOn
+AddToFunc  ToggleButtonBarOn
++ I EdgeLeaveCommand $[infostore.CustomBarLocation] Panel-Toggle-OnTop
++ I SavePreferences CustomButtonBarToggle "EdgeLeaveCommand \$[infostore.CustomBarLocation] Panel-Toggle-OnTop"
+
+DestroyFunc ToggleButtonBarOff
+AddToFunc  ToggleButtonBarOff
++ I EdgeLeaveCommand
++ I SavePreferences CustomButtonBarToggle "Nop"
+
+DestroyMenu /ToggleButtonBar
+AddToMenu /ToggleButtonBar
++ '$[gt.On]' ToggleButtonBarOn
++ '$[gt.Off]' ToggleButtonBarOff
+
 DestroyFunc GenerateCustomButtonMenu
 AddToFunc GenerateCustomButtonMenu
 + I PipeRead "$[FVWM_SYSTEMDIR]/scripts/CustomButtonBar/CustomButtonBarMenu
@@ -241,6 +257,7 @@
 AddToMenu /FVWM-CustomButtonMenu
 + '%32x32/categories/Settings.png%$[gt.Custom bar location]' Popup /FVWM-CustomBarLocation
 + '%32x32/categories/Settings.png%$[gt.Button size]' Popup /CustomButtonSize
++ '%32x32/categories/Settings.png%$[gt.Toggle bar with mouse on same border]' Popup /ToggleButtonBar
 + '%32x32/categories/Settings.png%$[gt.Preferences editor]' EditCustomPref
 + '%32x32/categories/Settings.png%$[gt.Generate this Menu]' GenerateCustomButtonMenu
 + '%32x32/categories/Settings.png%$[gt.Generate the custom buttons bar]' GenerateCustomButtonBar

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