---------------------------------------
-- Tooltips 
---------------------------------------

include GtkEngine.e
include dll.e -- for call_back

constant tip_text = -- we could just use simple text here,
                    -- but marked-up text looks snazzy
 "<span size='x-large' color='yellow'>Tooltip:\n</span>"
	&" Using <i>Pango</i> markup "
	&"\n to set the style\n"

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

constant panel = create(GtkVBox)
	add(win,panel)
	add(panel,create(GtkLabel,
		"Hover over the OK button to see tooltip!"))

constant btn = create(GtkButton,"gtk-ok")
	set(btn,"tooltip markup",tip_text)
	pack(panel,-btn)

show_all(win)
main()