GuidoScript scripts/toolbars/s_cn_pointeditmode.tcl
GuidoScript scripts/toolbars/snapmode.tcl
GuidoFiller space {
-width 0.2
}
GuidoButton digitiser_new_string {
-icon "icons/<iconsize>/digitiser_new_string.png"
-command server "digitiser new string"
-tip "Enter/Change digitiser point attributes"
}
GuidoButton digitiser_digitise {
-icon "icons/<iconsize>/digitiser_digitise.png"
-command server "digitiser digitise"
-tip "Create new points using the mouse"
}
GuidoButton digitiser_close_segment {
-icon "icons/<iconsize>/digitiser_close_segment.png"
-command server "digitiser close segment"
-tip "Close the current segment being digitised"
}
GuidoButton digitiser_end_segment {
-icon "icons/<iconsize>/digitiser_end_segment.png"
-command server "digitiser end segment"
-tip "Start a new segment for digitising"
}
GuidoButton digitiser_follow_segment {
-icon "icons/<iconsize>/digitiser_follow_segment.png"
-command server "digitiser follow segment"
-tip "Digitise points by following a segment"
}
GuidoButton digitiser_midpoint {
-icon "icons/<iconsize>/digitiser_midpoint.png"
-command server "digitiser midpoint"
-tip "Digitise a point at the midpoint of two points"
}
GuidoButton digitiser_next_string {
-button_priority low
-icon "icons/<iconsize>/digitiser_next_string.png"
-command server "digitiser next string"
-tip "Increment string number for digitised points"
}
GuidoField digitise_toolbar_current_function_name {
-default ""
-status_item "current function name"
-visible false
}
GuidoLabel digitise_toolbar_function_changer {
-dependency {"[string tolower [$digitise_toolbar_current_function_name getCurrentValue]]" == "digitiser digitise" || "[string tolower [$digitise_toolbar_current_function_name getCurrentValue]]" == "digitiser midpoint"}
-action stateChanged {[
if {"[string tolower [$digitise_toolbar_current_function_name getCurrentValue]]" == "digitiser digitise"} {
$digitiser_close_segment setCommand server "digitiser close segment,digitiser digitise"
$digitiser_end_segment setCommand server "digitiser end segment,digitiser digitise"
$digitiser_next_string setCommand server "digitiser next string,digitiser digitise"
} elseif {"[string tolower [$digitise_toolbar_current_function_name getCurrentValue]]" == "digitiser midpoint"} {
$digitiser_close_segment setCommand server "digitiser close segment,digitiser midpoint"
$digitiser_end_segment setCommand server "digitiser end segment,digitiser midpoint"
$digitiser_next_string setCommand server "digitiser next string,digitiser midpoint"
} else {
$digitiser_close_segment setCommand server "digitiser close segment"
$digitiser_end_segment setCommand server "digitiser end segment"
$digitiser_next_string setCommand server "digitiser next string"
}
]}
}
