USING: accessors io math math.parser sequences ui ui.tools.listener ;

: window-columns ( -- )
    nl
    get-listener dim>> first
    get-listener gadget-font-size /i
    iota [ 10 mod number>string write ] each
    nl
;