home *** CD-ROM | disk | FTP | other *** search
/ PCMania 14 / Pcmania_Ep2_14_CD-ART_Futura_2000.iso / Datos / Expo.dir / 00029.ls < prev    next >
Encoding:
Text File  |  2000-11-15  |  806 b   |  33 lines
  1. on mouseDown me
  2.   global nombre
  3.   doc = new(xtra("PrintOMatic"))
  4.   register(xtra("PrintOMatic"), "PMAT161-508-06224")
  5.   if not objectp(doc) then
  6.     alert("No ha sido posible llevar a cabo la impresi├│n. Por favor, revise su impresora")
  7.     exit
  8.   end if
  9.   setDocumentName(doc, "ArtFutura 2000")
  10.   setTextStyle(doc, "plain")
  11.   setTextFont(doc, "Courier New")
  12.   setTextSize(doc, 9)
  13.   append(doc, member(the member of sprite 8).text)
  14.   if doJobSetup(doc) then
  15.     print(doc)
  16.   end if
  17.   doc = 0
  18. end
  19.  
  20. on mouseEnter me
  21.   spr = me.spriteNum
  22.   nom = member(the member of sprite spr).name
  23.   set the member of sprite spr to nom && "on"
  24.   updateStage()
  25. end
  26.  
  27. on mouseLeave me
  28.   spr = me.spriteNum
  29.   nom = word 1 of the name of member the member of sprite spr
  30.   set the member of sprite spr to nom
  31.   updateStage()
  32. end
  33.