source keyedListLib.tcl set row 1 set column 1 set key 1 set w [button .b_addPair -text "Add Pair" \ -command {set keyList [appendKeyedPair $keyList [incr key] $key]}] grid $w -row $row -column $column incr column set keyList {} set w [label .l_keyList -textvariable keyList -width 50] grid $w -row $row -column $column