 
 
 
Tcl:      pack [text .tout]
          ec_queue_create my_out_queue toec {ec_stream_to_window "" .tout} {}
Tcl:      ec_queue_connect my_in_queue fromec \
                        {ec_stream_input_popup "Type here:"} {}
Tcl:  set my_out_channel [ec_queue_create my_queue toec {} my_queue_event]
Tcl:  puts $my_out_channel hello
      ec_flush [ec_streamname_to_streamnum myqueue]
my_queue_event. The ec_flush transfer control over to
ECLiPSe, so that the event can be handled. 
 
