--- hv.tcl	Thu Feb  8 19:21:58 2001
+++ hv	Thu Feb  8 19:21:33 2001
@@ -1,3 +1,4 @@
+#!/usr/bin/wish
 #
 # This script implements the "hv" application.  Type "hv FILE" to
 # view FILE as HTML.
@@ -13,19 +14,20 @@
 # Make sure the html widget is loaded into
 # our interpreter
 #
-if {[info command html]==""} {
-  if {![package require tkhtml]} return
-  foreach f {
-    ./tkhtml.so
-    /usr/lib/tkhtml.so
-    /usr/local/lib/tkhtml.so
-    ./tkhtml.dll
-  } {
-    if {[file exists $f]} {
-      if {[catch {load $f Tkhtml}]==0} break
-    }
-  }
-}
+# if {[info command html]==""} {
+#   if {![package require Tkhtml]} return
+#   foreach f {
+#     ./tkhtml.so
+#     /usr/lib/tkhtml.so
+#     /usr/local/lib/tkhtml.so
+#     ./tkhtml.dll
+#   } {
+#     if {[file exists $f]} {
+#       if {[catch {load $f Tkhtml}]==0} break
+#     }
+#   }
+# }
+package require Tkhtml
 
 # The HtmlTraceMask only works if the widget was compiled with
 # the -DDEBUG=1 command-line option.  "file" is the name of the
@@ -61,7 +63,6 @@
     R0lGODdhEAAQAPEAAACQkADQ0PgAAAAAACwAAAAAEAAQAAACNISPacHtD4IQz80QJ60as25d
     3idKZdR0IIOm2ta0Lhw/Lz2S1JqvK8ozbTKlEIVYceWSjwIAO///
 }
-
 # Construct the main window
 #
 frame .mbar -bd 2 -relief raised
@@ -115,15 +116,14 @@
   -scriptcommand ScriptCmd \
   -appletcommand AppletCmd \
   -underlinehyperlinks 0 \
-  -bg white -tablerelief raised
-
+  -bg white -tablerelief raised \
+  -height 220 -width 200
 # If the tracemask is not 0, then draw the outline of all
 # tables as a blank line, not a 3D relief.
 #
 if {$HtmlTraceMask} {
   .h.h config -tablerelief flat
 }
-
 # A font chooser routine.
 #
 # .h.h config -fontcommand pickFont
@@ -328,7 +328,6 @@
   if {![info exists LastFile]} return
   LoadFile $LastFile
 }
-
 # If an arguent was specified, read it into the HTML widget.
 #
 update
@@ -349,3 +348,4 @@
     $parent configure -cursor {}
   }
 }
+