print "@ main loop\n";
#MainLoop;
while (MainWindow->Count)
{
    print MainWindow->Count,"\n";
    DoOneEvent(ALL_EVENTS);
    #$MainWindow->update();
}