Skip site navigation (1)Skip section navigation (2)
Date:      Thu, 23 Aug 2001 01:25:58 -0400 (EDT)
From:      marcus@marcuscom.com
To:        FreeBSD-gnats-submit@freebsd.org
Subject:   ports/29973: Patch to re-enable root window clicks in sawfish
Message-ID:  <200108230525.f7N5Pwm09296@shumai.marcuscom.com>

next in thread | raw e-mail | index | archive | help

>Number:         29973
>Category:       ports
>Synopsis:       Patch to re-enable root window clicks in sawfish
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    freebsd-ports
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Wed Aug 22 22:30:01 PDT 2001
>Closed-Date:
>Last-Modified:
>Originator:     Joe Marcus Clarke
>Release:        FreeBSD 4.3-RELEASE i386
>Organization:
MarcusCom, Inc.
>Environment:
System: FreeBSD shumai.marcuscom.com 4.3-RELEASE FreeBSD 4.3-RELEASE #0: Sun May 6 01:46:59 EDT 2001 root@shumai.marcuscom.com:/usr/src/sys/compile/SHUMAI i386


	
>Description:
	Since sawfish 1.0, mouse button 1 and 3 root window clicks were broken.
This patch is taken from sawfish's CVS repository, and fixes that problem.
>How-To-Repeat:
	Sawfish 1.0 integrated with Gnome's gmc can reproduce this problem.
Prior to sawfish 1.0, all root window clicks worked as expected.
>Fix:

--- lisp/sawfish/wm/state/gnome.jl.orig	Fri May  4 03:41:32 2001
+++ lisp/sawfish/wm/state/gnome.jl	Wed Aug  8 02:31:28 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)
>Release-Note:
>Audit-Trail:
>Unformatted:

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports" in the body of the message




Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200108230525.f7N5Pwm09296>