Am Montag, den 14.09.2009, 13:33 +0200 schrieb Christopher Roy Bratusek: > Am Montag, den 14.09.2009, 12:48 +0800 schrieb Wang Lei: > > Like the middle of bottom? display-message can do that. but should > > rewrite display-message-with-timeout. > > > > Is this what you ask? > > > > Yep. > > > On 9/14/09, Christopher Roy Bratusek <[email protected]> wrote: > > > Hi all, > > > > > > as you might have read, I just added display-workspace-name, but: when > > > cycling to a window on a different workspace the cycle message is on the > > > same position -and above- the display-workspace-name message ... So is > > > there a way to place the message of display-workspace-name on a > > > different position? > > > > > > Thanks in advance, > > > Chris > > > > > > > >
( display-message "hello" '(( position . ( 250 . 250 ))))
on sawfish-client works, but in sawfish.wm.commands.user the following
doesn't ... perhaps I just forgot something, but well:
**********
diff --git a/lisp/sawfish/wm/commands/user.jl
b/lisp/sawfish/wm/commands/user.jl
index 4062d9c..4a4009b 100644
--- a/lisp/sawfish/wm/commands/user.jl
+++ b/lisp/sawfish/wm/commands/user.jl
@@ -80,8 +80,10 @@
;; display-message-with-timeout
;; like display-message, but it dissapears
;; after `timemout' seconds
- (define (display-message-with-timeout message timeout)
- (display-message message)
+ (define (display-message-with-timeout message timeout #!optional x y)
+ (if (and (x) (y))
+ (display-message message '((position (x . y))))
+ (display-message message))
(make-timer (lambda () (display-message nil)) timeout))
;; program-available
@@ -130,7 +132,7 @@
(format nil "Now on Workspace: %s"
(or (nth current-workspace workspace-names)
(format nil (_ "Workspace %d") (1+ current-workspace))))
- display-ws-name-timeout))
+ display-ws-name-timeout 250 250))
(define (display-ws-name-setter)
(if (eq display-ws-name-on-switch 't)
**********
Chris
signature.asc
Description: Dies ist ein digital signierter Nachrichtenteil
