/* GTK - The GIMP Toolkit

 * gtkprintoperation-win32.c: Print Operation Details for Win32

 * Copyright (C) 2006, Red Hat, Inc.

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the

 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 */

#ifndef _MSC_VER

#define _WIN32_WINNT 0x0500

#define WINVER _WIN32_WINNT

#endif

#define COBJMACROS

#include "config.h"

#include <math.h>

#ifdef HAVE_UNISTD_H

#include <unistd.h>

#endif

#include <io.h>

#include <stdio.h>

#include <stdlib.h>

#include <windows.h>

#include <cairo-win32.h>

#include <glib.h>

#include "gtkprintoperation-private.h"

#include "gtkprint-win32.h"

#include "gtkintl.h"

#include "gtkinvisible.h"

#include "gtkplug.h"

#include "gtkstock.h"

#include "gtk.h"

#include "gtkwin32embedwidget.h"

#include "gtkalias.h"

#define MAX_PAGE_RANGES 20

#define STATUS_POLLING_TIME 2000

#ifndef JOB_STATUS_RESTART

#define JOB_STATUS_RESTART 0x800

#endif

#ifndef JOB_STATUS_COMPLETE

#define JOB_STATUS_COMPLETE 0x1000

#endif

typedef struct {

  HDC hdc;

  HGLOBAL devmode;

  HGLOBAL devnames;

  HANDLE printerHandle;

  int job_id;

  guint timeout_id;

  cairo_surface_t *surface;

  GtkWidget *embed_widget;

} GtkPrintOperationWin32;

static void win32_poll_status (GtkPrintOperation *op);

static const GUID myIID_IPrintDialogCallback  = {0x5852a2c3,0x6530,0x11d1,{0xb6,0xa3,0x0,0x0,0xf8,0x75,0x7b,0xf9}};

#if !defined (_MSC_VER) && !defined (HAVE_IPRINTDIALOGCALLBACK)

#undef INTERFACE

#define INTERFACE IPrintDialogCallback

DECLARE_INTERFACE_ (IPrintDialogCallback, IUnknown)

{

    STDMETHOD (QueryInterface)(THIS_ REFIID,LPVOID*) PURE;

    STDMETHOD_ (ULONG, AddRef)(THIS) PURE;

    STDMETHOD_ (ULONG, Release)(THIS) PURE;

    STDMETHOD (InitDone)(THIS) PURE;

    STDMETHOD (SelectionChange)(THIS) PURE;

    STDMETHOD (HandleMessage)(THIS_ HWND,UINT,WPARAM,LPARAM,LRESULT*) PURE;

}; 

#endif

static UINT got_gdk_events_message;

UINT_PTR CALLBACK

run_mainloop_hook (HWND hdlg, UINT uiMsg, WPARAM wParam, LPARAM lParam)

{

  if (uiMsg == WM_INITDIALOG)

    {

      gdk_win32_set_modal_dialog_libgtk_only (hdlg);

      while (gtk_events_pending ())

	gtk_main_iteration ();

    }

  else if (uiMsg == got_gdk_events_message)

    {

      while (gtk_events_pending ())

	gtk_main_iteration ();

      return 1;

    }

  return 0;

}

static GtkPageOrientation

orientation_from_win32 (short orientation)

{

  if (orientation == DMORIENT_LANDSCAPE)

    return GTK_PAGE_ORIENTATION_LANDSCAPE;

  return GTK_PAGE_ORIENTATION_PORTRAIT;

}

static short

orientation_to_win32 (GtkPageOrientation orientation)

{

  if (orientation == GTK_PAGE_ORIENTATION_LANDSCAPE ||

      orientation == GTK_PAGE_ORIENTATION_REVERSE_LANDSCAPE)

    return DMORIENT_LANDSCAPE;

  return DMORIENT_PORTRAIT;

}

static GtkPaperSize *

paper_size_from_win32 (short size)

