set fielddefaultmenu_items {
GuidoMenuItem item1 {
-label "Clear all user default settings"
-command script scripts/clearsettings.tcl
}
GuidoMenuItem item2 {
-label "Load default database"
-command script scripts/loaddefaults.tcl
}
GuidoMenuItem item3 {
-label "Save default database"
-command script scripts/savedefaults.tcl
}
GuidoScript scripts/menus/deftype.tcl
}
GuidoMenu fielddefaultmenu {
-label "Field default values"
-delayed_script $fielddefaultmenu_items
}
