[WJG] (23/08/13) Wanted a simple, no frills (or thrills) viewer for Metakit data files. This was pretty easy to do using the gnocl::list widget. ====== #--------------- # metakit-viewer.tcl #--------------- # # !/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl package require Mk4tcl #--------------- # simple loader and viewer #--------------- # proc mk:viewer {dbname} { set nb [gnocl::notebook -homogeneous 1] set i 0 mk::file open db $dbname foreach v [mk::file views db] { set lv [gnocl::list -titles [mk::view layout db.$v] -ruleHint 1] $nb addPage $lv $v mk::loop i db.$v { set item [mk::get $i] for {set j 1} {$j < [llength $item] } {incr j 2} { lappend str [lindex $item $j] } $lv add $str -singleRow 1 unset str } } return $nb } gnocl::window -child [mk:viewer $::argv] -setSize 0.2 -title "mk:viewer - $::argv" -onDelete {exit} ====== To install, simply open a shell terminal in the directory containing the script and run: ====== chmod +x *.tcl cp metakit-viewer.tcl -f $HOME/bin/ ====== <>GUI