{

  const char *name;

  switch (size)

    {

    case DMPAPER_LETTER_TRANSVERSE:

    case DMPAPER_LETTER:

    case DMPAPER_LETTERSMALL:

      name = "na_letter";

      break;

    case DMPAPER_TABLOID:

    case DMPAPER_LEDGER:

      name = "na_ledger";

      break;

    case DMPAPER_LEGAL:

      name = "na_legal";

      break;

    case DMPAPER_STATEMENT:

      name = "na_invoice";

      break;

    case DMPAPER_EXECUTIVE:

      name = "na_executive";

      break;

    case DMPAPER_A3:

    case DMPAPER_A3_TRANSVERSE:

      name = "iso_a3";

      break;

    case DMPAPER_A4:

    case DMPAPER_A4SMALL:

    case DMPAPER_A4_TRANSVERSE:

      name = "iso_a4";

      break;

    case DMPAPER_A5:

    case DMPAPER_A5_TRANSVERSE:

      name = "iso_a5";

      break;

    case DMPAPER_B4:

      name = "jis_b4";

      break;

    case DMPAPER_B5:

    case DMPAPER_B5_TRANSVERSE:

      name = "jis_b5";

      break;

    case DMPAPER_QUARTO:

      name = "na_quarto";

      break;

    case DMPAPER_10X14:

      name = "na_10x14";

      break;

    case DMPAPER_11X17:

      name = "na_ledger";

      break;

    case DMPAPER_NOTE:

      name = "na_letter";

      break;

    case DMPAPER_ENV_9:

      name = "na_number-9";

      break;

    case DMPAPER_ENV_10:

      name = "na_number-10";

      break;

    case DMPAPER_ENV_11:

      name = "na_number-11";

      break;

    case DMPAPER_ENV_12:

      name = "na_number-12";

      break;

    case DMPAPER_ENV_14:

      name = "na_number-14";

      break;

    case DMPAPER_CSHEET:

      name = "na_c";

      break;

    case DMPAPER_DSHEET:

      name = "na_d";

      break;

    case DMPAPER_ESHEET:

      name = "na_e";

      break;

    case DMPAPER_ENV_DL:

      name = "iso_dl";

      break;

    case DMPAPER_ENV_C5:

      name = "iso_c5";

      break;

    case DMPAPER_ENV_C3:

      name = "iso_c3";

      break;

    case DMPAPER_ENV_C4:

      name = "iso_c4";

      break;

    case DMPAPER_ENV_C6:

      name = "iso_c6";

      break;

    case DMPAPER_ENV_C65:

      name = "iso_c6c5";

      break;

    case DMPAPER_ENV_B4:

      name = "iso_b4";

      break;

    case DMPAPER_ENV_B5:

      name = "iso_b5";

      break;

    case DMPAPER_ENV_B6:

      name = "iso_b6";

      break;

    case DMPAPER_ENV_ITALY:

      name = "om_italian";

      break;

    case DMPAPER_ENV_MONARCH:

      name = "na_monarch";

      break;

    case DMPAPER_ENV_PERSONAL:

      name = "na_personal";

      break;

    case DMPAPER_FANFOLD_US:

      name = "na_fanfold-us";

      break;

    case DMPAPER_FANFOLD_STD_GERMAN:

      name = "na_fanfold-eur";

      break;

    case DMPAPER_FANFOLD_LGL_GERMAN:

      name = "na_foolscap";

      break;

    case DMPAPER_ISO_B4:

      name = "iso_b4";

      break;

    case DMPAPER_JAPANESE_POSTCARD:

      name = "jpn_hagaki";

      break;

    case DMPAPER_9X11:

      name = "na_9x11";

      break;

    case DMPAPER_10X11:

      name = "na_10x11";

      break;

    case DMPAPER_ENV_INVITE:

      name = "om_invite";

       break;

    case DMPAPER_LETTER_EXTRA:

    case DMPAPER_LETTER_EXTRA_TRANSVERSE:

      name = "na_letter-extra";

      break;

    case DMPAPER_LEGAL_EXTRA:

      name = "na_legal-extra";

      break;

    case DMPAPER_TABLOID_EXTRA:

      name = "na_arch";

      break;

    case DMPAPER_A4_EXTRA:

      name = "iso_a4-extra";

      break;

    case DMPAPER_B_PLUS:

      name = "na_b-plus";

      break;

    case DMPAPER_LETTER_PLUS:

      name = "na_letter-plus";

      break;

    case DMPAPER_A3_EXTRA:

    case DMPAPER_A3_EXTRA_TRANSVERSE:

      name = "iso_a3-extra";

      break;

    case DMPAPER_A5_EXTRA:

      name = "iso_a5-extra";

      break;

    case DMPAPER_B5_EXTRA:

      name = "iso_b5-extra";

      break;

    case DMPAPER_A2:

      name = "iso_a2";

      break;

    default:

      name = NULL;

      break;

    }

  if (name)

    return gtk_paper_size_new (name);

  else 

    return NULL;

}

