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

Call constructor with arguments

This commit is contained in:
mainzelm 2005-05-31 13:14:55 +00:00
parent 0adfc18986
commit c405bc02c5
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/nuit-engine.scm
View File

@ -318,7 +318,7 @@
(loop (wait-for-input) #f maybe-selector)))
;; F7 toggle scheme-mode / command-mode (FIXME: find a better key)
((= ch key-f7)
((= ch key-home)
(toggle-command/scheme-mode)
(loop (wait-for-input) #f #f))
@ -567,11 +567,10 @@
(cond
((determine-plugin-by-type result)
=> (lambda (view-plugin)
(let ((instance ((view-plugin-constructor view-plugin))))
(send instance 'init result result-buffer))))
((view-plugin-constructor view-plugin)
result result-buffer)))
(else
(let ((instance (make-standard-viewer)))
(send instance 'init result result-buffer)))))
((make-standard-viewer) result result-buffer))))
;;scroll buffer after one command was entered
(define (scroll-command-buffer)