home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Component Software / FileFlex 2.0.3.sit / FileFlex 2.0.3 / Unsupported & Undocumented / RESTGUID / RESTGUID.DIR / 00009_by cuisine.ls < prev    next >
Encoding:
Text File  |  1996-07-23  |  215 b   |  10 lines
  1. on mouseUp
  2.   global restDB, cuisineDEX
  3.   if the hilite of member "by cuisine" = 1 then
  4.     doUniqList(cuisineDEX, "CUISINE", "cuisineList")
  5.   else
  6.     put EMPTY into field "cuisineList"
  7.   end if
  8.   updateStage()
  9. end
  10.