Changeset 2566 for trunk/src/netlabs/macros/mouse.e

Timestamp:

Dec 30, 2012, 9:37:11 PM (12 years ago)

Author:

Andreas Schnellbacher

Message:

• Renamed FindWord command to FindToken. Added FindWord.
• Added menu item for FindWord.
• Moved mark commands from MOUSE.E to KEYS.E.
• Removed double function for FindMark when no mark exists.
• Changed keys: Alt+W = MarkToken, Alt+Sh+W = MarkWord, Ctrl+W = FindToken, Ctrl+Sh+W = FindWord and Ctrl+Sh+M = FindMark.
• Made 'Using help' menu item work.
• Added comment about bugs of 'xcom l'.

File:

• trunk/src/netlabs/macros/mouse.e (modified) (1 diff)

trunk/src/netlabs/macros/mouse.e ¶

@@ -543 +543 @@
    call register_mousehandler( 1, 'CANCELDRAG', ' ')
    refresh
-
-; ---------------------------------------------------------------------------
-defc markword
-   -- If arg(1) specified and > 0: Set cursor to pos of pointer.
-   if arg(1) then
-      'MH_gotoposition'
-      unmark
-   endif
-   call pmark_word()
-
-; ---------------------------------------------------------------------------
-defc marksentence
-   -- If arg(1) specified and > 0: Set cursor to pos of pointer.
-   if arg(1) then
-      'MH_gotoposition'
-      unmark
-   endif
-   call mark_sentence()
-
-; ---------------------------------------------------------------------------
-defc markparagraph
-   -- If arg(1) specified and > 0: Set cursor to pos of pointer.
-   if arg(1) then
-      'MH_gotoposition'
-      unmark
-   endif
-   call mark_paragraph()
-
-; ---------------------------------------------------------------------------
-defc extendsentence
-   call mark_through_next_sentence()
-
-; ---------------------------------------------------------------------------
-defc extendparagraph
-   call mark_through_next_paragraph()
-
-; ---------------------------------------------------------------------------
-defc marktoken
-   -- If arg(1) specified and > 0: Set cursor to pos of pointer.
-   if arg(1) then
-      'MH_gotoposition'
-   endif
-;   if marktype() <> '' then
-;      sayerror -279  -- 'Text already marked'
-;      return
-;   endif
-   if find_token( startcol, endcol) then
-      getfileid fid
-compile if WORD_MARK_TYPE = 'CHAR'
-      call pset_mark(.line, .line, startcol, endcol, 'CHAR', fid)
-compile else
-      call pset_mark(.line, .line, startcol, endcol, 'BLOCK', fid)
-compile endif
-      'Copy2SharBuff'       /* Copy mark to shared text buffer */
-   endif
-
-; Moved defc findword to LOCATE.E
 
 ; ---------------------------------------------------------------------------