Posted to tcl by centrix at Thu May 18 19:17:27 GMT 2017view raw
- 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