home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / camera.dxr / 00003_list.ls < prev    next >
Encoding:
Text File  |  1996-12-16  |  405 b   |  14 lines
  1. global gCameraList, newPicName
  2.  
  3. on mouseUp
  4.   set theLine to the mouseLine
  5.   set theField to the mouseCast
  6.   set theWord to word theLine of field "list"
  7.   if (theLine > 0) and (theField > 0) then
  8.     hilite line theLine of field theField
  9.     set newPicName to getAt(gCameraList, theLine)
  10.     set the media of member 11 to the media of member newPicName
  11.     set the palette of member 11 to 604
  12.   end if
  13. end
  14.