Back to index

plt-scheme  4.2.1
Application.cc
Go to the documentation of this file.
00001 /*                                                      -*- C++ -*-
00002  *
00003  * Purpose: global utilities for wxWindows application and main loop
00004  *
00005  * Authors: Markus Holzem and Julian Smart
00006  *
00007  * Copyright: (C) 2004-2009 PLT Scheme Inc.
00008  * Copyright: (C) 1995, AIAI, University of Edinburgh (Julian)
00009  * Copyright: (C) 1995, GNU (Markus)
00010  *
00011  * This program is free software; you can redistribute it and/or modify
00012  * it under the terms of the GNU General Public License as published by
00013  * the Free Software Foundation; either version 2 of the License, or
00014  * (at your option) any later version.
00015  *
00016  * This program is distributed in the hope that it will be useful,
00017  * but WITHOUT ANY WARRANTY; without even the implied warranty of
00018  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00019  * GNU General Public License for more details.
00020  *
00021  * You should have received a copy of the GNU General Public License
00022  * along with this program; if not, write to the Free Software
00023  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
00024  * 02110-1301 USA.
00025  */
00026 
00027 #define  Uses_XtIntrinsic
00028 #define  Uses_wxApp
00029 #include "wx.h"
00030 
00031 //-----------------------------------------------------------------------------
00032 // exit the application with retvalue of OnExit
00033 //-----------------------------------------------------------------------------
00034 
00035 void wxExit(void)
00036 {
00037   int v;
00038   v = wxTheApp->OnExit();
00039   exit(v);
00040 }
00041 
00042 //-----------------------------------------------------------------------------
00043 // flush all events in the queue
00044 //-----------------------------------------------------------------------------
00045 
00046 void wxFlushEvents(void)
00047 {
00048 }
00049 
00050 //-----------------------------------------------------------------------------
00051 // yield to incomming messages
00052 //-----------------------------------------------------------------------------
00053 
00054 Bool wxYield(void)
00055 {
00056   int ever = 0;
00057   int one_more;
00058 
00059   do {
00060     XFlush(wxAPP_DISPLAY);
00061     XSync(wxAPP_DISPLAY, FALSE);
00062     one_more = 0;
00063     while (wxTheApp->Pending()) {
00064       one_more = 1;
00065       ever = 1;
00066       wxTheApp->Dispatch();
00067     }
00068   } while (one_more);
00069 
00070   return ever;
00071 }