LiveCode Forums.

Code: Select all

on keydown pLetter
   if pLetter = " " then
      doMyScript
   end if
end keydown

Code: Select all

on keyDown theKey
   if theKey is space then
      put "You pressed space"    
   end if
   pass keydown
end keyDown

Code: Select all

on rawKeyDown theRawKey
   if theRawKey is 32 then
      put "Space bar pressed"
   end if
   pass rawkeydown
end rawKeyDown

Code: Select all

local sScrolling
local sInitialMouseX, sInitialMouseY
local sInitialHScroll, sInitialVScroll

on keyDown theKey
     answer theKey
     if theKey is space then
          //answer "SPACE SPACE SPACE"          
          put true into sScrolling
     end if
     pass keydown
end keyDown

on keyUp theKey
     if theKey is space then
          put false into sScrolling
     end if
end keyUp

on mouseDown
    ## Allow the group to scroll
    ##put true into sScrolling

    ## Record the initial touch position
    put item 1 of the mouseLoc into sInitialMouseX
    put item 2 of the mouseLoc into sInitialMouseY

    ## Record the initial hScroll and vScroll
    put the vScroll of me into sInitialVScroll
    put the hScroll of me into sInitialHScroll
end mouseDown

on mouseMove mouseX, mouseY
    ## If the screen is being touched then
    if sScrolling then
        ## Calculate how far the touch has moved since it started
        put mouseY - sInitialMouseY into tVChange
        put mouseX- sInitialMouseX into tHChange

        ## Reset the hScroll and vScroll to follow the touch
        lock screen
        set the vScroll of me to sInitialVScroll - tVChange
        set the hScroll of me to sInitialHScroll - tHChange
        unlock screen
    end if
end mouseMove