---------------------------------------------
-- PrintSetupUnixDialog 
---------------------------------------------
include GtkEngine.e
include std/dll.e

constant printdlg = create(GtkPageSetupUnixDialog)

function Print()
	return run(printdlg)
end function
constant print = call_back(routine_id("Print"))

constant win = create(GtkWindow)
	connect(win,"destroy",quit)
	set(win,"default size",400,300)
	set(win,"position",GTK_WIN_POS_CENTER)

constant panel = create(GtkVBox)
	add(win,panel)

constant lbl = create(GtkLabel,
		"Doesn't really print,\njust displays the dialog")
	add(panel,lbl)
		
constant btnbox = create(GtkHButtonBox)
	pack(panel,-btnbox)

constant btn1 = create(GtkButton,"gtk-quit")
	connect(btn1,"clicked",quit)
constant btn2 = create(GtkButton,"gtk-print")
	connect(btn2,"clicked",print)
constant btn3 = create(GtkButton,"gtk-ok")

	add(btnbox,{btn1,btn2,btn3})

show_all(win)

main()

---------------------------------------------------------------
-- Copyright 2009 by Irv Mullins - code released under the LGPL
---------------------------------------------------------------