static short

paper_size_to_win32 (GtkPaperSize *paper_size)

{

  const char *format;

  if (gtk_paper_size_is_custom (paper_size))

    return 0;

  format = gtk_paper_size_get_name (paper_size);

  if (strcmp (format, "na_letter") == 0)

    return DMPAPER_LETTER;

  if (strcmp (format, "na_ledger") == 0)

    return DMPAPER_LEDGER;

  if (strcmp (format, "na_legal") == 0)

    return DMPAPER_LEGAL;

  if (strcmp (format, "na_invoice") == 0)

    return DMPAPER_STATEMENT;

  if (strcmp (format, "na_executive") == 0)

    return DMPAPER_EXECUTIVE;

  if (strcmp (format, "iso_a2") == 0)

    return DMPAPER_A2;

  if (strcmp (format, "iso_a3") == 0)

    return DMPAPER_A3;

  if (strcmp (format, "iso_a4") == 0)

    return DMPAPER_A4;

  if (strcmp (format, "iso_a5") == 0)

    return DMPAPER_A5;

  if (strcmp (format, "iso_b4") == 0)

    return DMPAPER_B4;

  if (strcmp (format, "iso_b5") == 0)

    return DMPAPER_B5;

  if (strcmp (format, "na_quarto") == 0)

    return DMPAPER_QUARTO;

  if (strcmp (format, "na_10x14") == 0)

    return DMPAPER_10X14;

  if (strcmp (format, "na_number-9") == 0)

    return DMPAPER_ENV_9;

  if (strcmp (format, "na_number-10") == 0)

    return DMPAPER_ENV_10;

  if (strcmp (format, "na_number-11") == 0)

    return DMPAPER_ENV_11;

  if (strcmp (format, "na_number-12") == 0)

    return DMPAPER_ENV_12;

  if (strcmp (format, "na_number-14") == 0)

    return DMPAPER_ENV_14;

  if (strcmp (format, "na_c") == 0)

    return DMPAPER_CSHEET;

  if (strcmp (format, "na_d") == 0)

    return DMPAPER_DSHEET;

  if (strcmp (format, "na_e") == 0)

    return DMPAPER_ESHEET;

  if (strcmp (format, "iso_dl") == 0)

    return DMPAPER_ENV_DL;

  if (strcmp (format, "iso_c3") == 0)

    return DMPAPER_ENV_C3;

  if (strcmp (format, "iso_c4") == 0)

    return DMPAPER_ENV_C4;

  if (strcmp (format, "iso_c5") == 0)

    return DMPAPER_ENV_C5;

  if (strcmp (format, "iso_c6") == 0)

    return DMPAPER_ENV_C6;

  if (strcmp (format, "iso_c5c6") == 0)

    return DMPAPER_ENV_C65;

  if (strcmp (format, "iso_b6") == 0)

    return DMPAPER_ENV_B6;

  if (strcmp (format, "om_italian") == 0)

    return DMPAPER_ENV_ITALY;

  if (strcmp (format, "na_monarch") == 0)

    return DMPAPER_ENV_MONARCH;

  if (strcmp (format, "na_personal") == 0)

    return DMPAPER_ENV_PERSONAL;

  if (strcmp (format, "na_fanfold-us") == 0)

    return DMPAPER_FANFOLD_US;

  if (strcmp (format, "na_fanfold-eur") == 0)

    return DMPAPER_FANFOLD_STD_GERMAN;

  if (strcmp (format, "na_foolscap") == 0)

    return DMPAPER_FANFOLD_LGL_GERMAN;

  if (strcmp (format, "jpn_hagaki") == 0)

    return DMPAPER_JAPANESE_POSTCARD;

  if (strcmp (format, "na_9x11") == 0)

    return DMPAPER_9X11;

  if (strcmp (format, "na_10x11") == 0)

    return DMPAPER_10X11;

  if (strcmp (format, "om_invite") == 0)

    return DMPAPER_ENV_INVITE;

  if (strcmp (format, "na_letter-extra") == 0)

    return DMPAPER_LETTER_EXTRA;

  if (strcmp (format, "na_legal-extra") == 0)

    return DMPAPER_LEGAL_EXTRA;

  if (strcmp (format, "na_arch") == 0)

    return DMPAPER_TABLOID_EXTRA;

  if (strcmp (format, "iso_a3-extra") == 0)

    return DMPAPER_A3_EXTRA;

  if (strcmp (format, "iso_a4-extra") == 0)

    return DMPAPER_A4_EXTRA;

  if (strcmp (format, "iso_a5-extra") == 0)

    return DMPAPER_A5_EXTRA;

  if (strcmp (format, "iso_b5-extra") == 0)

    return DMPAPER_B5_EXTRA;

  if (strcmp (format, "na_b-plus") == 0)

    return DMPAPER_B_PLUS;

  if (strcmp (format, "na_letter-plus") == 0)

    return DMPAPER_LETTER_PLUS;

  return 0;

}

