home *** CD-ROM | disk | FTP | other *** search
/ Photography Workshop / PhotoWorkShop.iso / pc / Content / CLight / CLight.cst / 00001_CLight Script.ls next >
Encoding:
Text File  |  2002-04-11  |  1.1 KB  |  47 lines
  1. property ancestor
  2. property LightButtons
  3. property FilterButtons
  4. property lightID
  5. property filterID
  6.  
  7. on Birth me, theChannelObject, theName, thePageInfo
  8.   set the ancestor of me to Birth( script "Master Page Template", theChannelObject, theName, thePageInfo, true, true )
  9.   
  10.   set lightID to "D"
  11.   set LightButtons to FindButton( me, "Lights" )
  12.   TurnRadioButtonOn( LightButtons, "r_d", false )
  13.   
  14.   set FilterID to "N"
  15.   set FilterButtons to FindButton( me, "Filters" )
  16.   TurnRadioButtonOn( FilterButtons, "r_n", false )
  17.   
  18.   MoveVVF( Point( -50, -5 ), false )
  19.   Show me
  20.   return me
  21. end
  22.  
  23.  
  24. on ChangePage me, theElementID, theValue1, theValue2
  25.   ChangePage( the ancestor of me, theElementID, theValue1, theValue2 )
  26.   case theElementID  of
  27.     #Light:
  28.       set lightID to theValue1
  29.       TurnRadioButtonOn( LightButtons, "r_" & lightID, false )
  30.       show me
  31.       
  32.     #Filter:
  33.       set FilterID to theValue1
  34.       TurnRadioButtonOn( FilterButtons, "r_" & FilterID, false )
  35.       show me
  36.       
  37.   end case
  38. end
  39.  
  40. on BuildImageName me
  41.   set theImageName to "R1_" & lightid & "_" & filterID
  42.   put theImageName
  43.   return theImageName
  44. end
  45.  
  46.  
  47.