set ::mh_font_size 13; # tu mozna zmienic rozmiar !!!

# guzik poprawiajacy fonty w .c.canvas oraz gdzie indziej...
destroy .t1; toplevel .t1; wm geom .t1 +259+10; 
button .t1.b1 -text "fonty!" -command {
  if {[winfo exists .c.canvas]} {
    foreach i [.c.canvas find all] {
      catch {.c.canvas itemconf $i -font "system $::mh_font_size"}
    }
  }  
  zmien_font . system $::mh_font_size
}
pack .t1.b1

# rekurencyjnie poprawia fonty
proc zmien_font {{w .} {font fixed} {rozm 15}} {
  if {$w==".konsola.t" || $w==".output.t"} return
  catch {$w config -font "$font $rozm"}
  foreach w2 [winfo ch $w] {zmien_font $w2 $font $rozm}
}