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 / 00011_by specialty.ls < prev    next >
Encoding:
Text File  |  1996-07-23  |  228 b   |  10 lines
  1. on mouseUp
  2.   global restDB, specialtyDEX
  3.   if the hilite of member "by specialty" = 1 then
  4.     doUniqList(specialtyDEX, "SPECIALITY", "specialtyList")
  5.   else
  6.     put EMPTY into field "specialtyList"
  7.   end if
  8.   updateStage()
  9. end
  10.