fix for scrolling in checklistboxes (Win32 only)

[wxWidgets.git] / src / motif / app.cpp

diff --git a/src/motif/app.cpp b/src/motif/app.cpp
index e1b12c2243f1ce2f046e9d4e8ac5418eaca78df1..c8b0dff7042fbbadcdae01751589e7caaec6c599 100644 (file)
--- a/src/motif/app.cpp
+++ b/src/motif/app.cpp
@@ -6,7 +6,7 @@
 // Created:     17/09/98
 // RCS-ID:      $Id$
 // Copyright:   (c) Julian Smart
 // Created:     17/09/98
 // RCS-ID:      $Id$
 // Copyright:   (c) Julian Smart

-// Licence:    wxWindows licence
+// Licence:     wxWindows licence

 /////////////////////////////////////////////////////////////////////////////
 
 #ifdef __GNUG__
 /////////////////////////////////////////////////////////////////////////////
 
 #ifdef __GNUG__


@@ -29,12 +29,10 @@
 #include "wx/module.h"
 #include "wx/memory.h"
 
 #include "wx/module.h"
 #include "wx/memory.h"
 

-#if wxUSE_THREADS

 #include "wx/thread.h"
 #include "wx/thread.h"

-#endif

 
 #if wxUSE_WX_RESOURCES
 
 #if wxUSE_WX_RESOURCES

-#include "wx/resource.h"
+    #include "wx/resource.h"

 #endif
 
 #include <Xm/Xm.h>
 #endif
 
 #include <Xm/Xm.h>


@@ -56,6 +54,7 @@ wxHashTable *wxWidgetHashTable = NULL;
 
 #if !USE_SHARED_LIBRARY
 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
 
 #if !USE_SHARED_LIBRARY
 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)

+

 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
     EVT_IDLE(wxApp::OnIdle)
 END_EVENT_TABLE()
 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
     EVT_IDLE(wxApp::OnIdle)
 END_EVENT_TABLE()


