Changeset 3055

Timestamp:

Jun 26, 2018, 8:12:33 PM (7 years ago)

Author:

Andreas Schnellbacher

Message:

• Re-added definition for DupMark. That command is used as callback by drag and drop. It was replaced by easier defs for the menu actions. That re-enabled drag and drop of text.

File:

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

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

@@ -2257 +2257 @@
    call pfill_mark( key)
 
+; ---------------------------------------------------------------------------
+; This is a callback command used by drag & drop of a marked area.
+defc DupMark
+   Type = upcase( arg(1))
+   if Type = 'M' then        -- M = move
+      call NextCmdAltersText()
+      call pmove_mark()
+   elseif Type = 'C' then    -- C = copy
+      call NextCmdAltersText()
+      if marktype() then
+         call pcopy_mark()
+      else                   -- If no mark, look in Shared Text buffer
+         'GetSharBuff'       -- See clipbrd.e for details
+      endif
+   elseif Type = 'O' then    -- O = overlay
+      call NextCmdAltersText()
+      if marktype() then
+         call pcommon_adjust_overlay( 'O')
+      else                   -- If no mark, look in Shared Text buffer
+         'GetSharBuff O'     -- See clipbrd.e for details
+      endif
+   elseif Type = 'A' then    -- A = adjust
+      call NextCmdAltersText()
+      call pcommon_adjust_overlay( 'A')
+   elseif Type = 'U' then    -- U = unmark
+      unmark
+      'ClearSharBuff'
+   elseif Type = 'U2' then   -- U2 = unmark w/o clearing buffer, for drag/drop
+      unmark
+   elseif Type = 'D' then    -- D = delete mark
+      'Copy2DMBuff'          -- DMBuff = delete-mark buffer. See clipbrd.e for details.
+      call NextCmdAltersText()
+      call pdelete_mark()
+      'ClearSharBuff'
+   elseif Type = 'D2' then   -- D2 = delete mark w/o touching buffers, for drag/drop
+      call NextCmdAltersText()
+      call pdelete_mark()
+   elseif Type = 'P' then    -- P = print marked area
+      call checkmark()       -- verify there is a marked area,
+      'Print'                -- then print it.
+   endif
+
+; ---------------------------------------------------------------------------
+
 defc TypeFrameChars
    call NextCmdAltersText()