home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00057.ls < prev    next >
Encoding:
Text File  |  1998-03-20  |  320 b   |  16 lines
  1. on keyDown
  2.   if the key = RETURN then
  3.     nothing()
  4.     dontPassEvent()
  5.   else
  6.     if the number of chars in field "Anzahl1" < 2 then
  7.       if "1,2,3,4,5,6,7,8,9,0" contains the key then
  8.         pass()
  9.       end if
  10.     end if
  11.     if (the key = BACKSPACE) or (the keyCode = 117) then
  12.       pass()
  13.     end if
  14.   end if
  15. end
  16.