
command_define "Mouse bindings" "Mouse bindings" no_icon \
    "tdv_edit_bindings $tdv_default" {
    } no_help always

command_define "Text Editor" "Text Editor" no_icon \
    "edit_file" {
    } no_help always

command_define "Help" "Help" question \
    "help_main_topic" {
	Go to the main help page for this program.
    } no_help always

command_define "Edit toolbars" "Edit toolbars" no_icon \
    "toolbar_edit" {
	Modify the tool bars.
    } no_help always

command_define "Set background" "Set background" no_icon \
    "set_background" {
    } no_help always

command_define "Distance" "Distance" distance_icon \
    "check_distance" {
    } no_help always

command_define "Track mouse" "Track mouse" no_icon \
    "track_location" {
    } no_help always

command_define "Add marker" "Add" no_icon \
    "disp_add_marker" {
    } no_help always

command_define "Clear markers" "Clear" no_icon \
    "disp_clear_markers" {
    } no_help always

command_define "Mouse position" "Mouse position" no_icon \
    "checkbutton tdv_track_mouse_var(all) \"tdv_toggle_track_mouse all\"" {
    } no_help always

command_define "Depthcue" "Depthcue" no_icon \
    "checkbutton tdv_depthcue_var(all) \"tdv_toggle_depthcue all\"" {
    } no_help always

command_define "Coord axes" "Coord axes" no_icon \
    "checkbutton tdv_axes_var(all) \"tdv_toggle_axes all\"" {
    } no_help always

command_define "Visible grid" "Visible grid" no_icon \
    "checkbutton tdv_two_d_grid_var(all) \"tdv_toggle_two_d_grid all\"" {
    } no_help always

command_define "Origin marker" "Origin marker" no_icon \
    "checkbutton tdv_origin_var(all) \"tdv_toggle_origin all\"" {
    } no_help always

command_define "Display rulers" "Rulers" no_icon \
    "checkbutton tdv_rulers_var(all) \"tdv_toggle_rulers all\"" {
    } no_help always

command_define "Display project title" "Project title" no_icon \
    "checkbutton tdv_title_var(all) \"tdv_toggle_title all\"" {
    } no_help always

command_define "Display current date" "Current date" no_icon \
    "checkbutton tdv_date_var(all) \"tdv_toggle_date all\"" {
    } no_help always

command_define "Tcl console" "Tcl console" no_icon \
    {checkbutton tcl_console tcl_console_update} {
    } no_help {only_if $is_win}

# -----------------------------------------------

command_define "Angle" "Angle" distance_icon \
    "tdv_check_angle" {
    } no_help always

command_define "Location" "Location" location_icon \
    "check_location" {
    } no_help always

command_define "Bounding box" "Bounding box" no_icon \
    "tdv_check_bbox" {
    } no_help always

# -----------------------------------------------

command_define "Home position" "Home" new_home \
    "tdv_home current" {
    } no_help ""

command_define "Zoom in" "Zoom" zoom \
    "tdv_zoomin current" {
    } no_help ""

command_define "Scale to fit" "Scale to fit" scale_to_fit \
    "tdv_scale_to_fit current" {
    } no_help always

command_define "Rotate view" "Rotate view" view_rotate \
    "tdv_rotate_screen_y current" {
    } no_help always

command_define "Rotate about screen normal" "Rotate about screen normal" view_rotate_normal \
    "tdv_rotate_screen_z current" {
    } no_help always

command_define "Orient positive X" "Positive X" pos_X \
    "tdv_along_axis current +x" {
    } no_help always

command_define "Orient negative X" "Negative X" neg_X \
    "tdv_along_axis current -x" {
    } no_help always

command_define "Orient positive Y" "Positive Y" pos_Y \
    "tdv_along_axis current +y" {
    } no_help always

command_define "Orient negative Y" "Negative Y" neg_Y \
    "tdv_along_axis current -y" {
    } no_help always

command_define "Orient positive Z" "Positive Z" pos_Z \
    "tdv_along_axis current +z" {
    } no_help always

command_define "Orient negative Z" "Negative Z" neg_Z \
    "tdv_along_axis current -z" {
    } no_help always

command_define "Isometric view" "Isometric" iso \
    "tdv_isoview current" {
    } no_help always

command_define "Reverse orientation" "Reverse" reverse \
    "tdv_reverse current" {
    } no_help always

command_define "Nearest axis" "Nearest axis" no_icon \
    "tdv_nearest_axis current" {
    } no_help always

command_define "Save user view" "Save user view" no_icon \
    "tdv_save_current_orientation current" {
    } no_help always

command_define "Clear user views" "Clear user views" no_icon \
    "tdv_clear_user_views" {
    } no_help always

command_define "List shortcuts" "Shortcuts" no_icon \
    "tdv_print_shortcuts" {
	Print the currently defined keyboard shortcuts.
    } no_help always