@@ -65,11 +64,7 @@ long wxApp::sm_lastMessageTime = 0;
 
 bool wxApp::Initialize()
 {
 
 bool wxApp::Initialize()
 {

-#ifdef __WXMSW__
-    wxBuffer = new char[1500];
-#else

     wxBuffer = new char[BUFSIZ + 512];
     wxBuffer = new char[BUFSIZ + 512];

-#endif

 
     wxClassInfo::InitializeClasses();
 
 
     wxClassInfo::InitializeClasses();
 


@@ -83,13 +78,13 @@ bool wxApp::Initialize()
     wxInitializeResourceSystem();
 #endif
 
     wxInitializeResourceSystem();
 #endif
 

-  // For PostScript printing
+    // For PostScript printing

 #if wxUSE_POSTSCRIPT
 #if wxUSE_POSTSCRIPT

-/* Done using wxModule now
+    /* Done using wxModule now

     wxInitializePrintSetupData();
     wxThePrintPaperDatabase = new wxPrintPaperDatabase;
     wxThePrintPaperDatabase->CreateDatabase();
     wxInitializePrintSetupData();
     wxThePrintPaperDatabase = new wxPrintPaperDatabase;
     wxThePrintPaperDatabase->CreateDatabase();

-*/
+    */

 #endif
 
     wxBitmap::InitStandardHandlers();
 #endif
 
     wxBitmap::InitStandardHandlers();


@@ -133,11 +128,11 @@ void wxApp::CleanUp()
     wxTheColourDatabase = NULL;
 
 #if wxUSE_POSTSCRIPT
     wxTheColourDatabase = NULL;
 
 #if wxUSE_POSTSCRIPT

-/* Done using wxModule now
+    /* Done using wxModule now

     wxInitializePrintSetupData(FALSE);
     delete wxThePrintPaperDatabase;
     wxThePrintPaperDatabase = NULL;
     wxInitializePrintSetupData(FALSE);
     delete wxThePrintPaperDatabase;
     wxThePrintPaperDatabase = NULL;

-*/
+    */

 #endif
 
     wxBitmap::CleanUpHandlers();
 #endif
 
     wxBitmap::CleanUpHandlers();


@@ -149,7 +144,7 @@ void wxApp::CleanUp()
 
     delete wxTheApp;
     wxTheApp = NULL;
 
     delete wxTheApp;
     wxTheApp = NULL;

-  
+

 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
     // At this point we want to check if there are any memory
     // blocks that aren't part of the wxDebugContext itself,
 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
     // At this point we want to check if there are any memory
     // blocks that aren't part of the wxDebugContext itself,


@@ -157,12 +152,12 @@ void wxApp::CleanUp()
     // wxDebugContext, too.
     if (wxDebugContext::CountObjectsLeft(TRUE) > 0)
     {
     // wxDebugContext, too.
     if (wxDebugContext::CountObjectsLeft(TRUE) > 0)
     {

-      wxLogDebug("There were memory leaks.\n");
-      wxDebugContext::Dump();
-      wxDebugContext::PrintStatistics();
+        wxLogDebug("There were memory leaks.\n");
+        wxDebugContext::Dump();
+        wxDebugContext::PrintStatistics();

     }
 #endif
     }
 #endif

-  
+

     // do it as the very last thing because everything else can log messages
     wxLog::DontCreateOnDemand();
     // do it as the very last thing because everything else can log messages
     // do it as the very last thing because everything else can log messages
     wxLog::DontCreateOnDemand();
     // do it as the very last thing because everything else can log messages


@@ -182,23 +177,23 @@ int wxEntry( int argc, char *argv[] )
 #endif
 
     if (!wxApp::Initialize())
 #endif
 
     if (!wxApp::Initialize())

-      return FALSE;
+        return FALSE;

 
     if (!wxTheApp)
     {
 
     if (!wxTheApp)
     {

-      if (!wxApp::GetInitializerFunction())
-      {
-        printf( "wxWindows error: No initializer - use IMPLEMENT_APP macro.\n" );
-        return 0;
-      };
-    
-       wxTheApp = (wxApp*) (* wxApp::GetInitializerFunction()) ();
+        if (!wxApp::GetInitializerFunction())
+        {
+            printf( "wxWindows error: No initializer - use IMPLEMENT_APP macro.\n" );
+            return 0;
+        };
+
+        wxTheApp = (wxApp*) (* wxApp::GetInitializerFunction()) ();

     };
     };

-  
+

     if (!wxTheApp)
     {
     if (!wxTheApp)
     {

-      printf( "wxWindows error: wxTheApp == NULL\n" );
-      return 0;
+        printf( "wxWindows error: wxTheApp == NULL\n" );
+        return 0;

     };
 
     wxTheApp->SetClassName(wxFileNameFromPath(argv[0]));
     };
 
     wxTheApp->SetClassName(wxFileNameFromPath(argv[0]));


@@ -213,31 +208,31 @@ int wxEntry( int argc, char *argv[] )
     // Here frames insert themselves automatically
     // into wxTopLevelWindows by getting created
     // in OnInit().
     // Here frames insert themselves automatically
     // into wxTopLevelWindows by getting created
     // in OnInit().

-  
+

     int retValue = 0;
     if (wxTheApp->OnInit())
     {
     int retValue = 0;
     if (wxTheApp->OnInit())
     {

-      if (wxTheApp->Initialized()) retValue = wxTheApp->OnRun();
+        if (wxTheApp->Initialized()) retValue = wxTheApp->OnRun();

     }
 
     // flush the logged messages if any
     wxLog *pLog = wxLog::GetActiveTarget();
     if ( pLog != NULL && pLog->HasPendingMessages() )
     }
 
     // flush the logged messages if any
     wxLog *pLog = wxLog::GetActiveTarget();
     if ( pLog != NULL && pLog->HasPendingMessages() )

-      pLog->Flush();
+        pLog->Flush();

 
     delete wxLog::SetActiveTarget(new wxLogStderr); // So dialog boxes aren't used
 
     delete wxLog::SetActiveTarget(new wxLogStderr); // So dialog boxes aren't used

-                                   // for further messages
+    // for further messages

 
     if (wxTheApp->GetTopWindow())
     {
 
     if (wxTheApp->GetTopWindow())
     {

-      delete wxTheApp->GetTopWindow();
-      wxTheApp->SetTopWindow(NULL);
+        delete wxTheApp->GetTopWindow();
+        wxTheApp->SetTopWindow(NULL);

     }
     }

-  
+

     wxTheApp->DeletePendingObjects();
     wxTheApp->DeletePendingObjects();

-  
+

     wxTheApp->OnExit();
     wxTheApp->OnExit();

-  
+

     wxApp::CleanUp();
 
     return retValue;
     wxApp::CleanUp();
 
     return retValue;


@@ -269,16 +264,16 @@ wxApp::wxApp()
 bool wxApp::Initialized()
 {
     if (GetTopWindow())
 bool wxApp::Initialized()
 {
     if (GetTopWindow())

-      return TRUE;
+        return TRUE;

     else
     else

-      return FALSE;
+        return FALSE;

 }
 
 int wxApp::MainLoop()
 {
     m_keepGoing = TRUE;
 
 }
 
 int wxApp::MainLoop()
 {
     m_keepGoing = TRUE;
 

-   /*
+    /*

     * Sit around forever waiting to process X-events. Property Change
     * event are handled special, because they have to refer to
     * the root window rather than to a widget. therefore we can't
     * Sit around forever waiting to process X-events. Property Change
     * event are handled special, because they have to refer to
     * the root window rather than to a widget. therefore we can't


@@ -286,31 +281,30 @@ int wxApp::MainLoop()
     */
 
     XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()),
     */
 
     XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()),

-                 XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())),
-                 PropertyChangeMask);
+        XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())),
+        PropertyChangeMask);

 
     XEvent event;
 
     // Use this flag to allow breaking the loop via wxApp::ExitMainLoop()
     while (m_keepGoing)
     {
 
     XEvent event;
 
     // Use this flag to allow breaking the loop via wxApp::ExitMainLoop()
     while (m_keepGoing)
     {

-      XtAppNextEvent( (XtAppContext) wxTheApp->GetAppContext(), &event);
-
-      ProcessXEvent((WXEvent*) & event);
-      
-      if (XtAppPending( (XtAppContext) wxTheApp->GetAppContext() ) == 0)
-      {
-        if (!ProcessIdle())
-        { 
-         // TODO: Robert, what's this for?
-#if wxUSE_THREADS
-          wxMutexGuiLeave();
-          usleep(20);  
-          wxMutexGuiEnter();
-#endif
-       }
-      }
-      
+        XtAppNextEvent( (XtAppContext) wxTheApp->GetAppContext(), &event);
+
+        ProcessXEvent((WXEvent*) & event);
+
+        if (XtAppPending( (XtAppContext) wxTheApp->GetAppContext() ) == 0)
+        {
+            if (!ProcessIdle())
+            {
+                // leave the main loop to give other threads a chance to
+                // perform their GUI work
+                wxMutexGuiLeave();
+                wxUsleep(20);
+                wxMutexGuiEnter();
+            }
+        }
+

     }
 
     return 0;
     }
 
     return 0;