static gchar*

get_default_printer (void)

{

  wchar_t *win32_printer_name = NULL;

  gchar *printer_name = NULL;

  DWORD needed;

  GetDefaultPrinterW (NULL, &needed);

  win32_printer_name = g_malloc ((gsize) needed * sizeof (wchar_t));

  if (!GetDefaultPrinterW (win32_printer_name, &needed))

    {

      g_free (win32_printer_name);

      return NULL;

    }

  printer_name = g_utf16_to_utf8 (win32_printer_name, -1, NULL, NULL, NULL);

  g_free (win32_printer_name);

  return printer_name;

}

static void

set_hard_margins (GtkPrintOperation *op)

{

  double top, bottom, left, right;

  GtkPrintOperationWin32 *op_win32 = op->priv->platform_data;

  top = GetDeviceCaps (op_win32->hdc, PHYSICALOFFSETY);

  bottom = GetDeviceCaps (op_win32->hdc, PHYSICALHEIGHT)

      - GetDeviceCaps (op_win32->hdc, VERTRES) - top;

  left = GetDeviceCaps (op_win32->hdc, PHYSICALOFFSETX);

  right = GetDeviceCaps (op_win32->hdc, PHYSICALWIDTH)

      - GetDeviceCaps (op_win32->hdc, HORZRES) - left;

  _gtk_print_context_set_hard_margins (op->priv->print_context, top, bottom, left, right);

}

void

win32_start_page (GtkPrintOperation *op,

		  GtkPrintContext *print_context,

		  GtkPageSetup *page_setup)

{

  GtkPrintOperationWin32 *op_win32 = op->priv->platform_data;

  LPDEVMODEW devmode;

  GtkPaperSize *paper_size;

  double x_off, y_off;

  devmode = GlobalLock (op_win32->devmode);

  devmode->dmFields |= DM_ORIENTATION;

  devmode->dmOrientation =

    orientation_to_win32 (gtk_page_setup_get_orientation (page_setup));

  paper_size = gtk_page_setup_get_paper_size (page_setup);

  devmode->dmFields |= DM_PAPERSIZE;

  devmode->dmFields &= ~(DM_PAPERWIDTH | DM_PAPERLENGTH);

  devmode->dmPaperSize = paper_size_to_win32 (paper_size);

  if (devmode->dmPaperSize == 0)

    {

      devmode->dmPaperSize = DMPAPER_USER;

      devmode->dmFields |= DM_PAPERWIDTH | DM_PAPERLENGTH;

      /* Lengths in DEVMODE are in tenths of a millimeter */

      devmode->dmPaperWidth = gtk_paper_size_get_width (paper_size, GTK_UNIT_MM) * 10.0;

      devmode->dmPaperLength = gtk_paper_size_get_height (paper_size, GTK_UNIT_MM) * 10.0;

    }

  ResetDCW (op_win32->hdc, devmode);

  GlobalUnlock (op_win32->devmode);

  set_hard_margins (op);

  x_off = GetDeviceCaps (op_win32->hdc, PHYSICALOFFSETX);

  y_off = GetDeviceCaps (op_win32->hdc, PHYSICALOFFSETY);

  cairo_surface_set_device_offset (op_win32->surface, -x_off, -y_off);

  StartPage (op_win32->hdc);

}

