1 files changed, 208 insertions, 0 deletions
diff --git a/iup/src/mot/iupmot_clipboard.c b/iup/src/mot/iupmot_clipboard.c
new file mode 100755
index 0000000..43a0087
--- /dev/null
+++ b/iup/src/mot/iupmot_clipboard.c
@@ -0,0 +1,208 @@
+/** \file
+ * \brief Clipboard for the Motif Driver.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <Xm/Xm.h>
+#include <Xm/CutPaste.h>
+
+#include "iup.h"
+
+#include "iup_object.h"
+#include "iup_attrib.h"
+#include "iup_str.h"
+#include "iup_image.h"
+
+#include "iupmot_drv.h"
+
+
+static Window motClipboardGetWindow(void)
+{
+  Ihandle* focus = IupGetFocus();
+  Ihandle* dlg;
+  if (!focus) return (Window)NULL;
+  dlg = IupGetDialog(focus);
+  if (dlg)
+    return XtWindow(dlg->handle);
+  else
+    return (Window)NULL;
+}
+
+static int motClipboardSetTextAttrib(Ihandle *ih, const char *value)
+{
+  long item_id = 0;
+  Window window = motClipboardGetWindow();
+  XmString clip_label = XmStringCreateLocalized ("IupClipboard");
+  (void)ih;
+
+  if (XmClipboardStartCopy(iupmot_display, window, clip_label, CurrentTime, NULL, NULL, &item_id)!=ClipboardSuccess)
+  {
+    XmStringFree(clip_label);
+    return 0;
+  }
+
+  XmStringFree(clip_label);
+
+  XmClipboardCopy(iupmot_display, window, item_id, "STRING", (char*)value, (long)strlen(value)+1, 0, NULL);
+  XmClipboardEndCopy(iupmot_display, window, item_id);
+  return 0;
+}
+
+static char* motClipboardGetTextAttrib(Ihandle *ih)
+{
+  unsigned long size;
+  char* str;
+  Window window = motClipboardGetWindow();
+  (void)ih;
+  
+  if (XmClipboardInquireLength(iupmot_display, window, "STRING", &size)!=ClipboardSuccess)
+    return NULL;
+
+  str = iupStrGetMemory(size+1);
+
+  if (XmClipboardRetrieve(iupmot_display, window, "STRING", str, size+1, NULL, NULL)!=ClipboardSuccess)
+    return NULL;
+
+  return str;
+}
+
+static int motClipboardSetImageAttrib(Ihandle *ih, const char *value)
+{
+  Pixmap pixmap;
+  long item_id = 0;
+  Window window = motClipboardGetWindow();
+  XmString clip_label = XmStringCreateLocalized ("IupClipboard");
+
+  if (XmClipboardStartCopy(iupmot_display, window, clip_label, CurrentTime, NULL, NULL, &item_id)!=ClipboardSuccess)
+  {
+    XmStringFree(clip_label);
+    return 0;
+  }
+
+  XmStringFree(clip_label);
+
+  pixmap = (Pixmap)iupImageGetImage(value, ih, 0);
+
+  XmClipboardCopy(iupmot_display, window, item_id, "PIXMAP", (char*)&pixmap, sizeof(Pixmap), 0, NULL);
+  XmClipboardEndCopy(iupmot_display, window, item_id);
+
+  (void)ih;
+  return 0;
+}
+
+static int motClipboardSetNativeImageAttrib(Ihandle *ih, const char *value)
+{
+  long item_id = 0;
+  Window window = motClipboardGetWindow();
+  XmString clip_label = XmStringCreateLocalized ("IupClipboard");
+  Pixmap pixmap = (Pixmap)value;
+
+  if (XmClipboardStartCopy(iupmot_display, window, clip_label, CurrentTime, NULL, NULL, &item_id)!=ClipboardSuccess)
+  {
+    XmStringFree(clip_label);
+    return 0;
+  }
+
+  XmStringFree(clip_label);
+
+  XmClipboardCopy(iupmot_display, window, item_id, "PIXMAP", (char*)&pixmap, sizeof(Pixmap), 0, NULL);
+  XmClipboardEndCopy(iupmot_display, window, item_id);
+
+  (void)ih;
+  return 0;
+}
+
+static char* motClipboardGetNativeImageAttrib(Ihandle *ih)
+{
+  unsigned long size;
+  void* data;
+  Pixmap pixmap;
+  Window window = motClipboardGetWindow();
+  (void)ih;
+  
+  if (XmClipboardInquireLength(iupmot_display, window, "PIXMAP", &size)!=ClipboardSuccess)
+    return NULL;
+
+  data = XtMalloc(size);
+
+  if (XmClipboardRetrieve(iupmot_display, window, "PIXMAP", data, size, NULL, NULL)!=ClipboardSuccess)
+    return NULL;
+
+  pixmap = *((Pixmap*)data);
+  XtFree(data);
+  return (char*)pixmap;
+}
+
+static int motClipboardIsAvailable(const char* format_name)
+{
+  Window window = motClipboardGetWindow();
+  int count, i;
+  unsigned long max_length, length;
+  char* str;
+
+	if (XmClipboardInquireCount(iupmot_display, window, &count, &max_length) != ClipboardSuccess)
+    return 0;
+
+  str = iupStrGetMemory(max_length+1);
+	
+  for (i = 1; i<=count; i++)
+  {
+  	if (XmClipboardInquireFormat(iupmot_display, window, i, str, max_length+1, &length)==ClipboardSuccess)
+    {
+      if (iupStrEqualNoCase(str, format_name))
+        return 1;
+    }
+  }
+	
+  return 0;
+}
+
+static char* motClipboardGetTextAvailableAttrib(Ihandle *ih)
+{
+  (void)ih;
+  if (motClipboardIsAvailable("STRING"))
+    return "YES";
+  else
+    return "NO";
+}
+
+static char* motClipboardGetImageAvailableAttrib(Ihandle *ih)
+{
+  (void)ih;
+  if (motClipboardIsAvailable("PIXMAP"))
+    return "YES";
+  else
+    return "NO";
+}
+
+/******************************************************************************/
+
+Ihandle* IupClipboard(void)
+{
+  return IupCreate("clipboard");
+}
+
+Iclass* iupClipboardGetClass(void)
+{
+  Iclass* ic = iupClassNew(NULL);
+
+  ic->name = "clipboard";
+  ic->format = NULL;  /* no parameters */
+  ic->nativetype = IUP_TYPECONTROL;
+  ic->childtype = IUP_CHILDNONE;
+  ic->is_interactive = 0;
+
+  /* Attribute functions */
+  iupClassRegisterAttribute(ic, "TEXT", motClipboardGetTextAttrib, motClipboardSetTextAttrib, NULL, NULL, IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
+  iupClassRegisterAttribute(ic, "NATIVEIMAGE", motClipboardGetNativeImageAttrib, motClipboardSetNativeImageAttrib, NULL, NULL, IUPAF_NO_STRING|IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
+  iupClassRegisterAttribute(ic, "IMAGE", NULL, motClipboardSetImageAttrib, NULL, NULL, IUPAF_WRITEONLY|IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
+  iupClassRegisterAttribute(ic, "TEXTAVAILABLE", motClipboardGetTextAvailableAttrib, NULL, NULL, NULL, IUPAF_READONLY|IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
+  iupClassRegisterAttribute(ic, "IMAGEAVAILABLE", motClipboardGetImageAvailableAttrib, NULL, NULL, NULL, IUPAF_READONLY|IUPAF_NOT_MAPPED|IUPAF_NO_INHERIT);
+
+  return ic;
+}