1 files changed, 108 insertions, 0 deletions
diff --git a/iup/src/mot/iupmot_loop.c b/iup/src/mot/iupmot_loop.c
new file mode 100755
index 0000000..828ddcd
--- /dev/null
+++ b/iup/src/mot/iupmot_loop.c
@@ -0,0 +1,108 @@
+/** \file
+ * \brief Motif Message Loop
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <stdio.h>    
+
+#include <Xm/Xm.h>
+
+#include "iup.h"
+#include "iupcbs.h"
+
+#include "iupmot_drv.h"
+
+
+/* local variables */
+static int mot_mainloop = 0;
+static int mot_exitmainloop = 0;
+static IFidle mot_idle_cb = NULL;
+static XtWorkProcId mot_idle_id;
+
+
+static Boolean motIdlecbWorkProc(XtPointer client_data)
+{
+  (void)client_data;
+  if (mot_idle_cb)
+  {
+    int ret = mot_idle_cb();
+    if (ret == IUP_CLOSE)
+    {
+      mot_idle_cb = NULL;
+      IupExitLoop();
+      return True; /* removes the working procedure */
+    }
+    if (ret == IUP_IGNORE)
+    {
+      mot_idle_cb = NULL;
+      return True; /* removes the working procedure */
+    }
+
+    return False; /* keeps the working procedure */
+  }
+
+  return True; /* removes the working procedure */
+}
+
+void iupdrvSetIdleFunction(Icallback f)
+{
+  if (mot_idle_cb)
+    XtRemoveWorkProc(mot_idle_id);
+
+  mot_idle_cb = (IFidle)f;
+
+  if (mot_idle_cb)
+    mot_idle_id = XtAppAddWorkProc(iupmot_appcontext, motIdlecbWorkProc, NULL);
+}
+
+static int motLoopStep(void)
+{
+  XtAppProcessEvent(iupmot_appcontext, XtIMAll);
+  return (mot_exitmainloop)? IUP_CLOSE : IUP_DEFAULT;
+}
+
+void IupExitLoop(void)
+{
+  mot_exitmainloop = 1;
+}
+
+int IupMainLoopLevel(void)
+{
+  return mot_mainloop;
+}
+
+int IupMainLoop(void)
+{
+  mot_mainloop++;
+  mot_exitmainloop = 0;
+
+  while (!mot_exitmainloop)
+  {
+    if (motLoopStep() == IUP_CLOSE)
+      break;
+  }
+
+  mot_exitmainloop = 0;
+  mot_mainloop--;
+  return IUP_NOERROR;
+}
+
+int IupLoopStep(void)
+{
+  if (!XtAppPending(iupmot_appcontext)) 
+    return IUP_DEFAULT;
+
+  return motLoopStep();
+}
+
+void IupFlush(void)
+{
+  while (XPending(iupmot_display) != 0)
+  {
+    if (motLoopStep() == IUP_CLOSE)
+      break;
+  }
+
+  XFlush(iupmot_display);
+}