Paste: Window Columns

Author: tgunr
Mode: factor
Date: Sat, 22 Dec 2012 15:58:30
Plain Text | 
: window-columns ( -- )
    nl
    listener-get -> frame size>> w>>
    get-listener gadget-font-size /i
    iota [ 10 mod number>string write ] each
    nl
;

Annotation: plus usings

Author: tgunr
Mode: factor
Date: Sat, 22 Dec 2012 16:01:30
Plain Text | 
USING: accessors cocoa io math math.parser sequences ui
ui.tools.listener ;


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

Annotation: Generic

Author: tgunr
Mode: factor
Date: Sat, 22 Dec 2012 16:04:59
Plain Text | 
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
;

New Annotation

Summary:
Author:
Mode:
Body: