home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Getstart.dxr / printers_43.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  765 b   |  27 lines
  1. on showPrinterText tag
  2.   set l to the mouseLine
  3.   set printerName to the frameLabel
  4.   case printerName of
  5.     "inkjet":
  6.       set pTag to "ink"
  7.     "laser":
  8.       set pTag to "laser"
  9.     "dot-matrix":
  10.       set pTag to "dot"
  11.   end case
  12.   set itemTag to tag
  13.   set printerInfoCast to "GES" & pTag & itemTag
  14.   set generalInfoCast to "GESGeneral" & itemTag
  15.   put printerInfoCast
  16.   put generalInfoCast
  17.   if the number of member printerInfoCast = -1 then
  18.     set printerInfoCast to "blank dot"
  19.   end if
  20.   if the number of member generalInfoCast = -1 then
  21.     set generalInfoCast to "blank dot"
  22.   end if
  23.   set the member of sprite 21 to member printerInfoCast
  24.   set the member of sprite 22 to member generalInfoCast
  25.   set the member of sprite 23 to member "blank dot"
  26. end
  27.