home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / shared.cst / 00042_Script_operateBtnObject < prev    next >
Text File  |  1997-07-24  |  2KB  |  67 lines
  1. --P1:Tool2: operate btn object
  2.  
  3. property pToolRects, pNumOfRects
  4. property pMenuCast
  5. property argClickLocPnt
  6. property pHiliteStartCast
  7. property pHiliteSprite
  8. property pQTVRsteps
  9.  
  10. global gModeManager, gQTVRobj, gActiveQTVRhandler, gActiveFunctionObj
  11. --==============================================================
  12. on mInit me
  13.   
  14.   return (me)
  15.   
  16. end
  17. ----------------------------------------------------------------------------ò
  18. on mSetup me, WhatMenuCast, toolrects, hiliteSprite
  19.   
  20.   
  21. end mSetup
  22. ----------------------------------------------------------------------------ò
  23. on mSetMenuProp me, WhatMenuCast, toolrects, hiliteSprite, ActiveFunctionalty
  24.   
  25.   set pWhatFunctActive = ActiveFunctionalty
  26.   set pMenuCast = WhatMenuCast
  27.   set pToolRects = toolrects
  28.   set pHiliteSprite = hiliteSprite
  29.   set pHiliteStartCast = pMenuCast + 1
  30.   set pNumOfRects = count(pToolRects)
  31.   
  32. end mSetMenuProp
  33. ----------------------------------------------------------------------------ò
  34. on mGetToolMenuCast me
  35.   
  36.   return ( pMenuCast )
  37.   
  38. end mGetToolMenuCast
  39. ----------------------------------------------------------------------------ò
  40. on mButtonClicked me
  41.  
  42.   set ClickLocPnt = the clickloc
  43.   set whatrect = mGetWhatToolRect( me, ClickLocPnt)
  44.   if  (whatrect <> 0 ) then
  45.     if objectP(gActiveFunctionObj) then mOperate( gActiveFunctionObj, whatrect)
  46.   end if
  47.   
  48. end mButtonClicked
  49. ----------------------------------------------------------------------------ò
  50. on mGetWhatToolRect me, argClickedPnt
  51.   
  52.   set whatrect = 1
  53.   set found = #FALSE
  54.   repeat while (found = #FALSE)
  55.     if inside(argClickedPnt, getat(pToolRects,whatrect)) then 
  56.       set found = #TRUE
  57.       set the castnum of sprite pHiliteSprite = pHiliteStartCast + whatrect - 1
  58.       updatestage
  59.     else set whatrect = whatrect + 1
  60.     if (whatrect > pNumOfRects) then set found = #NEVER
  61.   end repeat
  62.   
  63.   if (found = #TRUE) then return( whatrect ) 
  64.   else  return( 0 ) 
  65.   
  66. end mGetWhatToolRect
  67. ----------------------------------------------------------------------------ò