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