Multi-Clipboard

[mpmartin7]

Here is a very useful tool that I use all the time. It works similar to Microsofts multi-clipboard, but it doesn't rotate, so you can always be sure that what went in slot 1 will stay in slot 1 until you overwrite it. And it works with non-MS Office apps. You can easily change the size if 12 slots isn't enough. The spyglass calls up a contents viewer.
Toolbar Multi-Clipboard
Trigger Cc 0x1     

Code:

Copy      Help

;/siz 305 60 /ssiz 305 1 /mov 160 -10 /set 8|128|0x400
Clip 1 :ClipToArray 0 * copy.ico
Clip 2 :ClipToArray 1 * copy.ico
Clip 3 :ClipToArray 2 * copy.ico
Clip 4 :ClipToArray 3 * copy.ico
Clip 5 :ClipToArray 4 * copy.ico
Clip 6 :ClipToArray 5 * copy.ico
Clip 7 :ClipToArray 6 * copy.ico
Clip 8 :ClipToArray 7 * copy.ico
Clip 9 :ClipToArray 8 * copy.ico
Clip 10 :ClipToArray 9 * copy.ico
Clip 11 :ClipToArray 10 * copy.ico
Clip 12 :ClipToArray 11 * copy.ico
Close :clo val(_command) * close.ico
-
Paste 1 :ArrayToPaste 0 * paste.ico
Paste 2 :ArrayToPaste 1 * paste.ico
Paste 3 :ArrayToPaste 2 * paste.ico
Paste 4 :ArrayToPaste 3 * paste.ico
Paste 5 :ArrayToPaste 4 * paste.ico
Paste 6 :ArrayToPaste 5 * paste.ico
Paste 7 :ArrayToPaste 6 * paste.ico
Paste 8 :ArrayToPaste 7 * paste.ico
Paste 9 :ArrayToPaste 8 * paste.ico
Paste 10 :ArrayToPaste 9 * paste.ico
Paste 11 :ArrayToPaste 10 * paste.ico
Paste 12 :ArrayToPaste 11 * paste.ico
List MultiClip :mac "List MultiClip" * magnify glass.ico

Function ClipToArray

Code:

Copy      Help

function int'i
// Copy selected text to the ClipArray

int+ ArraySize
str+* ClipArray
if ArraySize = 0
,ArraySize = 12
,ClipArray._new(ArraySize)
ClipArray[i].getsel()
,ClipArray[i].replacerx(" *\r\n$") ;; delete newline at end
ClipArray[i].replacerx("^[ $]*") ;; spaces & $'s at front

Function ArrayToPaste

Code:

Copy      Help

function int'i
str+* ClipArray
key (ClipArray[i])

Macro List MultiClip

Code:

Copy      Help

str dlgMsg
int+ ArraySize
int i
for i 0 ArraySize
,str label.format("[]Clip %2i = " i+1)
,dlgMsg.from(dlgMsg, label, ClipArray[i])
;mes(dlgMsg "Multi-Clip Contents")
ShowText("Clipboard Contents" dlgMsg)