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 <zanghar freenet de> 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
Attachment:
signature.asc
Description: Dies ist ein digital signierter Nachrichtenteil