home *** CD-ROM | disk | FTP | other *** search
/ Painter Bear's Language Bridge — Italian / Bridge_ponte_itialian.iso / pc / xtras / -pmatic.dir / Internal_17.ls < prev    next >
Encoding:
Text File  |  1999-09-22  |  759 b   |  25 lines
  1. on printDocumentation
  2.   global gMonoFont, gPropFont
  3.   set doc to new(xtra("PrintOMatic"))
  4.   if not objectp(doc) then
  5.     alert("There is no currently selected printer. Printing features are disabled.")
  6.   else
  7.     cursor(4)
  8.     setDocumentName(doc, "PrintOMatic Xtra Documentation")
  9.     setMargins(doc, rect(72, 90, 72, 72))
  10.     set w to getPageWidth(doc)
  11.     set h to getPageHeight(doc)
  12.     newPage(doc)
  13.     setGray(doc, 0)
  14.     drawRect(doc, rect(0, -22, w + 1, 0), 1)
  15.     setGray(doc, 100)
  16.     newFrame(doc, rect(0, 0, w, h), 0)
  17.     setTextJust(doc, "left")
  18.     append(doc, member "doctitle", member "version", RETURN)
  19.     append(doc, member "illustration", RETURN, castLib "documentation")
  20.     cursor(-1)
  21.     printPreview(doc)
  22.     set doc to 0
  23.   end if
  24. end
  25.