set dbcompositemenu_items {
GuidoMenuItem downhole {
-label "Downhole"
-icon "icons/16/composite_downhole.png"
-command server "COMPOSITE DOWNHOLE"
}
GuidoMenuItem bench_elevations {
-label "Bench elevations"
-icon "icons/16/comp_by_elevation.png"
-command server "COMP BY ELEVATION"
}
GuidoSeparator sep2 {
}
GuidoMenuItem options {
-label "Setup options"
-icon "icons/16/compositing_options.png"
-command script scripts/compositeoptions.tcl
}
GuidoSeparator sep3 {
}
GuidoMenuItem create {
-label "Create"
-icon "icons/16/create_composite.png"
-command script scripts/compositecreate.tcl
}
GuidoSeparator sep4 {
}
GuidoMenuItem code {
-label "Code"
-icon "icons/16/code_composites.png"
-command script scripts/compositecode.tcl
}
GuidoMenuItem edit {
-label "Edit"
-icon "icons/16/edit_composite.png"
-command script scripts/compositeedit.tcl
}
GuidoSeparator sep5 {
}
GuidoMenuItem graphicallyedit {
-label "Adjust length"
-icon "icons/16/graphically_edit_composite.png"
-command script scripts/compositegraphicaledit.tcl
}
GuidoMenuItem graphicallymove {
-label "Move"
-icon "icons/16/graphically_move_composite.png"
-command script scripts/compositegraphicalmove.tcl
}
GuidoSeparator sep6 {
}
GuidoMenuItem delete {
-label "Delete"
-icon "icons/16/delete_composite.png"
-command script scripts/compositedelete.tcl
}
GuidoMenuItem delete {
-label "Delete all"
-icon "icons/16/delete_all_composites.png"
-command script scripts/deleteallcomposites.tcl
}
GuidoSeparator sep7 {
}
GuidoMenuItem read {
-label "Read from database"
-icon "icons/16/read_composites.png"
-command server "READ COMPOSITES"
}
GuidoMenuItem write {
-label "Write to database"
-icon "icons/16/write_composites.png"
-command script scripts/compositewrite.tcl
}
GuidoSeparator sep8 {
}
GuidoMenuItem report {
-label "Report"
-icon "icons/16/report_composites.png"
-command script scripts/compositereport.tcl
}
}
GuidoMenu dbcompositemenu {
-label "Composite"
-delayed_script $dbcompositemenu_items
}
