Posted to tcl by centrix at Thu May 18 19:17:27 GMT 2017view pretty
proc set_entry e { set x [list $e] puts [lindex e 1] set ::fromlangexpr [lindex $x 2] .notes insert end [lindex $x 0] .notes insert end [lindex $x 4] } proc pick_entry { mlng } { set entryid [expr {int(rand()*[llength $::entries])}] set entryindex [lsearch -exact $::entries $entryid] set ::entries [lreplace $::entries $entryindex $entryindex] set x [dbif GetLessonEntry $mlng $entryid] if { [dbif GetLastError] != "" } { show_err "DB error: [dbif GetLastError]" return } puts ">>> [lindex $x 2]" puts ">>> [llength $x]" set_entry $x } >>> mandag >>> 6