proc log {Level args} {
    #insert line end $Level:[join $args] log
    puts stderr $Level:[join $args]
}
proc console::conf NumChars {

    set Size [expr {72*[winfo screenwidth .]/[winfo pixels . 1i]/$NumChars}]
    set W [expr {$Size*2}]

    if {"ConsoleFont" ni [::font names]} {::font create ConsoleFont -family [%W cget -font]}
    ::font configure ConsoleFont -size $Size
    %W configure -font ConsoleFont
    foreach Tag {input result error help} {
	%W tag configure $Tag -font ConsoleFont
    }
}
console::conf 100
proc console::test NumChars {
    set Lorem {The European languages are members of the same family. Their separate existence is a myth. For science, music, sport, etc, Europe uses the same vocabulary. The languages only differ in their grammar, their pronunciation and their most common words. Everyone realizes why a new common language would be desirable: one could refuse to pay expensive translators. To achieve this, it would be necessary to have uniform grammar, pronunciation and more common words. If several languages coalesce, the grammar of the resulting language is more simple and regular than that of the individual languages. The new common language will be more simple and regular than the existing European languages. It will be as simple as Occidental; in fact, it will be Occidental. To an English person, it will seem like simplified English, as a skeptical Cambridge friend of mine told me what Occidental is.The European languages are members of the same family. Their separate existence is a myth. For science, music, sport, etc, Europe uses the same vocabulary. The languages only differ in their grammar, their pronunciation and their most common words. Everyone realizes why a new common language would be desirable: one could refuse to pay expensive translators. To}
    insert line insert [string range $Lorem 0 $NumChars-1] input
}

help

lappend auto_path .


package require slide
namespace import slide::*
proc n {} {clear all; slide::next}
proc p {} {clear all; slide::prev}
set thtmln::Processor slide::processor

slide::conf 80
insert line end "show 0|name .. shows respective slide" help
insert line end Slides: help
source slide/mkorder.tcl
set slide::Slides [orderSlides [glob *.html] 1_title.html]
set slide::Current -1

proc go {} {
    goto 0.0
    clear below
    n
}

goto end