home *** CD-ROM | disk | FTP | other *** search
- Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
- Path: sparky!uunet!paladin.american.edu!auvm!UMAIL.UMD.EDU!ROBERT_P_KOLKER
- Message-ID: <9301251600.AA17677@umailsrv0.UMD.EDU>
- Newsgroups: bit.listserv.toolb-l
- Date: Mon, 25 Jan 1993 11:00:00 EST
- Sender: Asymetrix 'Toolbook' product discussions <TOOLB-L@UAFSYSB.BITNET>
- From: rk27 <Robert_P_KOLKER@UMAIL.UMD.EDU>
- Subject: Re: Positioning animation on a a page
- In-Reply-To: <9301250224.AA02956@umailsrv0.UMD.EDU>
- Lines: 41
-
- It's a complicated and only semi-successful script, because
- the window will disappear if you start another action on the page. Make sure
- you use all the quote marks.It's guaranteed not to work the first time. Here
- goes:
- Draw a rectangle where you want it to appear on the page, and name
- it anything, say "animrect." If you want a button to open it, do this:
-
- to handle buttonUp
- get tbkMCIchk ("open your filename.ext style popup","",1,1)
- set hWin to tbkMCIchk ("status your filename.ext window
- handle","",1,1)
- set wRect to screenFromPage(sysWindowHandle,sysPageScroll,\
- sysMagnification, bound of rectangle "animrect" of this page)
- set x to item 1 of wRect
- set y to item 2 of wRect
- set nWidth to item 3 of wRect-item 1 of wRect
- set nHeight to item 4 of wRect-item 2 of wRect
- get MoveWindow(hWin,x,y,nWidth,nHeight,1)
-
- get tbkMCI("window yourfilname.ext state show",self"
-
- end
-
-
- In the bookscript you need to add some things
-
-
- to handle enterBook
- linkDLL "user"
- INT MoveWindow(Word,INT,INT,INT,INT,INT)
- end
- linkDLL "tbk.win.dll"
- String screenFromPage(WORD,STRING,INT,STRING)
- end
- end
-
- to handle tbkMMNotify stat,op,dev
- if op = "play" and dev = "your file"
- get tbkMCIchk("close yourfile","")
- end
- end
-