! Copyright (C) 2009 Søren Enevoldsen.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel io ui ui.gadgets.panes ui.gadgets ui.gadgets.scrollers ui.gadgets.editors ui.gadgets.packs ui.gadgets.labeled ;
IN: pane-receiver

! Create pane
: create-pane ( -- pane ) <pane> ;
! Create input field that updates pane
: create-input-field ( pane -- action-field ) [ swap [ print ] curry with-pane ] curry <action-field> ;

: create-ui ( -- ) 
  [
   create-pane
   dup create-input-field
      ! Make names for gadgets.
      [ "Pane" <labeled-gadget> ]
      [ "Text Input" <labeled-gadget> ]
      bi*
   <pile>
   ! Add bot to pile
   [ [ swap add-gadget ] curry bi@ ] keep
   
    "Testing" open-window
  ] with-ui ;