42 lines
1.8 KiB
Elixir
42 lines
1.8 KiB
Elixir
|
|
||
|
|
-----------------------------------------------------------------------
|
||
|
|
--# Customizing built-in dialog boxes
|
||
|
|
-- Here we change the default behavior of the Info() box,
|
||
|
|
-- but the same options can be set to override the defaults
|
||
|
|
-- for the other built-in dialogs, such as Question or Error...
|
||
|
|
----------------------------------------------------------------------
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
Info(0,"Info Box1","Primary Text","<i>Secondary</i> Text")
|
||
|
|
--[1] parent window or null
|
||
|
|
--[2] dialog title or empty for default title
|
||
|
|
--[3] first line (automatically made bold if secondary text exists)
|
||
|
|
--[4] secondary text, can be marked up if desired
|
||
|
|
|
||
|
|
-- All parameters are optional, but dialogs won't make much sense without
|
||
|
|
-- at least parameter[3]
|
||
|
|
|
||
|
|
-- [5] is the button set to override default button(s);
|
||
|
|
Info(0,"Info Box3","Changing Buttons","use yes/no buttons",GTK_BUTTONS_YES_NO)
|
||
|
|
--------------------------------------------------------------^ button id, see GtkEnums
|
||
|
|
|
||
|
|
-- [6] is an image to use in place of the default dialog icon;
|
||
|
|
Info(0,"Info Box2","Dialog Icon","Change to Question icon",,"dialog-question")
|
||
|
|
----------------------------------------------------------^ icon name
|
||
|
|
|
||
|
|
-- [7] is an image to use in place of the default titlebar icon;
|
||
|
|
constant img = create(GtkImage,"~/demos/thumbnails/BabyTux.gif")
|
||
|
|
Info(0,"Info Box4","Titlebar Icon","Titlebar icon from a file",,,img)
|
||
|
|
-------------------------------------------------------^ custom icon image
|
||
|
|
|
||
|
|
-- Primary and Secondary text can use markup to set style and colors
|
||
|
|
-- Below we use markup to make a fancy Info dialog;
|
||
|
|
|
||
|
|
Info(0,"Info Box5",
|
||
|
|
"<span font='URW Chancery L 24'><b>Hello World</b></span>",
|
||
|
|
"<span font='URW Chancery L 12'>We can be as fancy as we like here,\n" &
|
||
|
|
"with multi-line text,\n<span color='red'>colors</span>, <u>underlined,</u> etc.</span>")
|
||
|
|
|
||
|
|
|