Hi Jan,

Clever :-)

Le 14 janv. 08 à 21:40, Jan Schenkel a écrit :

local sKeysDown

on rawKeyDown pKey
  if the keysDown is not sKeysDown then RefreshCursor
  pass rawKeyDown
end rawKeyDown

on rawKeyUp pKey
  if the keysDown is not sKeysDown then RefreshCursor
  pass rawKeyUp
end rawKeyUp

on RefreshCursor
  put the keysDown into sKeysDown
  if the controlKey is down then
    set the defaultCursor to hand
  else
    set the defaultCursor to arrow
  end if
end RefreshCursor

Best regards from Paris,
Eric Chatonet.
----------------------------------------------------------------
Plugins and tutorials for Revolution: http://www.sosmartsoftware.com/
Email: [EMAIL PROTECTED]/
----------------------------------------------------------------


_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to