use Tk;
use Tk::Browser;

use Milkbone;

register_hook "tk_getmain", sub {
  return $mw;
}

$mw = MainWindow->new;

$edit = $mw->Browser->pack;

$edit->insertHTML('end', "<font color='grey'>erererr</font><font color='gray'>tererer</font>");

MainLoop;