Re: FVWM: fvwm-perl tutorial example

From: Peter McAlpine <pmcalpin_at_uoguelph.ca>
Date: Fri, 8 Nov 2002 16:01:24 -0500

On Fri, Nov 08, 2002 at 02:17:10PM -0500, Richard Lister wrote:
> I solve it in the following clunky manner:
>
> my $screen;
>
> open(XWININFO, "xwininfo -root|") || die "can't run xwininfo";
> while ( <XWININFO> ) {
> $screen->{w} = $1 if /Width:\s*(\d+)/;
> $screen->{h} = $1 if /Height:\s*(\d+)/;
> }
> close(XWININFO);
>
> I would love a better solution if anyone has one :-)
>
> Cheers
> Ric

Thank you! this is exactly what I needed.

-peter =)

-- 
Peter McAlpine
pmcalpin_at_uoguelph.ca
--
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 Nov 08 2002 - 14:59:40 GMT