>From cf959750a3c257bc46db82cf194a620508f58d7a Mon Sep 17 00:00:00 2001 From: Morgan Veyret Date: Thu, 12 Jun 2008 00:09:21 +0200 Subject: [PATCH] Modified frame indicator behavior on screen change to always show it. Also unmap all existing frame indicator on the current screen before changing current one. --- screen.lisp | 9 ++++++--- 1 files changed, 6 insertions(+), 3 deletions(-) diff --git a/screen.lisp b/screen.lisp index 63a8390..4bdc01f 100644 --- a/screen.lisp +++ b/screen.lisp @@ -626,15 +626,18 @@ FOCUS-WINDOW is an extra window used for _NET_SUPPORTING_WM_CHECK." (defcommand snext () () "Go to the next screen." + (unmap-frame-indicator-window (current-screen)) (switch-to-screen (next-screen)) - (show-frame-indicator (current-group))) + (show-frame-indicator (current-group) t)) (defcommand sprev () () "Go to the previous screen." + (unmap-frame-indicator-window (current-screen)) (switch-to-screen (next-screen (reverse (sort-screens)))) - (show-frame-indicator (current-group))) + (show-frame-indicator (current-group) t)) (defcommand sother () () "Go to the last screen." + (unmap-frame-indicator-window (current-screen)) (switch-to-screen (cadr *screen-list*)) - (show-frame-indicator (current-group))) + (show-frame-indicator (current-group) t)) -- 1.5.5.1