include GtkEngine.e
include std/filesys.e

constant win = create(GtkWindow)
	connect(win,"destroy",quit)
	set(win,"title","GTK About Dialog")
	set(win,"default size",300,300)
	set(win,"position",1)

-------------------------------------------
-- Create the AboutDialog
-------------------------------------------

constant aboutdlg = create(GtkAboutDialog)
-- -------------------------------------
	set(aboutdlg,"Program Name","EuGTK")
	set(aboutdlg,"Version","4.1.6")
	set(aboutdlg,"Copyright","Copyright 2010 by Irv Mullins")
	set(aboutdlg,"License",LGPL)
	set(aboutdlg,"Wrap License",TRUE)
	set(aboutdlg,"Authors",{"Irv Mullins ","Mike Sabal","Ron Tarrant"})
	set(aboutdlg,"Artists",{"Vince Van Go","Pablo Pickaxo","Salvadore Dolly"})
	set(aboutdlg,"Documenters",{"Who knows -","Any Volunteers?"})
	set(aboutdlg,"Website","http://www.rapideuphoria.com")
	set(aboutdlg,"Website Label","Euphoria")
	set(aboutdlg,"Translator Credits","Kay Pasa ")

------------------------------------
function About() -- runs the dialog
------------------------------------
	return run(aboutdlg)
end function

-----------------------------------------------
-- MAIN
-----------------------------------------------

constant about = call_back(routine_id("About"))

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

constant image = create(GtkImage,
		canonical_path("~/demos/images/MorningRain.jpg"))
	add(panel,image)

constant btn1 = create(GtkButton,"gtk-quit")
	set(btn1,"tooltip text","Click to quit the program")
	connect(btn1,"clicked",quit)

constant btn2 = create(GtkButton,"gtk-about")
	set(btn2,"tooltip text","Click me!")
	connect(btn2,"clicked",about)

constant btnbox = create(GtkHButtonBox)
	set(btnbox,"border width",10)
	pack(panel,-btnbox)
	add(btnbox,{btn1,btn2})

show_all(win)
main()

--------------------------------------------------------------
-- copyright 2010 by Irv Mullins, code released under the LGPL
--------------------------------------------------------------