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

add window `command-frame-window' which surrounds `command-window' and 

holds the border.
This commit is contained in:
eknauel 2005-05-17 15:02:01 +00:00
parent b161acf8cf
commit 3669859bb9
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
scheme/nuit-engine.scm
View File

@ -23,6 +23,7 @@
(define bar-1 #f) (define bar-1 #f)
(define bar-2 #f) (define bar-2 #f)
(define command-frame-window #f)
(define command-window #f) (define command-window #f)
(define result-window #f) (define result-window #f)
@ -43,7 +44,7 @@
;;state of the upper window (Command-Window) ;;state of the upper window (Command-Window)
(define command-buffer (define command-buffer
(make-buffer '("Welcome to the scsh-ncurses-ui!" "") (make-buffer '("Welcome to the scsh-ncurses-ui!" "")
2 2 2 2 2 2 2 2 1 1
0 0 0 0
#t 1)) #t 1))
@ -390,22 +391,30 @@
(make-app-window 1 (+ (round (/ (LINES) 3)) 2) (make-app-window 1 (+ (round (/ (LINES) 3)) 2)
(- (COLS) 2) 3 (- (COLS) 2) 3
#f)) #f))
(set! command-window (set! command-frame-window
(make-app-window 1 2 (make-app-window 1 2
(- (COLS) 2) (- (app-window-y bar-2) 2) (- (COLS) 2) (- (app-window-y bar-2) 2)
#f)) #f))
(set! command-window
(make-app-window (+ (app-window-x command-frame-window) 1)
(+ (app-window-y command-frame-window) 1)
(- (app-window-width command-frame-window) 2)
(- (app-window-height command-frame-window) 2)
#f))
(set! result-window (set! result-window
(make-app-window 1 (+ (app-window-y bar-2) 3) (make-app-window 1 (+ (app-window-y bar-2) 3)
(- (COLS) 2) (- (COLS) 2)
(- (- (LINES) 6) (app-window-height command-window)) (- (- (LINES) 6) (app-window-height command-frame-window))
#f)) #f))
(window-init-curses-win! bar-1) (window-init-curses-win! bar-1)
(window-init-curses-win! bar-2) (window-init-curses-win! bar-2)
(window-init-curses-win! command-frame-window)
(window-init-curses-win! command-window) (window-init-curses-win! command-window)
(window-init-curses-win! result-window) (window-init-curses-win! result-window)
(wclear (app-window-curses-win bar-1)) (wclear (app-window-curses-win bar-1))
(wclear (app-window-curses-win bar-2)) (wclear (app-window-curses-win bar-2))
(wclear (app-window-curses-win command-window)) (wclear (app-window-curses-win command-window))
(wclear (app-window-curses-win command-frame-window))
(wclear (app-window-curses-win result-window)) (wclear (app-window-curses-win result-window))
(clear)) (clear))
@ -418,15 +427,17 @@
(print-active-command-win (app-window-curses-win bar-2) (print-active-command-win (app-window-curses-win bar-2)
(app-window-width bar-2))) (app-window-width bar-2)))
(define (paint-command-window) (define (paint-command-frame-window)
(box (app-window-curses-win command-window) (box (app-window-curses-win command-frame-window)
(ascii->char 0) (ascii->char 0))) (ascii->char 0) (ascii->char 0))
(wrefresh (app-window-curses-win command-frame-window)))
(define (paint-command-window-contents) (define (paint-command-window-contents)
(set-buffer-num-lines! command-buffer (set-buffer-num-lines! command-buffer
(- (app-window-height command-window) 2)) (- (app-window-height command-window) 2))
(set-buffer-num-cols! command-buffer (set-buffer-num-cols! command-buffer
(- (app-window-width command-window) 3)) (- (app-window-width command-window) 3))
(werase (app-window-curses-win command-window))
(set! command-buffer (set! command-buffer
(print-command-buffer (app-window-curses-win command-window) (print-command-buffer (app-window-curses-win command-window)
command-buffer)) command-buffer))
@ -445,7 +456,7 @@
(init-windows!) (init-windows!)
(paint-bar-1) (paint-bar-1)
(paint-bar-2) (paint-bar-2)
(paint-command-window) (paint-command-frame-window)
(paint-command-window-contents) (paint-command-window-contents)
(paint-result-window) (paint-result-window)
(move-cursor command-buffer)) (move-cursor command-buffer))