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