kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix bug with passing mouse clicks to the root window.

Browse source 
PR:		29973
Submitted by:	Joe Marcus Clarke <marcus@marcuscom.com>
This commit is contained in:
Maxim Sobolev 2001-08-28 16:48:30 +00:00
parent 5342af00a2
commit d229966b72
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=47027
4 changed files with 44 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
x11-wm/sawfish/Makefile
View file

@ -7,6 +7,7 @@
PORTNAME= sawfish
PORTVERSION= 1.0
PORTREVISION= 1
CATEGORIES= x11-wm
MASTER_SITES= ${MASTER_SITE_SOURCEFORGE}
MASTER_SITE_SUBDIR= sawmill

21
x11-wm/sawfish/files/patch-lisp::sawfish::wm::state::gnome.jl Normal file
View file

@ -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)

1
x11-wm/sawfish2/Makefile
View file

@ -7,6 +7,7 @@
PORTNAME= sawfish
PORTVERSION= 1.0
PORTREVISION= 1
CATEGORIES= x11-wm
MASTER_SITES= ${MASTER_SITE_SOURCEFORGE}
MASTER_SITE_SUBDIR= sawmill

21
x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl Normal file
View file

@ -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)