proc create {pathName args} {
  button .n.b -text "testing testing" -command {puts stdout $mega_interpreter$mega_crypting; puts stdout ".n [pack info .n]"; puts stdout ".n size [winfo width .n]x[winfo height .n]"; puts stdout "children [winfo children .]"; puts stdout "children [winfo children .n]" }
  pack .n.b -fill both -expand 1
#  pack .n.b -side right
#  place .n.b -x 10 -y 10 -width 40 -height 20
#  place .n.b -relx .1 -rely .1 -relwidth .4 -relheight .3
}

