#
# This demo applet displays information provided by the browser
#

puts "appinfo starting"

label .info -text "Applet Info"
label .main -text "Main window: [applet embedwindow]"
label .index -text "Main window index: [applet embedindex]"
label .level -text "Attachment level: [applet level]"
label .version -text "Browser version: [applet browserversion]"
pack .info .main .index .level .version -side top -fill x -anchor n

proc formready {} {
    puts "formready"
    label .formend -text "Form end index: [applet formendindex]"
    label .formitems -text "There are [llength [applet formitems]] input items:"
    pack .formend .formitems -side top -fill x -anchor n
    set cnt 0
    foreach i [applet formitems] {
	label .formitem$cnt -text $i
	pack .formitem$cnt -side top -fill x -anchor n
	incr cnt
    }
}

puts "appinfo finished"
