Paste: UI code

Author: slava
Mode: factor
Date: Thu, 5 Feb 2009 11:26:02
Plain Text | 
: <traceback-gadget> ( model -- gadget )
    [ vertical traceback-gadget new-track ] dip
    [ >>model ]
    [
        [ horizontal <track> ] dip
        [ <datastack-display> 1/2 track-add ]
        [ <retainstack-display> 1/2 track-add ] bi
        1/3 track-add
    ]
    [ <callstack-display> 2/3 track-add ] tri
    add-toolbar ;

New Annotation

Summary:
Author:
Mode:
Body: