40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
|
|
||
|
|
-------------------
|
||
|
|
namespace about -- Generic About dialog
|
||
|
|
-------------------
|
||
|
|
|
||
|
|
export constant version = "4.12.0"
|
||
|
|
|
||
|
|
--# EXPORTS: about:Dialog -- use run(about:Dialog), not show()
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
public include euphoria/info.e
|
||
|
|
|
||
|
|
if not equal(version,gtk:version) then
|
||
|
|
Error(,,"GtkAboutDialog version mismatch","should be version " & gtk:version)
|
||
|
|
end if
|
||
|
|
|
||
|
|
export atom Dialog = create(GtkAboutDialog,{
|
||
|
|
{"name","about:dialog"},
|
||
|
|
{"logo","thumbnails/eugtk.png"},
|
||
|
|
{"program name",prg_name},
|
||
|
|
{"version","EuGTK version: " & gtk:version},
|
||
|
|
{"copyright",copyright},
|
||
|
|
{"comments","For information on the Euphoria\nprogramming language, click below"},
|
||
|
|
|
||
|
|
-- must specify custom as the license type if supplying license text;
|
||
|
|
{"license type",GTK_LICENSE_CUSTOM},
|
||
|
|
{"license",LGPL}, -- LGPL text is built into EuGTK
|
||
|
|
{"wrap license",0},
|
||
|
|
|
||
|
|
{"website","http://OpenEuphoria.org"},
|
||
|
|
{"website label","OpenEuphoria"},
|
||
|
|
{"authors",{"Irv Mullins"}},
|
||
|
|
|
||
|
|
--{"artists",0},
|
||
|
|
--{"documenters",0},
|
||
|
|
--{"translator credits",0},
|
||
|
|
--{"add credit section","Special Thanks to",{"\nBob's Burgers\nDuff's Beer"}},
|
||
|
|
$})
|
||
|
|
|