 --  return str
 -}
 
+unsafeInitGUIForThreadedRTS = initGUI
+
 -- We compile this module using -#includ"gtk/wingtk.h" to bypass the win32 abi
 -- check however we do not compile users programs with this header so if
 -- initGUI was ever inlined in a users program, then that program would not

  idleAdd (action >> return False) priorityDefault
  return ()

-- | Inquire the number of events pending on the event queue
--
eventsPending :: IO Int

  unsafeInitGUIForThreadedRTS,
  postGUISync,
  postGUIAsync,
  threadsEnter,
  threadsLeave,
  
  -- * Main event loop
  mainGUI,
  mainQuit,
