← Back to branch summary

~ubuntu-branches/ubuntu/quantal/texmacs/quantal

« back to all changes in this revision

Viewing changes to TeXmacs/progs/kernel/texmacs/tm-dialogue.scm

  • Committer: Bazaar Package Importer
  • Author(s): Atsuhito KOHDA
  • Date: 2010-04-23 07:09:40 UTC
  • mfrom: (1.2.6 upstream)
  • mto: This revision was merged to the branch mainline in revision 16.
  • Revision ID: james.westby@ubuntu.com-20100423070940-juy8n05xs1b6au8i
Re-upload, former upload failed with wrong diff.gz perhaps.

Show diffs side-by-side

added added

removed removed

Lines of Context:
TeXmacs/progs/kernel/texmacs/tm-dialogue.scm
191
191
;; Messages and feedback on the status bar
192
192
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
193
193
 
 
194
(define-public message-serial 0)
 
195
 
 
196
(define-public (set-message-notify)
 
197
  (set! message-serial (+ message-serial 1)))
 
198
 
 
199
(define-public (recall-message-after len)
 
200
  (with current message-serial
 
201
    (delayed
 
202
      (:idle len)
 
203
      (when (== message-serial current)
 
204
        (recall-message)))))
 
205
 
194
206
(define-public (set-temporary-message left right len)
195
207
  (set-message-temp left right #t)
196
 
  (delayed
197
 
    (:pause len)
198
 
    (recall-message)))
 
208
  (recall-message-after len))
199
209
 
200
210
(define-public (texmacs-banner)
201
211
  (with tmv (string-append "GNU TeXmacs " (texmacs-version))