+ $w.top.description.entry insert 0 [lindex $profile($hostname) 0]
+ $w.top.idAuthentication.entry insert 0 [lindex $profile($hostname) 1]
+ $w.top.maximumRecordSize.entry insert 0 [lindex $profile($hostname) 2]
+ $w.top.preferredMessageSize.entry insert 0 [lindex $profile($hostname) 3]
+
+ # Databases ....
+ pack $w.top.databases -side left -pady 6 -padx 6 -expand yes -fill x
+
+ label $w.top.databases.label -text "Databases"
+ button $w.top.databases.add -text "Add" -command {add-database}
+ button $w.top.databases.delete -text "Delete" -command {delete-database}
+ listbox $w.top.databases.list -geometry 20x6 \
+ -yscrollcommand "$w.top.databases.scroll set"
+ scrollbar $w.top.databases.scroll -orient vertical -border 1
+ pack $w.top.databases.label -side top -fill x \
+ -padx 2 -pady 2
+ pack $w.top.databases.add $w.top.databases.delete -side top -fill x \
+ -padx 2 -pady 2
+ pack $w.top.databases.list -side left -fill both -expand yes \
+ -padx 2 -pady 2
+ pack $w.top.databases.scroll -side right -fill y \
+ -padx 2 -pady 2
+ $w.top.databases.scroll config -command "$w.top.databases.list yview"
+
+ foreach b [lindex $profile($hostname) 5] {
+ $w.top.databases.list insert end $b
+ }