diff options
author | David Thompson <dthompson2@worcester.edu> | 2023-05-01 07:32:27 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2023-05-01 07:32:27 -0400 |
commit | bdb741ebb3a04adb1889a25c8f33c3ac9dff3b8c (patch) | |
tree | ab5fa467e31cb73e653b2adeff50aa3004d1d8a3 /catbird/line-editor.scm | |
parent | 335e8af2ff7467d1f3fad5aed52163492a684ce0 (diff) |
Remove on-boot and reboot methods.
Diffstat (limited to 'catbird/line-editor.scm')
-rw-r--r-- | catbird/line-editor.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/catbird/line-editor.scm b/catbird/line-editor.scm index b991f47..4fe8cc7 100644 --- a/catbird/line-editor.scm +++ b/catbird/line-editor.scm @@ -76,14 +76,8 @@ #:init-value black) (accepting-input? #:accessor accepting-input? #:init-value #t)) -(define-method (on-change (editor <line-editor>) slot old new) - (case slot - ((prompt) - (update-visual editor)) - (else - (next-method)))) - -(define-method (on-boot (editor <line-editor>)) +(define-method (initialize (editor <line-editor>) initargs) + (next-method) (attach-to editor (make <label> #:name 'prompt @@ -116,6 +110,13 @@ (discard-next-char editor) (update-visual editor)) +(define-method (on-change (editor <line-editor>) slot old new) + (case slot + ((prompt) + (update-visual editor)) + (else + (next-method)))) + ;; Whenever a command key sequence is pressed while the line editor is ;; active we have to stop accepting text input for one tick. ;; Otherwise, an errant character shows up. For example, if the user |