The following script shows how to display the contents of a simple Tcl dict within a gnocl::list widget. #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl namespace eval pkg {} #--------------- # Create a gnocl::list displaying the contents of a Tcl dict. #--------------- # Arguments: # val dict data to display. # args # Returns: # wid of gnocl::list containing the dict data. # proc pkg::dict2list { vals } { set res "" # get a complete list of info keys set c key dict for {id info} $vals { foreach {a b} $info { if { [string first $a $c] == -1 } { lappend c $a } } ...