equal
deleted
inserted
replaced
387 + I Next (CurrentPage) Focus |
387 + I Next (CurrentPage) Focus |
388 |
388 |
389 Key F9 A C myGotoPage -1p -0p |
389 Key F9 A C myGotoPage -1p -0p |
390 Key F12 A C myGotoPage +1p +0p |
390 Key F12 A C myGotoPage +1p +0p |
391 |
391 |
392 # Move across page up, if no page more go to last page of prev desk. |
392 # Move across pages up, if there are no more page go to last page of prev desk. |
393 DestroyFunc myGotoPageUp |
393 DestroyFunc myGotoPageUp |
394 AddToFunc myGotoPageUp |
394 AddToFunc myGotoPageUp |
395 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
395 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
396 + I SetEnv fvwm_page_ny $[page.ny] |
396 + I SetEnv fvwm_page_ny $[page.ny] |
397 + I Test (EnvMatch fvwm_page_ny 0) Nop |
397 + I Test (EnvMatch fvwm_page_ny 0) Nop |
401 + I UnSetEnv fvwm_page_ny |
401 + I UnSetEnv fvwm_page_ny |
402 + I Next (CurrentPage) Focus |
402 + I Next (CurrentPage) Focus |
403 |
403 |
404 Key F11 A C myGotoPageUp |
404 Key F11 A C myGotoPageUp |
405 |
405 |
406 # Move across page down, if no page more go to first page of next desk. |
406 # Move across pages down, if there are no more pages go to first page of next desk. |
407 DestroyFunc myGotoPageDown |
407 DestroyFunc myGotoPageDown |
408 AddToFunc myGotoPageDown |
408 AddToFunc myGotoPageDown |
409 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
409 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
410 + I SetEnv fvwm_page_ny $[page.ny] |
410 + I SetEnv fvwm_page_ny $[page.ny] |
411 + I Test (EnvMatch fvwm_page_ny 2) Nop |
411 + I Test (EnvMatch fvwm_page_ny 2) Nop |
439 + I WindowId $[fvwm_curr_w] Focus |
439 + I WindowId $[fvwm_curr_w] Focus |
440 + I UnSetEnv fvwm_curr_w |
440 + I UnSetEnv fvwm_curr_w |
441 |
441 |
442 Key F12 A M myMovePageRight |
442 Key F12 A M myMovePageRight |
443 |
443 |
444 # Move window across pages down, if there is no page more go to first page of next desk. |
444 # Move window across pages down, if there is no more pages go to first page of next desk. |
445 DestroyFunc myMovePageDown |
445 DestroyFunc myMovePageDown |
446 AddToFunc myMovePageDown |
446 AddToFunc myMovePageDown |
447 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
447 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
448 + I Focus |
448 + I Focus |
449 + I SetEnv fvwm_curr_w $[w.id] |
449 + I SetEnv fvwm_curr_w $[w.id] |
455 + I UnSetEnv fvwm_page_ny |
455 + I UnSetEnv fvwm_page_ny |
456 + I UnSetEnv fvwm_curr_w |
456 + I UnSetEnv fvwm_curr_w |
457 |
457 |
458 Key F10 A M myMovePageDown |
458 Key F10 A M myMovePageDown |
459 |
459 |
460 # Move window across pages up, if there is no pages more go to last page of the previous desk. |
460 # Move window across pages up, if there is no more pages go to last page of the previous desk. |
461 DestroyFunc myMovePageUp |
461 DestroyFunc myMovePageUp |
462 AddToFunc myMovePageUp |
462 AddToFunc myMovePageUp |
463 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
463 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
464 + I Focus |
464 + I Focus |
465 + I SetEnv fvwm_curr_w $[w.id] |
465 + I SetEnv fvwm_curr_w $[w.id] |