1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# Numpad
# ---------------------------------------------------------------------------
# Focus functions
DestroyFunc Window-FocusInDirection
AddToFunc Window-FocusInDirection
+ I Direction $0 (CurrentPage, AcceptsFocus, !Iconic) Focus
DestroyFunc Window-FocusAndRaiseInDirection
AddToFunc Window-FocusAndRaiseInDirection
+ I Direction $0 (CurrentPage, AcceptsFocus, !Iconic) Focus
+ I Current (Focused) Raise
# ---------------------------------------------------------------------------
# Move functions
DestroyFunc Window-MPAnimatedMove
AddToFunc Window-MPAnimatedMove
+ I Current (HasPointer) AnimatedMove $0 $1 Warp
+ I TestRc (NoMatch) AnimatedMove $0 $1
DestroyFunc Window-Warp-CenterCenter
AddToFunc Window-Warp-CenterCenter
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] / 2 - $[w.height] / 2`p'
DestroyFunc Window-Warp-LeftCenter
AddToFunc Window-Warp-LeftCenter
+ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH-BS-Panel-Left]p `expr $[vp.height] / 2 - $[w.height] / 2`p'
DestroyFunc Window-Warp-LeftTop
AddToFunc Window-Warp-LeftTop
+ I Current Window-MPAnimatedMove $[EWMH-BS-Panel-Left]p $[EWMH-BS-Panel-Top]p
DestroyFunc Window-Warp-CenterTop
AddToFunc Window-Warp-CenterTop
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p $[EWMH-BS-Panel-Top]p'
DestroyFunc Window-Warp-RightTop
AddToFunc Window-Warp-RightTop
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH-BS-Panel-Right] - $[w.width]`p $[EWMH-BS-Panel-Top]p'
DestroyFunc Window-Warp-RightCenter
AddToFunc Window-Warp-RightCenter
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH-BS-Panel-Right] - $[w.width]`p `expr $[vp.height] / 2 - $[w.height] / 2`p'
DestroyFunc Window-Warp-CenterBottom
AddToFunc Window-Warp-CenterBottom
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] - $[EWMH-BS-Panel-Bottom] - $[w.height]`p'
DestroyFunc Window-Warp-LeftBottom
AddToFunc Window-Warp-LeftBottom
+ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH-BS-Panel-Left]p `expr $[vp.height] - $[EWMH-BS-Panel-Bottom] - $[w.height]`p'
DestroyFunc Window-Warp-RightBottom
AddToFunc Window-Warp-RightBottom
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH-BS-Panel-Right] - $[w.width]`p `expr $[vp.height] - $[EWMH-BS-Panel-Bottom] - $[w.height]`p'
# vim:ft=fvwm
|
