! Copyright (C) 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: gadgets-presentations USING: arrays gadgets gadgets-borders gadgets-labels gadgets-layouts gadgets-outliner gadgets-panes hashtables io kernel sequences strings styles ; ! Utility pseudo-stream for implementation of panes UNION: gadget-stream pack paragraph ; M: gadget-stream stream-close ( stream -- ) drop ; M: gadget-stream stream-write ( string stream -- ) over empty? [ 2drop ] [ >r