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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#!/usr/bin/env perl
#
# Copyright (C) 2003,2004 Shawn Betts
#
# Copying and distribution of this file, with or without modification,
# are permitted in any medium without royalty provided the copyright
# notice and this notice are preserved.
#
# clickframe.pl is a utility to switch frames by clicking the
# mouse. You must apply the patch below to xbindkeys for this script
# to work. And add an entry like this to your .xbindkeysrc file:
#
# # bind C-mouse1 to ratpoison click focus hack
# "perl /home/sabetts/src/ratpoison/contrib/clickframe.pl &"
# control + b:1
#
# Requires xbindkeys-1.6.4 with the patch at the end of this file
# applied. This file can be fed directly to patch.
# Make sure the env vars are there
$ENV{XBINDKEYS_BUTTONLOC} || die '$XBINDKEYS_BUTTONLOC not bound';
# Parse the required environment variables
$ratpoison_bin = $ENV{RATPOISON} || 'ratpoison';
($x_loc,$y_loc) = split(/,/, $ENV{XBINDKEYS_BUTTONLOC});
# Rip the frameset from ratpoison
$frameset = `$ratpoison_bin -c fdump`;
@framelist = split(/,/,$frameset);
# Check each frame to see if the mouse was clicked in that frame.
# FIXME: it goes through all the frames even if it found one.
foreach $frame (@framelist) {
($num,$left,$top,$width,$height,$win,$access) = split(/ /,$frame);
if ($x_loc > $left && $x_loc < $left + $width && $y_loc > $top && $y_loc < $top + $height) {
# Tell ratpoison to switch to the frame
print "User clicked in frame $num\n";
system ("$ratpoison_bin -c \"fselect $num\"");
}
}
__END__
--- xbindkeys.c~ 2003-04-06 08:43:27.000000000 -0700
+++ xbindkeys.c 2003-09-24 11:46:20.000000000 -0700
@@ -143,7 +143,15 @@
+void
+add_button_env (int x, int y)
+{
+ char *env;
+ env = malloc (256 * sizeof (char));
+ snprintf (env, 255, "XBINDKEYS_BUTTONLOC=%d,%d", x, y);
+ putenv (env);
+}
static void
@@ -240,6 +248,8 @@
| Button1Mask | Button2Mask | Button3Mask
| Button4Mask | Button5Mask);
+ add_button_env (e.xbutton.x, e.xbutton.y);
+
for (i = 0; i < nb_keys; i++)
{
if (keys[i].type == BUTTON && keys[i].event_type == PRESS)
@@ -266,6 +276,8 @@
| Button1Mask | Button2Mask | Button3Mask
| Button4Mask | Button5Mask);
+ add_button_env (e.xbutton.x, e.xbutton.y);
+
for (i = 0; i < nb_keys; i++)
{
if (keys[i].type == BUTTON && keys[i].event_type == RELEASE)
|
