delete-next-character/eof ( interactor -- )

Vocabulary

ui.tools.listener

Inputs

interactor

an object

Outputs

None

Definition

USING: accessors documents kernel sequences ui.gadgets.editors ;

IN: ui.tools.listener

: delete-next-character/eof ( interactor -- )
    dup model>> doc-string empty?
    [ interactor-eof ] [ delete-next-character ] if ;