← Back to branch summary

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

« back to all changes in this revision

Viewing changes to clock.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:
clock.jl
1
1
;; merlin/clock.jl -- a bad clock
2
2
 
3
 
;; version -0.2
 
3
;; version -0.2.1
4
4
 
5
5
;; Copyright (C) 2000-2001 merlin <merlin@merlin.org>
6
6
 
126
126
    (let
127
127
        ((image (sawlet-get clock 'image))
128
128
         (window (sawlet-get clock 'window)))
129
 
      (and image (x-draw-image image window (cons 0 0)))))
 
129
      (and image (x-draw-image image window (cons 0 0))))
 
130
    nil)
130
131
 
131
 
  (define (button-press-handler clock event))
 
132
  (define (button-press-handler clock event)
 
133
    nil)
132
134
 
133
135
  (define (enter-notify-handler clock event)
134
136
    (let ((tooltips-enabled t))
135
137
      (display-tooltip-after-delay (current-time-string)
136
 
        (sawlet-frame clock))))
 
138
        (sawlet-frame clock)))
 
139
    nil)
137
140
 
138
141
  (define (timeout clock)
139
142
    (let*