ui.gadgets.pane: rename pane-clear to clear-pane.

flac
John Benediktsson 2020-02-16 19:17:29 -08:00 committed by Steve Ayerhart
parent 53122102ee
commit f72e79ae2e
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
2 changed files with 3 additions and 3 deletions

View File

@ -175,14 +175,14 @@ M: style-stream write-gadget
: gadget. ( gadget -- )
output-stream get print-gadget ;
: pane-clear ( pane -- )
: clear-pane ( pane -- )
clear-selection
[ output>> clear-incremental ]
[ current>> clear-gadget ]
bi ;
: with-pane ( pane quot -- )
[ [ scroll>top ] [ pane-clear ] [ <pane-stream> ] tri ] dip
[ [ scroll>top ] [ clear-pane ] [ <pane-stream> ] tri ] dip
with-output-stream* ; inline
: make-pane ( quot -- gadget )

View File

@ -310,7 +310,7 @@ M: listener-operation invoke-command ( target command -- )
input>> interactor-eof ;
: clear-output ( listener -- )
output>> pane-clear ;
output>> clear-pane ;
\ clear-output H{ { +listener+ t } } define-command