On Fri, 19 Nov 1999, Tim Phipps wrote:
> Alex Wallis wrote:
>
> > This file is 90 lines or so long, s.....
> 90 lines is small enought to post here.
>
OK I've appended it to this post.
> BTW there is an FvwmScript script to edit the colors in colorsets, it is
> in the Scripts/ directory and is called Colorset. It doesn't save
> settings but it does have RGB sliders. It should be in tommorrows
> snapshot (fvwm-snap-19991119.tar.gz) and is in the CVS ftp site at
> ftp://ftp.fvwm.org/pub/fvwm/devel/sources/modules/FvwmScript/Scripts/Colorset
>
> Cheers,
> Tim.
>
Thanks for the tip! I went and grabbed it straight away. Pretty good interface.
Too bad he was too tired to finish it. Never mind, maybe one day.
Anyway, my form _does_ have a save button, AND you can test new colors
before you save them, returning to last save if you 'mess up'. The big
drawback of course with my script is you _have_ to type the options manually.
No spiffy sliders! C'est la unix!
awol
"If all you've got is a hammer, everything looks like a nail."
P.S. AddToMenu SomeMenu "Colorset Options" Module FvwmForm ColOpt
P.P.S. Don't forget to tell FvwmTheme to Read ${FVWM_USERHOME}/.fvwm2_pallette
#--------------------------------------------------------------------
#------- Form Fvwm Colorset Options
#--------------------------------------------------------------------
DestroyModuleConfig ColOpt*
*ColOptWarpPointer
*ColOptUseData .fvwm2_colorset *ColOptDefault
*ColOptLine center
*ColOptText "Colorset Options -- saved as $(FVWM_USERHOME)/.fvwm2_pallette"
*ColOptLine center
*ColOptText "#------------------------------------------------------------#"
*ColOptLine left
*ColOptText "colorset 1"
*ColOptInput Opt1A 30 "fg black, bg grey77,"
*ColOptInput Opt1B 30 "hi grey88, sh grey60"
*ColOptLine left
*ColOptText "colorset 2"
*ColOptInput Opt2A 30 "fg blue, bg grey77,"
*ColOptInput Opt2B 30 "hi grey88, sh grey60"
*ColOptLine left
*ColOptText "colorset 3"
*ColOptInput Opt3A 30 "fg red4, bg grey82,"
*ColOptInput Opt3B 30 "hi grey93, sh grey65"
*ColOptLine left
*ColOptText "colorset 4"
*ColOptInput Opt4A 30 "fg DarkGreen, bg grey65"
*ColOptInput Opt4B 30 ""
*ColOptLine left
*ColOptText "colorset 5"
*ColOptInput Opt5A 30 "fg blue4, bg cyan3,"
*ColOptInput Opt5B 30 "hi cyan2, sh cyan4"
*ColOptLine left
*ColOptText "colorset 6"
*ColOptInput Opt6A 30 "fg wheat, bg red3,"
*ColOptInput Opt6B 30 "hi red2, sh red4"
*ColOptLine left
*ColOptText "colorset 7"
*ColOptInput Opt7A 30 "fg white, bg black,"
*ColOptInput Opt7B 30 "hi grey65, sh grey40"
*ColOptLine left
*ColOptText "colorset 8"
*ColOptInput Opt8A 30 ""
*ColOptInput Opt8B 30 ""
*ColOptLine left
*ColOptMessage
*ColOptLine expand
*ColOptButton quit "F1 - Save & Apply" F1
*ColOptCommand DestroyModuleConfig ColOptDefault*
*ColOptCommand SendToModule FvwmTheme Colorset 1 $(Opt1A) $(Opt1B)
*ColOptCommand SendToModule FvwmTheme Colorset 2 $(Opt2A) $(Opt2B)
*ColOptCommand SendToModule FvwmTheme Colorset 3 $(Opt3A) $(Opt3B)
*ColOptCommand SendToModule FvwmTheme Colorset 4 $(Opt4A) $(Opt4B)
*ColOptCommand SendToModule FvwmTheme Colorset 5 $(Opt5A) $(Opt5B)
*ColOptCommand SendToModule FvwmTheme Colorset 6 $(Opt6A) $(Opt6B)
*ColOptCommand SendToModule FvwmTheme Colorset 7 $(Opt7A) $(Opt7B)
*ColOptCommand SendToModule FvwmTheme Colorset 8 $(Opt8A) $(Opt8B)
*ColOptCommand !/bin/echo -e "# This file last created byFormFvwmColorsetOptions on: `/bin/date`.\n\
*FvwmThemeColorset "1 $(Opt1A) $(Opt1B)"\n\
*FvwmThemeColorset "2 $(Opt2A) $(Opt2B)"\n\
*FvwmThemeColorset "3 $(Opt3A) $(Opt3B)"\n\
*FvwmThemeColorset "4 $(Opt4A) $(Opt4B)"\n\
*FvwmThemeColorset "5 $(Opt5A) $(Opt5B)"\n\
*FvwmThemeColorset "6 $(Opt6A) $(Opt6B)"\n\
*FvwmThemeColorset "7 $(Opt7A) $(Opt7B)"\n\
*FvwmThemeColorset "8 $(Opt8A) $(Opt8B)"" > ${FVWM_USERHOME}/.fvwm2_pallette
*ColOptCommand !/bin/echo -e "# This file last created byFormFvwmColorsetOptions on: `/bin/date`.\n\
*ColOptDefaultOpt1A "'$(Opt1A)'"\n\
*ColOptDefaultOpt1B "'$(Opt1B)'"\n\
*ColOptDefaultOpt2A "'$(Opt2A)'"\n\
*ColOptDefaultOpt2B "'$(Opt2B)'"\n\
*ColOptDefaultOpt3A "'$(Opt3A)'"\n\
*ColOptDefaultOpt3B "'$(Opt3B)'"\n\
*ColOptDefaultOpt4A "'$(Opt4A)'"\n\
*ColOptDefaultOpt4B "'$(Opt4B)'"\n\
*ColOptDefaultOpt5A "'$(Opt5A)'"\n\
*ColOptDefaultOpt5B "'$(Opt5B)'"\n\
*ColOptDefaultOpt6A "'$(Opt6A)'"\n\
*ColOptDefaultOpt6B "'$(Opt6B)'"\n\
*ColOptDefaultOpt7A "'$(Opt7A)'"\n\
*ColOptDefaultOpt7B "'$(Opt7B)'"\n\
*ColOptDefaultOpt8A "'$(Opt8A)'"\n\
*ColOptDefaultOpt8B "'$(Opt8B)'"" > ${FVWM_USERHOME}/.fvwm2_colorset
*ColOptCommand Module FvwmForm ColOpt
*ColOptButton continue "F2 - Apply" F2
*ColOptCommand SendToModule FvwmTheme Colorset 1 $(Opt1A) $(Opt1B)
*ColOptCommand SendToModule FvwmTheme Colorset 2 $(Opt2A) $(Opt2B)
*ColOptCommand SendToModule FvwmTheme Colorset 3 $(Opt3A) $(Opt3B)
*ColOptCommand SendToModule FvwmTheme Colorset 4 $(Opt4A) $(Opt4B)
*ColOptCommand SendToModule FvwmTheme Colorset 5 $(Opt5A) $(Opt5B)
*ColOptCommand SendToModule FvwmTheme Colorset 6 $(Opt6A) $(Opt6B)
*ColOptCommand SendToModule FvwmTheme Colorset 7 $(Opt7A) $(Opt7B)
*ColOptCommand SendToModule FvwmTheme Colorset 8 $(Opt8A) $(Opt8B)
*ColOptButton restart "F3 - Reset" F3
*ColOptButton quit "F4 - Dismiss" F4
*ColOptCommand Nop
#--------------------------------------------------------------------
#
--
Visit the official FVWM web page at <URL: http://www.fvwm.org/>.
To unsubscribe from the list, send "unsubscribe fvwm" in the body of a
message to majordomo_at_fvwm.org.
To report problems, send mail to fvwm-owner_at_fvwm.org.
Received on Thu Nov 18 1999 - 11:45:32 GMT