home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 February / netCD41.iso / pc / IMAGES.CST / 00238.ls < prev    next >
Encoding:
Text File  |  1997-12-08  |  1.8 KB  |  56 lines
  1. on mouseDown
  2.   puppetsound 2,"click"
  3.   updatestage
  4.   cursor 4
  5.   puppetsprite the clickon, FALSE
  6.   global gsort1,gacno1,gacname1,gtype1,gcheck1
  7.   global gosort1,goacno1,goacname1,gotype1,gocheck1
  8.   global gosort2,goacno2,goacname2,gotype2,gocheck2
  9.   global gosort3,goacno3,goacname3,gotype3,gocheck3
  10.   global gosort4,goacno4,goacname4,gotype4,gocheck4
  11.   
  12.   put the text of member "sort1" into gsort1
  13.   put the text of member "osort1" into gosort1
  14.   put the text of member "osort2" into gosort2
  15.   put the text of member "osort3" into gosort3
  16.   put the text of member "osort4" into gosort4
  17.   
  18.   put the text of member "acno1" into gacno1
  19.   put the text of member "oacno1" into goacno1
  20.   put the text of member "oacno2" into goacno2
  21.   put the text of member "oacno3" into goacno3
  22.   put the text of member "oacno4" into goacno4
  23.   
  24.   put the text of member "acname1" into gacname1
  25.   put the text of member "oacname1" into goacname1
  26.   put the text of member "oacname2" into goacname2
  27.   put the text of member "oacname3" into goacname3
  28.   put the text of member "oacname4" into goacname4
  29.   
  30.   put the text of member "type1" into gtype1
  31.   put the text of member "otype1" into gotype1
  32.   put the text of member "otype2" into gotype2
  33.   put the text of member "otype3" into gotype3
  34.   put the text of member "otype4" into gotype4
  35.   
  36.   set gcheck1 to FALSE
  37.   set gocheck1 to FALSE
  38.   set gocheck2 to FALSE
  39.   set gocheck3 to FALSE
  40.   set gocheck4 to FALSE
  41.   
  42.   if the hilite of member "check1"= TRUE then set gcheck1 to TRUE
  43.   if the hilite of member "ocheck1"= TRUE then set gocheck1 to TRUE
  44.   if the hilite of member "ocheck2"= TRUE then set gocheck2 to TRUE
  45.   if the hilite of member "ocheck3"= TRUE then set gocheck3 to TRUE
  46.   if the hilite of member "ocheck4"= TRUE then set gocheck4 to TRUE
  47.   printform
  48.   
  49.   
  50.   
  51.   
  52.   
  53.   
  54.   
  55.  
  56. end