#!/bin/sh
#\
exec tclsh $0 $*

lappend auto_path ..

package require Term

source charoo/charoo

set gc [ charoo #auto ] 

set screen [ ch_screen #auto $gc ]

set box1 [ ch_box #auto 2 2 "\n This is a test \n " ]
set box2 [ ch_box #auto 10 40 "\n No, really \n " ]

$screen add $box1
$screen add $box2

for { set i 0 } { $i == 0 } { } {
	$gc paint
	set c [ $gc getchar ] 
	$screen input $c
}

