Rewrite the Fl_Copy_Surface class with strict separation of public API and platform-related code.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3-porting@11257 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

6 files changed, 375 insertions, 0 deletions

diff --git a/src/drivers/GDI/Fl_GDI_Copy_Surface.H b/src/drivers/GDI/Fl_GDI_Copy_Surface.H
new file mode 100644
index 000000000..d5beaaa98
--- /dev/null
+++ b/src/drivers/GDI/Fl_GDI_Copy_Surface.H
@@ -0,0 +1,46 @@
+//
+// "$Id: Fl_GDI_Copy_Surface.H 11241 2016-02-27 13:52:27Z manolo $"
+//
+// Copy-to-clipboard code for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2016 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file.  If this
+// file is missing or damaged, see the license at:
+//
+//     http://www.fltk.org/COPYING.php
+//
+// Please report all bugs and problems on the following page:
+//
+//     http://www.fltk.org/str.php
+//
+
+
+#ifndef Fl_GDI_Copy_Surface_h
+#define Fl_GDI_Copy_Surface_h
+
+#include <FL/Fl_Copy_Surface.H>
+#include "Fl_GDI_Graphics_Driver.H"
+
+class Fl_Copy_Surface::Helper : public Fl_Widget_Surface {
+  friend class Fl_Copy_Surface;
+private:
+  int width;
+  int height;
+  HDC oldgc;
+  HDC gc;
+  Helper(int w, int h);
+  ~Helper();
+  void set_current();
+  void translate(int x, int y);
+  void untranslate();
+  int w() {return width;}
+  int h() {return height;}
+};
+
+#endif /* Fl_GDI_Copy_Surface_h */
+
+//
+// End of "$Id: Fl_Copy_Surface.H 11220 2016-02-26 12:51:47Z manolo $".
+//
diff --git a/src/drivers/GDI/Fl_GDI_Copy_Surface.cxx b/src/drivers/GDI/Fl_GDI_Copy_Surface.cxx
new file mode 100644
index 000000000..bb05377ff
--- /dev/null
+++ b/src/drivers/GDI/Fl_GDI_Copy_Surface.cxx
@@ -0,0 +1,75 @@
+//
+// "$Id: Fl_GDI_Copy_Surface.cxx 11241 2016-02-27 13:52:27Z manolo $"
+//
+// Copy-to-clipboard code for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2016 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file.  If this
+// file is missing or damaged, see the license at:
+//
+//     http://www.fltk.org/COPYING.php
+//
+// Please report all bugs and problems on the following page:
+//
+//     http://www.fltk.org/str.php
+//
+
+#include "Fl_GDI_Copy_Surface.H"
+
+Fl_Copy_Surface::Helper::Helper(int w, int h) : Fl_Widget_Surface(NULL) {
+  width = w;
+  height = h;
+  driver(new Fl_Translated_GDI_Graphics_Driver);
+  oldgc = (HDC)Fl_Surface_Device::surface()->driver()->gc();
+  // exact computation of factor from screen units to EnhMetaFile units (0.01 mm)
+  HDC hdc = GetDC(NULL);
+  int hmm = GetDeviceCaps(hdc, HORZSIZE);
+  int hdots = GetDeviceCaps(hdc, HORZRES);
+  int vmm = GetDeviceCaps(hdc, VERTSIZE);
+  int vdots = GetDeviceCaps(hdc, VERTRES);
+  ReleaseDC(NULL, hdc);
+  float factorw = (100.f * hmm) / hdots;
+  float factorh = (100.f * vmm) / vdots;
+  
+  RECT rect; rect.left = 0; rect.top = 0; rect.right = (LONG)(w * factorw); rect.bottom = (LONG)(h * factorh);
+  gc = CreateEnhMetaFile (NULL, NULL, &rect, NULL);
+  if (gc != NULL) {
+    SetTextAlign(gc, TA_BASELINE|TA_LEFT);
+    SetBkMode(gc, TRANSPARENT);
+  }
+}
+
+Fl_Copy_Surface::Helper::~Helper() {
+  if (oldgc == (HDC)Fl_Surface_Device::surface()->driver()->gc()) oldgc = NULL;
+  HENHMETAFILE hmf = CloseEnhMetaFile (gc);
+  if ( hmf != NULL ) {
+    if ( OpenClipboard (NULL) ){
+      EmptyClipboard ();
+      SetClipboardData (CF_ENHMETAFILE, hmf);
+      CloseClipboard ();
+    }
+    DeleteEnhMetaFile(hmf);
+  }
+  DeleteDC(gc);
+  Fl_Surface_Device::surface()->driver()->gc(oldgc);
+}
+
+void Fl_Copy_Surface::Helper::set_current() {
+  driver()->gc(gc);
+  fl_window = (Window)1;
+  Fl_Surface_Device::set_current();
+}
+
+void Fl_Copy_Surface::Helper::translate(int x, int y) {
+  ((Fl_Translated_GDI_Graphics_Driver*)driver())->translate_all(x, y);
+}
+
+void Fl_Copy_Surface::Helper::untranslate() {
+  ((Fl_Translated_GDI_Graphics_Driver*)driver())->untranslate_all();
+}
+
+//
+// End of "$Id: Fl_Copy_Surface.H 11220 2016-02-26 12:51:47Z manolo $".
+//
diff --git a/src/drivers/Quartz/Fl_Quartz_Copy_Surface.H b/src/drivers/Quartz/Fl_Quartz_Copy_Surface.H
new file mode 100644
index 000000000..2cb1b2848
--- /dev/null
+++ b/src/drivers/Quartz/Fl_Quartz_Copy_Surface.H
@@ -0,0 +1,49 @@
+//
+// "$Id: Fl_Quartz_Copy_Surface.H 11241 2016-02-27 13:52:27Z manolo $"
+//
+// Copy-to-clipboard code for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2016 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file.  If this
+// file is missing or damaged, see the license at:
+//
+//     http://www.fltk.org/COPYING.php
+//
+// Please report all bugs and problems on the following page:
+//
+//     http://www.fltk.org/str.php
+//
+
+#ifndef FL_QUARTZ_COPY_SURFACE_H
+#define FL_QUARTZ_COPY_SURFACE_H 1
+
+#include <FL/Fl_Copy_Surface.H>
+
+#include <ApplicationServices/ApplicationServices.h>
+
+class Fl_Copy_Surface::Helper : public Fl_Widget_Surface {
+  friend class Fl_Copy_Surface;
+private:
+  int width;
+  int height;
+  CFMutableDataRef pdfdata;
+  CGContextRef gc;
+  void prepare_copy_pdf_and_tiff(int w, int h);
+  void init_PDF_context(int w, int h);
+  static size_t MyPutBytes(void* info, const void* buffer, size_t count);
+  Helper(int w, int h);
+  ~Helper();
+  void set_current();
+  void translate(int x, int y);
+  void untranslate();
+  int w() {return width;}
+  int h() {return height;}
+};
+
+#endif // FL_QUARTZ_COPY_SURFACE_H
+
+//
+// End of "$Id: Fl_Copy_Surface.H 11220 2016-02-26 12:51:47Z manolo $".
+//
diff --git a/src/drivers/Quartz/Fl_Quartz_Copy_Surface.cxx b/src/drivers/Quartz/Fl_Quartz_Copy_Surface.cxx
new file mode 100644
index 000000000..1606e7b2a
--- /dev/null
+++ b/src/drivers/Quartz/Fl_Quartz_Copy_Surface.cxx
@@ -0,0 +1,93 @@
+//
+// "$Id: Fl_Quartz_Copy_Surface.cxx 11241 2016-02-27 13:52:27Z manolo $"
+//
+// Copy-to-clipboard code for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2016 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file.  If this
+// file is missing or damaged, see the license at:
+//
+//     http://www.fltk.org/COPYING.php
+//
+// Please report all bugs and problems on the following page:
+//
+//     http://www.fltk.org/str.php
+//
+
+#include "config_lib.h"
+
+#ifdef FL_CFG_GFX_QUARTZ
+#include "Fl_Quartz_Copy_Surface.H"
+#include "Fl_Quartz_Graphics_Driver.H"
+#endif
+
+Fl_Copy_Surface::Helper::Helper(int w, int h) : Fl_Widget_Surface(NULL) {
+  width = w;
+  height = h;
+  driver(new Fl_Quartz_Graphics_Driver);
+  prepare_copy_pdf_and_tiff(w, h);
+}
+
+Fl_Copy_Surface::Helper::~Helper() {
+  // that code is implemented in Fl_cocoa.mm because it uses some Objective-c
+  Fl_X::complete_copy_pdf_and_tiff(gc, pdfdata);
+}
+
+void Fl_Copy_Surface::Helper::set_current() {
+  driver()->gc(gc);
+  fl_window = (Window)1;
+  Fl_Surface_Device::set_current();
+}
+
+size_t Fl_Copy_Surface::Helper::MyPutBytes(void* info, const void* buffer, size_t count)
+{
+  CFDataAppendBytes ((CFMutableDataRef) info, (const UInt8 *)buffer, count);
+  return count;
+}
+
+void Fl_Copy_Surface::Helper::init_PDF_context(int w, int h)
+{
+  CGRect bounds = CGRectMake(0, 0, w, h );
+  pdfdata = CFDataCreateMutable(NULL, 0);
+  CGDataConsumerRef myconsumer;
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1040
+  if (&CGDataConsumerCreateWithCFData != NULL) {
+    myconsumer = CGDataConsumerCreateWithCFData(pdfdata); // 10.4
+  }
+  else
+#endif
+  {
+    static CGDataConsumerCallbacks callbacks = { Fl_Copy_Surface::Helper::MyPutBytes, NULL };
+    myconsumer = CGDataConsumerCreate ((void*) pdfdata, &callbacks);
+  }
+  gc = CGPDFContextCreate (myconsumer, &bounds, NULL);
+  CGDataConsumerRelease (myconsumer);
+}
+
+void Fl_Copy_Surface::Helper::prepare_copy_pdf_and_tiff(int w, int h)
+{
+  init_PDF_context(w, h);
+  if (gc == NULL) return;
+  CGRect bounds = CGRectMake(0, 0, w, h );
+  CGContextBeginPage (gc, &bounds);
+  CGContextTranslateCTM(gc, 0, h);
+  CGContextScaleCTM(gc, 1.0f, -1.0f);
+  CGContextSaveGState(gc);
+}
+
+void Fl_Copy_Surface::Helper::translate(int x, int y) {
+  CGContextRestoreGState(gc);
+  CGContextSaveGState(gc);
+  CGContextTranslateCTM(gc, x, y);
+  CGContextSaveGState(gc);
+}
+
+void Fl_Copy_Surface::Helper::untranslate() {
+  CGContextRestoreGState(gc);
+}
+
+//
+// End of "$Id: Fl_Copy_Surface.H 11220 2016-02-26 12:51:47Z manolo $".
+//
diff --git a/src/drivers/Xlib/Fl_Xlib_Copy_Surface.H b/src/drivers/Xlib/Fl_Xlib_Copy_Surface.H
new file mode 100644
index 000000000..e0ff5ef31
--- /dev/null
+++ b/src/drivers/Xlib/Fl_Xlib_Copy_Surface.H
@@ -0,0 +1,48 @@
+//
+// "$Id: Fl_Xlib_Copy_Surface.H 11241 2016-02-27 13:52:27Z manolo $"
+//
+// Copy-to-clipboard code for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2016 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file.  If this
+// file is missing or damaged, see the license at:
+//
+//     http://www.fltk.org/COPYING.php
+//
+// Please report all bugs and problems on the following page:
+//
+//     http://www.fltk.org/str.php
+//
+
+
+#ifndef Fl_Xlib_Copy_Surface_h
+#define Fl_Xlib_Copy_Surface_h
+
+#include <FL/Fl_Copy_Surface.H>
+
+#include "Fl_Translated_Xlib_Graphics_Driver.H"
+
+class Fl_Copy_Surface::Helper : public Fl_Widget_Surface {
+  friend class Fl_Copy_Surface;
+private:
+  int width;
+  int height;
+  Fl_Offscreen xid;
+  Window oldwindow;
+  Fl_Surface_Device *_ss;
+  Helper(int w, int h);
+  ~Helper();
+  void set_current();
+  void translate(int x, int y);
+  void untranslate();
+  int w() {return width;}
+  int h() {return height;}
+};
+
+#endif /* Fl_Xlib_Copy_Surface_h */
+
+//
+// End of "$Id: Fl_Copy_Surface.H 11220 2016-02-26 12:51:47Z manolo $".
+//
diff --git a/src/drivers/Xlib/Fl_Xlib_Copy_Surface.cxx b/src/drivers/Xlib/Fl_Xlib_Copy_Surface.cxx
new file mode 100644
index 000000000..77eb9ecd3
--- /dev/null
+++ b/src/drivers/Xlib/Fl_Xlib_Copy_Surface.cxx
@@ -0,0 +1,64 @@
+//
+// "$Id: Fl_Xlib_Copy_Surface.cxx 11241 2016-02-27 13:52:27Z manolo $"
+//
+// Copy-to-clipboard code for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2016 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file.  If this
+// file is missing or damaged, see the license at:
+//
+//     http://www.fltk.org/COPYING.php
+//
+// Please report all bugs and problems on the following page:
+//
+//     http://www.fltk.org/str.php
+//
+
+#include "Fl_Xlib_Copy_Surface.H"
+#include <FL/Fl.H>
+
+Fl_Copy_Surface::Helper::Helper(int w, int h) : Fl_Widget_Surface(NULL) {
+  width = w;
+  height = h;
+  driver(new Fl_Translated_Xlib_Graphics_Driver());
+  Fl::first_window()->make_current();
+  oldwindow = fl_xid(Fl::first_window());
+  xid = fl_create_offscreen(w,h);
+  _ss = NULL;
+  Fl_Surface_Device *present_surface = Fl_Surface_Device::surface();
+  set_current();
+  fl_color(FL_WHITE);
+  fl_rectf(0, 0, w, h);
+  present_surface->set_current();
+}
+
+Fl_Copy_Surface::Helper::~Helper() {
+  fl_pop_clip();
+  unsigned char *data = fl_read_image(NULL,0,0,width,height,0);
+  fl_window = oldwindow;
+  _ss->set_current();
+  Fl::copy_image(data,width,height,1);
+  delete[] data;
+  fl_delete_offscreen(xid);
+}
+
+void Fl_Copy_Surface::Helper::set_current() {
+  fl_window=xid;
+  if (!_ss) _ss = Fl_Surface_Device::surface();
+  Fl_Surface_Device::set_current();
+  fl_push_no_clip();
+}
+
+void Fl_Copy_Surface::Helper::translate(int x, int y) {
+  ((Fl_Translated_Xlib_Graphics_Driver*)driver())->translate_all(x, y);
+}
+
+void Fl_Copy_Surface::Helper::untranslate() {
+  ((Fl_Translated_Xlib_Graphics_Driver*)driver())->untranslate_all();
+}
+
+//
+// End of "$Id: Fl_Copy_Surface.H 11220 2016-02-26 12:51:47Z manolo $".
+//