Evaluated proc wiki name { if {[catch "wikipic $name" pic] == 1} { wiki_ $name } { set words [wrap [wiki_ $name] 50]; embed [widen $pic 60][string repeat "\n" [- [nlines $words] [nlines $pic]]] $words [+ $::wikipicsize 5] 1 } }