# функция валидации
proc test {val} {
    tk_messageBox -message $val
    return 1
}

# toplevel окно. не обязательно.
set w {}

# фрейм с информацией о человеке
set info $w.info
# пакуем сверху, растягиваем по горизонтали
pack [frame $info -padx 2 -pady 2] -side top -fill x 

#растягиваем 2-й столбец на всю длину
grid columnconfigure $info 1 -weight 1
#вставляем нужные поля
foreach row {{n1 "First Name"} {n2 "Middle Name"} {n3 "Last Name"}} {
#для каждого entry можно прибиндить переменную, которая будет изменяться в соответствии с вводом
    grid [label $info.l[lindex $row 0] -text [lindex $row 1] -anchor w] [entry $info.[lindex $row 0] -text [lindex $row 1]] -sticky we
}

# определяем функцию валидации для 2-го поля
$info.n2 config -validate key -vcmd {test %P}

# добавляем радиобуттон
set radio $w.radio
pack [labelframe $radio -text "Gender" -pady 2 -padx 2] -side top
foreach item {Female Male Unknown Other} {
    radiobutton $radio.the$item -text $item -variable gender -relief flat -anchor w -value $item
    pack $radio.the$item -side top -fill x
}

# снизу добавляем фрейм с кнопками
pack [frame $w.action -padx 10 -pady 10] -side bottom -fill x
pack [button $w.action.save -text Save -width 10] -side left
pack [button $w.action.cancel -text Cancel -width 10 -command exit] -side right

IT>

NB>>pack [frame $info -padx 2 -pady 2] -side top -fill x 
NB>>pack [frame $w.action -padx 10 -pady 10] -side bottom -fill x
NB>>

IT>Ну вот, в таком птичьем языке разобрался, а с простейшими тегами форматирования нет

walk $player dx dy
hit $player $enemy
...

IT>binder.Object = person;
IT>

IT>Всё что она делает, инициализирует форму переданным объектом. После твоих заявлений я ожидал чего-то подобного. Но видимо не судьба

set form [editPerson $object]