203 # |
203 # |
204 # F11 - up |
204 # F11 - up |
205 # F9 - left F12 - right |
205 # F9 - left F12 - right |
206 # F10 - down |
206 # F10 - down |
207 |
207 |
208 DestroyFunc myGotoDesk |
|
209 AddToFunc myGotoDesk |
|
210 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
|
211 + I GotoDesk $0 0 4 |
|
212 |
|
213 Key F10 A M myGotoDesk +1 |
|
214 Key F11 A M myGotoDesk -1 |
|
215 |
|
216 DestroyFunc myGotoPage |
208 DestroyFunc myGotoPage |
217 AddToFunc myGotoPage |
209 AddToFunc myGotoPage |
218 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
210 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
219 + I GotoPage $0 $1 |
211 + I GotoPage $0 $1 |
220 |
212 |
221 Key F9 A C myGotoPage -1p -0p |
213 Key F9 A C myGotoPage -1p -0p |
222 Key F10 A C myGotoPage +0p +1p |
|
223 Key F11 A C myGotoPage +0p -1p |
|
224 Key F12 A C myGotoPage +1p +0p |
214 Key F12 A C myGotoPage +1p +0p |
|
215 |
|
216 # Move across page up, if no page more go to last page of prev desk. |
|
217 DestroyFunc myGotoPageUp |
|
218 AddToFunc myGotoPageUp |
|
219 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
|
220 + I SetEnv fvwm_page_ny $[page.ny] |
|
221 + I Test (EnvMatch fvwm_page_ny 0) Nop |
|
222 + I TestRc (Match) GotoDesk -1 0 4 |
|
223 + I TestRc (Match) GotoPage +0p 2 |
|
224 + I TestRc (NoMatch) GotoPage +0p -1p |
|
225 # Remove fvwm_page_ny so derived processes do not inherit it. |
|
226 + I SetEnv fvwm_page_ny |
|
227 |
|
228 Key F11 A C myGotoPageUp |
|
229 |
|
230 # Move across page down, if no page more go to first page of next desk. |
|
231 DestroyFunc myGotoPageDown |
|
232 AddToFunc myGotoPageDown |
|
233 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False" |
|
234 + I SetEnv fvwm_page_ny $[page.ny] |
|
235 + I Test (EnvMatch fvwm_page_ny 2) Nop |
|
236 + I TestRc (Match) GotoDesk +1 0 4 |
|
237 + I TestRc (Match) GotoPage +0p 0 |
|
238 + I TestRc (NoMatch) GotoPage +0p +1p |
|
239 # Remove fvwm_page_ny so derived processes do not inherit it. |
|
240 + I SetEnv fvwm_page_ny |
|
241 |
|
242 Key F10 A C myGotoPageDown |
225 |
243 |
226 Key F9 A S CursorMove -50p +0p |
244 Key F9 A S CursorMove -50p +0p |
227 Key F10 A S CursorMove +0p +50p |
245 Key F10 A S CursorMove +0p +50p |
228 Key F11 A S CursorMove +0p -50p |
246 Key F11 A S CursorMove +0p -50p |
229 Key F12 A S CursorMove +50p +0p |
247 Key F12 A S CursorMove +50p +0p |