On 20 May 2004 23:49:59 +0200, Marc Schlienger wrote:
>
> Am Donnerstag, 20. Mai 2004 23:10 schrieb Phil Stracchino:
> > On Thu, May 20, 2004 at 10:46:21PM +0200, Marc Schlienger wrote:
> > >
> > > I want to create a function that moves a window to the next/previous
> > > page. For example, if the current Page is 0 1 I want the window to be
> > > moved to Page 0 2.
> >
> > Try this (it requires FvwmPerl and assumes a 4x4 grid):
> >
> > DestroyFunc MoveWindowToNextPage
> > AddToFunc MoveWindowToNextPage
> > + I WindowId ${w.id} MoveToPage \
> > %{ ${page.nx} < 3 ? ${page.nx} + 1 : \
> > ${page.ny} < 3 ? 0 : 3 }% \
> > %{ ${page.nx} < 3 ? ${page.ny} : \
> > ${page.ny} < 3 ? ${page.ny} + 1 : 3 }%
>
> I tried this but it doesn't work. I added
>
> + I Module FvwmPerl
>
> to my init function. And I tested whether it works if I add
>
> + I SendToModule FvwmPerl preprocess -c
>
> to the MoveWindowToNextPage function. I had no luck.
Yes, the sample above, although an ok idea, is just incorrect.
Good you figured out how to pass it to a preprocessing.
You should also replace every ${var} with correct $[var].
This sample should work:
Module FvwmPerl
DestroyFunc .
AddToFunc .
+ I SendToModule FvwmPerl preprocess -c -- $*
DestroyFunc MoveWindowToRightPage
AddToFunc MoveWindowToRightPage
+ I . MoveToPage %{ $[page.nx]+1 == $[desk.pagesx] ? 0 : $[page.nx]+1 }% 0p
And if you don't want to loop, then a simple "MoveToPage +1p 0p" will do
what you want.
Regards,
Mikhael.
--
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 May 20 2004 - 17:24:04 BST