summaryrefslogtreecommitdiff
path: root/catbird/line-editor.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-03-26 09:54:48 -0400
committerDavid Thompson <dthompson2@worcester.edu>2023-03-26 09:54:48 -0400
commitbd9adb3c7c6e97afb56320d32f994a4596a71cce (patch)
treee929d242b5c94dcfaf80ba1a183e12d553b7c81a /catbird/line-editor.scm
parent5941a2379dbcaa22f1da3f33dbcf38662727d164 (diff)
Use resize method in line editor.
Diffstat (limited to 'catbird/line-editor.scm')
-rw-r--r--catbird/line-editor.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/catbird/line-editor.scm b/catbird/line-editor.scm
index 463bd0c..03dc4a9 100644
--- a/catbird/line-editor.scm
+++ b/catbird/line-editor.scm
@@ -158,9 +158,9 @@
(place-right on after)
(align-left on cursor)
;; Adjust size
- (set! (width editor)
- (+ (width lprompt) (width before) (width on) (width after)))
- (set! (height editor) (height cursor))
+ (resize editor
+ (+ (width lprompt) (width before) (width on) (width after))
+ (height cursor))
;; Resume blinking cursor after a short idle timeout.
(run-script cursor
(forever