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

Adapt to new interface of paint-selection-list-at

This commit is contained in:
mainzelm 2005-05-31 15:14:45 +00:00
parent ddf1ca752b
commit 7230bd9a2f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/nuit-engine.scm
View File

@ -327,7 +327,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))
@ -808,7 +808,7 @@
(mvwaddstr win 0 0 (mvwaddstr win 0 0
(string-append "Possible completions for " command)) (string-append "Possible completions for " command))
(wattrset win (A-NORMAL)) (wattrset win (A-NORMAL))
((paint-selection-list-at select-list 0 2) (paint-selection-list-at select-list 0 2
win result-buffer (focus-on-result-buffer?)) win result-buffer (focus-on-result-buffer?))
(refresh-result-window))) (refresh-result-window)))