%eden

## Make sure the html widget is loaded into
## the interpreter

tcl("
	if {[info command html]==\"\"} {
	  foreach f {./tkhtml.so ./tkhtml.dll} {
	    if {[file exists $f]} {
	      if {[catch {load $f Tkhtml}]==0} break
	    }
	  }
	}
");