home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00019.ls < prev    next >
Encoding:
Text File  |  1998-03-20  |  712 b   |  25 lines
  1. on idle
  2.   global gArtikelliste
  3.   set the text of member "GPreis1" to chckStr(float(value(the text of member "EPreis1") * value(the text of member "Anzahl1")))
  4.   if the memberNum of sprite 35 = the number of member "emailOption" then
  5.     if the hilite of member "emailOption" = 1 then
  6.       set mylist to getProp(gArtikelliste, value("#Kappemit"))
  7.     else
  8.       set mylist to getProp(gArtikelliste, value("#Kappe"))
  9.     end if
  10.     set the text of member "name1" to getAt(mylist, 1)
  11.     set the text of member "EPreis1" to getAt(mylist, 2)
  12.     updateStage()
  13.   end if
  14. end
  15.  
  16. on exitFrame
  17.   BtROHandler(10)
  18.   BtROHandler(11)
  19.   BtROHandler(12)
  20.   BtROHandler(13)
  21.   BtROHandler(14)
  22.   BtROHandler(40)
  23.   go(the frame)
  24. end
  25.