home *** CD-ROM | disk | FTP | other *** search
/ Photography Workshop / PhotoWorkShop.iso / pc / Content / Lens / Lens.cst / 00001_Lens Script.ls next >
Encoding:
Text File  |  2002-04-11  |  949 b   |  37 lines
  1. property ancestor
  2. property LensButtons
  3. property currentLens
  4.  
  5. on Birth me, thePageChannels, thePageName, thePageInfo
  6.   set the ancestor of me to Birth( script "Master Page Template", thePageChannels, thePageName, thePageInfo, true, true )
  7.   
  8.   set the subject of me to "L3"
  9.   set LensButtons to FindButton( me, "LensButtons" )
  10.   TurnRadioButtonOn( LensButtons, GetCameraValue( #Lens ), false )
  11.   set currentLens to GetCameraValue( #Lens )
  12.   
  13.   Show me
  14.   return me
  15. end
  16.  
  17. on CameraChanged me, theElementID, theNewValue
  18.   if theElementID = #Lens then
  19.     set currentLens to GetCameraValue( #Lens )
  20.     TurnRadioButtonOn( LensButtons, currentLens )
  21.   end if
  22.   Show me
  23. end
  24.  
  25. on BuildImageName me
  26.   set theImageName to the subject of me & "_" & currentLens
  27.   --put "ImageName" && theImageName
  28.   return theImageName
  29. End
  30.  
  31. on BuildGraphicName me
  32.   set theGraphicName to "Cone_" & currentLens
  33.   --put "GraphicName" && theGraphicName
  34.   return theGraphicName
  35. End
  36.  
  37.