scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Check for unknwon messages in std-viewer

This commit is contained in:
mainzelm 2005-06-02 07:23:11 +00:00
parent bfd61dfe44
commit 70fefe9a95
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/nuit-packages.scm
View File

@ -149,6 +149,7 @@
(define-structure standard-viewer (define-structure standard-viewer
(export make-standard-viewer) (export make-standard-viewer)
(open scheme (open scheme
srfi-23
tty-debug tty-debug
objects objects

5
scheme/std-viewer.scm
View File

@ -6,6 +6,7 @@
(exp->string value) (exp->string value)
(result-buffer-num-cols buffer)))) (result-buffer-num-cols buffer))))
(lambda (message) (lambda (message)
(debug-message "message for make-standard-viewer" message)
(cond (cond
((eq? message 'paint) ((eq? message 'paint)
(lambda (self win buffer have-focus?) (lambda (self win buffer have-focus?)
@ -15,5 +16,7 @@
((eq? message 'key-press) ((eq? message 'key-press)
(lambda (self . ignore) (lambda (self . ignore)
self)))))) self))
(else
(error "unknwon message in make-standard-viewer" message))))))