static void

win32_end_page (GtkPrintOperation *op,

		GtkPrintContext *print_context)

{

  GtkPrintOperationWin32 *op_win32 = op->priv->platform_data;

  cairo_surface_show_page (op_win32->surface);

  EndPage (op_win32->hdc);

}

static gboolean

win32_poll_status_timeout (GtkPrintOperation *op)

{

  GtkPrintOperationWin32 *op_win32 = op->priv->platform_data;

  op_win32->timeout_id = 0;

  /* We need to ref this, as setting the status to finished

     might unref the object */

  g_object_ref (op);

  win32_poll_status (op);

  if (!gtk_print_operation_is_finished (op))

    op_win32->timeout_id = gdk_threads_add_timeout (STATUS_POLLING_TIME,

					  (GSourceFunc)win32_poll_status_timeout,

					  op);

  g_object_unref (op);

  return FALSE;

}

static void

win32_end_run (GtkPrintOperation *op,

	       gboolean           wait,

	       gboolean           cancelled)

{

  GtkPrintOperationWin32 *op_win32 = op->priv->platform_data;

  LPDEVNAMES devnames;

  HANDLE printerHandle = 0;

  cairo_surface_finish (op_win32->surface);

  EndDoc (op_win32->hdc);

  if (op->priv->track_print_status)

    {

      devnames = GlobalLock (op_win32->devnames);

      if (!OpenPrinterW (((gunichar2 *)devnames) + devnames->wDeviceOffset,

			 &printerHandle, NULL))

	printerHandle = 0;

      GlobalUnlock (op_win32->devnames);

    }

  GlobalFree (op_win32->devmode);

  GlobalFree (op_win32->devnames);

  cairo_surface_destroy (op_win32->surface);

  op_win32->surface = NULL;

  DeleteDC (op_win32->hdc);

  if (printerHandle != 0)

    {

      op_win32->printerHandle = printerHandle;

      win32_poll_status (op);

      op_win32->timeout_id = gdk_threads_add_timeout (STATUS_POLLING_TIME,

					    (GSourceFunc)win32_poll_status_timeout,

					    op);

    }

  else

    /* Dunno what happened, pretend its finished */

    _gtk_print_operation_set_status (op, GTK_PRINT_STATUS_FINISHED, NULL);

}

static void

win32_poll_status (GtkPrintOperation *op)

{

  GtkPrintOperationWin32 *op_win32 = op->priv->platform_data;

  guchar *data;

  DWORD needed;

  JOB_INFO_1W *job_info;

  GtkPrintStatus status;

  char *status_str;

  BOOL ret;

  GetJobW (op_win32->printerHandle, op_win32->job_id,

	   1,(LPBYTE)NULL, 0, &needed);

  data = g_malloc (needed);

  ret = GetJobW (op_win32->printerHandle, op_win32->job_id,

		 1, (LPBYTE)data, needed, &needed);

  status_str = NULL;

  if (ret)

    {

      DWORD win32_status;

      job_info = (JOB_INFO_1W *)data;

      win32_status = job_info->Status;

      if (job_info->pStatus)

	status_str = g_utf16_to_utf8 (job_info->pStatus, 

				      -1, NULL, NULL, NULL);

      if (win32_status &

	  (JOB_STATUS_COMPLETE | JOB_STATUS_PRINTED))

	status = GTK_PRINT_STATUS_FINISHED;

      else if (win32_status &

	       (JOB_STATUS_OFFLINE |

		JOB_STATUS_PAPEROUT |

		JOB_STATUS_PAUSED |

		JOB_STATUS_USER_INTERVENTION))

	{

	  status = GTK_PRINT_STATUS_PENDING_ISSUE;

	  if (status_str == NULL)

	    {

	      if (win32_status & JOB_STATUS_OFFLINE)

		status_str = g_strdup (_("Printer offline"));

	      else if (win32_status & JOB_STATUS_PAPEROUT)

		status_str = g_strdup (_("Out of paper"));

	      else if (win32_status & JOB_STATUS_PAUSED)

		status_str = g_strdup (_("Paused"));

	      else if (win32_status & JOB_STATUS_USER_INTERVENTION)

		status_str = g_strdup (_("Need user intervention"));

	    }

	}

      else if (win32_status &

	       (JOB_STATUS_BLOCKED_DEVQ |

		JOB_STATUS_DELETED |

		JOB_STATUS_ERROR))

	status = GTK_PRINT_STATUS_FINISHED_ABORTED;

      else if (win32_status &

	       (JOB_STATUS_SPOOLING |

		JOB_STATUS_DELETING))

	status = GTK_PRINT_STATUS_PENDING;

      else if (win32_status & JOB_STATUS_PRINTING)

	status = GTK_PRINT_STATUS_PRINTING;

      else

	status = GTK_PRINT_STATUS_FINISHED;

    }

  else

    status = GTK_PRINT_STATUS_FINISHED;

  g_free (data);

  _gtk_print_operation_set_status (op, status, status_str);

  g_free (status_str);

}

