Initial import. Contains the im, cd and iup librairies, and a "working" Makefile for them under linux.

1 files changed, 226 insertions, 0 deletions

diff --git a/iup/src/mot/iupmot_tips.c b/iup/src/mot/iupmot_tips.c
new file mode 100755
index 0000000..25bdbea
--- /dev/null
+++ b/iup/src/mot/iupmot_tips.c
@@ -0,0 +1,226 @@
+/** \file
+ * \brief Motif Driver TIPS Control
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <Xm/Xm.h>
+#include <Xm/Label.h>
+
+#include <stdio.h>
+
+#include "iup.h"
+
+#include "iup_attrib.h"
+#include "iup_str.h"
+#include "iup_drv.h"
+#include "iup_drvfont.h"
+
+#include "iupmot_drv.h"
+#include "iupmot_color.h"
+
+
+/* Default offset from cursor */
+#define TIP_X_OFFSET    12
+#define TIP_Y_OFFSET    12
+
+typedef struct _Imottips
+{
+  Widget        Dialog;
+  Widget        Label;
+  XtIntervalId  ShowTimerId;       /* Timer: from enterwin to show tip    */
+  XtIntervalId  HideTimerId;       /* Timer: from visible to hide tip    */
+  unsigned long ShowInterval;      /* Time for tipPopupTimerId         */
+  unsigned long HideInterval;      /* Time for tipActiveTimerId        */
+  int           Visible;
+  Ihandle*      ih;
+} Imottips;
+
+static Imottips mot_tips = {0, 0, 0, 0, 0, 0};
+
+static void motTipsShow(void)
+{
+  Window root, child;
+  int cx, cy, x, y;
+  unsigned int keys;
+  char* value;
+
+  XQueryPointer(iupmot_display, RootWindow(iupmot_display, iupmot_screen),
+                &root, &child, &x, &y, &cx, &cy, &keys);
+
+  value = iupAttribGet(mot_tips.ih, "TIPRECT");
+  if (value)
+  {
+    int x1, x2, y1, y2, wx = x, wy = y;
+    sscanf(value, "%d %d %d %d", &x1, &y1, &x2, &y2);
+    iupdrvScreenToClient(mot_tips.ih, &wx, &wy);
+    if (wx < x1 || wx > x2 || wy < y1 || wy > y2)
+    {
+      iupmotTipLeaveNotify();
+      return;
+    }
+  }
+  
+  XtVaSetValues(mot_tips.Dialog, 
+    XmNx, (XtArgVal)(x+TIP_X_OFFSET),
+    XmNy, (XtArgVal)(y+TIP_Y_OFFSET), 
+    NULL);
+
+  if (mot_tips.Visible)
+    XRaiseWindow(iupmot_display, XtWindow(mot_tips.Dialog));
+  else
+    XtMapWidget(mot_tips.Dialog);
+
+  mot_tips.ShowTimerId = (XtIntervalId) NULL;
+  mot_tips.Visible = TRUE;
+}
+
+static void motTipsHide(void)
+{
+  mot_tips.HideTimerId = (XtIntervalId) NULL;
+  iupmotTipLeaveNotify();
+}
+
+static int motTipsSet(Ihandle *ih)
+{
+  char* tipText = iupAttribGet(ih, "TIP");
+  if (!tipText)
+    return FALSE;
+
+  if (!mot_tips.Dialog)
+  {
+    mot_tips.Dialog = XtVaAppCreateShell(" ", "tip",
+      overrideShellWidgetClass, iupmot_display,
+      XmNmappedWhenManaged, False,
+      NULL);
+
+    mot_tips.Label = XtVaCreateManagedWidget("label tip",
+      xmLabelWidgetClass, mot_tips.Dialog,     /* must use IupGetAttribute to use inheritance */
+      XmNforeground, iupmotColorGetPixelStr(IupGetAttribute(ih, "TIPFGCOLOR")),
+      XmNbackground, iupmotColorGetPixelStr(IupGetAttribute(ih, "TIPBGCOLOR")),
+      NULL);
+
+    XtRealizeWidget(mot_tips.Dialog);
+  }
+
+  /* set label font */
+  {
+    XmFontList fontlist = (XmFontList)iupmotGetFontListAttrib(ih);
+    char* value = iupAttribGetStr(ih, "TIPFONT");
+    if (value)
+    {
+      if (iupStrEqualNoCase(value, "SYSTEM"))
+        fontlist = NULL;
+      else
+        fontlist = iupmotGetFontList(iupAttribGet(ih, "TIPFOUNDRY"), value);
+    }
+
+    if (fontlist)
+      XtVaSetValues(mot_tips.Label, XmNfontList, fontlist, NULL);
+  }
+ 
+  /* set label contents */
+  iupmotSetString(mot_tips.Label, XmNlabelString, tipText);
+
+  /* set label size */
+  {
+    int lw = 0, lh = 0;
+    iupdrvFontGetMultiLineStringSize(ih, tipText, &lw, &lh);
+
+    /* add room for margin */
+    lw += 2*(2);
+    lh += 2*(2);  
+
+    XtVaSetValues(mot_tips.Label,
+      XmNwidth, (XtArgVal)lw,
+      XmNheight, (XtArgVal)lh,
+      NULL);
+    XtVaSetValues(mot_tips.Dialog,
+      XmNwidth, (XtArgVal)lw,
+      XmNheight, (XtArgVal)lh,
+      NULL);
+  }
+
+  mot_tips.ShowTimerId  = (XtIntervalId) NULL;
+  mot_tips.HideTimerId  = (XtIntervalId) NULL;
+  mot_tips.Visible      = FALSE;
+  mot_tips.ShowInterval = 500;  /* 1/2 second to show */
+
+  {
+    int delay = IupGetInt(ih, "TIPDELAY");  /* must use IupGetInt to use inheritance */
+    mot_tips.HideInterval = delay + mot_tips.ShowInterval;
+  }
+
+  return TRUE;
+}
+
+int iupdrvBaseSetTipVisibleAttrib(Ihandle* ih, const char* value)
+{
+  /* must use IupGetAttribute to use inheritance */
+  if (!IupGetAttribute(ih, "TIP"))
+    return 0;
+
+  if (iupStrBoolean(value))
+    iupmotTipEnterNotify(ih);
+  else
+    iupmotTipLeaveNotify();
+
+  return 0;
+}
+
+void iupmotTipEnterNotify(Ihandle *ih)
+{
+  iupmotTipLeaveNotify();
+
+  if (motTipsSet(ih) == FALSE)
+    return;
+
+  mot_tips.ih = ih;
+
+  mot_tips.ShowTimerId = XtAppAddTimeOut( /* EnterWin to Show */
+    iupmot_appcontext,
+    mot_tips.ShowInterval,
+    (XtTimerCallbackProc)motTipsShow,
+    NULL);
+  mot_tips.HideTimerId = XtAppAddTimeOut( /* Visible to Hide */
+    iupmot_appcontext,
+    mot_tips.HideInterval,
+    (XtTimerCallbackProc)motTipsHide,
+    NULL);
+}
+
+void iupmotTipLeaveNotify(void)
+{
+  if (mot_tips.ShowTimerId)
+  {
+    XtRemoveTimeOut(mot_tips.ShowTimerId);
+    mot_tips.ShowTimerId = (XtIntervalId) NULL;
+  }
+  if (mot_tips.HideTimerId)
+  {
+    XtRemoveTimeOut(mot_tips.HideTimerId);
+    mot_tips.HideTimerId = (XtIntervalId) NULL;
+  }
+  if (mot_tips.Visible)
+  {
+    XtUnmapWidget(mot_tips.Dialog);
+    mot_tips.Visible = FALSE;
+  }
+}
+
+void iupmotTipsFinish(void)
+{
+  if (mot_tips.Dialog)
+  {
+    XtDestroyWidget(mot_tips.Dialog);
+    memset(&mot_tips, 0, sizeof(Imottips));
+  }
+}
+
+int iupdrvBaseSetTipAttrib(Ihandle* ih, const char* value)
+{
+  /* implement this stub here because of the other drivers. */
+  (void)ih;
+  (void)value;
+  return 1;
+}