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 = "a") : selectAll me
end case
else
pass
end if
end
on selectAll me
if pMemberType = #text then
num = member(pWhichMember).text.char.count
set the keyBoardFocusSprite = -1
end if
if pMemberType = #field then
set the keyBoardFocusSprite = -1
hilite member pWhichMember
end if
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA