on-redraw: proc is now called on installation

svn: r1966
This commit is contained in:
Matthias Felleisen 2006-01-25 18:39:09 +00:00
parent f1b37e9793
commit 211b053f74

View File

@ -1,3 +1,4 @@
;; Wed Jan 25 13:38:42 EST 2006: on-redraw: proc is now called on installation
;; Tue Jan 3 11:17:50 EST 2006: changed add-line behavior in world.ss
;; Sat Dec 10 19:39:03 EST 2005: fixed name, changed interface to on-key-event
;; Fri Dec 9 21:39:03 EST 2005: remoevd (update ... produce ...); added on-redraw
@ -260,9 +261,8 @@
(check-result 'on-redraw (lambda (x) (beg:image? x)) "image" img)
(update-frame img)
#t)))
#t)
(error 'on-redraw "the redraw function has already been specified"))
#t)
(on-redraw-proc))
(error 'on-redraw "the redraw function has already been specified")))
(define (update-frame pict)
(send txt begin-edit-sequence)