50 lines
1.2 KiB
Elixir
50 lines
1.2 KiB
Elixir
|
|
||
|
|
---------------------------------------------------------------------------------
|
||
|
|
--# GtkMessageDialog
|
||
|
|
---------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
constant docs = `<u><b>GTK message dialog</b></u>
|
||
|
|
|
||
|
|
You'll not often need to do this,
|
||
|
|
the EuGtk built-in dialogs are easier and
|
||
|
|
more complete.
|
||
|
|
`
|
||
|
|
constant win = create(GtkWindow,"border=10,position=1,$destroy=Quit")
|
||
|
|
|
||
|
|
constant panel = create(GtkBox,"orientation=VERTICAL")
|
||
|
|
add(win,panel)
|
||
|
|
|
||
|
|
constant lbl = create(GtkLabel)
|
||
|
|
set(lbl,"markup",docs)
|
||
|
|
add(panel,lbl)
|
||
|
|
|
||
|
|
constant
|
||
|
|
btn1 = create(GtkButton,"gtk-quit","Quit"),
|
||
|
|
btn2 = create(GtkButton,"gtk-ok","Foo"),
|
||
|
|
box = create(GtkButtonBox)
|
||
|
|
pack(panel,-box)
|
||
|
|
add(box,{btn1,btn2})
|
||
|
|
|
||
|
|
show_all(win)
|
||
|
|
main()
|
||
|
|
|
||
|
|
------------------------
|
||
|
|
global function Foo()
|
||
|
|
------------------------
|
||
|
|
atom dlg = create(GtkMessageDialog,{
|
||
|
|
{"transient for",win},
|
||
|
|
{"background","yellow"},
|
||
|
|
{"message-type",GTK_MESSAGE_INFO},
|
||
|
|
{"add button","gtk-ok",1},
|
||
|
|
{"add button","gtk-cancel",0},
|
||
|
|
{"markup","This is a test"},
|
||
|
|
{"format secondary text","%s","More here..."}})
|
||
|
|
|
||
|
|
get(dlg,"run")
|
||
|
|
set(dlg,"destroy")
|
||
|
|
|
||
|
|
return 1
|
||
|
|
end function
|