home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 24 / MacAddict_024_1998_08.iso / Media / Software.dxr / Internal_17.ls < prev    next >
Encoding:
Text File  |  1998-06-04  |  847 b   |  30 lines
  1. on exitFrame
  2.   openV12DB()
  3.   newSortOrder()
  4.   showSelection()
  5.   updateDisplay()
  6. end
  7.  
  8. on newSortOrder
  9.   global gTB
  10.   mSetCriteria(gTB, "category", "start", field "fld")
  11.   mSelect(gTB)
  12.   set n to mSelectCount(gTB)
  13.   if n <> 0 then
  14.     put n into field "NumberFound"
  15.     put mGetField(gTB, "section") into field "section"
  16.     put mGetField(gTB, "category") into field "category"
  17.     put mGetField(gTB, "name") into field "name"
  18.     put mGetField(gTB, "filepath") into field "filePath"
  19.     put mGetField(gTB, "version") into field "version"
  20.     put mGetField(gTB, "description") into field "description"
  21.     put mGetField(gTB, "url") into field "url"
  22.     put mGetField(gTB, "contact") into field "contact"
  23.   else
  24.     nothing()
  25.   end if
  26.   put field "description" into field "DummyField"
  27.   showSelection()
  28.   set the scrollTop of member "zlist" to 1
  29. end
  30.