diff --git a/scheme/input-buffer.scm b/scheme/input-buffer.scm index b96db97..f1a74df 100644 --- a/scheme/input-buffer.scm +++ b/scheme/input-buffer.scm @@ -46,17 +46,16 @@ num-cols can-write history-pos) - (text buffer-text) - (pos-line buffer-pos-line) - (pos-col buffer-pos-col) - (pos-fin-ln buffer-pos-fin-ln) - (pos-y buffer-pos-y) - (pos-x buffer-pos-x) - (num-lines buffer-num-lines) - (num-cols buffer-num-cols) - (can-write buffer-can-write) - (history-pos buffer-history-pos)) - + (text buffer-text set-buffer-text!) + (pos-line buffer-pos-line set-buffer-pos-line!) + (pos-col buffer-pos-col set-buffer-pos-col!) + (pos-fin-ln buffer-pos-fin-ln set-buffer-pos-fin-ln!) + (pos-y buffer-pos-y set-buffer-pos-y!) + (pos-x buffer-pos-x set-buffer-pos-x!) + (num-lines buffer-num-lines set-buffer-num-lines!) + (num-cols buffer-num-cols set-buffer-num-cols!) + (can-write buffer-can-write set-buffer-can-write!) + (history-pos buffer-history-pos set-buffer-history-pos!)) ;;handle input (define input diff --git a/scheme/ncurses-packages.scm b/scheme/ncurses-packages.scm index b7640c6..30e0617 100644 --- a/scheme/ncurses-packages.scm +++ b/scheme/ncurses-packages.scm @@ -342,15 +342,25 @@ buffer buffer-text + set-buffer-text! buffer-pos-line + set-buffer-pos-line! buffer-pos-col + set-buffer-pos-col! buffer-pos-fin-ln + set-buffer-pos-fin-ln! buffer-pos-y + set-buffer-pos-y! buffer-pos-x + set-buffer-pos-x! buffer-num-lines + set-buffer-num-lines! buffer-num-cols + set-buffer-num-cols! buffer-can-write + set-buffer-can-write! buffer-history-pos + set-buffer-history-pos! make-buffer input print-command-buffer