home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR4 / TEXMAC.ZIP / MENUS.SPM < prev    next >
Text File  |  1991-11-24  |  12KB  |  440 lines
  1. ; Scribe compatible Sprint Alternative User Interface v. 1.01
  2. ; Copyright (c) 1988 Borland International.  All Rights Reserved.
  3. ; 
  4. ; NAME: Menu.UIM
  5. ; VERSION: 1.
  6. ; DESCRIPTION: Menus and Keystroke macros used by the user
  7. ;    interface, merged from SP & FWII
  8. ; LAST UPDATE: September 9, 1988. RDT: 1/6/91
  9.  
  10. ; -----------------------------------------------------------------
  11. ; Deletions
  12. ; -----------------------------------------------------------------
  13. ; Variables
  14. ; -----------------------------------------------------------------
  15. ; Forward Declarations
  16. ; -----------------------------------------------------------------
  17. ; Automatically-Called Macro Definitions
  18. ; -----------------------------------------------------------------
  19. ; General Macros
  20. ; -----------------------------------------------------------------
  21. ; Menus
  22.  
  23. PrintMenu : WPPrintMenu
  24.  
  25. FormatMenu : ScribeFormatMenu
  26.  
  27. AltPrintMenu : TeXDVIMenu
  28.  
  29. AltFormatMenu : TexFormatMenu
  30.  
  31. UIMenu :
  32.     menu "User Interface" {
  33.     "Function Keys"        KeyReMap,
  34.     "Reset Shortcuts"    MacroClear,
  35.     "_",
  36.     "Load"            UIOpen,
  37.     "Save"            UIWriteAs
  38.     }
  39.  
  40. ToneMenu :
  41.     do    {
  42.         infobox "Tone" {
  43.         soundfreq "Pitch\>%d Hz  ",
  44.         sounddur "Length\>%d msec",
  45.         "_",
  46.         "UP\>Higher Pitch",
  47.         "DOWN\>Lower Pitch",
  48.         "LEFT\>Shorter Length",
  49.         "RIGHT  \>Longer Length"
  50.             }
  51.         MenuKey case {
  52.         '^[', abortkey    abort,
  53.         148h    soundfreq + 20->soundfreq        ; up
  54.             if (soundfreq > 2000) (2000->soundfreq),
  55.         14bh    sounddur - 10 ->sounddur        ; left
  56.             if (sounddur < 10) (10->sounddur),
  57.         14dh    sounddur + 10 ->sounddur        ; right
  58.             if (sounddur > 400) (400->sounddur),
  59.         150h    soundfreq - 20->soundfreq        ; down
  60.             if (soundfreq < 20) (20->soundfreq)
  61.             }
  62.         if !keypressed (1 Bell) SetOvlModf
  63.         }
  64.  
  65. CustOptMenu :
  66.     do    {
  67.         menu "Options" {
  68.         EraseSwap   "Preserve Editing Session\>%[YES%:NO%]"
  69.             !EraseSwap->EraseSwap,
  70.         ((swapdelay>>1)&7FFFH)/500 "Background Save Period\>%[   OFF%:%2u Sec%]"
  71.             3 rangeget 60 "Background save period (in seconds)" -> swapdelay
  72.             swapdelay * 1000 -> swapdelay,
  73.         (menudelay/100) "Menu Display Delay\>%[NO DELAY%:%4u%]"
  74.             menudelay/100 rangeget 100
  75.             "Delay before menu display (in tenths of seconds)"
  76.             * 100 -> menudelay,
  77.         (BIGDOS ==16)   "DOS Shell Size\>%[SMALL%:LARGE%]"
  78.             if (BIGDOS == 16) (0->BIGDOS) else (16->BIGDOS)
  79.             SetOvlModf,
  80.         "_",
  81.         overwrite "Insert Mode\>%[INSERT%:OVERWRITE%]" ToggleIns,
  82.         "Tone"        ToneMenu
  83.             }
  84.         SetOvlModf
  85.         }
  86.  
  87. ; ---------- Help Menu Functions ----------
  88. HelpTemplate :
  89. ;    draw
  90. ;    infobox(
  91. ;    "","","","","","","   Legend:","","",
  92. ;    "   Unshifted (edit)",
  93. ;    " ^ Ctrl      (file)",
  94. ;    " + SHIFT     (window)",
  95. ;    " ~ Alt ",
  96. ;    "","","","","","","") (
  97. ;        infobox "Sprint Template" (
  98. ;        "F1      Help       │ Glossary Recall F2",
  99. ;        "^    Correct Bad   │    Save File\>^",
  100. ;        "+    SPELL MENU    │  WINDOW RESIZE\>+",
  101. ;        "~     Thesaurus    │",
  102. ;        "_┼",
  103. ;        "F3  Toggle Select  │      Copy       F4",
  104. ;        "^     Open File    │   Close File\>^",
  105. ;        "+    OPEN WINDOW   │  CLOSE WINDOW\>+",
  106. ;        "_┼",
  107. ;        "F5      Move       │      Paste      F6",
  108. ;        "^     File Back    │    File Fwd\>^",
  109. ;        "+       ZOOM       │   NEXT WINDOW\>+",
  110. ;        "_┼",
  111. ;        "F7   Search Fwd    │      Replace    F8",
  112. ;        "^     Paginate     │      Preview\>^",
  113. ;        "+   SCROLL ALL UP  │  SCROLL ALL DOWN\>+",
  114. ;        "_┼",
  115. ;        "F9   Go to Line    │    Main Menu   F10",
  116. ;        "^     Pick File    │",
  117. ;        "+     CLOSE ALL    │"
  118. ;        )
  119. ;         (0 wait) KeyGet redraw abort)
  120.  
  121. HelpKeyFunction :
  122.     HelpDisk
  123.     int ktmp
  124.     0-> int quit
  125.     do {
  126.         message "\nPress the key you want help on ("
  127.         -abortkey + 27 status "%[Esc%:%27-~+c%] twice to quit): "
  128.         KeyGet -> ktmp = abortkey? (1->quit) : (0->quit)
  129.         draw
  130.         ktmp keyhelp 2 help Q0
  131.         } while(!quit)
  132.  
  133. ; Context Coercion for help
  134. LastHelp :
  135.  
  136. HelpMenu :
  137.     HelpDisk
  138.     menu "Help" {
  139.         "Function Keys" HelpTemplate,
  140.         "Index" 2 help "",
  141.         "Last Help" LastHelp 1 help,
  142.         "Keyboard Help" HelpKeyFunction
  143.         }
  144.  
  145. ThesMenu :
  146.     int t
  147.     if ((0 subchar engine) != 't') {
  148.         status "\nLoading thesaurus..."
  149.         set Q0 "thesaur.eng" NeedDisk
  150.         set engine "thesaur AMERICAN.THS"
  151.         }
  152.     mark {
  153.         if !istoken (r to istoken)
  154.         r past istoken
  155.         copy past istoken QD ; 'original' word
  156.         copy past istoken Q0 ; 'previous' word
  157.         set Q4 Q0            ; initial prev word is same as Q0
  158.         do {
  159.             (128+256+1 runengine past istoken) -> t
  160.             if (t=0) break
  161.             if (t&128) {
  162.                 delete past istoken
  163.                 insert QD
  164.                 r past istoken
  165.                 }
  166.             if (t&256) {
  167.                 delete past istoken
  168.                 insert Q0
  169.                 r past istoken
  170.                 }
  171.             set Q0 Q4
  172.             copy past istoken Q4 ; 'previous' word
  173.             }
  174.         if !t {
  175.             draw message "\nNot in thesaurus."
  176.             }
  177.         }
  178.  
  179. CorrectMenu : menu "Spelling" {
  180.     "Rest of File"        CorrectRest,
  181.     "Paragraph"        CorrectPara,
  182.     "Word"            CorrectWord,
  183.     "Block"            CorrectRegion,
  184.     "_",
  185.     "Last Bad Word"    CorrectLastBad,
  186.     "Every Bad Word"    CorrectAllBad,
  187.     "_",
  188.     AutoCorrect "AutoSpell\>%[OFF%:ON%]"
  189.         if !AutoCorrect (
  190.             0->BadWordPending
  191.             set QE ""
  192.             if !stopped LoadSpeller
  193.             1->AutoCorrect
  194.             )
  195.         else (0->AutoCorrect)
  196.         abort,
  197.     (0 GetDictionary) "Main Dictionary\>" Q0 0 SetDictionary abort,
  198.     (1 GetDictionary) "User Dictionary\>" Q0 1 SetDictionary abort,    
  199.     "_",
  200.     "Thesaurus" ThesMenu
  201.     }
  202.  
  203. DiskDirectory :
  204.     menu "File Manager" {
  205.     "Copy"            FileCopy,
  206.     "Rename-Move"        FileRename,
  207.     "Delete"        FileDelete,
  208.     "_",    ; cd,
  209.     "Set  Directory"        SetCurrentDir,
  210.     "Quick Directory"    set Q0 "" message "\nDir name: " set Q0 call "command /c cdx" Q0,
  211.     "Goto Directory"    DirectoryNew abort,
  212.     "List Directory"    call "command /c Dirmagic"
  213.         }
  214.  
  215. FilesMenu : menu "Files" (
  216.     "Open"        FileOpen,
  217.     "Next"        FileFwd,
  218.     "Previous"    FileBack,
  219.     "Close"        FileClose,
  220.     "Revert to saved" RevertToSaved,
  221.     "Save"        FileSave,
  222.     "Write as ..."    FileWrite,
  223.     "Insert file"    FileInsert,
  224.     "Block write"    RegionWrite,
  225.     "List open files" FilePick,
  226. ;    "Goto directory" DirectoryGoTo,
  227.     "_" cd,
  228.     "Manage Files" DiskDirectory)
  229.  
  230. MacroMenu : menu "Macros" (
  231.     "Enter"            MacroExecute,
  232.     "Assign to key"        KeyAssignMacro,
  233.     "Load from disk"    MacroLoad,
  234.     "Compile current"    MacroRunFile,
  235.     "Misc. Macros"        PickCommandMenu,
  236.     "Key Binding"        KeyReport,
  237.     "Binding report"    KeyReportAll,
  238. ;    "_Key Record",
  239. ;    "Begin"            MacroCollBegin KeyRecordMsg,
  240. ;    "Halt"            MacroCollHalt,
  241. ;    "Do"            MacroCollDo,
  242. ;    "Iterate"        MacroCollRepeat,
  243. ;    "Get  (from disk)"    MacroCollLoad,
  244. ;    "Save (to disk)"    MacroCollSave,
  245.     "_",
  246. ;    "Run DOS Command"    SystemCommand,
  247.     "Value of current char."    CharValue
  248.     )
  249.  
  250. ; interesting history here. early on, gloss was only for text
  251. ; blocks. it was then expanded for key recordings, hence some confusion
  252.  
  253. GlossMenu :
  254.         menu "Glossary" {
  255.         "Recall"            GlossLookup4,
  256.         "Assign to Key"            KeyAssignGloss,
  257.         "_",
  258.         "Define Region"            GlossDefine1,
  259.         "Keyboard Record"        KeyRecordGloss,
  260.         "Erase"                GlossDelete,
  261.         "_",
  262.         "Merge"                GlossMerge,
  263.         "List"                GlossList,
  264.         (set QD QA mark { 
  265.             to QD
  266.             to current = '.'        ; remove extension
  267.             erase toend
  268.             r (past IsAlpha erase toend)    ; remove home directory
  269.             })
  270.         "Glossary\>" QD        GlossChange abort
  271.         }
  272.  
  273. RegionMenu : menu "Region" (
  274.     "Select one end" ToggleSelect,
  275.     "Copy"            BlockCopy,
  276.     "Delete"        BlockDelete,
  277.     "Undelete"        BlockPaste,
  278.     ColMode "Mode: <%[Region%:Column%]>" ToggleColMode,
  279. ;    "Write region to file"    RegionWrite,
  280.     "Go to other end"    swapmark,
  281.     "Re-select"        ReSelect,
  282.     "_",
  283.     "Fence Region"        MatchSelect,
  284.     "Append & Copy"        AppendCopy,
  285.     "Append & Delete"    AppendDelete,
  286.     "Indent 1 tab"        RegionIndent,
  287.     "Outdent 1 tab"        RegionOutdent,
  288.     "EnTab  (Space->Tab)"    RegionEntab,
  289.     "DeTab  (Tab->Space)"    RegionDetab,
  290.     "Wrap Region"        RegionFill,
  291.     "alpha Sort"        SortMenu)
  292.  
  293. ScreenMenu :
  294.     do {
  295.         menu "Screen" {
  296.         (tct 10 = 32) "Paragraph Marks\>%[ON%:OFF%]"
  297.             ((tct 10 = 32) ? 17 : 32)->tct 10,
  298.         (tct 9 = 32) "Tabs\>%[ON%:OFF%]"
  299.             ((tct 9 = 32) ? 16 : 32)->tct 9,
  300.         (tct 32 = 32) "Spaces\>%[ON%:OFF%]"
  301.             ((tct 32 = 32) ? 250 : 32)->tct 32->tct 31,
  302. ;        (tct 28 = 32) "Non-Breaking Spaces\>%[ON%:OFF%]"
  303. ;            ((tct 28 = 32) ? 30 : 32)->tct 28,
  304.         raw "Codes\>%[OFF%:ON%]"
  305.             ++raw if !raw readruler,    ; in case user changed
  306.         "_",
  307.         !statline "Bottom Status Line\>%[ON%:OFF%]"
  308.             (statline ? (0->statline) : (1->statline)),
  309.         "Colors"    SetColors
  310.             }
  311.         }
  312.  
  313. ;may need to set rightmargin here
  314. EditorSetMenu : 
  315. ;    do { ; if I wanted to cycle
  316.     menu "Editor Settings" (
  317.     WordWrap "Wrap mode\>%[Off%;Normal%;TeX%]"
  318.             (WordWrap+1)%3->WordWrap->flag4 abort,
  319.     ALineLength "Line length\>%d"
  320.            ALineLength get "Line length"->ALineLength,
  321.     AutoIndent  "Auto-Indent\>%[Off%:On%]"
  322.             !AutoIndent->AutoIndent,
  323.     overwrite "Overwrite mode  \>%[Ins%:Ovr%]" ToggleIns,
  324.     tabsize "Tab interval\>%d" tabsize get "Tab spacing"->tabsize,
  325.     swapdelay "Swap Delay\>%d" 300 get->swapdelay,
  326.     menudelay "Menu Pop Up Delay\>%d" 30 get->menudelay,
  327.     "_",
  328.         (tct 10 = 32) "Paragraph Marks\>%[On%:Off%]"
  329.             ((tct 10 = 32) ? 17 : 32)->tct 10,
  330.         (tct 9 = 32) "Tabs\>%[On%:Off%]"
  331.             ((tct 9 = 32) ? 16 : 32)->tct 9,
  332.         (tct 32 = 32) "Spaces\>%[On%:Off%]"
  333.             ((tct 32 = 32) ? 250 : 32)->tct 32->tct 31,
  334.         raw "Codes\>%[Off%:On%]"
  335.             ++raw if !raw readruler,    ; in case user changed
  336.         !statline "Bottom Status Line\>%[On%:Off%]"
  337.             (statline ? (0->statline) : (1->statline)),
  338.         "_",
  339.         "Colors"    SetColors)
  340. ;    }
  341.  
  342. WindowsMenu : menu "Windows" (
  343.     "Next window" WindowFwd,
  344.     "Previous window" WindowBack,
  345.     "Split window" WindowOpen,
  346.     "Close window" WindowClose,
  347.      "All Close"          WindowCloseAll,
  348.     "Grow window" WindowResize,
  349.     zoom "%[Z%:Unz%]oom"        WindowZoom,
  350.      "_",
  351.     "Y-Previous PageUp" ScrollPrevUp,
  352.     "V-Previous PageDown" ScrollPrevDown,
  353.      "Up, Scroll All"      WindowUp,    ; confusing terms again
  354.      "Down, Scroll All"     WindowDown,
  355.      "_",
  356.      "Left Scroll"       ScrollLeft,
  357.      "Right Scroll"      ScrollRight)
  358.  
  359. JumpMenu : menu "Jumps" (
  360.     "Line Go to"        LineJump,
  361.     "Go to The Mark"    swapmark,
  362. ;        Mnum "_Current BookMark: %d",
  363.         "_",
  364.     (Mnum+1)%10      "Auto BookMark:   %d" MarkerMark,       ; shows current mark
  365.     (NextMnum+1)%10  "Next Marker:     %d" MarkerFwd,        ; next mark in jump ring
  366.     (NextMnum)%10    "Previous Marker: %d" MarkerBack,
  367.     "Jump to # Mark"    MarkerJump,
  368. ;    "Mark by #"        MarkerSet
  369.     "_",
  370.     "Top of file"        FileStart,
  371.     "Bottom of file"    FileEnd
  372.     )
  373.  
  374. LocateMenu :
  375.        menu "Search & Replace" (
  376.     "Search"    Find,
  377.     "Locate Next"    LocateNext,
  378. ;    "Back Locate"    LocateBack,
  379.     "Incremental Locate"    LocateInc,
  380.     "Auto Locate"    LocateAuto,
  381.     "_",
  382.     "Query Replace"    QueryReplace,
  383.     "Block Replace" ReplaceRegion,
  384. ;    "Fast Replace"   ReplaceAll,
  385.     SearchDirection "_Dir: %[Rev%: FWD%]",
  386.     "Forward"    1->SearchDirection abort,
  387.     "Reverse"    0->SearchDirection abort
  388.         )
  389.  
  390. ShortCutsMenu : menu "Shortcuts" {
  391.     "X- Set Mark"        ToggleSelect,
  392.     "G- Go to other end"    swapmark,
  393.     "C- Copy region"    BlockCopy,
  394.     "D- Delete region"    BlockDelete,
  395.     "U- Undelete"        BlockPaste,
  396.     "_",
  397.     "W- Next Sentence"    SentenceFwd,
  398.     "B- Previous Sentence"    SentenceBack,
  399.     "N- Next paragraph"    ParagraphFwd,
  400.     "P- Previous paragraph" ParagraphBack,
  401.     "Y- Scroll up"        ScrollBack,
  402.     "V- Scroll down"    ScrollFwd,
  403.     "E- End of file"    FileEnd,
  404.     "S- Start of file"    FileStart,
  405.     "F- File Fwd"        FileFwd,
  406.     "R- File Rev"        FileBack,
  407.     "_",
  408.     "T- Transpose words"    WordTranspose,
  409.     "K- Delete to eol"    delete toeol
  410.     }
  411.  
  412. MiscMenu : menu "Miscellaneous" (
  413.     "Wrap paragraph" Reformat,    ; or reformat, ParagraphFill
  414.     "Global Wrap"    FileFill,
  415.     "Display refresh" ScreenCenter,
  416.     "Help"        HelpMenu,
  417. ;    "Alpha Sort"    SortMenu,
  418.     "ASCII Table"    ASCIITable,
  419.     "User Interface"    UIMenu,
  420.     "System command" SystemCommand,
  421.     "Piped Sys. command" PipedCommand,
  422.     "Filter current file "     FIlterCommand)
  423.  
  424. EditMenu : menu "Edit Menu" (
  425.     "Files"            FilesMenu,
  426.     "Region"        RegionMenu,
  427.     "Windows"        WindowsMenu,
  428.     "Jumps"            JumpMenu,
  429.     "Search & Replace"        LocateMenu,
  430.     "Glossary"        GlossMenu,
  431.     "X-Macros & Prog"    MacroMenu,
  432.     "Print"            PrintMenu,
  433.     "Miscellaneous"        MiscMenu,
  434.     "Correct spelling"    CorrectMenu,
  435.     "Editor settings"    EditorSetMenu,
  436.     "_",
  437.     "Text Formatting"    FormatMenu,
  438.     "Quit"            ExitEditor)
  439.  
  440.