
#
# test the widget extension stuff
#

proc put_html {text href} {
    puts stdout "text in anchor: $text"
    puts stdout "hyper reference: $href"
}

xtAppInitialize -class Program

htmlWidget .html managed \
    -width 200 \
    -height 200 \
    -text "Hello <i>world</i>\
<a href=\"ref text\">anchor text</a>"

.html anchorCallback {put_html {%text} {%href}}

. realizeWidget

. mainLoop
