-------------------------------------------------------------------------
--# Text markup for labels (also works for tooltips, etc)
-------------------------------------------------------------------------

include GtkEngine.e
include resources/test5.e -- this file contains the marked-up text

constant win = create(GtkWindow,"border=5,size=500x80,position=1,$destroy=Quit")
   
constant panel = create(GtkBox,"orientation=1,margin_left=20,margin_right=20")
    add(win,panel)
    
constant lbl1 = create(GtkLabel)
    set(lbl1,"markup",docs)
    add(panel,lbl1)

add(panel,create(GtkSeparator))

constant lbl2 = create(GtkLabel)
    set(lbl2,"markup",text)
    add(panel,lbl2)

add(panel,create(GtkSeparator,"margin-top=10,margin-bottom=10"))
    
constant lbl3 = create(GtkLabel,"line_wrap=1,font=8")
    set(lbl3,"text","Source:\n" & text)
    add(panel,lbl3)

constant btn1 = create(GtkButton,"gtk-quit","Quit")
constant box = create(GtkButtonBox,"margin_top=10")
    add(box,btn1)
    pack_end(panel,box)

show_all(win)
main()