diff options
author | Maxim Sobolev <sobomax@FreeBSD.org> | 2001-08-28 16:48:30 +0000 |
---|---|---|
committer | Maxim Sobolev <sobomax@FreeBSD.org> | 2001-08-28 16:48:30 +0000 |
commit | d229966b72df78ea767f73cff6d31dfa87637ac2 (patch) | |
tree | aa0c6fe50f9f0c3faeaafaf59418e5c9361f9e4a /x11-wm/sawfish2 | |
parent | Provide a replacement for libgmp on 5-CURRENT. (diff) |
Fix bug with passing mouse clicks to the root window.
PR: 29973
Submitted by: Joe Marcus Clarke <marcus@marcuscom.com>
Notes
Notes:
svn path=/head/; revision=47027
Diffstat (limited to 'x11-wm/sawfish2')
-rw-r--r-- | x11-wm/sawfish2/Makefile | 1 | ||||
-rw-r--r-- | x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl | 21 |
2 files changed, 22 insertions, 0 deletions
diff --git a/x11-wm/sawfish2/Makefile b/x11-wm/sawfish2/Makefile index ad6eb440396d..f60633a1952c 100644 --- a/x11-wm/sawfish2/Makefile +++ b/x11-wm/sawfish2/Makefile @@ -7,6 +7,7 @@ PORTNAME= sawfish PORTVERSION= 1.0 +PORTREVISION= 1 CATEGORIES= x11-wm MASTER_SITES= ${MASTER_SITE_SOURCEFORGE} MASTER_SITE_SUBDIR= sawmill diff --git a/x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl b/x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl new file mode 100644 index 000000000000..12613735f003 --- /dev/null +++ b/x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl @@ -0,0 +1,21 @@ + +$FreeBSD$ + +--- lisp/sawfish/wm/state/gnome.jl.orig Fri May 4 10:41:32 2001 ++++ lisp/sawfish/wm/state/gnome.jl Tue Aug 28 19:42:30 2001 +@@ -1,5 +1,5 @@ + ;; gnome.jl -- minimal GNOME compliance +-;; $Id: gnome.jl,v 1.72 2001/05/04 07:41:32 jsh Exp $ ++;; $Id: gnome.jl,v 1.73 2001/07/24 04:37:14 jsh Exp $ + + ;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk> + +@@ -321,7 +321,7 @@ + (let ((event (event-name (current-event)))) + ;; only proxy Click1 or Off events, and only if we don't have + ;; a binding for an event that may follow in the same grab +- (cond ((and (string-match "^(.*)-Click1$" event) ++ (cond ((and (string-match "^(.*)-Click\\d?$" event) + (let ((mirror (lookup-event + (expand-last-match "\\1-Off")))) + (not (or (search-keymap mirror global-keymap) |