'''shtmlview::shtmlview''' * Project page: https://github.com/mittelmark/DGTcl/tree/master/lib/shtmlview * [http://htmlpreview.github.io/?https://github.com/mittelmark/DGTcl/blob/master/lib/shtmlview/shtmlview.html|Manual page] [DDG] 2018-11-09: A [snidget] widget based on Stephen Uhlers htmllib and Robert Hellers helptext tool. The ''shtmlview::shtmlview'' widget can render a reasonable subset of html and is useful where the developer has control over the content to be rendered. It is not a full fledged web browser und should be used only for local html files. '''Installation as Tcl-module''' Put the directory with the source code somewhere in a directory like /home/username/tcl/shtmlview/shtmlview-0.9.0.tm - in your Tcl code you would now have to write: ====== tcl::tm::path add /home/username/tcl package require shtmlview::shtmlview ====== See [http://htmlpreview.github.io/?https://github.com/mittelmark/DGTcl/blob/master/lib/shtmlview/shtmlview.html|manual page] on github for information of installation and usage.below for the code and an example usage. '''Example''' ====== tcl::tm::path add /home/username/tcl package require shtmlview::shtmlview if {[info exists argv0] && $argv0 eq [info script]} { if {[llength $argv] == 1 || [file exists [lindex $argv 0]} { wm title . "shtmlview widget" set help [::shtmlview::shtmlview .help \ -tablesupport true -home [lindex $argv 0]] $help browse [lindex $argv 0] pack $help -side top -fill both -expand true } else { puts "Usage: $argv0 htmlfile" } } ====== [img_shtmlview] <> Package | Widget | Snit Widgets