@@ -333,15 +327,15 @@ void wxApp::ProcessXEvent(WXEvent* _event)
     }
     else if (event->type == ResizeRequest)
     {
     }
     else if (event->type == ResizeRequest)
     {

-        /* Terry Gitnick <terryg@scientech.com> - 1/21/98
-         * If resize event, don't resize until the last resize event for this
-         * window is recieved. Prevents flicker as windows are resized.
-         */
+    /* Terry Gitnick <terryg@scientech.com> - 1/21/98
+    * If resize event, don't resize until the last resize event for this
+    * window is recieved. Prevents flicker as windows are resized.
+        */

 
         Display *disp = XtDisplay((Widget) wxTheApp->GetTopLevelWidget());
         Window win = event->xany.window;
         XEvent report;
 
         Display *disp = XtDisplay((Widget) wxTheApp->GetTopLevelWidget());
         Window win = event->xany.window;
         XEvent report;

- 
+

         //  to avoid flicker
         report = * event;
         while( XCheckTypedWindowEvent (disp, win, ResizeRequest, &report));
         //  to avoid flicker
         report = * event;
         while( XCheckTypedWindowEvent (disp, win, ResizeRequest, &report));


@@ -385,7 +379,7 @@ bool wxApp::Pending()
 // Dispatch a message.
 void wxApp::Dispatch()
 {
 // Dispatch a message.
 void wxApp::Dispatch()
 {

-//    XtAppProcessEvent( (XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
+    //    XtAppProcessEvent( (XtAppContext) wxTheApp->GetAppContext(), XtIMAll);

 
     XEvent event;
     XtAppNextEvent((XtAppContext) GetAppContext(), &event);
 
     XEvent event;
     XtAppNextEvent((XtAppContext) GetAppContext(), &event);


@@ -406,7 +400,7 @@ void wxApp::OnIdle(wxIdleEvent& event)
 
     // Avoid recursion (via ProcessEvent default case)
     if (inOnIdle)
 
     // Avoid recursion (via ProcessEvent default case)
     if (inOnIdle)

-      return;
+        return;

 
     inOnIdle = TRUE;
 
 
     inOnIdle = TRUE;
 


@@ -416,13 +410,13 @@ void wxApp::OnIdle(wxIdleEvent& event)
     // flush the logged messages if any
     wxLog *pLog = wxLog::GetActiveTarget();
     if ( pLog != NULL && pLog->HasPendingMessages() )
     // flush the logged messages if any
     wxLog *pLog = wxLog::GetActiveTarget();
     if ( pLog != NULL && pLog->HasPendingMessages() )

-      pLog->Flush();
+        pLog->Flush();

 
     // Send OnIdle events to all windows
     bool needMore = SendIdleEvents();
 
     if (needMore)
 
     // Send OnIdle events to all windows
     bool needMore = SendIdleEvents();
 
     if (needMore)

-      event.RequestMore(TRUE);
+        event.RequestMore(TRUE);

 
     inOnIdle = FALSE;
 }
 
     inOnIdle = FALSE;
 }


@@ -431,15 +425,15 @@ void wxApp::OnIdle(wxIdleEvent& event)
 bool wxApp::SendIdleEvents()
 {
     bool needMore = FALSE;
 bool wxApp::SendIdleEvents()
 {
     bool needMore = FALSE;

-       wxNode* node = wxTopLevelWindows.First();
-       while (node)
-       {
-               wxWindow* win = (wxWindow*) node->Data();
-               if (SendIdleEvents(win))
+    wxNode* node = wxTopLevelWindows.First();
+    while (node)
+    {
+        wxWindow* win = (wxWindow*) node->Data();
+        if (SendIdleEvents(win))

             needMore = TRUE;
 
             needMore = TRUE;
 

-               node = node->Next();
-       }
+        node = node->Next();
+    }

     return needMore;
 }
 
     return needMore;
 }
 


@@ -448,22 +442,22 @@ bool wxApp::SendIdleEvents(wxWindow* win)
 {
     bool needMore = FALSE;
 
 {
     bool needMore = FALSE;
 

-       wxIdleEvent event;
-       event.SetEventObject(win);
-       win->ProcessEvent(event);
+    wxIdleEvent event;
+    event.SetEventObject(win);
+    win->ProcessEvent(event);

 
     if (event.MoreRequested())
         needMore = TRUE;
 
 
     if (event.MoreRequested())
         needMore = TRUE;
 

-       wxNode* node = win->GetChildren().First();
-       while (node)
-       {
-               wxWindow* win = (wxWindow*) node->Data();
-               if (SendIdleEvents(win))
+    wxNode* node = win->GetChildren().First();
+    while (node)
+    {
+        wxWindow* win = (wxWindow*) node->Data();
+        if (SendIdleEvents(win))

             needMore = TRUE;
 
             needMore = TRUE;
 

-               node = node->Next();
-       }
+        node = node->Next();
+    }

     return needMore ;
 }
 
     return needMore ;
 }
 


@@ -472,16 +466,16 @@ void wxApp::DeletePendingObjects()
     wxNode *node = wxPendingDelete.First();
     while (node)
     {
     wxNode *node = wxPendingDelete.First();
     while (node)
     {

-      wxObject *obj = (wxObject *)node->Data();
-    
-      delete obj;
+        wxObject *obj = (wxObject *)node->Data();

 
 

-      if (wxPendingDelete.Member(obj))
-        delete node;
+        delete obj;

 
 

-      // Deleting one object may have deleted other pending
-      // objects, so start from beginning of list again.
-      node = wxPendingDelete.First();
+        if (wxPendingDelete.Member(obj))
+            delete node;
+
+        // Deleting one object may have deleted other pending
+        // objects, so start from beginning of list again.
+        node = wxPendingDelete.First();

     }
 }
 
     }
 }
 


