home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / bit / listserv / toolbl / 1 next >
Encoding:
Text File  |  1993-01-25  |  1.9 KB  |  53 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!UMAIL.UMD.EDU!ROBERT_P_KOLKER
  3. Message-ID: <9301251600.AA17677@umailsrv0.UMD.EDU>
  4. Newsgroups: bit.listserv.toolb-l
  5. Date:         Mon, 25 Jan 1993 11:00:00 EST
  6. Sender:       Asymetrix 'Toolbook' product discussions <TOOLB-L@UAFSYSB.BITNET>
  7. From:         rk27 <Robert_P_KOLKER@UMAIL.UMD.EDU>
  8. Subject:      Re: Positioning animation on a a page
  9. In-Reply-To:  <9301250224.AA02956@umailsrv0.UMD.EDU>
  10. Lines: 41
  11.  
  12.               It's a complicated and only semi-successful script, because
  13. the window will disappear if you start another action on the page. Make sure
  14. you use all the quote marks.It's guaranteed not to work the first time. Here
  15. goes:
  16.         Draw a rectangle where you want it to appear on the page, and name
  17. it anything, say "animrect." If you want a button to open it, do this:
  18.  
  19. to handle buttonUp
  20.         get tbkMCIchk ("open your filename.ext style popup","",1,1)
  21.         set hWin to tbkMCIchk ("status your filename.ext window
  22.                     handle","",1,1)
  23.         set wRect to screenFromPage(sysWindowHandle,sysPageScroll,\
  24.                 sysMagnification, bound of rectangle "animrect" of this page)
  25.         set x to item 1 of wRect
  26.         set y to item 2 of wRect
  27.         set nWidth to item 3 of wRect-item 1 of wRect
  28.         set nHeight to item 4 of wRect-item 2 of wRect
  29.         get MoveWindow(hWin,x,y,nWidth,nHeight,1)
  30.  
  31.         get tbkMCI("window yourfilname.ext state show",self"
  32.  
  33. end
  34.  
  35.  
  36.   In the bookscript you need to add some things
  37.  
  38.  
  39. to handle enterBook
  40.         linkDLL "user"
  41.                 INT MoveWindow(Word,INT,INT,INT,INT,INT)
  42.         end
  43.         linkDLL "tbk.win.dll"
  44.                 String screenFromPage(WORD,STRING,INT,STRING)
  45.         end
  46. end
  47.  
  48. to handle tbkMMNotify stat,op,dev
  49.         if op = "play" and dev = "your file"
  50.                 get tbkMCIchk("close yourfile","")
  51.         end
  52. end
  53.