no display name and no $DISPLAY environment variable
    while executing
"load /enadisk/commun/linux/local/ActiveTcl-8.6.11/lib/libtk8.6.so Tk"
    ("package ifneeded Tk 8.6.11" script)
    invoked from within
"load /commun/linux/local/ActiveTcl-8.6.11/lib/Tkhtml3.0/libTkhtml3.0.so"
    ("package ifneeded Tkhtml 3.0" script)
    invoked from within
"package require Tkhtml"
    (in namespace eval "::request" script line 518)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#
# hview is an adaptation from hv.tcl (complementing tkhtml)
#
# Changes :
# - ISO8859-1 chars converted to HTML entities
# - Global variables prefixed by hv_ (except ::HtmlTraceMask)
# - Procs prefixed by Hv_
# - menubar is optional
# - added an optional close button
#
# - launched by Hv_Run which admits optional arguments
#   Hv_Run -title $mytitle -iconname $myicon -readfile $myfile 
#          -menubar 1 -closebutton "Close"
#
#
# This script implements the "hv" application.  Type "hv FILE" to
# view FILE as HTML.
#
# This application is used for testing the HTML widget.  It can
# also server as an example of how to use the HTML widget.
#
# @(#) $Id: hv.tcl,v 1.25 2000/02/19 18:37:52 drh Exp $
#

# This procedure is called when the user selects the File/Open
# menu option.
proc Hv_UserLoad {} {
    set filetypes {
	{{Html Files} {.html .htm}}
	{{All Files} *}
    }
    set f [tk_getOpenFile -initialdir $::hv_lastDir -filetypes $filetypes]
    if {$f!=""} {
	Hv_LoadFile $f
	set ::hv_lastDir [file dirname $f]
    }
}

#   Clear the screen.
proc Hv_ClearScreen {} {
    set w .hv.h.h
    $w clear
    catch {unset ::hv_hotkey}
    Hv_ClearBigImages
    Hv_ClearOldImages
    foreach fn [array names ::hv_Images] {
	set ::hv_OldImages($fn) $::hv_Images($fn)
    }
    catch {unset ::hv_Images}
}
proc Hv_ClearOldImages {} {
    global ::hv_OldImages
    foreach fn [array names ::hv_OldImages] {
	image delete $::hv_OldImages($fn)
    }
    catch {unset ::hv_OldImages}
}
proc Hv_ClearBigImages {} {
    global ::hv_BigImages
    foreach b [array names ::hv_BigImages] {
	image delete $::hv_BigImages($b)
    }
    catch {unset ::hv_BigImages}
}

#   Read a file
proc Hv_ReadFile {name} {
    if {[catch {open $name r} fp]} {
	tk_messageBox -icon error -message $fp -type ok
	return {}
    } else {
	fconfigure $fp -translation binary
	set r [read $fp [file size $name]]
	close $fp
	return $r
    }
}

# Load a file into the HTML widget
proc Hv_LoadFile {name} {
    set html [Hv_ReadFile $name]
    if {$html==""} return
    
    # translate ISO chars to HTML entities
    set html [Hv_ToEntities $html]
    
    Hv_ClearScreen
    set ::hv_LastFile $name
    .hv.h.h config -base $name
    .hv.h.h parse $html
    Hv_ClearOldImages
}

# Refresh the current file.
proc Hv_RefreshFile {args} {
    if {![info exists ::hv_LastFile]} return
    Hv_LoadFile $::hv_LastFile
}

# A font chooser routine.
#
# .hv.h.h config -fontcommand Hv_PickFont
proc Hv_PickFont {size attrs} {
    #  puts "FontCmd: $size $attrs"
    set a [expr {-1<[lsearch $attrs fixed]?{courier}:{charter}}]
    set b [expr {-1<[lsearch $attrs italic]?{italic}:{roman}}]
    set c [expr {-1<[lsearch $attrs bold]?{bold}:{normal}}]
    set d [expr {int(12*pow(1.2,$size-4))}]
    list $a $d $b $c
}

# This routine is called for each form element
proc FormCmd {n cmd args} {
    # puts "FormCmd: $n $cmd $args"
    switch $cmd {
	select -
	textarea -
	input {
	    set w [lindex $args 0]
	    label $w -image ::hv_nogifsm
	}
    }
}

# This routine is called for every  markup
#
proc ImageCmd {args} {
    if {!$::hv_showImages} {
	return ::hv_smgray
    }
    set fn [lindex $args 0]
    if {[info exists ::hv_OldImages($fn)]} {
	set ::hv_Images($fn) $::hv_OldImages($fn)
	unset ::hv_OldImages($fn)
	return $::hv_Images($fn)
    }
    if {[catch {image create photo -file $fn} img]} {
	return ::hv_smgray
    }
    if {[image width $img]*[image height $img]>20000} {
	global ::hv_BigImages
	set b [image create photo -width [image width $img] \
		-height [image height $img]]
	set ::hv_BigImages($b) $img
	set img $b
	after idle "Hv_MoveBigImage $b"
    }
    set ::hv_Images($fn) $img
    return $img
}
proc Hv_MoveBigImage b {
    if {![info exists ::hv_BigImages($b)]} return
    $b copy $::hv_BigImages($b)
    image delete $::hv_BigImages($b)
    unset ::hv_BigImages($b)
    update
}

#   associated by trace variable with ::hv_showTableStruct var
proc Hv_ShowTableStruct args {
    if {$::hv_showTableStruct} {
	set ::HtmlTraceMask [expr {$::HtmlTraceMask|0x8}]
	.hv.h.h config -tablerelief flat
    } else {
	set ::HtmlTraceMask [expr {$::HtmlTraceMask&~0x8}]
	.hv.h.h config -tablerelief raised
    }
    Hv_RefreshFile
}

#   associated by trace variable with ::hv_underlineHyper
proc Hv_ChangeUnderline args {
    .hv.h.h config -underlinehyperlinks $::hv_underlineHyper
    Hv_RefreshFile
}

# This routine is called for every