1 files changed, 73 insertions, 0 deletions
diff --git a/contrib/clickframe.pl b/contrib/clickframe.pl
new file mode 100644
index 0000000..02d1f1a
--- /dev/null
+++ b/contrib/clickframe.pl
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+
+# clickframe.pl is a utility to switch frames by clicking the
+# mouse. While it does not require xbindkeys, it has been tested with
+# it. You must apply the patch below to xbindkeys for this script to
+# work. 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 following patch applied:
+#
+# --- 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)
+#
+
+# Make sure the env vars are there
+$ENV{XBINDKEYS_BUTTONLOC} || die '$XBINDKEYS_BUTTONLOC not bound';
+$ENV{RATPOISON} || die '$RATPOISON not bound';
+
+# Parse the required environment variables
+$ratpoison_bin = $ENV{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\"");
+    }
+}