Chip 1998 March/Chip_1998-03_cd.bin/tema/imagin/Files/ACGM.CAB/runtredl.men

Text File | 1997-05-28 | 5KB | 204 lines

# Example -- default menu bar for ActiveCGM Browser

MENU_BAR
   "View-pulldown_menu"
END

# Create popup menu.

POPUP_MENU
      "View-Fit_item"
      "View-ZoomBox_item"
      "View-ZoomIn_item"
      "View-ZoomOut_item"
      "View-Magnify_item"
      "View-Redisplay_item"
      "Copy-Clipboard_menu"
      "Print_item"
      "About_item"
      SEPARATOR
      "Redline-pulldown_menu"
END

MENU_ITEM "Copy-Clipboard_menu"
   LABEL "Copy to clipboard"
   CONDITION SHEET_IS_LOADED
   SUB_ITEMS
      "Copy-Clipboard-Window_item"
      "Copy-Clipboard-Region_item"
   END
END

# Create the items for the Copy to clipboard pull-down menu

MENU_ITEM "Copy-Clipboard-Window_item"
    LABEL "Entire Window"
    EXECUTE "sysclipboard -copy"
END

MENU_ITEM "Copy-Clipboard-Region_item"
    LABEL "Region"
    EXECUTE "sysclipboard -copy -region"
END

# Redline pull-down menu

MENU_ITEM "Redline-pulldown_menu"
   LABEL "&Redline"
#   CONDITION REDLINING_IS_ACTIVE
   SUB_ITEMS
      "Redline-Callout_menu"
      "Redline-Line_item"
      "Redline-Circle_item"
      "Redline-MultiLine_menu"
      "Redline-Text_item"
      SEPARATOR
      "Redline-Delete_item"
      "Redline-Submit_item"
   END
END

# Create the items for the Redline pull-down menu

MENU_ITEM "Redline-Callout_menu"
   LABEL "Call&out"
   STATUS_BAR_HELP "Add a callout redline object"
   CONDITION REDLINING_IS_ACTIVE
   EXECUTE  "addcallout -interactive"
END

MENU_ITEM "Redline-Line_item"
   LABEL "&Line"
   STATUS_BAR_HELP "Add a line redline object"
   CONDITION REDLINING_IS_ACTIVE
   EXECUTE "addline"
END

MENU_ITEM "Redline-Circle_item"
   LABEL "&Circle"
   STATUS_BAR_HELP "Add a circle redline object"
   CONDITION REDLINING_IS_ACTIVE
      EXECUTE "addcircle -cp"
END

MENU_ITEM "Redline-MultiLine_menu"
   LABEL "&Multiline"
   SUB_ITEMS
      "Redline-Multiline-Multiline_item"
      "Redline-Multiline-Rectangle_item"
      "Redline-Multiline-Sketch_item"
   END
END

MENU_ITEM "Redline-Text_item"
   LABEL "&Text"
   STATUS_BAR_HELP "Add a redline text object"
   CONDITION REDLINING_IS_ACTIVE
      EXECUTE "addtext -interactive"
END

MENU_ITEM "Redline-Delete_item"
   LABEL "&Delete"
   CONDITION REDLINING_IS_ACTIVE AND ACTIVE_SHEET_HAS_GEOMETRY
   STATUS_BAR_HELP "Delete redline objects"
   EXECUTE "delete"
END

MENU_ITEM "Redline-Multiline-Rectangle_item"
   LABEL "&Rectangle"
   STATUS_BAR_HELP "Add a rectangle redline object"
   CONDITION REDLINING_IS_ACTIVE
   EXECUTE "addrectangle"
END

MENU_ITEM "Redline-Multiline-Multiline_item"
   LABEL "&Multiline"
   STATUS_BAR_HELP "Add a multiline redline object"
   CONDITION REDLINING_IS_ACTIVE
   EXECUTE "addmultiline"
END

MENU_ITEM "Redline-Multiline-Sketch_item"
   LABEL "&Sketch"
   STATUS_BAR_HELP "Add a redline sketch object"
   CONDITION REDLINING_IS_ACTIVE
   EXECUTE "addmultiline -sketch"
END

MENU_ITEM "Redline-Submit_item"
   LABEL "&Submit Redlines"
   CONDITION REDLINING_IS_ACTIVE
   EXECUTE "savewindow -redline"
END

# Create the View pull-down menu

MENU_ITEM "View-pulldown_menu"
   LABEL "&View"
   CONDITION SHEET_IS_LOADED
   SUB_ITEMS
      "View-Fit_item"
      "View-ZoomBox_item"
      "View-ZoomIn_item"
      "View-ZoomOut_item"
      "View-Magnify_item"
       SEPARATOR
      "View-Redisplay_item"
   END
END

# Create the items for the View pull-down menu

MENU_ITEM "View-Fit_item"
   LABEL "&Fit"
   STATUS_BAR_HELP "Fit the graphics to the size of the window"
   CONDITION SHEET_IS_LOADED
   EXECUTE "zoom -fit"
END

MENU_ITEM "View-ZoomBox_item"
   LABEL "Zoom &Box"
   CONDITION SHEET_IS_LOADED
   STATUS_BAR_HELP "Use a rubber band box to specify the area of the window to display"
   EXECUTE "zoom -box"
END

MENU_ITEM "View-ZoomIn_item"
   LABEL "Zoom &In"
   CONDITION SHEET_IS_LOADED
   STATUS_BAR_HELP "Display the window in greater detail"
   EXECUTE "zoom -in"
END

MENU_ITEM "View-ZoomOut_item"
   LABEL "Zoom &Out"
   STATUS_BAR_HELP "Display the window from a greater distance"
   CONDITION SHEET_IS_LOADED
   EXECUTE "zoom -out"
END

MENU_ITEM "View-Magnify_item"
   LABEL "&Magnify"
   CONDITION SHEET_IS_LOADED AND MAGNIFY_IN_RANGE
   STATUS_BAR_HELP "Display a magnifier window for the active or target window"
   EXECUTE "openmagnifier"
END

MENU_ITEM "View-Redisplay_item"
   LABEL "&Redisplay"
   STATUS_BAR_HELP "Redisplays the active or target window"
   EXECUTE "displaywindow"
END

MENU_ITEM "Print_item"
   LABEL "Pr&int"
   STATUS_BAR_HELP "Print"
   EXECUTE "print -dialog"
END

MENU_ITEM "About_item"
   LABEL "&About"
   STATUS_BAR_HELP "About"
   EXECUTE "about"
END