Victor Eijkhout <eijkhout_at_cs.utk.edu> writes:
> Can I retrieve the value of a desktop label in the pager?
>
> Right now I'm setting the values from a form, and saving them
> additionally in an environment variable:
>
> *NameDesk: Text "Name this desktop:"
> *NameDesk: Line expand
> *NameDesk: Input deskname 20 ""
> *NameDesk: Button quit "OK" ^M
> *NameDesk: Command SetEnv label_$d '$(deskname)'
> *NameDesk: Command PipeRead `echo "*FvwmPager: Label $d '$(deskname)'"`
>
> so that I can write them out:
>
> AddToFunc ExitFunction
> + I Exec for i in `awk -v n=$[FVWM_N_DESKS] \
> 'BEGIN { for (i=0; i<=n; i++) { print i } }' ` ; \
> do eval echo "*FvwmPager: Label $$i \\\"\$label_$$i\\\"" ; \
> eval echo "SetEnv label_$$i \\\"\$label_$$i\\\"" ; \
> done > $[HOME]/.fvwm/labels
>
> (wanna guess how long it took me to find the right combination of
> eval,$$,\\\ &c?)
>
> but obviously I don't like double bookkeeping. I would like that
> first eval line above to write out the pager label, as opposed to an
> environment variable that I hope has the right value.
Perhaps Mikhael would be interested in adding the equivalent of an
M_CONFIG_INFO to FvwmPerl.
Why don't you just have FvwmForm update the .fvwm/labels file?
--
Dan Espen E-mail: dane_at_mk.telcordia.com
--
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 Fri Oct 25 2002 - 11:01:01 BST