← Back to branch summary

~ubuntu-branches/ubuntu/wily/sawfish-merlin-ugliness/wily

« back to all changes in this revision

Viewing changes to message.jl

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2004-07-28 15:21:44 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040728152144-1b1tm5ak371o1pe9
Tags: 1.3.1-1
* New upstream relase.
* Remove old dependency on sawfish-gnome and sawfish2

Show diffs side-by-side

added added

removed removed

Lines of Context:
message.jl
1
1
;; merlin/message.jl -- fancier message display
2
2
 
3
 
;; version 0.5
 
3
;; version 0.5.2
4
4
 
5
5
;; Copyright (C) 2000-2001 merlin <merlin@merlin.org>
6
6
 
123
123
         (gravity (cdr (assqd 'gravity message-attrs 'center))))
124
124
      (setq message-pos (cons-max (cons-min (gravitate pos dim gravity) (cons- (screen-dimensions) dim)) 0))))
125
125
 
126
 
  (define (message-window-event-handler type #!optional args)
127
 
    (cond ((eq type 'expose) (repaint-message-window message-window))))
 
126
  (define (expose-handler window event)
 
127
    (repaint-message-window message-window)
 
128
    nil)
 
129
 
 
130
  (define (message-window-event-handler type window #!optional event)
 
131
    (cond ((eq type 'expose) (expose-handler window event))))
128
132
 
129
133
  (define (create-message-window)
130
134
    (let*