home *** CD-ROM | disk | FTP | other *** search
/ Painter Bear's Language Bridge — Italian / Bridge_ponte_itialian.iso / pc / xtras / -pmatic.dir / Internal_13_docs.ls < prev    next >
Encoding:
Text File  |  1999-09-22  |  1.4 KB  |  46 lines
  1. on mouseUp
  2.   global gMonoFont, gPropFont, gCanPrint
  3.   if gCanPrint = 0 then
  4.     alert("The PrintOMatic Xtra is not installed. Printing is disabled.")
  5.     exit
  6.   end if
  7.   set doc to new(xtra("PrintOMatic"))
  8.   if not objectp(doc) then
  9.     alert("There is no currently selected printer. Printing features are disabled.")
  10.   else
  11.     cursor(4)
  12.     setDocumentName(doc, "PrintOMatic Xtra Documentation")
  13.     setMargins(doc, rect(72, 90, 72, 72))
  14.     set w to getPageWidth(doc)
  15.     set h to getPageHeight(doc)
  16.     setPageNumSymbol(doc, "√û")
  17.     setTextFont(doc, gPropFont)
  18.     setTextSize(doc, 10)
  19.     setTextStyle(doc, "normal,italic")
  20.     setTextJust(doc, "left")
  21.     drawText(doc, "PrintOMatic Xtra Documentation", point(0, -15))
  22.     setTextJust(doc, "right")
  23.     drawText(doc, "printed" && the date, point(w, -15))
  24.     drawLine(doc, point(0, -12), point(w, -12))
  25.     drawText(doc, "page √û", point(w, h + 20))
  26.     newPage(doc)
  27.     setGray(doc, 0)
  28.     drawRect(doc, rect(-2, -24, w + 5, 2), 1)
  29.     setGray(doc, 100)
  30.     newFrame(doc, rect(0, 0, w, h), 0)
  31.     setTextJust(doc, "left")
  32.     append(doc, member "doctitle", member "version", RETURN)
  33.     append(doc, member "illustration", RETURN, castLib "docs")
  34.     cursor(-1)
  35.     if word 1 of the text of cast the castNum of sprite the clickOn = "Preview" then
  36.       printPreview(doc)
  37.     else
  38.       if doJobSetup(doc) = 1 then
  39.         updateStage()
  40.         print(doc)
  41.       end if
  42.     end if
  43.     set doc to 0
  44.   end if
  45. end
  46.