411 + I TestRc (Match) GotoPage +0p 0 |
411 + I TestRc (Match) GotoPage +0p 0 |
412 + I TestRc (NoMatch) GotoPage +0p +1p |
412 + I TestRc (NoMatch) GotoPage +0p +1p |
413 + I UnSetEnv fvwm_page_ny |
413 + I UnSetEnv fvwm_page_ny |
414 |
414 |
415 Key F10 A C myGotoPageDown |
415 Key F10 A C myGotoPageDown |
|
416 |
|
417 # Move window across pages left. |
|
418 DestroyFunc myMovePageLeft |
|
419 AddToFunc myMovePageLeft |
|
420 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
|
421 + I Focus |
|
422 + I SetEnv fvwm_curr_w $[w.id] |
|
423 + I MoveToPage -1p +0p |
|
424 + I WindowId $[fvwm_curr_w] Focus |
|
425 + I UnSetEnv fvwm_curr_w |
|
426 |
|
427 Key F9 A M myMovePageLeft |
|
428 |
|
429 # Move window across pages right. |
|
430 DestroyFunc myMovePageRight |
|
431 AddToFunc myMovePageRight |
|
432 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
|
433 + I Focus |
|
434 + I SetEnv fvwm_curr_w $[w.id] |
|
435 + I MoveToPage +1p +0p |
|
436 + I WindowId $[fvwm_curr_w] Focus |
|
437 + I UnSetEnv fvwm_curr_w |
|
438 |
|
439 Key F12 A M myMovePageRight |
|
440 |
|
441 # Move window across pages down, if there is no page more go to first page of next desk. |
|
442 DestroyFunc myMovePageDown |
|
443 AddToFunc myMovePageDown |
|
444 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
|
445 + I Focus |
|
446 + I SetEnv fvwm_curr_w $[w.id] |
|
447 + I SetEnv fvwm_page_ny $[page.ny] |
|
448 + I Test (EnvMatch fvwm_page_ny 2) WindowId $[fvwm_curr_w] MoveToDesk +1 0 4 |
|
449 + I Test (EnvMatch fvwm_page_ny 2) WindowId $[fvwm_curr_w] MoveToPage +0p 0 |
|
450 + I Test (!EnvMatch fvwm_page_ny 2) WindowId $[fvwm_curr_w] MoveToPage 0 +1p |
|
451 + I WindowId $[fvwm_curr_w] Focus |
|
452 + I UnSetEnv fvwm_page_ny |
|
453 + I UnSetEnv fvwm_curr_w |
|
454 |
|
455 Key F10 A M myMovePageDown |
|
456 |
|
457 # Move window across pages up, if there is no pages more go to last page of the previous desk. |
|
458 DestroyFunc myMovePageUp |
|
459 AddToFunc myMovePageUp |
|
460 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
|
461 + I Focus |
|
462 + I SetEnv fvwm_curr_w $[w.id] |
|
463 + I SetEnv fvwm_page_ny $[page.ny] |
|
464 + I Test (EnvMatch fvwm_page_ny 0) WindowId $[fvwm_curr_w] MoveToDesk -1 0 4 |
|
465 + I Test (EnvMatch fvwm_page_ny 0) WindowId $[fvwm_curr_w] MoveToPage +0p 2 |
|
466 + I Test (!EnvMatch fvwm_page_ny 0) WindowId $[fvwm_curr_w] MoveToPage +0p -1p |
|
467 + I WindowId $[fvwm_curr_w] Focus |
|
468 + I UnSetEnv fvwm_page_ny |
|
469 + I UnSetEnv fvwm_curr_w |
|
470 |
|
471 Key F11 A M myMovePageUp |
|
472 |
416 |
473 |
417 Key F9 A S CursorMove -50p +0p |
474 Key F9 A S CursorMove -50p +0p |
418 Key F10 A S CursorMove +0p +50p |
475 Key F10 A S CursorMove +0p +50p |
419 Key F11 A S CursorMove +0p -50p |
476 Key F11 A S CursorMove +0p -50p |
420 Key F12 A S CursorMove +50p +0p |
477 Key F12 A S CursorMove +50p +0p |