@@ -506,21 +500,24 @@ bool wxApp::OnInitGui()
     XtToolkitInitialize() ;
     wxTheApp->m_appContext = (WXAppContext) XtCreateApplicationContext() ;
     Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,(String)NULL,NULL,
     XtToolkitInitialize() ;
     wxTheApp->m_appContext = (WXAppContext) XtCreateApplicationContext() ;
     Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,(String)NULL,NULL,

-                            (const char*) wxTheApp->GetClassName(), NULL,
+        (const char*) wxTheApp->GetClassName(), NULL, 0,

 # if XtSpecificationRelease < 5
 # if XtSpecificationRelease < 5

-                            0,(Cardinal*) &argc,argv) ;
+        (Cardinal*) &argc,

 # else
 # else

-                            0,&argc,argv) ;
+        &argc,

 # endif
 # endif

+        argv);
+

     if (!dpy) {
     if (!dpy) {

-      cerr << "wxWindows could not open display for " << wxTheApp->GetClassName() << ": exiting.\n";
-      exit(-1);
+        wxLogError(_("wxWindows could not open display for '%s': exiting."),
+                   wxTheApp->GetClassName());
+        exit(-1);

     }
     m_initialDisplay = (WXDisplay*) dpy;
 
     wxTheApp->m_topLevelWidget = (WXWidget) XtAppCreateShell((String)NULL, (const char*) wxTheApp->GetClassName(),
     }
     m_initialDisplay = (WXDisplay*) dpy;
 
     wxTheApp->m_topLevelWidget = (WXWidget) XtAppCreateShell((String)NULL, (const char*) wxTheApp->GetClassName(),

-                                     applicationShellWidgetClass,dpy,
-                                     NULL,0) ;
+        applicationShellWidgetClass,dpy,
+        NULL,0) ;

 
     // Add general resize proc
     XtActionsRec rec;
 
     // Add general resize proc
     XtActionsRec rec;


