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

Add mutators to BUFFER records

This commit is contained in:
eknauel 2005-05-11 13:27:59 +00:00
parent cfec39d156
commit 41ac53c7e8
2 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scheme/input-buffer.scm
View File

@ -46,17 +46,16 @@
num-cols num-cols
can-write can-write
history-pos) history-pos)
(text buffer-text) (text buffer-text set-buffer-text!)
(pos-line buffer-pos-line) (pos-line buffer-pos-line set-buffer-pos-line!)
(pos-col buffer-pos-col) (pos-col buffer-pos-col set-buffer-pos-col!)
(pos-fin-ln buffer-pos-fin-ln) (pos-fin-ln buffer-pos-fin-ln set-buffer-pos-fin-ln!)
(pos-y buffer-pos-y) (pos-y buffer-pos-y set-buffer-pos-y!)
(pos-x buffer-pos-x) (pos-x buffer-pos-x set-buffer-pos-x!)
(num-lines buffer-num-lines) (num-lines buffer-num-lines set-buffer-num-lines!)
(num-cols buffer-num-cols) (num-cols buffer-num-cols set-buffer-num-cols!)
(can-write buffer-can-write) (can-write buffer-can-write set-buffer-can-write!)
(history-pos buffer-history-pos)) (history-pos buffer-history-pos set-buffer-history-pos!))
;;handle input ;;handle input
(define input (define input

10
scheme/ncurses-packages.scm
View File

@ -342,15 +342,25 @@
buffer buffer
buffer-text buffer-text
set-buffer-text!
buffer-pos-line buffer-pos-line
set-buffer-pos-line!
buffer-pos-col buffer-pos-col
set-buffer-pos-col!
buffer-pos-fin-ln buffer-pos-fin-ln
set-buffer-pos-fin-ln!
buffer-pos-y buffer-pos-y
set-buffer-pos-y!
buffer-pos-x buffer-pos-x
set-buffer-pos-x!
buffer-num-lines buffer-num-lines
set-buffer-num-lines!
buffer-num-cols buffer-num-cols
set-buffer-num-cols!
buffer-can-write buffer-can-write
set-buffer-can-write!
buffer-history-pos buffer-history-pos
set-buffer-history-pos!
make-buffer make-buffer
input input
print-command-buffer print-command-buffer