home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 11 / boot-disc-1997-07.iso / Media / Util.dxr / 00017_Field_17.txt < prev    next >
Text File  |  1997-05-12  |  1KB  |  36 lines
  1. NextButton
  2. on mouseUp
  3.   global gTB
  4.   set errCode = gItemsTable(mGoNext)
  5.   if (errCode = 0) then
  6.     put gItemsTable(mGetField, "name") into field "theName"
  7.     put gItemsTable(mGetField, "category") into field "theCategory"
  8.     put gItemsTable(mGetField, "description") into field "description"
  9.     put gItemsTable(mGetField, "catalog number") into field "catalog nbr"
  10.     put gItemsTable(mGetField, "price") into field "price"
  11.   else
  12.     beep -- e.g., errCode=4 would mean that we hit the end of the selection
  13.   end if
  14. end mouseUp 
  15.  
  16.  
  17.  
  18.  
  19.  
  20. Prev Button
  21. on mouseUp
  22.   global gItemsTable
  23.   set errCode = gItemsTable(mGoPrevious)
  24.   if (errCode = 0) then
  25.     put gItemsTable(mGetField, "name") into field "theName"
  26.     put gItemsTable(mGetField, "category") into field "theCategory"
  27.     put gItemsTable(mGetField, "description") into field "description"
  28.     put gItemsTable(mGetField, "catalog number") into field "catalog nbr"
  29.     put gItemsTable(mGetField, "price") into field "price"
  30.   else
  31.     beep -- e.g., errCode=3 would mean that we hit the top of the selection
  32.   end if
  33. end mouseUp 
  34.  
  35.  
  36.