home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / results.dxr / 00022_printer title bar button.ls < prev    next >
Encoding:
Text File  |  2000-01-31  |  1.6 KB  |  54 lines
  1. property ancestor
  2. global gEnvironObj
  3.  
  4. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  5.   if objectp(descendant) then
  6.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  7.   else
  8.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, me)
  9.   end if
  10.   return me
  11. end
  12.  
  13. on performFunction me
  14.   unLoad()
  15.   tell the stage
  16.     playSFX(5)
  17.   end tell
  18.   if not isMemoryAvailable("print the document", 1200, 500) then
  19.     exit
  20.   end if
  21.   doc = new(xtra("PrintOMatic"))
  22.   if not objectp(doc) then
  23.     alert("A problem was encountered while initializing the printer.")
  24.     exit
  25.   end if
  26.   pageW = getPageWidth(doc)
  27.   pageH = getPageHeight(doc)
  28.   TitleMember = the number of member "print title"
  29.   set the textSize of member TitleMember to 14
  30.   member(TitleMember).rect = rect(0, 0, pageW, 0)
  31.   TitleH = member(TitleMember).height
  32.   pgNumSym = numToChar(166)
  33.   setPageNumSymbol(doc, pgNumSym)
  34.   setTextJust(doc, "centered")
  35.   drawText(doc, "page" && pgNumSym, point((pageW / 2) - 18, pageH))
  36.   setTextJust(doc, "left")
  37.   newFrame(doc, rect(0, 0, pageW, TitleH + 18), 0)
  38.   append(doc, member(TitleMember), 0)
  39.   lineV = the textHeight of field TitleMember + 2
  40.   drawLine(doc, point(0, lineV), point(pageW, lineV))
  41.   newPage(doc)
  42.   contentTop = 36
  43.   newFrame(doc, rect(0, contentTop, pageW, pageH - 18), 0)
  44.   setTextStyle(doc, "bold")
  45.   append(doc, field("criteria field") & RETURN & RETURN, 1)
  46.   setTextStyle(doc, "normal")
  47.   append(doc, field("results field"), 1)
  48.   setDocumentName(doc, "Search Results")
  49.   if doJobSetup(doc) then
  50.     print(doc)
  51.   end if
  52.   doc = 0
  53. end
  54.