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