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.
It can be used very much like any other GTK+ dialog, at the cost of the
portability offered by the high-level printing API.
Example
(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))) 