home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / textual / stronged / !StrongED_BaseMode < prev    next >
Encoding:
Text File  |  1996-08-27  |  6.5 KB  |  342 lines

  1.  
  2. # Description of the "Base" mode
  3. # This is the mode that lies under any other mode. This file should not be
  4. # renamed. If it is, StrongED will get seriously confused and won't start..
  5. # There shouldn't be any errors in it either..
  6.  
  7. PrintHead    <tmp$path>.<tmp$leaf>|i|i<Sys$Date> <Sys$Time>|m
  8. PrintFoot    |m|i---- <tmp$page> ----
  9.  
  10. Bitmap        System
  11.  
  12. WriteProtect
  13.     ;**.old.**
  14. End
  15.  
  16. Search
  17.     _Indent        {" "|"\t"}
  18.     _MarkWord    {AlphaNum|"_"}+ | {Punct}+
  19.     _MoveWord    {A}+
  20.     _DeleteWord    _MoveWord
  21.     _EndSpc        {" "}+ >
  22.     _spct        {" " | "\t"}+
  23.     _Complete    {" "} ((Upper [{Upper}+ | {Lower}+]) | {Lower}+ ["_"]) | {Punct|Digit}+
  24.     _Wrap        ~NL Any @1 {" "} NL ~ NL|"\t"|" "
  25.  
  26.     me        "Guttorm"|("Strong" "ED"|"Help"|"Hlp")
  27.  
  28. #    Expressions for use in the ModeWhen file :
  29. #    Use Dumpmode if, after skipping the first 4 chars, there is no more
  30. #    than 4 "normal" characters, followed by a ctrl char.
  31.     _dump0        '\x09\x0a\x0d\x20-\x7e\x80-\xff'
  32.     _dumptest    {.}4:4 {_dump0}0:4 ~_dump0
  33.  
  34. End
  35.  
  36. Replace
  37.     _rwrap        @01 " "
  38. End
  39.  
  40. KeyList SearchReplace
  41.     ^A        Select(Advanced)
  42.     ^L        Select(Line)
  43.     ^C        Select(Case)
  44.     ⇧F4        Select(Old)
  45.     ^N        Select(Count)
  46.     ^S        Select(Scope)
  47.     RETURN        Select(GO)
  48.     PgUp        History(older)
  49.     PgDown        History(newer)
  50.     F1        MenuToWindow HelpString("StrongED.advancedsyntax")
  51. End
  52.  
  53. KeyList LoF_dbox
  54.     ^A        Select(Advanced)
  55.     ^L        Select(Line)
  56.     ^C        Select(Case)
  57.     F2        Select(Old)
  58.     ^D        Select(Display)
  59.     ^S        Select(Search)
  60.     Return        Select(GO)
  61.     PgUp        History(older)
  62.     PgDown        History(newer)
  63. End
  64.  
  65. KeyList Interactive
  66.     ^C        Select(Case)
  67.     F4        Select(Old)
  68.     Down        Select(Next)
  69.     Up        Select(Prev)
  70.     PgUp        Select(Old)
  71.     PgDown        Adjust(Old)
  72. End
  73.  
  74. KeyList SaveBox
  75.     Return        Select(Save)
  76.     ^Q        Select(Kill)
  77.     ^S        Select(Selection)
  78.     ^A        Select(ASCII)
  79.     F3        History(older)
  80.     ⇧F3        History(older)
  81.     PgUp        History(older)
  82.     PgDown        History(newer)
  83. End
  84.  
  85. KeyList WhatNext
  86.     Down        Select(Next)
  87.     ^N        Select(Next)
  88.     Return        Select(Replace)
  89.     ^R        Select(Replace)
  90.     ^A        Select(All)
  91.     F8        Select(Undo)
  92.     ^F8        Select(Redo)
  93. End
  94.  
  95. KeyList Print
  96.     ^F        Select(HeaderFooter)
  97.     Return        Select(GO)
  98. End
  99.  
  100. #----------------------------------
  101.  
  102. KeyList CopyCursor
  103.     ESC        CopyCursor_Off
  104.     Copy        CopyFromCC
  105.     ⇧Copy        CopyCursor_Off
  106.     Left        CopyCursor_Left
  107.     Right        CopyCursor_Right
  108.     Up        CopyCursor_Up
  109.     Down        CopyCursor_Down
  110.     ⇧Left        CaretLeft
  111.     ⇧Right        CaretRight
  112.     ⇧Up        CaretUp
  113.     ⇧Down        CaretDown
  114.     Return        CopyCursor_Off NewLine
  115. End
  116.  
  117. KeyList Global
  118.     ^⇧F9        dbox_Chars
  119.     ^F1 1        GotoMark (1)
  120.     ^F2 1        GotoMark (2)
  121.     ^F3 1        GotoMark (3)
  122.     ^F4 1        GotoMark (4)
  123.     ⇧F5 1        GotoBlock_Start
  124.     ⇧F5 2        GotoBlock_End
  125.     ^⇧H        HideAll
  126.     ^L        ListOfWindows
  127.     ^W        Complete(_Complete) ;
  128. #    ^W        WordToBuffer   ; These three are used to copy text to writable fields in dboxes.
  129.     F7        BlockToBuffer  ; They have no meaning if no writable field has caret.
  130.     F8        ClipToBuffer   ;
  131.     F11        CreateText
  132. #    ^⇧F11        MouseToBuffer
  133.     ^⇧Tab        SetDir
  134.     ⇧Up        NextWindow
  135.     ⇧Down        PreviousWindow
  136. End
  137.  
  138. KeyList
  139.     ESC        BlockMark_ESC
  140.     F2        dbox_ListOfFound
  141.     F3        dbox_SaveText
  142.     F4        dbox_Interactive
  143.     F5        dbox_GotoLine
  144. #    F6        BlockMark_Standard
  145.     F6        BlockMark_Continous
  146.     F7        BlockCopy
  147.     F8        Undo
  148.     F9        Playback
  149.  
  150. #    ⇧F3        SaveBlock
  151.     ⇧F4        dbox_Replace
  152. #    ⇧F5        GotoBlock
  153.     ⇧F6        BlockClear
  154.     ⇧F7        BlockMove
  155.     ⇧F8        BlockDelete
  156.     ⇧F9        Learn
  157.  
  158.     ^F5        InsertCtrl
  159.     ^F6        MarkText
  160.     ^F7        LoseCaret
  161.     ^F8        Redo
  162.  
  163.     ^F1 1        SetMark(5) GotoMark (1)
  164.     ^F2 1        SetMark(5) GotoMark (2)
  165.     ^F3 1        SetMark(5) GotoMark (3)
  166.     ^F4 1        SetMark(5) GotoMark (4)
  167.     ^F1 2        GotoMark(5)
  168.     ^F2 2        GotoMark(5)
  169.     ^F3 2        GotoMark(5)
  170.     ^F4 2        GotoMark(5)
  171.  
  172.     ^⇧F1 1        SetMark (1)
  173.     ^⇧F2 1        SetMark (2)
  174.     ^⇧F3 1        SetMark (3)
  175.     ^⇧F4 1        SetMark (4)
  176.  
  177.     ^⇧F1 2        ClearMark (1)
  178.     ^⇧F2 2        ClearMark (2)
  179.     ^⇧F3 2        ClearMark (3)
  180.     ^⇧F4 2        ClearMark (4)
  181.  
  182. #    ^A 1        MarkChar
  183.     ^A 1        MarkWord
  184.     ^A 2        MarkLine
  185.     ^A 3        MarkText
  186.     ^⇧B        ToggleIndent
  187.     ^C        BlockCopy
  188. #    ^⇧F11        Debug
  189.     ^⇧F11        MinimizeModes
  190.     ^D,^D        DateAndTime ("%DY.%MN.%YR")
  191.     ^D,^T        DateAndTime ("%24:%MI")
  192.     ^D,^W        DateAndTime ("%WK")
  193.  
  194.     ^F        ListOfWord (Text,Whole,NoLine,NoCase)
  195.     ^⇧F        ListOfWord (All,Whole,NoLine,NoCase)
  196.     ^H        HideView
  197.     ^J        LowercaseChar
  198.     ^N        FindNext
  199.     ^P        PreviousMessage
  200.  
  201.     ^Q        KillView
  202.     ^⇧Q        KillStrongED
  203.     ^R        Pop
  204.     ^⇧R        PopAll
  205.     ^S        SwapcaseChar
  206.     ^T        ViewToTop
  207. #    ^T        Transpose(-2)
  208.     ^U        UppercaseChar
  209.     ^V        BlockMove
  210.     ^W,^C        CreateView
  211.     ^W,^V        SplitViewVert
  212.     ^W,^H        SplitViewHor
  213.     ^W,^F        FullView
  214.     ^W,^S        ScaleView
  215.     ^X        BlockDelete
  216.     ^Z        BlockClear
  217.  
  218.     Tab        Tab
  219.     ⇧Tab        ToggleTabLine
  220. #    ^Tab        CycleTabkey
  221.     Copy        DeleteRight
  222.     ⇧Copy        CopyCursor_On
  223.     ^Copy        DeleteLine
  224.     ^⇧Copy 1    MarkToEnd_tl
  225.     ^⇧Copy 2    BlockDelete
  226.     Print        Print
  227.     ⇧Print        dbox_Print
  228.     Delete        DeleteLeft
  229.     ⇧Delete        DeleteWordRight
  230.     ^Delete        CB_Copy BlockDelete
  231.     Backspace    DeleteLeft
  232.     ⇧Backspace    DeleteWordLeft
  233.     Insert        ToggleInsert
  234.     ^Insert        CB_Copy
  235.     ⇧Insert        CB_Paste
  236.     Home        StartOfText
  237.     Return        NewLine
  238.  
  239.     Left        CaretLeft
  240.     ⇧Left        WordLeft
  241.     ^Left 1        StartOfWLine
  242.     ^Left 2        StartOfTLine
  243.     ^⇧Left 1    MarkToStart_tl
  244.     ^⇧Left 2    BlockDelete
  245.  
  246.     Right        CaretRight
  247.     ⇧Right        WordRight
  248.     ^Right 1    EndOfWLine
  249.     ^Right 2    EndOfTLine
  250.     ^⇧Right 1    MarkToEnd_tl
  251.     ^⇧Right 2    BlockDelete
  252.  
  253.     Up        CaretUp
  254.     ^Up        StartOftext
  255.     ^⇧Up        LineUp
  256.     Down        CaretDown
  257.     ^Down        EndOfText
  258.     ^⇧Down        LineDown
  259.  
  260.     PgUp        PageUp
  261.     PgDown        PageDown
  262.  
  263.     ^⇧Z        CB_Purge
  264.     ^⇧X        CB_Copy  BlockDelete
  265.     ^⇧C        CB_Copy  BlockClear
  266.     ^⇧V        CB_Paste
  267.  
  268. End
  269.  
  270. Functions
  271.  
  272.     Key    ⇧F1
  273.     Icon    help
  274.     Help    Select gives help on StrongED. Adjust looks up word under caret.|MShift-Select gives info on file and Shift-Adjust gives info on char under caret.
  275.     Select    HelpStrongED
  276.  
  277.     Key    F1
  278.     Adjust    HelpWord
  279.  
  280.     Key    ^I
  281.     ⇧Select    dbox_FileInfo
  282.  
  283.     ⇧Adjust    CharInfo
  284.  
  285.     Key    ^L
  286.     Icon    Lot
  287.     Help    Select opens/closes the List of Windows window.
  288.     Select    ListOfWindows
  289.  
  290.     Icon    opton
  291.     Help    Select opens/closes the Global Choices window,|Mand Adjust opens/closes the Mode Choices window.
  292.     Select    dbox_GlobalChoices
  293.  
  294.     Adjust    dbox_ModeChoices
  295.  
  296.     Icon    Save
  297.     Help    Saves the text
  298.     Select    dbox_SaveText
  299.  
  300.     Adjust    SaveRun("")
  301.  
  302. #    Key    ^W,^F
  303. #    Select    Fullview
  304.  
  305. #    Menu    Tab to spaces
  306. #    Help    Replaces occurrences of the TAB character with spaces.
  307. #    Select    Untab
  308. #
  309. #    Menu    Spaces to Tab
  310. #    Help    Replaces multiple spaces with TAB characters.|MOnly handles spaces at the start of the line.
  311. #    Select    TabIt
  312.  
  313.     Menu    List me
  314.     Select    ListOfFound (me,ALL,Align,NoLine,NoCase)
  315.  
  316.     Menu    Trim lines
  317.     Help    Removes spaces from the end of lines
  318.     Select    Replace (_EndSpc,"",,NoLine)
  319.  
  320.     Menu    Left Adjust
  321.     Help    Removes spaces from the start of each line
  322.     Select    Replace (_spct,"",,Line)
  323.  
  324.     Menu    Wrap
  325.     Help    Join lines together
  326.     Select    Replace (_wrap,_rwrap,,Noline)
  327.  
  328.     Menu    Unwrap
  329.     Help    Split lines
  330.     Select    Unwrap
  331.  
  332. End
  333.  
  334.  
  335. Shortcuts
  336.     $me    Guttorm Vik\n\iNordre Steinkjellersmauet 6B\n\i5003 Bergen\n\iNorway\n\n\iguttorvi@login.eunet.no
  337.     $@    guttorvi@login.eunet.no
  338.     $~    http://login.eunet.no/~guttorvi
  339.     SA    StrongARM
  340. End
  341.  
  342.