diff options
Diffstat (limited to 'contrib/clickframe.pl')
-rw-r--r-- | contrib/clickframe.pl | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/contrib/clickframe.pl b/contrib/clickframe.pl deleted file mode 100644 index 4268074..0000000 --- a/contrib/clickframe.pl +++ /dev/null @@ -1,79 +0,0 @@ -#!/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) |