while(1){
    $glib->DoOneEvent;
    $wxapp->Dispatch;
}