home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / cam31.dxr / 00003_list.ls < prev    next >
Encoding:
Text File  |  1996-12-16  |  534 b   |  16 lines
  1. global gCameraList, newPicName, pictureList, gPath
  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 xcast to getaProp(pictureList, newPicName)
  11.     set the fileName of castLib "picts2" to gPath & xcast
  12.     set the media of member 11 to the media of member newPicName
  13.     set the palette of member 11 to 604
  14.   end if
  15. end
  16.