DestroyFunc MakeMPlayerParamsScript
AddToFunc MakeMPlayerParamsScript
+ I Exec exec $[FVWM_SYSTEMDIR]/scripts/SingleLineEdit/DoSingleLineEdit MPlayerParams "$[gt.MPlayer extra parameters]" \
	MPlayerParams MPlayerParams-Help "300 300" "Include components/functions/Music-$[infostore.MusicPlayer]" "SetEnv MPlayerParams \"-cache 1024\""

DestroyFunc LaunchMPlayerParamsScript
AddToFunc LaunchMPlayerParamsScript
+ I Script tmp/MPlayerParams

DestroyFunc EditMPlayerParams
AddToFunc EditMPlayerParams
+ I MakeMPlayerParamsScript
+ I Schedule 1000 LaunchMPlayerParamsScript
#+ I Exec exec rm -f $[FVWM_USERDIR]/tmp/TestScript
