components/functions/Numpad


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, AnyScreen, AcceptsFocus, !Iconic) Focus
 
DestroyFunc Window-FocusAndRaiseInDirection
AddToFunc Window-FocusAndRaiseInDirection
+ I Direction $0 (CurrentPage, AnyScreen, 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