-font font_ui
label $w.name.l -text {Name:} -font font_ui
text $w.name.t \
+ -borderwidth 1 \
+ -relief sunken \
-height 1 \
-width 40 \
-font font_ui
-variable create_branch_revtype \
-font font_ui
text $w.from.exp.t \
+ -borderwidth 1 \
+ -relief sunken \
-height 1 \
-width 50 \
-font font_ui