- wm title $w "$target - Database Information"
-
- frame $w.top.name -border 2
- pack $w.top.name -pady 2 -padx 2 -side top -fill x
-
- label $w.top.name.label -text "Database Name"
-
- pack $w.top.name.label -side left
- menubutton $w.top.name.data -menu $w.top.name.data.m -relief raised
- irmenu $w.top.name.data.m
-
- pack $w.top.name.data -side left
-
- button $w.top.name.add -text "Add" -command \
- [list target-setup-db-add $target $w]
- pack $w.top.name.add -side right