home *** CD-ROM | disk | FTP | other *** search
/ CD PowerPlay 7 / cdpowerplayissue.iso / sources / shared.dxr / 00461_PrintButton.ls < prev    next >
Encoding:
Text File  |  1994-10-17  |  765 b   |  27 lines
  1. on mouseUp
  2.   userAlert("Printing is not available in the Demonstration version of Sources of Faith.")
  3. end
  4.  
  5. on printTheField
  6.   global fieldNum
  7.   openXLib("Sources of Faith:MMMovies:PrintExt.obj")
  8.   set pObj to PrintXobj(mnew)
  9.   set fieldNum to the castNum of sprite 24
  10.   pObj(mSetText, field fieldNum)
  11.   pObj(mSetBodyFont, "Palatino")
  12.   pObj(mSetBodySize, 18)
  13.   pObj(mSetFooter, "Extract from 'Sources of Faith'")
  14.   pObj(mSetFooterFont, "Helvetica")
  15.   pObj(mSetFooterSize, 12)
  16.   pObj(mSetLeftMargin, 30)
  17.   pObj(mSetTopMargin, 40)
  18.   pObj(mSetRightMargin, 515)
  19.   pObj(mSetBottomMargin, 800)
  20.   set ErrMessage to pObj(mPrint)
  21.   if ErrMessage <> EMPTY then
  22.     userAlert(ErrMessage)
  23.   end if
  24.   put pObj(mdispose)
  25.   closeXLib("Sources of Faith:MMMovies:PrintExt.obj")
  26. end
  27.