on beginSprite me
pWhichSprite = sprite(me.spriteNum)
pWhichMember = pWhichSprite.member
pMemberType = pWhichMember.type
end
on keyDown me
if (the commandDown) then
case (TRUE) of
(the commandDown AND the keyPressed = "c") : clipboardCopy me
end case
else
pass
end if
end
on clipboardCopy me
if pMemberType = #text then
if pWhichMember.selectedText.text <> "" then
put pWhichMember.selectedText.text into member("clipboard temp")
copyToClipboard member "clipboard temp"
else
beep
end if
end if
if pMemberType = #field then
if the selStart <> the selEnd then
a = the selStart
b = the selEnd
put char a + 1 to b of the text of member pWhichMember into member("clipboard temp")
copyToClipboard member "clipboard temp"
end if
end if
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA