home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / xtras / ffxtras / -ffbench.dir / 00091.ls < prev    next >
Encoding:
Text File  |  1996-03-15  |  350 b   |  13 lines
  1. on mouseUp
  2.   if field "indexExpr" = EMPTY then
  3.     alert("Please enter an index expression.")
  4.     exit
  5.   end if
  6.   if field "indexFile" = EMPTY then
  7.     alert("Please specify an index file to create.")
  8.     exit
  9.   end if
  10.   set theResult to DBCreateIndex(field "indexFile", field "indexExpr", 0, 0)
  11.   alert("Create index result code: " & theResult)
  12. end
  13.