Commit: 31d5cceae3b0a8cf6fcef1704f8ee5be97c5a2af - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Revisão: 31d5cceae3b0a8cf6fcef1704f8ee5be97c5a2af (tree)
• Hora: 2000-05-10 02:06:09
• Autor: john <john>
• Commiter: john

Mensagem de Log

(transient-unmap-window): misc improvements, should fix the reported
problems in click-to-focus mode

Mudança Sumário

• modified: lisp/sawfish/wm/state/transient.jl
• modified: lisp/transient.jl

Diff

--- a/lisp/sawfish/wm/state/transient.jl
+++ b/lisp/sawfish/wm/state/transient.jl
@@ -67,13 +67,15 @@
       (when (or (not parent)
 		(not (window-mapped-p parent))
 		(not (window-visible-p parent))
-		(window-outside-viewport-p parent))
+		(window-outside-viewport-p parent)
+		(not (window-really-wants-input-p parent)))
 	;; if no parent, choose the topmost window (if in click-to-focus
 	;; mode) or the window under the pointer otherwise
-	(unless (eq focus-mode 'click)
-	  (setq parent (query-pointer-window)))
+	(if (eq focus-mode 'click)
+	    (setq parent (query-pointer-window))
+	  (setq parent nil))
 	(unless (or parent (eq focus-mode 'enter-exit))
-	  (setq parent (car (window-order current-workspace)))))
+	  (setq parent (window-order-most-recent))))
       (when (or (null parent) (window-really-wants-input-p parent))
 	(set-input-focus parent)))))
 

--- a/lisp/transient.jl
+++ b/lisp/transient.jl
@@ -67,13 +67,15 @@
       (when (or (not parent)
 		(not (window-mapped-p parent))
 		(not (window-visible-p parent))
-		(window-outside-viewport-p parent))
+		(window-outside-viewport-p parent)
+		(not (window-really-wants-input-p parent)))
 	;; if no parent, choose the topmost window (if in click-to-focus
 	;; mode) or the window under the pointer otherwise
-	(unless (eq focus-mode 'click)
-	  (setq parent (query-pointer-window)))
+	(if (eq focus-mode 'click)
+	    (setq parent (query-pointer-window))
+	  (setq parent nil))
 	(unless (or parent (eq focus-mode 'enter-exit))
-	  (setq parent (car (window-order current-workspace)))))
+	  (setq parent (window-order-most-recent))))
       (when (or (null parent) (window-really-wants-input-p parent))
 	(set-input-focus parent)))))