static void

op_win32_free (GtkPrintOperationWin32 *op_win32)

{

  if (op_win32->printerHandle)

    ClosePrinter (op_win32->printerHandle);

  if (op_win32->timeout_id != 0)

    g_source_remove (op_win32->timeout_id);

  g_free (op_win32);

}

static HWND

get_parent_hwnd (GtkWidget *widget)

{

  gtk_widget_realize (widget);

  return gdk_win32_drawable_get_handle (widget->window);

}

static void

devnames_to_settings (GtkPrintSettings *settings,

		      HANDLE hDevNames)

{

  GtkPrintWin32Devnames *devnames = gtk_print_win32_devnames_from_win32 (hDevNames);

  gtk_print_settings_set_printer (settings, devnames->device);

  gtk_print_win32_devnames_free (devnames);

}

static void

devmode_to_settings (GtkPrintSettings *settings,

		     HANDLE hDevMode)

{

  LPDEVMODEW devmode;

  devmode = GlobalLock (hDevMode);

  gtk_print_settings_set_int (settings, GTK_PRINT_SETTINGS_WIN32_DRIVER_VERSION,

			      devmode->dmDriverVersion);

  if (devmode->dmDriverExtra != 0)

    {

      char *extra = g_base64_encode (((char *)devmode) + sizeof (DEVMODEW),

				     devmode->dmDriverExtra);

      gtk_print_settings_set (settings,

			      GTK_PRINT_SETTINGS_WIN32_DRIVER_EXTRA,

			      extra);

      g_free (extra);

    }

  if (devmode->dmFields & DM_ORIENTATION)

    gtk_print_settings_set_orientation (settings,

					orientation_from_win32 (devmode->dmOrientation));

  if (devmode->dmFields & DM_PAPERSIZE &&

      devmode->dmPaperSize != 0)

    {

      GtkPaperSize *paper_size = paper_size_from_win32 (devmode->dmPaperSize);

      if (paper_size)

	{

	  gtk_print_settings_set_paper_size (settings, paper_size);

	  gtk_paper_size_free (paper_size);

	}

      gtk_print_settings_set_int (settings, "win32-paper-size", (int)devmode->dmPaperSize);

    }

  else if ((devmode->dmFields & DM_PAPERSIZE &&

	    devmode->dmPaperSize == 0) ||

	   ((devmode->dmFields & DM_PAPERWIDTH) &&

	    (devmode->dmFields & DM_PAPERLENGTH)))

    {

      GtkPaperSize *paper_size;

      char *form_name = NULL;

      if (devmode->dmFields & DM_FORMNAME)

	form_name = g_utf16_to_utf8 (devmode->dmFormName, 

				     -1, NULL, NULL, NULL);

      if (form_name == NULL || form_name[0] == 0)

	form_name = g_strdup (_("Custom size"));

      /* Lengths in DEVMODE are in tenths of a millimeter */

      paper_size = gtk_paper_size_new_custom (form_name,

					      form_name,

					      devmode->dmPaperWidth / 10.0,

					      devmode->dmPaperLength / 10.0,

					      GTK_UNIT_MM);

      gtk_print_settings_set_paper_size (settings, paper_size);

      gtk_paper_size_free (paper_size);

    }

  if (devmode->dmFields & DM_SCALE)

    gtk_print_settings_set_scale (settings, devmode->dmScale);

  if (devmode->dmFields & DM_COPIES)

    gtk_print_settings_set_n_copies (settings,

				     devmode->dmCopies);

  if (devmode->dmFields & DM_DEFAULTSOURCE)

    {

      char *source;

      switch (devmode->dmDefaultSource)

	{

	default:

	case DMBIN_AUTO:

	  source = "auto";

	  break;

	case DMBIN_CASSETTE:

	  source = "cassette";

	  break;

	case DMBIN_ENVELOPE:

	  source = "envelope";

	  break;

	case DMBIN_ENVMANUAL:

	  source = "envelope-manual";

	  break;

	case DMBIN_LOWER:

	  source = "lower";

	  break;

	case DMBIN_MANUAL:

	  source = "manual";

	  break;

	case DMBIN_MIDDLE:

	  source = "middle";

	  break;

	case DMBIN_ONLYONE:

	  source = "only-one";

	  break;

	case DMBIN_FORMSOURCE:

	  source = "form-source";

	  break;

	case DMBIN_LARGECAPACITY:

	  source = "large-capacity";

	  break;

	case DMBIN_LARGEFMT:

	  source = "large-format";

	  break;

	case DMBIN_TRACTOR:

	  source = "tractor";

	  break;

	case DMBIN_SMALLFMT:

	  source = "small-format";

	  break;

	}

      gtk_print_settings_set_default_source (settings, source);

      gtk_print_settings_set_int (settings, "win32-default-source", devmode->dmDefaultSource);

    }

  if (devmode->dmFields & DM_PRINTQUALITY)

    {

      GtkPrintQuality quality;

      switch (devmode->dmPrintQuality)

	{

	case DMRES_LOW:

	  quality = GTK_PRINT_QUALITY_LOW;

	  break;

	case DMRES_MEDIUM:

	  quality = GTK_PRINT_QUALITY_NORMAL;

	  break;

	default:

	case DMRES_HIGH:

	  quality = GTK_PRINT_QUALITY_HIGH;

	  break;

	case DMRES_DRAFT:

	  quality = GTK_PRINT_QUALITY_DRAFT;

	  break;

	}

      gtk_print_settings_set_quality (settings, quality);

      gtk_print_settings_set_int (settings, "win32-print-quality", devmode->dmPrintQuality);

    }

  if (devmode->dmFields & DM_COLOR)

    gtk_print_settings_set_use_color (settings, devmode->dmColor == DMCOLOR_COLOR);

  if (devmode->dmFields & DM_DUPLEX)

    {

      GtkPrintDuplex duplex;

      switch (devmode->dmDuplex)

	{

	default:

	case DMDUP_SIMPLEX:

	  duplex = GTK_PRINT_DUPLEX_SIMPLEX;

	  break;

	case DMDUP_HORIZONTAL:

	  duplex = GTK_PRINT_DUPLEX_HORIZONTAL;

	  break;

	case DMDUP_VERTICAL:

	  duplex = GTK_PRINT_DUPLEX_VERTICAL;

	  break;

	}

      gtk_print_settings_set_duplex (settings, duplex);

    }

  if (devmode->dmFields & DM_COLLATE)

    gtk_print_settings_set_collate (settings,

				    devmode->dmCollate == DMCOLLATE_TRUE);

  if (devmode->dmFields & DM_MEDIATYPE)

    {

      char *media_type;

      switch (devmode->dmMediaType)

	{

	default:

	case DMMEDIA_STANDARD:

	  media_type = "stationery";

	  break;

	case DMMEDIA_TRANSPARENCY:

	  media_type = "transparency";

	  break;

	case DMMEDIA_GLOSSY:

	  media_type = "photographic-glossy";

	  break;

	}

      gtk_print_settings_set_media_type (settings, media_type);

      gtk_print_settings_set_int (settings, "win32-media-type", devmode->dmMediaType);

    }

  if (devmode->dmFields & DM_DITHERTYPE)

    {

      char *dither;

      switch (devmode->dmDitherType)

	{

	default:

	case DMDITHER_FINE:

	  dither = "fine";

	  break;

	case DMDITHER_NONE:

	  dither = "none";

	  break;

	case DMDITHER_COARSE:

	  dither = "coarse";

	  break;

	case DMDITHER_LINEART:

	  dither = "lineart";

	  break;

	case DMDITHER_GRAYSCALE:

	  dither = "grayscale";

	  break;

	case DMDITHER_ERRORDIFFUSION:

	  dither = "error-diffusion";

	  break;