Commit 4613ec82 authored by hatchond's avatar hatchond
Browse files

Change-vscreen checks that current-desktop is different than the destination one.

parent d0d1b798
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: input.lisp,v 1.12 2003/09/12 00:25:48 hatchond Exp $
;;; $Id: input.lisp,v 1.13 2003/09/12 01:29:57 hatchond Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
......@@ -144,9 +144,7 @@
(with-slots (type data event-window) event
(case type
((or :_WIN_WORKSPACE :_NET_CURRENT_DESKTOP)
(with-slots (window) root
(unless (= (current-vscreen window) (aref data 0))
(change-vscreen root :n (aref data 0)))))
(change-vscreen root :n (aref data 0)))
(:_NET_NUMBER_OF_DESKTOPS
(setf (number-of-virtual-screens) (aref data 0)))
(:WM_PROTOCOLS
......
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: virtual-screen.lisp,v 1.5 2003/08/28 14:50:35 hatchond Exp $
;;; $Id: virtual-screen.lisp,v 1.6 2003/09/11 00:01:31 hatchond Exp $
;;;
;;;Copyright (C) 2002 Iban HATCHONDO
;;; contact : hatchond@yahoo.fr
......@@ -90,7 +90,7 @@
(new (if direction (mod (funcall direction cur 1) nb-vscreens) n)))
(unless (integerp new)
(error "No destination given to change-vscreen~%"))
(when (< -1 new nb-vscreens)
(when (and (< -1 new nb-vscreens) (/= cur new))
(with-event-mask (window)
;; If focus policy is on click: save the latest focused application.
(when (eq *focus-type* :on-click)
......
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.15 2003/08/29 09:37:16 hatchond Exp $
;;; $Id: wm.lisp,v 1.16 2003/09/08 15:40:31 hatchond Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
......@@ -566,9 +566,7 @@
(defun raise-window (window)
(lambda ()
(case (first (wm-state window))
(1 (let ((scr (gnome-desktop-num window)))
(unless (eq (current-desk) scr)
(change-vscreen *root* :n scr))))
(1 (change-vscreen *root* :n (gnome-desktop-num window)))
(3 (uniconify (slot-value (lookup-widget window) 'icon))))
(put-on-top (lookup-widget window))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment