CD-ROM Magazine 28 Bonus/CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin/data/shared.dir/03015_Script_CURSORS

Text File | 1996-06-21 | 1KB | 31 lines

-- -----------------------------------------------------------
-- Handler defineCursor define cursors that can be used
-- for both PCs and MACs

on defineCursors
  global fingerCursor, upCursor, downCursor, rightCursor, leftCursor, magnifyCursor,moveCursor, twoFingerCursor, cropCursor

  set fingerCursor = [the number of cast "fingerCursor", the number of cast "fingerMask"]
  set upCursor = [the number of cast "upCursor", the number of cast "upMask"]
  set downCursor = [the number of cast "downCursor", the number of cast "downMask"]
  set rightCursor = [the number of cast "rightCursor", the number of cast "rightMask"]
  set leftCursor = [the number of cast "leftCursor", the number of cast "leftMask"]
  set magnifyCursor = [the number of cast "magnifyCursor", the number of cast "magnifyMask"]
  set twoFingerCursor = [the number of cast "twoFingerCursor", the number of cast "twoFingerMask"]
  set moveCursor = [the number of cast "moveCursor", the number of cast "moveMask"]
   set cropCursor = [the number of cast "cropCursor", the number of cast "cropMask"]
end

-- -----------------------------------------------------------
-- Handler watchCursor sets the cursor to a watch.

on watchCursor
  cursor 4
end

-- -----------------------------------------------------------
-- Handler normalCursor sets the cursor to the default arrow.

on normalCursor
  cursor -1
end