Loading ...
Sorry, an error occurred while loading the content.

New Revision of Menu Clip

Expand Messages
  • Sheri
    If you remember, Eric added the current document tab s right-click menu to the ^!Menu command. This revision of the Menu Clip adds support for the DocTab Menu
    Message 1 of 1 , Jun 27, 2002
    • 0 Attachment
      If you remember, Eric added the current document tab's right-click menu to the ^!Menu command. This revision of the Menu Clip adds support for the DocTab Menu and includes
      all fixes made to date.

      This clip can be viewed and copied to the clipboard without broken lines at:

      http://groups.yahoo.com/group/ntb-clips/messages/8718?viscount=-2&expand=1


      Please let me know if you find anything amiss! <g>

      Regards,
      Sheri

      H="Menu"
      ;06-27-02 Incorporated DocTab menu and removed reported Help menu gremlins
      ;06-25-02 A few fixes and minor changes released
      ;06-20-02 Created by Sheri Pierce
      ;
      ;I commented out Eric's commands for the Menu clip in the ClipHelp.clh and added my own.
      ;^!Set %Name%=Menu
      ;^!Set %Param%=^?{Menu command}

      ;^!Clip ~ParamCommand
      ^!ClearVariable %MenuCommand%
      ^!ClearVariable %SubMenuCommand%
      ^!ClearVariable %SubAMenuCommand%
      ^!ClearVariable %LSubMenuCommand%
      ^!Set %MenuCommand%=^?{Command==_DocTab|File|Edit|Search|View|Modify|Document|Favorites|Tools|Help}
      ^!Goto ^%MenuCommand%
      :File
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Close All Documents|Close Document|Exit|Export|New|New Outline|Open|Print|Print All|Printer Setup|Reopen|Save|Save All|Send|Template}
      ^!If ^%SubMenuCommand%="Reopen" ^!Goto ^%SubMenuCommand%
      ^!If ^%SubMenuCommand%="Template" ^!Goto ^%SubMenuCommand%
      ^!Goto StructureCommand
      :Reopen
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_MyFile|Clear List}
      ^!If ^%SubAMenuCommand%="MyFile" Next Else Skip
      ^!Set %SubAMenuCommand%=^?{Type list number and full filename to reopen}
      ^!Goto StructureCommand
      :Template
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Add Header|Edit|New|Open}
      ^!Goto StructureCommand
      :Edit
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Clear All|Copy|Cut|Delete|Paste|Paste New|Redo|Reload|Reload All|Select All|Undo}
      ^!Goto StructureCommand
      :Search
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Count Occurrences|Find|Go to Bookmark|Go to Doc. Tab|Go to Hyperlink|Go to Line|Match Brackets|Quick Find|Replace|Search Again|Search Disk|Search Reverse|Set Bookmark}
      ^!Set %LSubMenuCommand%=^$StrReplace(" ";"_";"^%SubMenuCommand%";No;No)$
      ^!Set %LSubMenuCommand%=^$StrReplace(".";"";"^%LSubMenuCommand%";No;No)$
      ^!If ^%SubMenuCommand%="Go to Bookmark" ^!Goto ^%LSubMenuCommand%
      ^!If ^%SubMenuCommand%="Go to Doc. Tab" ^!Goto ^%LSubMenuCommand%
      ^!If ^%SubMenuCommand%="Set Bookmark" ^!Goto ^%LSubMenuCommand%
      ^!Goto StructureCommand
      :Go_to_Bookmark
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Clear Bookmarks|Marker 0|Marker 1|Marker 2|Marker 3|Marker 4|Marker 5|Marker 6|Marker 7|Marker 8|Marker 9|Next|Previous}
      ^!Goto StructureCommand
      :Go_to_Doc_Tab
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Current|First|Last|Next|Previous}
      ^!Goto StructureCommand
      :Set_Bookmark
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Marker 0|Marker 1|Marker 2|Marker 3|Marker 4|Marker 5|Marker 6|Marker 7|Marker 8|Marker 9}
      ^!Goto StructureCommand
      :View
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Clipbar|Icon in System Tray|Libraries Bar|Line Numbers|Multiple Instances|Nonprinting Text|Options|Printing Options|Ruler|Spell-Checker Options|Stack Documents Tabs|Status Bar|Stay-On-Top|Toolbar}
      ^!If ^%SubMenuCommand%="Clipbar" ^!Goto ^%SubMenuCommand%
      ^!Goto StructureCommand
      :Clipbar
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Hide|MyClipbar|New}
      ^!If ^%SubAMenuCommand%="MyClipbar" ^!Goto ^%SubAMenuCommand%
      ^!Goto StructureCommand
      :MyClipbar
      ^!Set %SubAMenuCommand%=^?{Type Your Clipbar Name}
      ^!Goto StructureCommand
      :Modify
      ^!Set %SubMenuCommand%=^?{^%MenuCommand%==_Alignment|Block|Change HTML Tags|Characters to HTML|Document to HTML|Convert to Ascii Text|Convert to Ansi Text|E-mail|Lines|Spaces|Strip HTML Tags|Text Case}
      ^!Set %LSubMenuCommand%=^$StrReplace(" ";"_";"^%SubMenuCommand%";No;No)$
      ^!Set %LSubMenuCommand%=^$StrReplace(".";"";"^%LSubMenuCommand%";No;No)$
      ^!Goto ^%LSubMenuCommand%
      :Alignment
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Center Align|Justify|Left Align|Right Align}
      ^!Goto StructureCommand
      :Block
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Copy|Cut|Delete|Paste|Sum}
      ^!Goto StructureCommand
      :Change_HTML_Tags
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_To Lower Case|To Upper Case|To XHTML|TO XML}
      ^!Goto StructureCommand
      :Characters_to_HTML
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_All Special Characters|Extended Characters}
      ^!Goto StructureCommand
      :Convert_to_Ascii_Text
      ^!Goto StructureCommand
      :Convert_to_Ansi_Text
      ^!Goto StructureCommand
      :Document_to_HTML
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_No Character Conversion|No Paragraph Tags|With Paragraph Tags}
      ^!Goto StructureCommand
      :E-mail
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Quote Text|Unquote Text}
      ^!Goto StructureCommand
      :Lines
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Adjust Line Breaks|Compress|Indent|Insert Bullets|Join Lines|Number Lines|Reformat Lines|Sort/Ascending|Sort/Descending|Split Lines|Trim Blanks|Unindent}
      ^!Goto StructureCommand
      :Spaces
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Single Space|Single Tab|Tabs to Spaces}
      ^!Goto StructureCommand
      :Strip_HTML_Tags
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Preserve URLs|Remove All Tags}
      ^!Goto StructureCommand
      :Text_Case
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Capitalize|Invert Case|Lower Case|Sentence|Upper Case}
      ^!Goto StructureCommand
      :Document
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Auto Indent|Default Properties|Delete|Disk File Properties|Font|""Insert Date/Time""|Insert Document Name|Insert File|Insert HTML Color|Image|Insert Page Break|Outline Headings|Properties|Read-Only|Rename|Second Window|Use as Paste Board|Word Wrap}
      ^!Set %LSubMenuCommand%=^$StrReplace(" ";"_";"^%SubMenuCommand%";No;No)$
      ^!Set %LSubMenuCommand%=^$StrReplace(".";"";"^%LSubMenuCommand%";No;No)$
      ^!If ^%SubMenuCommand%="Font" ^!Goto ^%LSubMenuCommand%
      ^!If ^%SubMenuCommand%="Outline Headings" ^!Goto ^%LSubMenuCommand%
      ^!Goto StructureCommand
      :Font
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Change Font|Decrease Size|Increase Size}
      ^!Goto StructureCommand
      :Outline_Headings
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Add Heading|Edit Heading|Make Heading|Move First|Move Last|Move Next|Move Previous|Remove Heading|Sort Headings}
      ^!Goto StructureCommand
      :Favorites
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Categories|Organize|MyFavorite}
      ^!Goto ^%SubMenuCommand%
      :Categories
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Delete Categoty|Make Default|Open All|List of Other Favorites|New Category|Rename Category}
      ^!Goto StructureCommand
      :Organize
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Add All Documents|Add Document to Favorites|Add Path Name to Favorites|Go to Favorites}
      ^!Goto StructureCommand
      :MyFavorite
      ^!Set %SubMenuCommand%=^?{Type Your Favorite}
      ^!Goto StructureCommand
      :Tools
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Auto-replace Mode|Auto Scroll|Calculate Expression|Clipbook|Clipbook Properties|Expand Text|Launch Document|Open File at Cursor|Open Link|Other Browser|Quick List|Quick List Properties|Quick Open Links|Spelling|Text Statistics|Thesaurus|Tidy HTML code|Ultima Shell Settings|UltimaShell Autocompletion|View In Browser}
      ^!Set %LSubMenuCommand%=^$StrReplace(" ";"_";"^%SubMenuCommand%";No;No)$
      ^!Set %LSubMenuCommand%=^$StrReplace(".";"";"^%LSubMenuCommand%";No;No)$
      ^!If ^%SubMenuCommand%="Clipbook" ^!Goto ^%LSubMenuCommand%
      ^!If ^%SubMenuCommand%="Clipbook Properties" ^!Goto ^%LSubMenuCommand%
      ^!If ^%SubMenuCommand%="Quick List Properties" ^!Goto ^%LSubMenuCommand%
      ^!Goto StructureCommand
      :Clipbook
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Add from Clipboard|Add New Clip|Clip Editor|Copy Selection|Cut Selection|New Library|Open Clipbook|Open Library|Paste Current Item}
      ^!Goto StructureCommand
      :Clipbook_Properties
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Background Color|Dock Left Side|Dock Right Side|Font|Hide Clipbook|Match Document Font|Show Headers}
      ^!Goto StructureCommand
      :Quick_List_Properties
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand%/^%SubMenuCommand%==_Background Color|Clip Assistant|Disk Files|Documents|Favorites|Font|Show Full Name}
      ^!Goto StructureCommand
      :Help
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_About|Help on Clip Programming|Help Topics|HTML Help|NoteTab Glossary|Readme File|Replace MS Notepad|Restore MS Notepad|Search for Help On|Show Tip of the Day|What's New}
      ^!Goto StructureCommand
      :DocTab
      ^!Set %SubMenuCommand%=^?{(T=C)^%MenuCommand%==_Close|Close All|Copy Name|Delete|Print|Reload|Rename|Save|Save All|Save As|Save Format|Show Icon|Show Tab Tips|Stack Tabs}
      ^!Set %LSubMenuCommand%=^$StrReplace(" ";"_";"^%SubMenuCommand%";No;No)$
      ^!Set %LSubMenuCommand%=^$StrReplace(".";"";"^%LSubMenuCommand%";No;No)$
      ^!If ^%SubMenuCommand%="Save Format" ^!Goto ^%LSubMenuCommand%
      ^%CARET%!Menu ^%SubmenuCommand%^%NL%
      ^!Goto Exit
      :Save_Format
      ^!Set %SubAMenuCommand%=^?{(T=C)^%MenuCommand% -- ^%SubMenuCommand%==_ANSI|ASCII|""Dos/Windows""|Ebcdic|Mac|Original|Unix}
      ^%CARET%!Menu ^%SubmenuCommand%/^%SubAMenuCommand%^%NL%
      ^!Goto Exit
      :StructureCommand
      ^!If ^%SubAMenuCommand%>"" ^!Set %SubAMenuCommand%=/^%SubAMenuCommand%
      ^%CARET%!Menu ^%MenuCommand%/^%SubmenuCommand%^%SubAMenuCommand%^%NL%
      ;end clip
    Your message has been successfully submitted and would be delivered to recipients shortly.