home *** CD-ROM | disk | FTP | other *** search
/ VCD Film, Television & An…on Creation Encyclopedia / mycd.iso / Direct5 / DATA.Z / INFOMIAW.DIR / 00002.ls < prev    next >
Encoding:
Text File  |  1996-03-15  |  915 b   |  42 lines
  1. on initGvars
  2.   global gCurrentScene, gCurrentMovie, gCrntSectnMenu, gGnrlinfoFldS, gGlssryFld, gGlssryFldS, gGlssryFldTxtH, gBeginSlider, gEndSlider, gGlssryFldTxtR, gPropListGlossary
  3.   set gBeginSlider to 140
  4.   set gEndSlider to gBeginSlider + 70
  5.   if voidp(gGlssryFld) then
  6.     set gGlssryFld to "GlossaryInfo"
  7.     set gGlssryFldTxtH to 7 * the textHeight of member gGlssryFld
  8.     set gGlssryFldTxtR to the right of the rect of member gGlssryFld
  9.     set gGlssryFldS to 31
  10.     buildGlossaryWrdsAndRefs()
  11.   end if
  12.   cursor(-1)
  13. end
  14.  
  15. on zoomOpenTrans
  16.   puppetTransition(47, 2, 16, 1)
  17. end
  18.  
  19. on zoomCloseTrans
  20.   puppetTransition(48, 2, 16, 1)
  21. end
  22.  
  23. on wipeRightTrans
  24.   puppetTransition(1, 2, 16, 1)
  25. end
  26.  
  27. on wipeLeftTrans
  28.   puppetTransition(2, 2, 16, 1)
  29. end
  30.  
  31. on wipeUpTrans
  32.   puppetTransition(4, 2, 16, 1)
  33. end
  34.  
  35. on wipeDwnTrans
  36.   puppetTransition(3, 2, 16, 1)
  37. end
  38.  
  39. on dissolveStageTrans
  40.   puppetTransition(50, 0, 8, 0)
  41. end
  42.