I am working in D7.02, I am making a Keyboard on a touch screen all is working but the 
backspace.
Can someone check my coding to see what is wrong. 

Backspace Button

property pUpMem, pDownMem, pSprite

on beginSprite me
  pSprite = sprite(me.spriteNum)
  pUpMem = pSprite.member
  pDownMem = member(pUpMem.memberNum -1)
end

on mouseDown me
  pSprite.member = pDownMem
end

on mouseUp me
  pSprite.member = pUpMem
end mouseUp

on mouseUpOutside
  pSprite.member = pUpMem
end mouseUpOutside


sendCharacter

property pMyCharacter, pDisplaySprite

on getPropertyDescriptionList me
  set pdlist to [:]
  addprop pdlist, #pMyCharacter, [#comment:"Which character?", #format:#string, 
#default:"1"]
  addprop pdlist, #pDisplaySprite, [#comment:"Which spriteNum for display?", 
#format:#integer, #default:18]
  return pdlist
end getPropertyDescriptionList

on mouseUp me
  sendSprite(pDisplaySprite, #acceptInput, pMyCharacter)
end mouseUp



Fred Westermeyer
Slot Graphics
[EMAIL PROTECTED]
Grand Casino Biloxi
265 Beach Boulevard
Biloxi, MS 39530
1-800-WIN-2-WIN ext.1507


[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi  To post messages to the list,
email [EMAIL PROTECTED]  (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo.  Thanks!]

Reply via email to