gtk:dialog, gtk:window, gtk:bin, gtk:container, gtk:widget, gtk:buildable, gobject:object, common-lisp:standard-object, common-lisp:t

None

The gtk:page-setup-unix-dialog widget implements a page setup dialog for platforms which do not provide a native page setup dialog, like Unix.

Figure: GtkPageSetupUnixDialog

It can be used very much like any other GTK dialog, at the cost of the portability offered by the high-level printing API.

(defun create-page-setup-dialog ()
  (let ((page-setup (gtk:page-setup-new))
        (dialog (make-instance 'gtk:page-setup-unix-dialog
                               :title "Page Setup Dialog"
                               :default-height 250
                               :default-width 400)))
    ;; Load and set Page setup from file
    (if (gtk:page-setup-load-file page-setup (rel-path "page-setup.ini"))
        (format t "PAGE SETUP successfully loaded~%")
        (format t "PAGE SETUP cannot be loaded, use standard settings~%"))
    (setf (gtk:page-setup-unix-dialog-page-setup dialog) page-setup)
    ;; Run the dialog
    (when (eq :ok (gtk:dialog-run dialog))
      (setf page-setup (gtk:page-setup-unix-dialog-page-setup dialog))
      (gtk:page-setup-to-file page-setup (rel-path "page-setup.ini")))
    ;; Destroy the dialog
    (gtk:widget-destroy dialog)))