home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 24 / MacAddict_024_1998_08.iso / Media / Software.dxr / Fields_17_fld.ls < prev    next >
Encoding:
Text File  |  1998-06-04  |  1.0 KB  |  32 lines
  1. on mouseDown
  2.   global gTB
  3.   set the visible of sprite 25 to 1
  4.   set x to doPopMenu(26, the left of sprite the clickOn, the top of sprite the clickOn)
  5.   if x > 0 then
  6.     put line x of field "Fields" into field "fld"
  7.   end if
  8.   if field "fld" = "All Shareware" then
  9.     go("findall")
  10.   end if
  11.   puppetSound(1, "sound4")
  12.   mSetCriteria(gTB, "category", "start", field "fld")
  13.   mSelect(gTB)
  14.   set n to mSelectCount(gTB)
  15.   if n <> 0 then
  16.     put n into field "NumberFound"
  17.     put mGetField(gTB, "section") into field "section"
  18.     put mGetField(gTB, "category") into field "category"
  19.     put mGetField(gTB, "name") into field "name"
  20.     put mGetField(gTB, "filepath") into field "filePath"
  21.     put mGetField(gTB, "version") into field "version"
  22.     put mGetField(gTB, "description") into field "description"
  23.     put mGetField(gTB, "url") into field "url"
  24.     put mGetField(gTB, "contact") into field "contact"
  25.   else
  26.     nothing()
  27.   end if
  28.   put field "description" into field "DummyField"
  29.   showSelection()
  30.   set the scrollTop of member "zlist" to 1
  31. end
  32.