From: <dom...@us...> - 2016-04-25 16:46:09
|
Revision: 862 http://sourceforge.net/p/fvwm-crystal/code/862 Author: dominique_libre Date: 2016-04-25 16:46:07 +0000 (Mon, 25 Apr 2016) Log Message: ----------- CustomButtonBar: TODO change Modified Paths: -------------- ChangeLog fvwm/components/functions/CustomButtonBar-Menu Modified: ChangeLog =================================================================== --- ChangeLog 2016-04-25 16:23:02 UTC (rev 861) +++ ChangeLog 2016-04-25 16:46:07 UTC (rev 862) @@ -2,6 +2,7 @@ lundi 25 avril scripts/CustomButtonBar/CustomButtonBar: buttons with Menu - fix the menu position. + components/functions/CustomButtonBar-Menu: TODO change. dimanche 24 avril + preferences/CustombuttonBarLocation, Modified: fvwm/components/functions/CustomButtonBar-Menu =================================================================== --- fvwm/components/functions/CustomButtonBar-Menu 2016-04-25 16:23:02 UTC (rev 861) +++ fvwm/components/functions/CustomButtonBar-Menu 2016-04-25 16:46:07 UTC (rev 862) @@ -15,11 +15,11 @@ # Include compnonents/functions/CustomButtonBar-Menu # Include tmp/CustomButtonBar # TODO: -# - fix the icons -# (- add support to change the icons order) -# - add support for different buttons locations +# - fix the icons + menu size pref + button size +# (- add support to change the icons order, for now with $EDITOR) # - add support for buttons like the ACPI applets, pager, music -# - MAKE THE BUTTON TO SHOW UP OUTSIDE THE BUTTON +# - button order, howto? +# LoadPreferences CustomButtonBarLocation @@ -127,6 +127,9 @@ + '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.Generate this Menu]' GenerateCustomButtonMenu + '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.Generate the custom buttons bar]' GenerateCustomButtonBar + "" Nop ++ "" Nop ++ '$[gt.Choose a menu entry to add it as a button:] ++ "" Nop + '%32x32/fvwm-crystal/audio-x-generic.png%$[gt.Music]' AddCustomButton 48x48/fvwm-crystal/audio-x-generic.png%$[gt.Music]%Popup /Music + "" Nop + '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.FVWM-Crystal documentation]' AddCustomButton 48x48/fvwm-crystal/fvwm-crystal.png%$[gt.FVWM-Crystal documentation]%Popup /Developer/FVWM-Crystal-Documentation This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2016-04-25 17:40:50
|
Revision: 865 http://sourceforge.net/p/fvwm-crystal/code/865 Author: dominique_libre Date: 2016-04-25 17:40:48 +0000 (Mon, 25 Apr 2016) Log Message: ----------- magic button:TODO change, reload the button when new entry Modified Paths: -------------- ChangeLog fvwm/components/functions/CustomButtonBar-Menu Modified: ChangeLog =================================================================== --- ChangeLog 2016-04-25 17:07:48 UTC (rev 864) +++ ChangeLog 2016-04-25 17:40:48 UTC (rev 865) @@ -2,7 +2,8 @@ lundi 25 avril scripts/CustomButtonBar/CustomButtonBar: buttons with Menu - fix the menu position. - components/functions/CustomButtonBar-Menu: TODO change. + components/functions/CustomButtonBar-Menu: TODO change, reload the button + when new entry. dimanche 24 avril + preferences/CustombuttonBarLocation, Modified: fvwm/components/functions/CustomButtonBar-Menu =================================================================== --- fvwm/components/functions/CustomButtonBar-Menu 2016-04-25 17:07:48 UTC (rev 864) +++ fvwm/components/functions/CustomButtonBar-Menu 2016-04-25 17:40:48 UTC (rev 865) @@ -37,7 +37,7 @@ AddToFunc AddCustomButton + I AppendPreferences CustomButtonBar "$*" + I Schedule 333 PipeRead "$[FVWM_USERDIR]/scripts/CustomButtonBar/CustomButtonBar $[vp.width] $[vp.height] $[infostore.CustomBarLocation]" -# TODO: Reload the button ++ I Schedule 1500 Include tmp/CustomButtonBar DestroyFunc GenerateCustomButtonMenu AddToFunc GenerateCustomButtonMenu This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2016-04-25 20:47:24
|
Revision: 866 http://sourceforge.net/p/fvwm-crystal/code/866 Author: dominique_libre Date: 2016-04-25 20:47:22 +0000 (Mon, 25 Apr 2016) Log Message: ----------- Magic button: fix the icons Modified Paths: -------------- ChangeLog fvwm/components/functions/CustomButtonBar-Menu Modified: ChangeLog =================================================================== --- ChangeLog 2016-04-25 17:40:48 UTC (rev 865) +++ ChangeLog 2016-04-25 20:47:22 UTC (rev 866) @@ -3,7 +3,7 @@ lundi 25 avril scripts/CustomButtonBar/CustomButtonBar: buttons with Menu - fix the menu position. components/functions/CustomButtonBar-Menu: TODO change, reload the button - when new entry. + when new entry. fix the icons. dimanche 24 avril + preferences/CustombuttonBarLocation, Modified: fvwm/components/functions/CustomButtonBar-Menu =================================================================== --- fvwm/components/functions/CustomButtonBar-Menu 2016-04-25 17:40:48 UTC (rev 865) +++ fvwm/components/functions/CustomButtonBar-Menu 2016-04-25 20:47:22 UTC (rev 866) @@ -16,10 +16,11 @@ # (Re)Load the magic button: # Include tmp/CustomButtonBar # TODO: -# - fix the icons + menu size pref + button size +# - menu size pref + button size # (- add support to change the icons order and to remove them, for now with $EDITOR) # - add support for buttons like the ACPI applets, pager, music # (- pref to integrate it into the recipes) +# - handles to move it LoadPreferences CustomButtonBarLocation @@ -122,17 +123,17 @@ # Use DynamicPopUpAction; the menu can be redifined into the recipe DestroyMenu /FVWM-CustomButtonMenu AddToMenu /FVWM-CustomButtonMenu -+ '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.Custom bar location]' Popup /FVWM-CustomBarLocation -+ '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.Preferences editor]' EditCustomPref -+ '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.Generate this Menu]' GenerateCustomButtonMenu -+ '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.Generate the custom buttons bar]' GenerateCustomButtonBar ++ '%32x32/categories/Settings.png%$[gt.Custom bar location]' Popup /FVWM-CustomBarLocation ++ '%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 + "" Nop + "" Nop + '$[gt.Choose a menu entry to add it as a button:] + "" Nop + '%32x32/fvwm-crystal/audio-x-generic.png%$[gt.Music]' AddCustomButton 48x48/fvwm-crystal/audio-x-generic.png%$[gt.Music]%Popup /Music + "" Nop -+ '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.FVWM-Crystal documentation]' AddCustomButton 48x48/fvwm-crystal/fvwm-crystal.png%$[gt.FVWM-Crystal documentation]%Popup /Developer/FVWM-Crystal-Documentation ++ '%32x32/categories/help.png%$[gt.FVWM-Crystal documentation]' AddCustomButton 48x48/categories/help.png%$[gt.FVWM-Crystal documentation]%Popup /Developer/FVWM-Crystal-Documentation + "" Nop + '%32x32/fvwm-crystal/preferences-desktop-screensaver.png%$[gt.Screensaver]' AddCustomButton 48x48/fvwm-crystal/preferences-desktop-screensaver.png%$[gt.Screensaver]%Popup /Screensaver + '%32x32/fvwm-crystal/camera-photo.png%$[gt.Screenshot]' AddCustomButton 48x48/fvwm-crystal/camera-photo.png%$[gt.Screenshot]%Popup /Screenshot @@ -143,11 +144,11 @@ + '%32x32/fvwm-crystal/preferences-desktop.png%$[gt.Preferences]' AddCustomButton 48x48/fvwm-crystal/preferences-desktop.png%$[gt.Preferences]%Popup /Preferences + "" Nop + '%32x32/fvwm-crystal/applications-development.png%$[gt.Developer menu]' AddCustomButton 48x48/fvwm-crystal/applications-development.png%$[gt.Developer menu]%Popup /Developer -+ '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.About FVWM-Crystal]' AddCustomButton 48x48/fvwm-crystal/fvwm-crystal.png%$[gt.About FVWM-Crystal]%Include components/functions/About ++ '%32x32/fvwm-crystal/Jewel.png%$[gt.About FVWM-Crystal]' AddCustomButton 48x48/fvwm-crystal/Jewel.png%$[gt.About FVWM-Crystal]%Include components/functions/About #+ MissingSubmenuFunction FuncFvwmMenuXephyrDirectory #+ '%32x32/fvwm-crystal/gdm-xnest.png%$[gt.Nested sessions]' Popup /usr/share/xsessions + '%32x32/fvwm-crystal/system-log-out.png%$[gt.Exit]' AddCustomButton 48x48/fvwm-crystal/system-log-out.png%$[gt.Exit]%Popup /Exit -+ '%32x32/fvwm-crystal/fvwm-crystal.png%$[gt.Applications]' Popup /CustomBarMenu ++ '%32x32/fvwm-crystal/applications.png%$[gt.Applications]' Popup /CustomBarMenu # }}}2 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2017-01-12 16:24:20
|
Revision: 876 http://sourceforge.net/p/fvwm-crystal/code/876 Author: dominique_libre Date: 2017-01-12 16:24:18 +0000 (Thu, 12 Jan 2017) Log Message: ----------- support for systemd shutdon, reboot, hibernation, suspend and hybrid sleep Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Added Paths: ----------- fvwm/components/functions/Exit-systemctl Modified: ChangeLog =================================================================== --- ChangeLog 2016-12-29 09:34:43 UTC (rev 875) +++ ChangeLog 2017-01-12 16:24:18 UTC (rev 876) @@ -1,5 +1,9 @@ ChangeLog for FVWM-Crystal +jeudi 12 janvier 2017 ++ functions/Exit-systemctl, + functions/Exit: support for systemd shutdon, reboot, hibernation, suspend and hybrid sleep. + jeudi 29 décembre 2016 scripts/XDG-Menu: fix root menu title to work with current fvwm-desktop-menu version. Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2016-12-29 09:34:43 UTC (rev 875) +++ fvwm/components/functions/Exit 2017-01-12 16:24:18 UTC (rev 876) @@ -49,14 +49,23 @@ Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S pm-suspend-hybrid Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S pm-hibernate Test (x /usr/sbin/pm-powersave) + '%22x22/fvwm-crystal/gdm.png%$[gt.Powersave]' S pm-powersave +Test (X systemctl) + '' Nop +Test (X systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S systemctl suspend +Test (X systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S systemctl hybrid-sleep +Test (X systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S systemctl hibernate Test (EnvIsSet SESSION_MANAGER) + '' Nop Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties +DestroyFunc Exit-SelectExitManager +AddToFunc Exit-SelectExitManager ++ I Test (X systemctl) Include components/functions/Exit-systemctl ++ I TestRc (NoMatch) Include components/functions/Exit-sudo + DestroyFunc Exit-SelectLoginManager AddToFunc Exit-SelectLoginManager -+ I Test (x gdmflexiserver) PipeRead 'pidof gdm > /dev/null && echo "Include components/functions/Exit-gdm" || echo "Test (x sudo) Include components/functions/Exit-sudo"' -+ I TestRc (NoMatch) Include components/functions/Exit-sudo ++ I Test (X gdmflexiserver) PipeRead 'pidof gdm > /dev/null && echo "Include components/functions/Exit-gdm" || echo "Exit-SelectExitManager"' ++ I TestRc (NoMatch) Exit-SelectExitManager Exit-SelectLoginManager Test (x /usr/sbin/pm-hibernate) AddToFunc ExitFunction I Test (ToRestart) KillAutoHibernate Added: fvwm/components/functions/Exit-systemctl =================================================================== --- fvwm/components/functions/Exit-systemctl (rev 0) +++ fvwm/components/functions/Exit-systemctl 2017-01-12 16:24:18 UTC (rev 876) @@ -0,0 +1,9 @@ +# Exit commands - works with systemd +# Created by: Dominique Michel <dom...@us...> + +AddToMenu /Exit +Test (X systemctl) + "" Nop +Test (X systemctl) + '%22x22/fvwm-crystal/system-reboot.png%$[gt.Reboot computer]' S systemctl reboot +Test (X systemctl) + '%22x22/fvwm-crystal/system-shutdown.png%$[gt.Turn off computer]' S systemctl poweroff + +# vim:ft=fvwm This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-05-10 13:06:32
|
Revision: 900 http://sourceforge.net/p/fvwm-crystal/code/900 Author: dominique_libre Date: 2019-05-10 13:06:30 +0000 (Fri, 10 May 2019) Log Message: ----------- alsaplayer style change Modified Paths: -------------- ChangeLog fvwm/components/functions/Media-Music-functions Modified: ChangeLog =================================================================== --- ChangeLog 2019-05-10 12:58:57 UTC (rev 899) +++ ChangeLog 2019-05-10 13:06:30 UTC (rev 900) @@ -15,6 +15,7 @@ styles/FVWM: fix trayer styke functions/Exit + scripts/ScreenLidSuspend: add screen lid suspend menu and function. + functions/Media-Music-functions: alsaplayer style change mercredi 21 mars 2019 bin/fvwm-crystal.generate-menu: fix Science which is now a main category Modified: fvwm/components/functions/Media-Music-functions =================================================================== --- fvwm/components/functions/Media-Music-functions 2019-05-10 12:58:57 UTC (rev 899) +++ fvwm/components/functions/Media-Music-functions 2019-05-10 13:06:30 UTC (rev 900) @@ -30,7 +30,8 @@ InfoStoreRemove fvwm_audio_exec # Styles for media players windows {{{1 -Style Alsaplayer NoActiveIconOverride, NoIcon, Sticky, WindowListSkip, StaysOnTop +Style Alsaplayer NoActiveIconOverride, NoIcon, WindowListSkip, !Sticky, StaysPut +# !StaysOnTop Style alsaplayer UseStyle Alsaplayer Style Audacious StaysOnTop This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-05-10 13:09:54
|
Revision: 901 http://sourceforge.net/p/fvwm-crystal/code/901 Author: dominique_libre Date: 2019-05-10 13:09:50 +0000 (Fri, 10 May 2019) Log Message: ----------- Fvwm-Crystal-Menu: change menu order Modified Paths: -------------- ChangeLog fvwm/components/functions/Fvwm-Crystal-Menu Modified: ChangeLog =================================================================== --- ChangeLog 2019-05-10 13:06:30 UTC (rev 900) +++ ChangeLog 2019-05-10 13:09:50 UTC (rev 901) @@ -16,6 +16,7 @@ functions/Exit + scripts/ScreenLidSuspend: add screen lid suspend menu and function. functions/Media-Music-functions: alsaplayer style change + functions/Fvwm-Crystal-Menu: change menu order mercredi 21 mars 2019 bin/fvwm-crystal.generate-menu: fix Science which is now a main category Modified: fvwm/components/functions/Fvwm-Crystal-Menu =================================================================== --- fvwm/components/functions/Fvwm-Crystal-Menu 2019-05-10 13:06:30 UTC (rev 900) +++ fvwm/components/functions/Fvwm-Crystal-Menu 2019-05-10 13:09:50 UTC (rev 901) @@ -29,10 +29,10 @@ # Use DynamicPopUpAction; the menu can be redifined into the recipe DestroyMenu /FVWM-Crystal AddToMenu /FVWM-Crystal ++ '%22x22/fvwm-crystal/fvwm-crystal.png%$[gt.FVWM-Crystal documentation]' Popup /Developer/FVWM-Crystal-Documentation ++ "" Nop + '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music]' Popup /Music + "" Nop -+ '%22x22/fvwm-crystal/fvwm-crystal.png%$[gt.FVWM-Crystal documentation]' Popup /Developer/FVWM-Crystal-Documentation -+ "" Nop Test (x xrandr) + '%22x22/fvwm-crystal/handles.png%$[gt.Screen resolution]' Popup /ScreenResolution + '%22x22/fvwm-crystal/preferences-desktop-screensaver.png%$[gt.Screensaver]' Popup /Screensaver + '%22x22/fvwm-crystal/camera-photo.png%$[gt.Screenshot]' Popup /Screenshot This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-08-13 02:13:10
|
Revision: 912 http://sourceforge.net/p/fvwm-crystal/code/912 Author: dominique_libre Date: 2019-08-13 02:13:07 +0000 (Tue, 13 Aug 2019) Log Message: ----------- native fvwm Fullscreen support Modified Paths: -------------- ChangeLog fvwm/components/functions/Fullscreen Modified: ChangeLog =================================================================== --- ChangeLog 2019-08-13 01:48:50 UTC (rev 911) +++ ChangeLog 2019-08-13 02:13:07 UTC (rev 912) @@ -7,7 +7,8 @@ bin/fvwm-crystal.generate-menu: Introduce Icon and MiniIcon styles generation, fix for non probable spaces in desktop files. styles/Applications-Icons-22-32: add media players icon styles - + functions/Fullscreen: bump to fvwm native Maximize Fullscreen + jeudi 5 juin 2019 recipes/lap*: fix pager X11 geometry string. recipes/Wing-Commander, recipes/Default: fix font Modified: fvwm/components/functions/Fullscreen =================================================================== --- fvwm/components/functions/Fullscreen 2019-08-13 01:48:50 UTC (rev 911) +++ fvwm/components/functions/Fullscreen 2019-08-13 02:13:07 UTC (rev 912) @@ -1,15 +1,9 @@ # FVWM-Crystal: Fullscreen -# Written by: Maciej Delmanowski <ha...@li...> -# Modifications: Thomas Adam <th...@ed...> -# Bug fixes, disappear and restart functions: Dominique Michel 2008-2013 +# Written by: Dominique Michel 2008-2019 # <dom...@us...> +# replace the Fullscreen functions written when fvwm did not have native Fs support. +# but now (2019) fvwm have that support, so rewrite things around. # -# Fullscreen overview: -# After using this function, current window will lose it's border and title -# and will be maximized to the full screen (wow). After using Fullscreen -# function on a "full-screened" window it will return to it's previous size and -# position and border/title will be brought back. -# # How to use: # Bind "Fullscreen" command somewhere, example: # @@ -23,138 +17,30 @@ # Key KP_Multiply A $[Mod2] Disappear # # The other window size functions are into Window-Buttons. -# -# 'Fullscreen-Start' and 'Fullscreen-Stop' functions shouldn't be called -# directly, use 'Fullscreen' function instead. -# 'Disappear-On' and 'Disappear-Off' functions shouldn't be called -# directly, use 'Disappear' function instead. -# -# Know bugs, limitations: -# - some terminals and gvim does not scale properly in full-screen. This is because -# they use characters instead of pixels to adjust their width. -# Sometime, it work well the second time you put the window in full screen. -# It also depend on the terminal's font and the screnn's width. -# - tell me how I can get the State attributes in the FS function to work -# after a Restart, or provide a patch. that in order to get ride of -# the temporary files. -InfoStoreAdd TmpDirectory "/tmp" - -# Wrapper function {{{1 -# State 19 = FS (fullscreen), State 20 = visible +# Fullscreen function {{{1 DestroyFunc Fullscreen AddToFunc Fullscreen -+ I ThisWindow (State 19, !FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Fullscreen-Stop -+ I TestRc (NoMatch) ThisWindow (!State 19, !FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Fullscreen-Start ++ I ThisWindow (!FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Maximize Fullscreen -# fullscreen {{{2 -DestroyFunc Fullscreen-Start -AddToFunc Fullscreen-Start -+ I WindowStyle !Title, !Borders, !Handles, Iconifiable, ResizeHintOverride -+ I UpdateStyles -+ I WindowStyle State 19 -+ I WindowStyle State 20 -+ I Maximize ewmhiwa True 100 100 -+ I WindowStyle !Maximizable, FixedSize, FixedPosition -+ I UpdateStyles -# We need 1 temporary file for restoring the window state after restart -+ I Exec exec touch $[infostore.TmpDirectory]/fullscreen.19.$[w.id].$[page.nx].$[page.ny].tmp - -# quit fullscreen {{{2 -DestroyFunc Fullscreen-Stop -AddToFunc Fullscreen-Stop -+ I WindowStyle Title, Borders, Handles, HandleWidth $[infostore.handle_width], Iconifiable, !ResizeHintOverride -+ I WindowStyle Maximizable, !FixedSize, !FixedPosition -+ I WindowStyle !State 19 -+ I WindowStyle !State 20 -+ I Test (f $[infostore.TmpDirectory]/fullscreen.19.$[w.id].$[page.nx].$[page.ny].tmp) Exec exec rm -f $[infostore.TmpDirectory]/fullscreen.19.$[w.id].$[page.nx].$[page.ny].tmp -+ I UpdateStyles -+ I NS-Default - -# Wrapper function {{{1 +# Disapear Wrapper function {{{1 DestroyFunc Disappear AddToFunc Disappear -# if FS; then if !State20; then show; else hide all; fi -+ I PipeRead 'if [ "$(ls $[infostore.TmpDirectory]/fullscreen.19.0x?*.$[page.nx].$[page.ny].tmp 2>/dev/null)" != "" ]; then \ - for i in $(ls $[infostore.TmpDirectory]/fullscreen.19.0x?*.$[page.nx].$[page.ny].tmp 2>/dev/null); \ - do file=`echo "${i}"|sed -e \'s:fullscreen.19:fullscreen.20:\'`; \ - if [ -e "${file}" ]; then echo "WindowId $(echo $file | cut -d . -f 3) Disappear-Off"; exit; \ - fi; \ - done; \ - for i in $(ls $[infostore.TmpDirectory]/fullscreen.19.0x?*.$[page.nx].$[page.ny].tmp 2>/dev/null); \ - do echo "WindowId $(echo $i | cut -d . -f 3) Disappear-On"; done; fi' ++ I Next (CurrentPage, Fullscreen, Iconic) Disappear-Off ++ I TestRc (NoMatch) All (CurrentPage, Fullscreen) Disappear-On -# disappear {{{2 -# file tmp_dir/fuulscreen.20.* = hidden DestroyFunc Disappear-On AddToFunc Disappear-On -# Those 2 lines are needed if we want to cycle onto the windows original pages -+ I WarpToWindow $[pointer.x]p $[pointer.y]p -+ I Exec exec touch $[infostore.TmpDirectory]/fullscreen.20.$[w.id].$[page.nx].$[page.ny].tmp -+ I WindowStyle !State 20 + I WindowStyle NoIcon + I UpdateStyles + I Iconify true -# appear {{{2 DestroyFunc Disappear-Off AddToFunc Disappear-Off -+ I ThisWindow MoveToPage $[page.nx] 0 + I Iconify false -+ I WindowStyle State 20 + I WindowStyle Icon + I UpdateStyles -+ I Test (f $[infostore.TmpDirectory]/fullscreen.20.$[w.id].$[page.nx].$[page.ny].tmp) Exec exec rm -f $[infostore.TmpDirectory]/fullscreen.20.$[w.id].$[page.nx].$[page.ny].tmp -# Restore Fullscreen after restart {{{1 -# Called by StartFunction -DestroyFunc Fullscreen-Recover -AddToFunc Fullscreen-Recover -+ I WindowStyle !Title, !Borders, !Handles, Iconifiable, ResizeHintOverride -+ I UpdateStyles -+ I WindowStyle State 19 -+ I WindowStyle State 20 -+ I Maximize ewmhiwa True 100 100 -+ I WindowStyle !Maximizable, FixedSize -+ I UpdateStyles - -DestroyFunc Disappear-Recover -AddToFunc Disappear-Recover -+ I WindowStyle !State 20 -+ I WindowStyle NoIcon -+ I UpdateStyles -+ I Iconify true - -DestroyFunc Disappear-Test -AddToFunc Disappear-Test -+ I Test (F $[infostore.TmpDirectory]/fullscreen.20.$[w.id].$[page.nx].$[page.ny].tmp) WindowId $[w.id] Disappear-Recover - -# wrapper {{{2 -DestroyFunc RecoverFullscreen -AddToFunc RecoverFullscreen -PipeRead 'for i in $[infostore.TmpDirectory]/fullscreen.19.*; do wid=`basename "$i" | awk --field-separator . \'{print $$3}\'`; echo "+ I WindowId ${wid} Fullscreen-Recover"; done' -PipeRead "for i in $[infostore.TmpDirectory]/fullscreen.20.*; do wid=`basename $i | awk --field-separator . '{print $$3}'`; echo \"+ I WindowId ${wid} Disappear-Recover\"; done" - -AddToFunc StartFunction I Schedule 1000 RecoverFullscreen - -AddToFunc ExitFunction I Test (!ToRestart) Exec rm -f $[infostore.TmpDirectory]/fullscreen.19.* -AddToFunc ExitFunction I Test (!ToRestart) Exec rm -f $[infostore.TmpDirectory]/fullscreen.20.* -AddToFunc ExitFunction I Test (Quit) Exec rm -f $[infostore.TmpDirectory]/fullscreen.* - -# 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 2>/dev/null; done' - -DestroyModuleConfig FvwmEvent-Window-Fullscreen-Destroy: * -*FvwmEvent-Window-FullScreen-Destroy: destroy_window Window-Fullscreen-Destroy -Module FvwmEvent FvwmEvent-Window-Fullscreen-Destroy - -# Rearrange in fullscreen -DestroyFunc Fullscreen-Rearrange -AddToFunc Fullscreen-Rearrange -+ I All (CurrentPage, !Iconic, !FvwmButtons, !FvwmPager, !FvwmConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Fullscreen - # Start in full screen at application statup DestroyFunc Window-AutoFS AddToFunc Window-AutoFS This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-08-14 04:14:24
|
Revision: 916 http://sourceforge.net/p/fvwm-crystal/code/916 Author: dominique_libre Date: 2019-08-14 04:14:19 +0000 (Wed, 14 Aug 2019) Log Message: ----------- Introduce Cadence support, add test for qjackctl Modified Paths: -------------- ChangeLog fvwm/components/functions/Media fvwm/components/functions/Music-alsaplayer fvwm/components/functions/Music-alsaplayerdaemon fvwm/components/functions/Music-audacious fvwm/components/functions/Music-cdcd fvwm/components/functions/Music-cmus fvwm/components/functions/Music-mocp fvwm/components/functions/Music-mpd fvwm/components/functions/Music-quodlibet fvwm/components/functions/Music-xmms2 Modified: ChangeLog =================================================================== --- ChangeLog 2019-08-13 17:38:31 UTC (rev 915) +++ ChangeLog 2019-08-14 04:14:19 UTC (rev 916) @@ -1,5 +1,9 @@ ChangeLog for FVWM-Crystal +mercredi 14 août 2019 + functions/Media, functions/Music-*: add Cadence support, fix qjackctl menu + when qjackctl is not installed, add Hide/Show GUI into all the buttonless menu. + mardi 13 août 2019 + ~japa~Japa in application database. desktop/HVWM-Crystal-Styles: append Generated--Applications-Icons-22-32 Modified: fvwm/components/functions/Media =================================================================== --- fvwm/components/functions/Media 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Media 2019-08-14 04:14:19 UTC (rev 916) @@ -103,11 +103,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-preferences-2.png%$[gt.Icons in file browser]' Popup /Preferences/MediaFileMenuIcons + I AddToMenu /Player "" Nop + I Test (X qjackctl) AddToMenu /Player '%22x22/apps/qjackctl.png%$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '%22x22/apps/cadence.png%$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence + I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic-2.png%$[gt.Start player]' Popup /Music/Start + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic-1.png%$[gt.Stop MPlayer]' Music-Kill + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic-1.png%$[gt.Destroy MPlayer]' Music-Kill -9 -+ I AddToMenu /Player '$[gt.Show/Hide menu]' Music-GUI # Button menu (all) AddToMenu /Player @@ -464,7 +465,7 @@ + I AddToMenu /Music '$[gt.Playlists]' Popup /Playlist + I AddToMenu /Music '%22x22/fvwm-crystal/mixer-2.png%$[gt.Mixers]' Popup /Mixer + I AddToMenu /Music '$[gt.Speed]' Popup /Speed -+ I Test (X qjackctl) AddToMenu /Music '$[gt.Show/Hide QJackCtl]' Music-QJackGUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI # DVB channels Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Music '$[gt.Channels] DVB 1' PopUp /Music/ChannelSet1 Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Music '$[gt.Channels] DVB 2' PopUp /Music/ChannelSet2 Modified: fvwm/components/functions/Music-alsaplayer =================================================================== --- fvwm/components/functions/Music-alsaplayer 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-alsaplayer 2019-08-14 04:14:19 UTC (rev 916) @@ -1,5 +1,5 @@ # Support for Alsaplayer in Fvwm-Crystal -# Written by: Dominique Michel <dom...@us...> 2008-2013 +# Written by: Dominique Michel <dom...@us...> 2008-2019 # See ChangeLog for details # Initialisations, shared functions {{{1 @@ -31,11 +31,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Start Alsaplayer]' Popup /Music/Start + I AddToMenu /Player '$[gt.Stop player]' Music-Kill -+ I AddToMenu /Player '$[gt.Show/Hide player]' Music-GUI # mouse 2 Music-GUI : allready here {{{2 # mouse 3 Music-QJackGUI : in Music @@ -270,7 +271,7 @@ + I AddToMenu /Music '$[gt.Player volume]' Popup /Music/Volume + I AddToMenu /Music '$[gt.Speed]' Popup /Speed + I AddToMenu /Music '$[gt.Playlists]' Popup /Playlist-button -+ I AddToMenu /Music '$[gt.Show/Hide QJackCtl]' Music-QJackGUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI # Tooltip {{{1 AddToFunc Tittle-Tooltip Modified: fvwm/components/functions/Music-alsaplayerdaemon =================================================================== --- fvwm/components/functions/Music-alsaplayerdaemon 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-alsaplayerdaemon 2019-08-14 04:14:19 UTC (rev 916) @@ -1,5 +1,5 @@ # Support for Alsaplayer in daemon mode for Fvwm-Crystal -# Written by: Dominique Michel <dom...@us...> 2015 +# Written by: Dominique Michel <dom...@us...> 2015-2019 # See ChangeLog for details # Initialisations, shared functions {{{1 @@ -32,11 +32,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Start Alsaplayer daemon]' Popup /Music/Start + I AddToMenu /Player '$[gt.Stop player]' Music-Kill -+ I AddToMenu /Player '$[gt.Show/Hide player]' Music-GUI # mouse 2 Music-GUI : allready here {{{2 # mouse 3 Music-QJackGUI : in Music @@ -270,7 +271,7 @@ + I AddToMenu /Music '$[gt.Player volume]' Popup /Music/Volume + I AddToMenu /Music '$[gt.Speed]' Popup /Speed + I AddToMenu /Music '$[gt.Playlists]' Popup /Playlist-button -+ I AddToMenu /Music '$[gt.Show/Hide QJackCtl]' Music-QJackGUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI # Tooltip {{{1 AddToFunc Tittle-Tooltip Modified: fvwm/components/functions/Music-audacious =================================================================== --- fvwm/components/functions/Music-audacious 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-audacious 2019-08-14 04:14:19 UTC (rev 916) @@ -1,6 +1,6 @@ # Support for Audacious in Fvwm-Crystal # Written by: Rafael Antonio Porras Samaniego <sp...@di...> -# Modifications, debugging and improvments by Dominique Michel 2008-2013 +# Modifications, debugging and improvments by Dominique Michel 2008-2019 # <dom...@us...> # See ChangeLog for details @@ -18,11 +18,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Start Audacious]' Exec exec audacious + I AddToMenu /Player '$[gt.Stop Audacious]' Exec exec audtool --shutdown -+ I AddToMenu /Player '$[gt.Show/Hide player]' Music-GUI # mouse 2 Music-GUI : allready here {{{2 # mouse 3 Music-QJackGUI : in Music @@ -162,7 +163,10 @@ + I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Stop playback]' Music-Stop + I AddToMenu /Music '$[gt.Show/Hide player]' Music-GUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI + I AddToMenu /Music '$[gt.Start Audacious]' Exec exec audacious ++ I Test (X qjackctl) AddToMenu /Music '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Music '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence + I AddToMenu /Music '$[gt.Stop Audacious]' Exec exec audtool --shutdown + I AddToMenu /Music '$[gt.Play/Pause]' Music-PlayPause + I AddToMenu /Music "" Nop Modified: fvwm/components/functions/Music-cdcd =================================================================== --- fvwm/components/functions/Music-cdcd 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-cdcd 2019-08-14 04:14:19 UTC (rev 916) @@ -2,7 +2,7 @@ # Written by: Maciej Delmanowski <ha...@po...> # sed commands by: Grzegorz Niewęgłowski <ho...@do...> # Modifications, debugging and improvments by Dominique Michel -# <dom...@us...> 2008-2013 +# <dom...@us...> 2008-2019 # See ChangeLog for details # Overview: @@ -28,11 +28,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Stop playback]' Music-Stop + I AddToMenu /Player '$[gt.Play/Pause]' Music-PlayPause -+ I AddToMenu /Player '$[gt.Show/Hide player]' Music-GUI # mouse 2 Music-GUI : allready here {{{2 # mouse 3 Music-QJackGUI : in Music @@ -87,6 +88,9 @@ + I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Stop playback]' Music-Stop + I AddToMenu /Music '$[gt.Show/Hide player]' Music-GUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI ++ I Test (X qjackctl) AddToMenu /Music '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Music '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence + I AddToMenu /Music '$[gt.Play/Pause]' Music-PlayPause + I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Music player]' Popup /Preferences/MusicPlayer Modified: fvwm/components/functions/Music-cmus =================================================================== --- fvwm/components/functions/Music-cmus 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-cmus 2019-08-14 04:14:19 UTC (rev 916) @@ -1,7 +1,7 @@ # Support for C* Music Player # Written by: Maciej Delmanowski <ha...@po...> # Modifications, debugging and improvments by Dominique Michel -# <dom...@us...> 2008-2013 +# <dom...@us...> 2008-2019 # See ChangeLog for details # Overview: @@ -24,8 +24,10 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Start C* Music Player]' AT cmus cmus + I AddToMenu /Player '$[gt.Stop player]' Exec exec killall -9 cmus @@ -117,6 +119,14 @@ + I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Load playlist]' Popup /Music/LoadPlaylist + I AddToMenu /Music '$[gt.Music player]' Popup /Preferences/MusicPlayer ++ I AddToMenu /Music "" Nop ++ I Test (X qjackctl) AddToMenu /Music '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Music '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Music "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Music "" Nop ++ I AddToMenu /Music '$[gt.Start C* Music Player]' AT cmus cmus ++ I AddToMenu /Music '$[gt.Stop player]' Exec exec killall -9 cmus ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI # Fake button functions see Music-cdcd {{{1 Modified: fvwm/components/functions/Music-mocp =================================================================== --- fvwm/components/functions/Music-mocp 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-mocp 2019-08-14 04:14:19 UTC (rev 916) @@ -1,7 +1,7 @@ # Support for 'Music On Console' music player # Written by: Maciej Delmanowski <ha...@po...> # Modded by: rysiul <tu...@o2...> -# Modifications, debugging and improvments by Dominique Michel 2008-2013 +# Modifications, debugging and improvments by Dominique Michel 2008-2019 # <dom...@us...> # Initialisations, shared functions @@ -22,11 +22,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Start Music On Console]' AT mocp mocp + I AddToMenu /Player '$[gt.Stop player]' Exec exec killall -9 mocp -+ I AddToMenu /Player '$[gt.Show/Hide player]' Music-GUI # mouse 2 Music-GUI : allready here {{{2 # mouse 3 Music-QJackGUI : in Music @@ -107,6 +108,15 @@ + I AddToMenu /Music '$[gt.Stop playback]' Music-Stop + I AddToMenu /Music '$[gt.Play/Pause]' Music-PlayPause + I AddToMenu /Music "" Nop ++ I AddToMenu /Music '$[gt.Start Music On Console]' AT mocp mocp ++ I AddToMenu /Music '$[gt.Stop player]' Exec exec killall -9 mocp ++ I AddToMenu /Music '$[gt.Show/Hide player]' Music-GUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI ++ I AddToMenu /Music "" Nop ++ I Test (X qjackctl) AddToMenu /Music '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Music '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Music "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Music player]' Popup /Preferences/MusicPlayer # Fake button functions {{{1 Modified: fvwm/components/functions/Music-mpd =================================================================== --- fvwm/components/functions/Music-mpd 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-mpd 2019-08-14 04:14:19 UTC (rev 916) @@ -1,7 +1,7 @@ # Support for MPD music player # Written by: Maciej Delmanowski <ha...@po...> # sed commands by: Grzegorz Niewęgłowski <ho...@do...> -# Modifications, debugging and improvments by Dominique Michel 2008-2013 +# Modifications, debugging and improvments by Dominique Michel 2008-2019 # <dom...@us...> # Overview: @@ -27,11 +27,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjacjctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Start Music Player Daemon]' Exec exec mpd + I AddToMenu /Player '$[gt.Stop player]' Exec exec killall -9 mpd -+ I AddToMenu /Player '$[gt.Show/Hide GMPC]' Music-GUI # mouse 2 Music-GUI : allready here {{{2 # mouse 3 Music-QJackGUI : in Music @@ -183,8 +184,13 @@ + I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Stop playback]' Music-Stop + I AddToMenu /Music '$[gt.Show/Hide player]' Music-GUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI + I AddToMenu /Music '$[gt.Play/Pause]' Music-PlayPause + I AddToMenu /Music "" Nop ++ I Test (X qjackctl) AddToMenu /Music '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Music '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjacjctl) AddToMenu /Music "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Music '$[gt.Music player]' Popup /Preferences/MusicPlayer # Fake button functions {{{1 Modified: fvwm/components/functions/Music-quodlibet =================================================================== --- fvwm/components/functions/Music-quodlibet 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-quodlibet 2019-08-14 04:14:19 UTC (rev 916) @@ -1,7 +1,7 @@ # Support for QuodLibet music player # Written by: Maciej Delmanowski <ha...@po...> # sed commands by: Grzegorz Niewęgłowski <ho...@do...> -# Modifications, debugging and improvments by Dominique Michel 2008-2013 +# Modifications, debugging and improvments by Dominique Michel 2008-2019 # <dom...@us...> # Initialisations, shared functions @@ -18,11 +18,12 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Start Quod Libet]' Exec exec quodlibet > /dev/null + I AddToMenu /Player '$[gt.Stop player]' Exec exec quodlibet --quit -+ I AddToMenu /Player '$[gt.Show/Hide player]' Music-GUI # mouse 2 Music-GUI : allready here {{{2 ## mouse 3 Music-QJackGUI : in Music @@ -83,6 +84,11 @@ + I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Play/Pause]' Music-PlayPause + I AddToMenu /Music "" Nop ++ I Test (X qjackctl) AddToMenu /Music '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Music '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I AddToMenu /Music '$[gt.Show/Hide player]' Music-GUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI ++ I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Music player]' Popup /Preferences/MusicPlayer # Fake button functions {{{1 Modified: fvwm/components/functions/Music-xmms2 =================================================================== --- fvwm/components/functions/Music-xmms2 2019-08-13 17:38:31 UTC (rev 915) +++ fvwm/components/functions/Music-xmms2 2019-08-14 04:14:19 UTC (rev 916) @@ -1,7 +1,7 @@ # Support for XMMS2 # Author: Michal Gorny <per...@ma...> # Based on xmms2 command-line client, version 0.2 DrBombay -# Modifications, debugging and improvments by Dominique Michel 2008-2013 +# Modifications, debugging and improvments by Dominique Michel 2008-2019 # <dom...@us...> # Initialisations, shared functions {{{1 @@ -21,8 +21,10 @@ + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist + I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer + I AddToMenu /Player "" Nop -+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl -+ I AddToMenu /Player "" Nop ++ I Test (X qjackctl) AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Player '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Player "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Player "" Nop + I AddToMenu /Player '$[gt.Stop XMMS2]' Exec exec killall -9 xmms2d + I AddToMenu /Player '$[gt.Show/Hide GXMMS2]' Music-GUI @@ -171,9 +173,14 @@ + I AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Stop playback]' Music-Stop + I AddToMenu /Music '$[gt.Show/Hide player]' Music-GUI ++ I AddToMenu /Music '$[gt.Show/Hide Audio controls]' Music-QJackGUI + I AddToMenu /Music '$[gt.Play]' Music-Play + I AddToMenu /Music '$[gt.Pause]' Music-Pause + I AddToMenu /Music "" Nop ++ I Test (X qjackctl) AddToMenu /Music '$[gt.Start QJackCtl]' Exec exec qjackctl ++ I Test (X cadence) AddToMenu /Music '$[gt.Start Cadence]' Exec cadence-session-start --maybe-system-start; cadence ++ I Test (X qjackctl) AddToMenu /Music "" Nop ++ I TestRc (NoMatch) Test (X cadence) AddToMenu /Music "" Nop + I AddToMenu /Music '$[gt.Music player]' Popup /Preferences/MusicPlayer # Music-Speed-Up This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-08-16 17:29:55
|
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. |
From: <dom...@us...> - 2019-11-17 10:58:39
|
Revision: 941 http://sourceforge.net/p/fvwm-crystal/code/941 Author: dominique_libre Date: 2019-11-17 10:58:37 +0000 (Sun, 17 Nov 2019) Log Message: ----------- oops: put back Window-Rearrange function Modified Paths: -------------- ChangeLog fvwm/components/functions/Fullscreen Modified: ChangeLog =================================================================== --- ChangeLog 2019-11-17 10:56:00 UTC (rev 940) +++ ChangeLog 2019-11-17 10:58:37 UTC (rev 941) @@ -1,5 +1,8 @@ ChangeLog for FVWM-Crystal +dimanche 17 novembre 2019 + fvwm/components/functions/Fullscreen: put back Window-Rearrange function + samedi 16 movembre 2019 FAQ: Added uam configuration with ext formatted partitions. Modified: fvwm/components/functions/Fullscreen =================================================================== --- fvwm/components/functions/Fullscreen 2019-11-17 10:56:00 UTC (rev 940) +++ fvwm/components/functions/Fullscreen 2019-11-17 10:58:37 UTC (rev 941) @@ -41,6 +41,11 @@ + I WindowStyle Icon + I UpdateStyles +# Rearrange in fullscreen +DestroyFunc Fullscreen-Rearrange +AddToFunc Fullscreen-Rearrange ++ I All (CurrentPage, !Iconic, !FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Maximize Fullscreen + # Start in full screen at application statup DestroyFunc Window-AutoFS AddToFunc Window-AutoFS This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-11-17 11:02:15
|
Revision: 942 http://sourceforge.net/p/fvwm-crystal/code/942 Author: dominique_libre Date: 2019-11-17 11:02:13 +0000 (Sun, 17 Nov 2019) Log Message: ----------- dynamic screen lid suspend menu Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Modified: ChangeLog =================================================================== --- ChangeLog 2019-11-17 10:58:37 UTC (rev 941) +++ ChangeLog 2019-11-17 11:02:13 UTC (rev 942) @@ -2,6 +2,7 @@ dimanche 17 novembre 2019 fvwm/components/functions/Fullscreen: put back Window-Rearrange function + fvwm/components/functions/Exit: screen lid suspend menu test for pref and is dynamic samedi 16 movembre 2019 FAQ: Added uam configuration with ext formatted partitions. Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2019-11-17 10:58:37 UTC (rev 941) +++ fvwm/components/functions/Exit 2019-11-17 11:02:13 UTC (rev 942) @@ -3,9 +3,10 @@ # Modified by Dominique Michel <dom...@so...> for use with # session managers as gnome-session +# ps -C ... truncate the command name (see man 5 proc); use pgrep -f ... DestroyFunc KillAutoHibernate AddToFunc KillAutoHibernate -+ I Piperead 'for i in `ps -C AutoHibernate -o pid=` ; do kill $i $[infostore.SILENT]; done' ++ I Piperead 'for i in `pgrep -f AutoHibernate` ; do kill $i $[infostore.SILENT]; done' DestroyFunc EndAutoHibernate AddToFunc EndAutoHibernate @@ -41,17 +42,41 @@ DestroyFunc AutoHibernate-generator AddToFunc AutoHibernate-generator + I DestroyMenu recreate /AutoHibernate -+ I Piperead "if ps -C AutoHibernate -o pid= 1>2 2>/dev/null; \ ++ I Piperead "if test `pkill -0 AutoHibernate`; \ then echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \ echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \ else echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernatePMValue; \ echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernateSysValue; \ - fi + fi" DestroyMenu /AutoHibernate AddToMenu /AutoHibernate + DynamicPopupAction Function AutoHibernate-generator +DestroyFunc ScreenLidSuspend +AddToFunc ScreenLidSuspend ++ I Exec exec $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend ++ I SavePreferences ScreenLidSuspend "Exec exec $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend" + +DestroyFunc NoScreenLidSuspend +AddToFunc NoScreenLidSuspend ++ I Piperead 'pkill ScreenLidSuspen' ++ I SavePreferences ScreenLidSuspend Nop + +DestroyFunc ScreenLidSuspend-generator +AddToFunc ScreenLidSuspend-generator ++ I DestroyMenu recreate /ScreenLidSuspend ++ I Piperead "if test `pgrep ScreenLidSuspen`; \ + then echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /ScreenLidSuspend \\'$[gt.No resume hybride with screen lid]\\' NoScreenLidSuspend; \ + echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /ScreenLidSuspend \\'$[gt.No resume hybride with screen lid]\\' NoScreenLidSuspend; \ + else echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /ScreenLidSuspend \\'$[gt.Resume hybride with screen lid]\\' ScreenLidSuspend; \ + echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /ScreenLidSuspend \\'$[gt.Resume hybride with screen lid]\\' ScreenLidSuspend; \ + fi" + +DestroyMenu /ScreenLidSuspend +AddToMenu /ScreenLidSuspend ++ DynamicPopupAction Function ScreenLidSuspend-generator + DestroyMenu /Exit AddToMenu /Exit + '%22x22/fvwm-crystal/view-refresh.png%$[gt.Restart]' Restart @@ -61,7 +86,7 @@ Test (x /usr/sbin/pm-hibernate) + '' Nop Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate -Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride with screen lid]' Exec exec $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend +Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride with screen lid]' Popup /ScreenLidSuspend Test (x /usr/sbin/pm-suspend) + '' Nop Test (x /usr/sbin/pm-suspend) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S pm-suspend Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S pm-suspend-hybrid This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-11-17 11:06:48
|
Revision: 943 http://sourceforge.net/p/fvwm-crystal/code/943 Author: dominique_libre Date: 2019-11-17 11:06:47 +0000 (Sun, 17 Nov 2019) Log Message: ----------- remove empty lines Modified Paths: -------------- ChangeLog fvwm/components/functions/Window-Decorations Modified: ChangeLog =================================================================== --- ChangeLog 2019-11-17 11:02:13 UTC (rev 942) +++ ChangeLog 2019-11-17 11:06:47 UTC (rev 943) @@ -3,6 +3,7 @@ dimanche 17 novembre 2019 fvwm/components/functions/Fullscreen: put back Window-Rearrange function fvwm/components/functions/Exit: screen lid suspend menu test for pref and is dynamic + fvwm/components/functions/Window-Decorations: remove empty lines samedi 16 movembre 2019 FAQ: Added uam configuration with ext formatted partitions. Modified: fvwm/components/functions/Window-Decorations =================================================================== --- fvwm/components/functions/Window-Decorations 2019-11-17 11:02:13 UTC (rev 942) +++ fvwm/components/functions/Window-Decorations 2019-11-17 11:06:47 UTC (rev 943) @@ -20,7 +20,6 @@ + I UnsetEnv Window_Decorations_ButtonModel-Temp + I Style * HandleWidth $[infostore.handle_width] - DestroyMenu /Window-Decorations AddToMenu /Window-Decorations + MissingSubmenuFunction Window-Decorations-generator @@ -29,7 +28,6 @@ + "" Nop + '$[gt.Button model]' Popup /Window-Decorations-ButtonModel - DestroyFunc Window-Decorations-generator AddToFunc Window-Decorations-generator + I DestroyMenu $0 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-11-17 11:09:01
|
Revision: 944 http://sourceforge.net/p/fvwm-crystal/code/944 Author: dominique_libre Date: 2019-11-17 11:09:00 +0000 (Sun, 17 Nov 2019) Log Message: ----------- Remove outdated Window-Rearrange-Default function Modified Paths: -------------- ChangeLog fvwm/components/functions/Window-Rearrange Modified: ChangeLog =================================================================== --- ChangeLog 2019-11-17 11:06:47 UTC (rev 943) +++ ChangeLog 2019-11-17 11:09:00 UTC (rev 944) @@ -4,6 +4,7 @@ fvwm/components/functions/Fullscreen: put back Window-Rearrange function fvwm/components/functions/Exit: screen lid suspend menu test for pref and is dynamic fvwm/components/functions/Window-Decorations: remove empty lines + fvwm/components/functions/Window-Rearrange: remove outdated Window-Rearrange-Defult function samedi 16 movembre 2019 FAQ: Added uam configuration with ext formatted partitions. Modified: fvwm/components/functions/Window-Rearrange =================================================================== --- fvwm/components/functions/Window-Rearrange 2019-11-17 11:06:47 UTC (rev 943) +++ fvwm/components/functions/Window-Rearrange 2019-11-17 11:09:00 UTC (rev 944) @@ -20,9 +20,4 @@ + I All (CurrentPage,!Fvwm*, !gkrellm, !trayer) WindowShade off + I Piperead 'echo FvwmRearrange -tile -animate -resize -mn 2 -m $[EWMH_BS_Panel_Left]p $[EWMH_BS_Panel_Top]p `expr $[vp.width] - $[EWMH_BS_Panel_Right]`p `expr $[vp.height] - $[EWMH_BS_Panel_Bottom]`p' -DestroyFunc Window-Rearrange-Default -AddToFunc Window-Rearrange-Default -+ I All (CurrentPage, !Fvwm*, !gkrellm; !trayer) WinddowShade off -+ I All (CurrentPage, !Fvwm*, !gkrellm; !trayer) NS-Default - # vim:ft=fvwm This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2019-11-29 16:13:50
|
Revision: 953 http://sourceforge.net/p/fvwm-crystal/code/953 Author: dominique_libre Date: 2019-11-29 16:13:48 +0000 (Fri, 29 Nov 2019) Log Message: ----------- typo, usage and example fixes Modified Paths: -------------- ChangeLog fvwm/components/functions/BlingBling fvwm/components/functions/Tooltip Modified: ChangeLog =================================================================== --- ChangeLog 2019-11-23 14:29:14 UTC (rev 952) +++ ChangeLog 2019-11-29 16:13:48 UTC (rev 953) @@ -1,5 +1,9 @@ ChangeLog for FVWM-Crystal +vendredi 29 novembre 2019 + fvwm/components/functions/BlingBling: fix typo + fvwm/components/functions/Tooltip: update usage and example to current Crystal state + samedi 23 novembre 2019 fvwm/components/functions/CheckForFiles fvwm/components/functions/Preferences-Menu: new functions to start/stop the Modified: fvwm/components/functions/BlingBling =================================================================== --- fvwm/components/functions/BlingBling 2019-11-23 14:29:14 UTC (rev 952) +++ fvwm/components/functions/BlingBling 2019-11-29 16:13:48 UTC (rev 953) @@ -16,7 +16,7 @@ # Keap this file version below 1.0.0 because of that. # Set last focused window translucent, and focused window opaque -DestroyFunc FvwmTranslucensyChange +DestroyFunc FvwmTranslucencyChange AddToFunc FvwmTranslucencyChange + I ThisWindow (!FvwmButtons*, !ApplicationPanel, !FvwmPager*, !FvwmIconMan*, !Iconic) Exec $[FVWM_SYSTEMDIR]/scripts/SetTranslucency $[LastFocus] $[w.id] + I ThisWindow (!FvwmButtons*, !ApplicationPanel, !FvwmPager*, !FvwmIconMan*, !Iconic) SetEnv LastFocus $[w.id] Modified: fvwm/components/functions/Tooltip =================================================================== --- fvwm/components/functions/Tooltip 2019-11-23 14:29:14 UTC (rev 952) +++ fvwm/components/functions/Tooltip 2019-11-29 16:13:48 UTC (rev 953) @@ -1,7 +1,7 @@ # Support for Tooltip # Written by: Dominique Michel <dom...@so...> # -# Usage : FvwmButtons-Tooltip <name> <title> <"string to display"> <geometry> <layer> <delay> +# Usage : Fvwm-Tooltip <name> <title> <"string to display"> <geometry> <layer> <delay> # # where <name> is the name of the button such as FvwmButtons-Tooltip-<Name> # <title> is the titile to draw on the button. It support gettext. @@ -12,7 +12,7 @@ # An argument with a space must be quoted. # # Example : -# + I PointerWindow (FvwmButtons-Music) FvwmButtons-Tooltip Volume "Main volume" "$[CurrentVolume]" "+4-40" 20 1000 +# + I PointerWindow (FvwmButtons-Music) Fvwm-Tooltip Volume "Main volume" "$[infostore.CurrentVolume]" "+4-40" 20 1000 # will show a tooltip when the pointer is entering on FvwmButtons-Music. DestroyFunc Fvwm-Tooltip This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-01-05 21:49:26
|
Revision: 958 http://sourceforge.net/p/fvwm-crystal/code/958 Author: dominique_libre Date: 2020-01-05 21:49:24 +0000 (Sun, 05 Jan 2020) Log Message: ----------- Pref menu: comment Translucency-Dialog Modified Paths: -------------- ChangeLog fvwm/components/functions/Preferences-Menu Modified: ChangeLog =================================================================== --- ChangeLog 2020-01-05 21:45:00 UTC (rev 957) +++ ChangeLog 2020-01-05 21:49:24 UTC (rev 958) @@ -6,6 +6,7 @@ because of missing EWMH support in Xephyr. Use Styles to get a fullscreened look. fvwm/scripts/CustomButtonBar/CustomButtonBat: use positive emplacement in all cases; this fix the button placement with fvwm3. + fvwm/components/functions/Preferences-Menu: comment Translucency-Dialog mardi 10 décembre 2019 + fvwm/decorations/Clear/RedDesktop Modified: fvwm/components/functions/Preferences-Menu =================================================================== --- fvwm/components/functions/Preferences-Menu 2020-01-05 21:45:00 UTC (rev 957) +++ fvwm/components/functions/Preferences-Menu 2020-01-05 21:49:24 UTC (rev 958) @@ -152,7 +152,7 @@ DestroyFunc StartTranslucency AddToFunc StartTranslucency + I Exec exec xcompmgr -+ I Module FvwmForm Translucency-Dialog +#+ I Module FvwmForm Translucency-Dialog DestroyFunc StopTranslucency AddToFunc StopTranslucency @@ -170,7 +170,7 @@ AddToFunc StartBlingBling + I Exec exec xcompmgr + I Module FvwmEvent FvwmTranslucencyChangeEvent -+ I Module FvwmForm Translucency-Dialog +#+ I Module FvwmForm Translucency-Dialog DestroyFunc StopBlingBling AddToFunc StopBlingBling This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-01-08 22:13:01
|
Revision: 959 http://sourceforge.net/p/fvwm-crystal/code/959 Author: dominique_libre Date: 2020-01-08 22:13:00 +0000 (Wed, 08 Jan 2020) Log Message: ----------- Fullscreen: workaround buggy browser windows Modified Paths: -------------- ChangeLog fvwm/components/functions/Fullscreen Modified: ChangeLog =================================================================== --- ChangeLog 2020-01-05 21:49:24 UTC (rev 958) +++ ChangeLog 2020-01-08 22:13:00 UTC (rev 959) @@ -1,5 +1,9 @@ ChangeLog for FVWM-Crystal +Mercredi 8 janvier 2020 + fvwm/components/Fullscreen: workaround buggy browser windows which think they know + better that the window manager. + dimanche 5 janvier 2020 fvwm/scripts/launchwm fvwm/components/styles/Applications: Maximize Fullscreen doesn't work with a Xephyr window Modified: fvwm/components/functions/Fullscreen =================================================================== --- fvwm/components/functions/Fullscreen 2020-01-05 21:49:24 UTC (rev 958) +++ fvwm/components/functions/Fullscreen 2020-01-08 22:13:00 UTC (rev 959) @@ -1,5 +1,5 @@ # FVWM-Crystal: Fullscreen -# Written by: Dominique Michel 2008-2019 +# Written by: Dominique Michel 2008-2020 # <dom...@us...> # replace the Fullscreen functions written when fvwm did not have native Fs support. # but now (2019) fvwm have that support, so rewrite things around. @@ -18,12 +18,35 @@ # # The other window size functions are into Window-Buttons. -# Fullscreen function {{{1 +# Fullscreen functions {{{1 +# Workaround: We need a wrapper because of buggy browser windowss which think they know better than the window manager. DestroyFunc Fullscreen AddToFunc Fullscreen -+ I ThisWindow (!FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Maximize Fullscreen ++ I ThisWindow (!FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) ToggleFullscreen +#+ I ThisWindow (!FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Maximize Fullscreeen -# Disapear Wrapper function {{{1 +DestroyFunc PutInFSProp +AddToFunc PutInFSProp +# Needed by browsers on youtube ++ I WindowStyle !Borders, !Title ++ I UpdateStyles ++ I State 4 True ++ I Current Schedule Periodic 1000 $[w.id] ThisWindow (State 4, !Fullscreen) Maximize FullScreen True + +DestroyFunc PutOutFSProp +AddToFunc PutOutFSProp ++ I WindowStyle Borders, Title ++ I UpdateStyles ++ I State 4 False ++ I Current Deschedule $[w.id] + +DestroyFunc ToggleFullscreen +AddToFunc ToggleFullscreen ++ I ThisWindow (Fullscreen) PutOutFSProp ++ I TestRc (NoMatch) PutInFSProp ++ I Maximize Fullscreen + +# Disapear functions {{{1 DestroyFunc Disappear AddToFunc Disappear + I Next (CurrentPage, Fullscreen, Iconic) Disappear-Off @@ -41,18 +64,22 @@ + I WindowStyle Icon + I UpdateStyles -# Rearrange in fullscreen +# Rearrange in fullscreen {{{1 DestroyFunc Fullscreen-Rearrange AddToFunc Fullscreen-Rearrange -+ I All (CurrentPage, !Iconic, !FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Maximize Fullscreen ++ I All (CurrentPage, !Iconic, !FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) ToggleFullscreen +#+ I All (CurrentPage, !Iconic, !FvwmButtons, !FvwmPager, !FvwmMiniConsoleNeedsUniqueName, !QuakeConsoleNeedsUniqueName, !FvwmIconMan, !MPlayer) Maximize Fullscreen -# Start in full screen at application statup +# Start in full screen at application statup {{{1 DestroyFunc Window-AutoFS AddToFunc Window-AutoFS PipeRead '$[FVWM_SYSTEMDIR]/scripts/FSApps' +# Event {{{1 DestroyModuleConfig FvwmEvent-Window-Fullscreen-Auto: * *FvwmEvent-Window-FullScreen-Auto: add_window Window-AutoFS +*FvwmEvent-Window-FullScreen-Auto: destroy_window Current Deschedule $[w.id] +#*FvwmEvent-Window-FullScreen-Auto: destroy_window "Echo FE Current Deschedule $[w.id]" Module FvwmEvent FvwmEvent-Window-Fullscreen-Auto # vim:ft=fvwm This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-06 23:37:30
|
Revision: 962 http://sourceforge.net/p/fvwm-crystal/code/962 Author: dominique_libre Date: 2020-02-06 23:37:28 +0000 (Thu, 06 Feb 2020) Log Message: ----------- Fix urxvtc restart after a kill -9 Modified Paths: -------------- ChangeLog fvwm/components/functions/Exec-Accelerator Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-06 13:06:23 UTC (rev 961) +++ ChangeLog 2020-02-06 23:37:28 UTC (rev 962) @@ -1,5 +1,8 @@ ChangeLog for FVWM-Crystal +vendreedi 7 février 2020 + fvwm/components/functions/Exec-Accelerator: Fix restart of urxvtc after a kill -9 + jeudi 6 février 2020 fvwm/components/bindings/Misc-Keybindings, fvwm/components/bindings/Misc-Keybindings_NumLock: Add comments with my private setting. Modified: fvwm/components/functions/Exec-Accelerator =================================================================== --- fvwm/components/functions/Exec-Accelerator 2020-02-06 13:06:23 UTC (rev 961) +++ fvwm/components/functions/Exec-Accelerator 2020-02-06 23:37:28 UTC (rev 962) @@ -42,41 +42,51 @@ # it uses graphical client called 'gksudo' to execute a command. Unfortunately # this variant is only usable with graphical applications. -SetEnv DefaultTerminal NO_DEFAULT_TERMINAL_FOUND -#FindCommand DefaultTerminal urxvt aterm xterm +# TODO: check the --title and -e options for all terms, gnome-terminal have a new syntyx !?????! with -- command + CheckPreferences DefaultTerminal "SavePreferences DefaultTerminal 'FindCommand DefaultTerminal urxvt aterm xterm x-terminal-emulator'" -# start urxvtd if def term is urxvtc -DestroyFunc StartUrxvtd -AddToFunc StartUrxvtd -+ I LoadPreferences DefaultTerminal -+ I SetEnv DefaultTerminal $[infostore.DefaultTerminal] -+ I Test (EnvMatch DefaultTerminal urxvtc) Exec pidof urxvtd || exec urxvtd -f -o $[infostore.SILENT] -+ I UnsetEnv DefaultTerminal -StartUrxvtd +LoadPreferences DefaultTerminal +# If urxvtc is killed, urxvtd is killed too, so start urxvtd if needed. +# StartUrxvtc need an argument or urxvtc will fail; see the A, AA and AT functions. +DestroyFunc StartUrxvtc +AddToFunc StartUrxvtc ++ I Piperead 'urxvtc "$*" $[infostore.SILENT]; if [ $? = 2 ]; then \ + urxvtd -f -o $[infostore.SILENT]; \ + urxvtc "$*"; \ + fi' + +DestroyFunc StartTerminal +AddToFunc StartTerminal ++ I Test (!EnvMatch infostore.DefaultTerminal gnome-terminal, !EnvMatch DefaultTerminal multi-gnome-terminal, !EnvMatch DefaultTerminal terminator, !EnvMatch DefaultTerminal x-terminal-emulator, !EnvMatch DefaultTerminal xfce4-terminal) Exec exec $[infostore.DefaultTerminal] -e $* $[infostore.SILENT] ++ I TestRc (NoMatch) Exec exec $[infostore.DefaultTerminal] -e "$*" $[infostore.SILENT] + +DestroyFunc StartTitledTerminal +AddToFunc StartTitledTerminal ++ I Test (!EnvMatch infostore.DefaultTerminal gnome-terminal, !EnvMatch DefaultTerminal multi-gnome-terminal, !EnvMatch DefaultTerminal terminator, !EnvMatch DefaultTerminal x-terminal-emulator, !EnvMatch DefaultTerminal xfce4-terminal) Exec exec $[infostore.DefaultTerminal] --title "$0" -e $[1-] $[infostore.SILENT] ++ I TestRc (NoMatch) Exec exec $[infostore.DefaultTerminal] --title "$0" -e "$[1-]" $[infostore.SILENT] + # Usage: A [command] [command options] DestroyFunc A AddToFunc A -+ I SetEnv DefaultTerminal $[infostore.DefaultTerminal] -+ I Window-SetPlacementPolicy -+ I Test (!EnvMatch DefaultTerminal gnome-terminal, !EnvMatch DefaultTerminal multi-gnome-terminal, !EnvMatch DefaultTerminal terminator, !EnvMatch DefaultTerminal x-terminal-emulator, !EnvMatch DefaultTerminal xfce4-terminal) Exec exec $[infostore.DefaultTerminal] -e $* $[infostore.SILENT] -+ I TestRc (NoMatch) Exec exec $[infostore.DefaultTerminal] -e "$*" $[infostore.SILENT] -+ I UnsetEnv DefaultTerminal ++ I Window-SetPlacementPolicy ++ I Test (EnvMatch infostore.DefaultTerminal urxvtc) StartUrxvtc "-e $*" ++ I TestRc (NoMatch) StartTerminal "$*" DestroyFunc AA AddToFunc AA -+ I Window-SetPlacementPolicy -+ I Exec exec $[infostore.DefaultTerminal] $[infostore.SILENT] ++ I Window-SetPlacementPolicy ++ I Test (EnvMatch infostore.DefaultTerminal urxvtc) StartUrxvtc "-name urxvt" ++ I TestRc (NoMatch) Exec exec $[infostore.DefaultTerminal] $[infostore.SILENT] # Usage: AT [title] [command] (Use quotes if you want command options or title with spaces) # !: doesn't work anymore with gnome-terminal due to a bug in gnome-terminal (doesn't honor anymore it's own --title option (and --name and --class too)). +# As the preceding similar bug tooks years to be fixed and that one was introduced only a few months later, just choose another terminal DestroyFunc AT AddToFunc AT -+ I SetEnv DefaultTerminal $[infostore.DefaultTerminal] -+ I Window-SetPlacementPolicy -+ I Test (!EnvMatch DefaultTerminal gnome-terminal, !EnvMatch DefaultTerminal multi-gnome-terminal, !EnvMatch DefaultTerminal terminator, !EnvMatch DefaultTerminal x-terminal-emulator, !EnvMatch DefaultTerminal xfce4-terminal) Exec exec $[infostore.DefaultTerminal] -title "$0" -e $1 $[infostore.SILENT] -+ I TestRc (NoMatch) Exec exec $[infostore.DefaultTerminal] --title "$0" -e "$1" $[infostore.SILENT] -+ I UnsetEnv DefaultTerminal ++ I Window-SetPlacementPolicy ++ I Test (EnvMatch infostore.DefaultTerminal urxvtc) StartUrxvtc "--title "$0" -e $[1-]" ++ I TestRc (NoMatch) StartTitledTerminal "$0" $[1-] # Usage: C [command] [command options] DestroyFunc C This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-06 23:40:59
|
Revision: 963 http://sourceforge.net/p/fvwm-crystal/code/963 Author: dominique_libre Date: 2020-02-06 23:40:58 +0000 (Thu, 06 Feb 2020) Log Message: ----------- Fix fvwm Style of Fvwm* man pages Modified Paths: -------------- ChangeLog fvwm/components/functions/Developer-Menu Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-06 23:37:28 UTC (rev 962) +++ ChangeLog 2020-02-06 23:40:58 UTC (rev 963) @@ -2,6 +2,7 @@ vendreedi 7 février 2020 fvwm/components/functions/Exec-Accelerator: Fix restart of urxvtc after a kill -9 + fvwm/components/functions/Developer-Menu: fix fvwm Style of Fvwm* man pages jeudi 6 février 2020 fvwm/components/bindings/Misc-Keybindings, Modified: fvwm/components/functions/Developer-Menu =================================================================== --- fvwm/components/functions/Developer-Menu 2020-02-06 23:37:28 UTC (rev 962) +++ fvwm/components/functions/Developer-Menu 2020-02-06 23:40:58 UTC (rev 963) @@ -38,9 +38,10 @@ + "%22x22/categories/help.png%$[gt.Crystal Rox! HOWTO]" FvwmViewManPage CrystalRoxHOWTO + "%22x22/categories/help.png%$[gt.Application database]" FvwmViewManPage ApplicationDatabase +# With a title that begin with Fvwm, fvwm apply the wrong style DestroyFunc FvwmViewManPage AddToFunc FvwmViewManPage -+ I AT $0 "man $0" ++ I AT "man $0" "man $0" DestroyMenu /Developer/FvwmManpages AddToMenu /Developer/FvwmManpages This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-09 18:59:31
|
Revision: 964 http://sourceforge.net/p/fvwm-crystal/code/964 Author: dominique_libre Date: 2020-02-09 18:59:29 +0000 (Sun, 09 Feb 2020) Log Message: ----------- Exit menu: fix xscreensaver and systemctl menu Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-06 23:40:58 UTC (rev 963) +++ ChangeLog 2020-02-09 18:59:29 UTC (rev 964) @@ -1,6 +1,9 @@ ChangeLog for FVWM-Crystal -vendreedi 7 février 2020 +dimanche 9 février 2020 + fvwm/components/functions/Exit: fix xscreensaver and systemctl menu + +vendredi 7 février 2020 fvwm/components/functions/Exec-Accelerator: Fix restart of urxvtc after a kill -9 fvwm/components/functions/Developer-Menu: fix fvwm Style of Fvwm* man pages Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2020-02-06 23:40:58 UTC (rev 963) +++ fvwm/components/functions/Exit 2020-02-09 18:59:29 UTC (rev 964) @@ -77,39 +77,86 @@ AddToMenu /ScreenLidSuspend + DynamicPopupAction Function ScreenLidSuspend-generator -DestroyMenu /Exit -AddToMenu /Exit -+ '%22x22/fvwm-crystal/view-refresh.png%$[gt.Restart]' Restart -Test (x xscreensaver) + '%22x22/fvwm-crystal/system-lock-screen.png%$[gt.Lock screen]' X xscreensaver-command -lock -Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' QuitSession -Test (!EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' Quit -Test (x /usr/sbin/pm-hibernate) + '' Nop -Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate -Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate -Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride with screen lid]' Popup /ScreenLidSuspend -Test (x /usr/sbin/pm-suspend) + '' Nop -Test (x /usr/sbin/pm-suspend) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S pm-suspend -Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S pm-suspend-hybrid -Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S pm-hibernate -Test (x /usr/sbin/pm-powersave) + '%22x22/fvwm-crystal/gdm.png%$[gt.Powersave]' S pm-powersave -Test (x /usr/bin/systemctl) + '' Nop -Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S systemctl suspend -i -Test (X systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S systemctl hibernate -i -Test (EnvIsSet SESSION_MANAGER) + '' Nop -Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui -Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties +DestroyFunc Exit-Menu-pm +AddToFunc Exit-Menu-pm ++ I AddToMenu /Exit '' Nop ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride with screen lid]' Popup /ScreenLidSuspend ++ I AddToMenu /Exit '' Nop ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S pm-suspend ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S pm-suspend-hybrid ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S pm-hibernate ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Powersave]' S pm-powersave -DestroyFunc Exit-SelectExitManager -AddToFunc Exit-SelectExitManager -+ I Test (X systemctl) Include components/functions/Exit-systemctl +DestroyFunc Exit-Menu-sysctl +AddToFunc Exit-Menu-sysctl ++ I AddToMenu /Exit '' Nop ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S $0 suspend -i ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S $0 hibernate -i ++ I AddToMenu /Exit "" Nop ++ I AddToMenu /Exit '%22x22/fvwm-crystal/system-reboot.png%$[gt.Reboot computer]' S $0 reboot -i ++ I AddToMenu /Exit '%22x22/fvwm-crystal/system-shutdown.png%$[gt.Turn off computer]' S $0 poweroff -i + +DestroyFunc Exit-SelectLogoutManager +AddToFunc Exit-SelectLogoutManager ++ I Test (X gdmflexiserver) PipeRead 'pidof gdm > /dev/null && echo "Include components/functions/Exit-gdm" || echo "Exit-SelectExitManager"' + I TestRc (NoMatch) Include components/functions/Exit-sudo +DestroyFunc Exit-Menu +AddToFunc Exit-Menu ++ I DestroyMenu /Exit ++ I AddToMenu /Exit ++ I AddToMenu /Exit '%22x22/fvwm-crystal/view-refresh.png%$[gt.Restart]' Restart ++ I Test (x /usr/bin/xscreensaver) AddToMenu /Exit '%22x22/fvwm-crystal/system-lock-screen.png%$[gt.Lock screen]' X xscreensaver-command -lock ++ I Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' QuitSession ++ I Test (!EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' Quit ++ I Test (x /usr/sbin/pm-hibernate) Exit-Menu-pm ++ I Test (x /bin/systemctl) Exit-Menu-sysctl /bin/systemctl ++ I TestRc (Match) InfostoreAdd ExitManager sysctl ++ I Test (x /usr/bin/systemctl) Exit-Menu-sysctl /usr/bin/systemctl ++ I TestRc (Match) InfoStoreAdd ExitManager sysctl ++ I Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '' Nop +Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui +Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties ++ I Test (!EnvMatch infostore.ExitManager sysctl) Exit-SelectLogoutManager ++ I InfoStoreRemove ExitManager + +Exit-Menu + +#DestroyMenu /Exit +#AddToMenu /Exit +#+ '%22x22/fvwm-crystal/view-refresh.png%$[gt.Restart]' Restart +#Test (x xscreensaver) + '%22x22/fvwm-crystal/system-lock-screen.png%$[gt.Lock screen]' X xscreensaver-command -lock +#Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' QuitSession +#Test (!EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' Quit +#Test (x /usr/sbin/pm-hibernate) + '' Nop +#Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate +#Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate +#Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride with screen lid]' Popup /ScreenLidSuspend +#Test (x /usr/sbin/pm-suspend) + '' Nop +#Test (x /usr/sbin/pm-suspend) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S pm-suspend +#Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S pm-suspend-hybrid +#Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S pm-hibernate +#Test (x /usr/sbin/pm-powersave) + '%22x22/fvwm-crystal/gdm.png%$[gt.Powersave]' S pm-powersave +#Test (x /usr/bin/systemctl) + '' Nop +#Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S systemctl suspend -i +#Test (X systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S systemctl hibernate -i +#Test (EnvIsSet SESSION_MANAGER) + '' Nop +#Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui +#Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties + +DestroyFunc Exit-SelectExitManager +#AddToFunc Exit-SelectExitManager +#+ I Test (X systemctl) Include components/functions/Exit-systemctl +#+ I TestRc (NoMatch) Include components/functions/Exit-sudo + DestroyFunc Exit-SelectLoginManager -AddToFunc Exit-SelectLoginManager -+ I Test (X gdmflexiserver) PipeRead 'pidof gdm > /dev/null && echo "Include components/functions/Exit-gdm" || echo "Exit-SelectExitManager"' -+ I TestRc (NoMatch) Exit-SelectExitManager +#AddToFunc Exit-SelectLoginManager +#+ I Test (X gdmflexiserver) PipeRead 'pidof gdm > /dev/null && echo "Include components/functions/Exit-gdm" || echo "Exit-SelectExitManager"' +#+ I TestRc (NoMatch) Exit-SelectExitManager -Exit-SelectLoginManager +#Exit-SelectLoginManager Test (x /usr/sbin/pm-hibernate) AddToFunc ExitFunction I Test (ToRestart) KillAutoHibernate # vim:ft=fvwm This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-09 21:18:13
|
Revision: 965 http://sourceforge.net/p/fvwm-crystal/code/965 Author: dominique_libre Date: 2020-02-09 21:18:12 +0000 (Sun, 09 Feb 2020) Log Message: ----------- Exit menu: call systemctl without sudo Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-09 18:59:29 UTC (rev 964) +++ ChangeLog 2020-02-09 21:18:12 UTC (rev 965) @@ -1,7 +1,8 @@ ChangeLog for FVWM-Crystal dimanche 9 février 2020 - fvwm/components/functions/Exit: fix xscreensaver and systemctl menu + fvwm/components/functions/Exit: fix xscreensaver and systemctl menu; + call systemctl without sudo vendredi 7 février 2020 fvwm/components/functions/Exec-Accelerator: Fix restart of urxvtc after a kill -9 Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2020-02-09 18:59:29 UTC (rev 964) +++ fvwm/components/functions/Exit 2020-02-09 21:18:12 UTC (rev 965) @@ -92,11 +92,11 @@ AddToFunc Exit-Menu-sysctl + I AddToMenu /Exit '' Nop + I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate -+ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S $0 suspend -i -+ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S $0 hibernate -i ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' A $0 suspend -i ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' A $0 hibernate -i + I AddToMenu /Exit "" Nop -+ I AddToMenu /Exit '%22x22/fvwm-crystal/system-reboot.png%$[gt.Reboot computer]' S $0 reboot -i -+ I AddToMenu /Exit '%22x22/fvwm-crystal/system-shutdown.png%$[gt.Turn off computer]' S $0 poweroff -i ++ I AddToMenu /Exit '%22x22/fvwm-crystal/system-reboot.png%$[gt.Reboot computer]' A $0 reboot -i ++ I AddToMenu /Exit '%22x22/fvwm-crystal/system-shutdown.png%$[gt.Turn off computer]' A $0 poweroff -i DestroyFunc Exit-SelectLogoutManager AddToFunc Exit-SelectLogoutManager This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-09 21:31:36
|
Revision: 966 http://sourceforge.net/p/fvwm-crystal/code/966 Author: dominique_libre Date: 2020-02-09 21:31:35 +0000 (Sun, 09 Feb 2020) Log Message: ----------- Exit menu: cleanup Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Removed Paths: ------------- fvwm/components/functions/Exit-systemctl Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-09 21:18:12 UTC (rev 965) +++ ChangeLog 2020-02-09 21:31:35 UTC (rev 966) @@ -2,7 +2,9 @@ dimanche 9 février 2020 fvwm/components/functions/Exit: fix xscreensaver and systemctl menu; - call systemctl without sudo + call systemctl without sudo; don't show pm-utils menu is systemd is present; + cleanup. +- fvwm/components/functions/Exit-systemctl: moved to the Exit file vendredi 7 février 2020 fvwm/components/functions/Exec-Accelerator: Fix restart of urxvtc after a kill -9 Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2020-02-09 21:18:12 UTC (rev 965) +++ fvwm/components/functions/Exit 2020-02-09 21:31:35 UTC (rev 966) @@ -105,6 +105,9 @@ DestroyFunc Exit-Menu AddToFunc Exit-Menu ++ I InfoStoreAdd sysctl no ++ I Test (x /usr/bin/systemctl) InfoStoreAdd sysctl /usr/bin/systemctl ++ I TestRc (NoMatch) Test (x /bin/systemctl) InfoStoreAdd sysctl /bin/systemctl + I DestroyMenu /Exit + I AddToMenu /Exit + I AddToMenu /Exit '%22x22/fvwm-crystal/view-refresh.png%$[gt.Restart]' Restart @@ -111,52 +114,17 @@ + I Test (x /usr/bin/xscreensaver) AddToMenu /Exit '%22x22/fvwm-crystal/system-lock-screen.png%$[gt.Lock screen]' X xscreensaver-command -lock + I Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' QuitSession + I Test (!EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' Quit -+ I Test (x /usr/sbin/pm-hibernate) Exit-Menu-pm ++ I Test (EnvIsSet sysctl no) Test (x /usr/sbin/pm-hibernate) Exit-Menu-pm + I Test (x /bin/systemctl) Exit-Menu-sysctl /bin/systemctl -+ I TestRc (Match) InfostoreAdd ExitManager sysctl + I Test (x /usr/bin/systemctl) Exit-Menu-sysctl /usr/bin/systemctl -+ I TestRc (Match) InfoStoreAdd ExitManager sysctl + I Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '' Nop Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties -+ I Test (!EnvMatch infostore.ExitManager sysctl) Exit-SelectLogoutManager ++ I Test (EnvMatch infostore.sysctl no) Exit-SelectLogoutManager + I InfoStoreRemove ExitManager Exit-Menu -#DestroyMenu /Exit -#AddToMenu /Exit -#+ '%22x22/fvwm-crystal/view-refresh.png%$[gt.Restart]' Restart -#Test (x xscreensaver) + '%22x22/fvwm-crystal/system-lock-screen.png%$[gt.Lock screen]' X xscreensaver-command -lock -#Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' QuitSession -#Test (!EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/system-log-out.png%$[gt.Logout]' Quit -#Test (x /usr/sbin/pm-hibernate) + '' Nop -#Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate -#Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate -#Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride with screen lid]' Popup /ScreenLidSuspend -#Test (x /usr/sbin/pm-suspend) + '' Nop -#Test (x /usr/sbin/pm-suspend) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S pm-suspend -#Test (x /usr/sbin/pm-suspend-hybrid) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' S pm-suspend-hybrid -#Test (x /usr/sbin/pm-hibernate) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S pm-hibernate -#Test (x /usr/sbin/pm-powersave) + '%22x22/fvwm-crystal/gdm.png%$[gt.Powersave]' S pm-powersave -#Test (x /usr/bin/systemctl) + '' Nop -#Test (x /usr/bin/systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' S systemctl suspend -i -#Test (X systemctl) + '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' S systemctl hibernate -i -#Test (EnvIsSet SESSION_MANAGER) + '' Nop -#Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui -#Test (EnvIsSet SESSION_MANAGER) + '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties - -DestroyFunc Exit-SelectExitManager -#AddToFunc Exit-SelectExitManager -#+ I Test (X systemctl) Include components/functions/Exit-systemctl -#+ I TestRc (NoMatch) Include components/functions/Exit-sudo - -DestroyFunc Exit-SelectLoginManager -#AddToFunc Exit-SelectLoginManager -#+ I Test (X gdmflexiserver) PipeRead 'pidof gdm > /dev/null && echo "Include components/functions/Exit-gdm" || echo "Exit-SelectExitManager"' -#+ I TestRc (NoMatch) Exit-SelectExitManager - -#Exit-SelectLoginManager Test (x /usr/sbin/pm-hibernate) AddToFunc ExitFunction I Test (ToRestart) KillAutoHibernate # vim:ft=fvwm Deleted: fvwm/components/functions/Exit-systemctl =================================================================== --- fvwm/components/functions/Exit-systemctl 2020-02-09 21:18:12 UTC (rev 965) +++ fvwm/components/functions/Exit-systemctl 2020-02-09 21:31:35 UTC (rev 966) @@ -1,9 +0,0 @@ -# Exit commands - works with systemd -# Created by: Dominique Michel <dom...@us...> - -AddToMenu /Exit -Test (X systemctl) + "" Nop -Test (X systemctl) + '%22x22/fvwm-crystal/system-reboot.png%$[gt.Reboot computer]' S systemctl reboot -i -Test (X systemctl) + '%22x22/fvwm-crystal/system-shutdown.png%$[gt.Turn off computer]' S systemctl poweroff -i - -# vim:ft=fvwm This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-09 22:11:36
|
Revision: 968 http://sourceforge.net/p/fvwm-crystal/code/968 Author: dominique_libre Date: 2020-02-09 22:11:35 +0000 (Sun, 09 Feb 2020) Log Message: ----------- Fix call of AutoHibernate menu with sysctl Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-09 21:58:26 UTC (rev 967) +++ ChangeLog 2020-02-09 22:11:35 UTC (rev 968) @@ -3,7 +3,7 @@ dimanche 9 février 2020 fvwm/components/functions/Exit: fix xscreensaver and systemctl menu; call systemctl without sudo; don't show pm-utils menu is systemd is present; - cleanup. + cleanup; fix unique call of AutoHibernate menu. - fvwm/components/functions/Exit-systemctl: moved to the Exit file fvwm/scripts/AutoHibernate: call systemctl without sudo Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2020-02-09 21:58:26 UTC (rev 967) +++ fvwm/components/functions/Exit 2020-02-09 22:11:35 UTC (rev 968) @@ -41,15 +41,17 @@ DestroyFunc AutoHibernate-generator AddToFunc AutoHibernate-generator ++ I InfoStoreAdd sysctl no ++ I Test (x /usr/bin/systemctl) InfoStoreAdd sysctl /usr/bin/systemctl ++ I TestRc (NoMatch) Test (x /bin/systemctl) InfoStoreAdd sysctl /bin/systemctl + I DestroyMenu recreate /AutoHibernate + I Piperead "if test `pkill -0 AutoHibernate`; \ then echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \ - echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \ - echo Test \\\(x /bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \ + echo Test \\\(!EnvMatch infostore.sysctl no\\\) AddToMenu /AutoHibernate \\'$[gt.Stop]\\' EndAutoHibernate; \ else echo Test \\\(x /usr/sbin/pm-hibernate\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernatePMValue; \ - echo Test \\\(x /usr/bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernateSysValue; \ - echo Test \\\(x /bin/systemctl\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernateSysValue; \ + echo Test \\\(!EnvMatch infostore.sysctl no\\\) AddToMenu /AutoHibernate \\'$[gt.Start when battery is as low as]\\' Popup /AutoHibernateSysValue; \ fi" ++ I InfoStoreRemove sysctl DestroyMenu /AutoHibernate AddToMenu /AutoHibernate @@ -123,7 +125,7 @@ Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Save session]' Exec exec gnome-session-save --gui Test (EnvIsSet SESSION_MANAGER) AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Manage session]' Exec exec gnome-session-properties + I Test (EnvMatch infostore.sysctl no) Exit-SelectLogoutManager -+ I InfoStoreRemove ExitManager ++ I InfoStoreRemove sysctl Exit-Menu This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-09 22:52:02
|
Revision: 971 http://sourceforge.net/p/fvwm-crystal/code/971 Author: dominique_libre Date: 2020-02-09 22:52:00 +0000 (Sun, 09 Feb 2020) Log Message: ----------- Add syspend-hybrid with sysd in Exit menu Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-09 22:44:21 UTC (rev 970) +++ ChangeLog 2020-02-09 22:52:00 UTC (rev 971) @@ -3,7 +3,7 @@ dimanche 9 février 2020 fvwm/components/functions/Exit: fix xscreensaver and systemctl menu; call systemctl without sudo; don't show pm-utils menu is systemd is present; - cleanup; fix unique call of AutoHibernate menu. + cleanup; fix unique call of AutoHibernate menu; add suspend-hybrid to sysd menu - fvwm/components/functions/Exit-systemctl: moved to the Exit file fvwm/scripts/AutoHibernate: call systemctl without sudo Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2020-02-09 22:44:21 UTC (rev 970) +++ fvwm/components/functions/Exit 2020-02-09 22:52:00 UTC (rev 971) @@ -98,6 +98,7 @@ + I AddToMenu /Exit '' Nop + I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Automatic suspend to disk]' Popup /AutoHibernate + I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume to RAM]' A $0 suspend -i ++ I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Resume hybride]' A $0 suspend-hybrid -i + I AddToMenu /Exit '%22x22/fvwm-crystal/gdm.png%$[gt.Suspend to disk]' A $0 hibernate -i + I AddToMenu /Exit "" Nop + I AddToMenu /Exit '%22x22/fvwm-crystal/system-reboot.png%$[gt.Reboot computer]' A $0 reboot -i This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-10 19:04:30
|
Revision: 977 http://sourceforge.net/p/fvwm-crystal/code/977 Author: dominique_libre Date: 2020-02-10 19:04:29 +0000 (Mon, 10 Feb 2020) Log Message: ----------- Exit: fix conditional in ScreenLidSuspend preference to work with debian Modified Paths: -------------- ChangeLog fvwm/components/functions/Exit Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-09 23:58:52 UTC (rev 976) +++ ChangeLog 2020-02-10 19:04:29 UTC (rev 977) @@ -1,5 +1,9 @@ ChangeLog for FVWM-Crystal +lundi 10 février 2020 + fvwm/components/functions/Exit: fix conditional in ScreenLidSuspend preference + to work with debian and sh=dash + dimanche 9 février 2020 fvwm/components/functions/Exit: fix xscreensaver and systemctl menu; call systemctl without sudo; don't show pm-utils menu is systemd is present; Modified: fvwm/components/functions/Exit =================================================================== --- fvwm/components/functions/Exit 2020-02-09 23:58:52 UTC (rev 976) +++ fvwm/components/functions/Exit 2020-02-10 19:04:29 UTC (rev 977) @@ -61,7 +61,7 @@ DestroyFunc ScreenLidSuspend AddToFunc ScreenLidSuspend + I Exec exec $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend $0 -+ I SavePreferences ScreenLidSuspend "Exec exec pgrep -f ScreenLidSuspen 1>/dev/null || $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend $0" ++ I SavePreferences ScreenLidSuspend "Exec if [ \\`pgrep -c ScreenLidSuspen\\` -eq 0 ]; then exec $[FVWM_SYSTEMDIR]/scripts/ScreenLidSuspend $0; fi" DestroyFunc NoScreenLidSuspend AddToFunc NoScreenLidSuspend This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <dom...@us...> - 2020-02-11 15:18:27
|
Revision: 983 http://sourceforge.net/p/fvwm-crystal/code/983 Author: dominique_libre Date: 2020-02-11 15:18:26 +0000 (Tue, 11 Feb 2020) Log Message: ----------- CustomButtonBar-Menu: use EWMH-Panel-[Left|Right] to set the ewmh border hints Modified Paths: -------------- ChangeLog fvwm/components/functions/CustomButtonBar-Menu Modified: ChangeLog =================================================================== --- ChangeLog 2020-02-11 15:14:54 UTC (rev 982) +++ ChangeLog 2020-02-11 15:18:26 UTC (rev 983) @@ -1,7 +1,8 @@ ChangeLog for FVWM-Crystal mardi 11 février 2020 - fvwm/scripts/CustomButtonBar/CustomButtonBar: use EWMH-Panel-[Left|Right] to set + fvwm/scripts/CustomButtonBar/CustomButtonBar; + fvwm/components/functions/CustomButtonBar-Menu: use EWMH-Panel-[Left|Right] to set the ewmh border hints fvwm/recipes/Custom: fix ewmh working area with the custom button bar and the desktop icon manager Modified: fvwm/components/functions/CustomButtonBar-Menu =================================================================== --- fvwm/components/functions/CustomButtonBar-Menu 2020-02-11 15:14:54 UTC (rev 982) +++ fvwm/components/functions/CustomButtonBar-Menu 2020-02-11 15:18:26 UTC (rev 983) @@ -41,7 +41,8 @@ if [ ! -e $[FVWM_USERDIR]/tmp/CustomButtonBar ]; \ then $[FVWM_SYSTEMDIR]/scripts/CustomButtonBar/CustomButtonBar $[vp.width] $[vp.height] $[infostore.CustomBarLocation] $[infostore.CustomButtonSize] \ $[infostore.CustomButtonClock] $[infostore.CustomButtonCpuTemp] $[infostore.CustomButtonAcpiBatt] $[infostore.CustomButtonCpuFreq] \ - $[infostore.CustomButtonPager] $[infostore.Desk_Pages_X] $[infostore.NotificationAreaManager]; fi" + $[infostore.CustomButtonPager] $[infostore.Desk_Pages_X] $[infostore.NotificationAreaManager] \ + $[infostore.EWMH_DI_Left] $[infostore.EWMH_DI_Right] $[infostore.EWMH_DI_Top] $[infostore.EWMH_DI_Bottom]; fi" # Load the menu Include tmp/CustomBarApplications @@ -178,7 +179,8 @@ AddToFunc GenerateCustomButtonBar + I PipeRead "$[FVWM_SYSTEMDIR]/scripts/CustomButtonBar/CustomButtonBar $[vp.width] $[vp.height] $[infostore.CustomBarLocation] $[infostore.CustomButtonSize] \ $[infostore.CustomButtonClock] $[infostore.CustomButtonCpuTemp] $[infostore.CustomButtonAcpiBatt] $[infostore.CustomButtonCpuFreq] \ - $[infostore.CustomButtonPager] $[infostore.Desk_Pages_X] $[infostore.NotificationAreaManager]" + $[infostore.CustomButtonPager] $[infostore.Desk_Pages_X] $[infostore.NotificationAreaManager] \ + $[infostore.EWMH_DI_Left] $[infostore.EWMH_DI_Right] $[infostore.EWMH_DI_Top] $[infostore.EWMH_DI_Bottom]" + I Include tmp/CustomButtonBar All (CustomButtonBar-Dialog) Close This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |