set deftype_menu_items {
GuidoButtonGroup default_types {
-status_item "default_type"
GuidoRadioButtonMenuItem item1 {
-selected_value "Last_value"
-label "Last value"
-command script scripts/setSSIOption.tcl "key = default_type option = Last_value"
}
GuidoRadioButtonMenuItem item2 {
-selected_value "Last_value_if_blank"
-label "Last value if blank"
-command script scripts/setSSIOption.tcl "key = default_type option = Last_value_if_blank"
}
GuidoRadioButtonMenuItem item3 {
-selected_value "Application"
-label "Application"
-command script scripts/setSSIOption.tcl "key = default_type option = Application"
}
}
}
GuidoMenu deftype_menu {
-label "Default initial value type"
-delayed_script $deftype_menu_items
}