@@ -537,14 +534,15 @@ bool wxApp::OnInitGui()
 WXColormap wxApp::GetMainColormap(WXDisplay* display)
 {
     if (!display) /* Must be called first with non-NULL display */
 WXColormap wxApp::GetMainColormap(WXDisplay* display)
 {
     if (!display) /* Must be called first with non-NULL display */

-      return m_mainColormap;
+        return m_mainColormap;

 
 

-    Colormap c =
-      DefaultColormapOfScreen(XScreenOfDisplay((Display*) display,
-                                            DefaultScreen((Display*) display)));
+    int defaultScreen = DefaultScreen((Display*) display);
+    Screen* screen = XScreenOfDisplay((Display*) display, defaultScreen);
+
+    Colormap c = DefaultColormapOfScreen(screen);

 
     if (!m_mainColormap)
 
     if (!m_mainColormap)

-      m_mainColormap = (WXColormap) c;
+        m_mainColormap = (WXColormap) c;

 
     return (WXColormap) c;
 }
 
     return (WXColormap) c;
 }


@@ -588,13 +586,13 @@ void wxExit()
 {
     int retValue = 0;
     if (wxTheApp)
 {
     int retValue = 0;
     if (wxTheApp)

-      retValue = wxTheApp->OnExit();
+        retValue = wxTheApp->OnExit();

 
     wxApp::CleanUp();
     /*
 
     wxApp::CleanUp();
     /*

-     * Exit in some platform-specific way. Not recommended that the app calls this:
-     * only for emergencies.
-     */
+    * Exit in some platform-specific way. Not recommended that the app calls this:
+    * only for emergencies.
+    */

     exit(retValue);
 }
 
     exit(retValue);
 }
 


@@ -602,7 +600,13 @@ void wxExit()
 bool wxYield()
 {
     while (wxTheApp && wxTheApp->Pending())
 bool wxYield()
 {
     while (wxTheApp && wxTheApp->Pending())

-      wxTheApp->Dispatch();
+        wxTheApp->Dispatch();
+
+    // VZ: is it the same as this (taken from old wxExecute)?
+#if 0
+    XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
+#endif
+

     return TRUE;
 }
 
     return TRUE;
 }