Source Browser ?

1%D \module
2%D   [       file=java-imp-videoplayer,
3%D        version=2009.12.31,
4%D          title=\CONTEXT\ JavaScript Macros,
5%D       subtitle=Shockwave Support,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14%D As part of the interaction manual writing this code was moved here. It's
15%D kind of obsolete as shockwave is obsolete.
16
17% using videoplayer.swf from adobe or strobemediaplayback.swf from sourceforge:
18
19\startluaparameterset[shockwave:display]
20    toolbar  = true,
21 -- preview  = "somefile",
22    open     = "click",
23    close    = "focus",
24\stopluaparameterset
25
26\startJSpreamble shockwave used now
27
28    function StartShockwave(label) {
29        var rm = this.getAnnotsRichMedia(this.pageNum,label)[0] ;
30        if (rm.activated) {
31            rm.callAS("multimedia_play") ;
32        } else {
33            rm.activated = true ;
34        }
35    }
36
37    function StopShockwave(label) {
38        var rm = this.getAnnotsRichMedia(this.pageNum,label)[0] ;
39        if (rm.activated) {
40            rm.callAS("multimedia_pause") ;
41            rm.callAS("multimedia_rewind") ;
42        }
43    }
44
45    function RewindShockwave(label) {
46        var rm = this.getAnnotsRichMedia(this.pageNum,label)[0] ;
47        if (rm.activated) {
48            rm.callAS("multimedia_rewind") ;
49        }
50    }
51
52    function PauseShockwave(label) {
53        var rm = this.getAnnotsRichMedia(this.pageNum,label)[0] ;
54        if (rm.activated) {
55            rm.callAS("multimedia_pause") ;
56        }
57    }
58
59\stopJSpreamble
60
61\definereference[StartShockwave] [JS(StartShockwave)]
62\definereference[StopShockwave]  [JS(StopShockwave)]
63\definereference[RewindShockwave][JS(RewindShockwave)]
64\definereference[PauseShockwave] [JS(PauseShockwave)]
65
66\unprotect
67
68\doglobal \useexternalfigure
69  [shockwave]
70  [videoplayer.swf]
71  [\c!arguments=\luaparameterset{shockwave:arguments}{source="\externalfigureparameter\v!file"},
72   \c!resources=\luaparameterset{shockwave:resources}{files={"\externalfigureparameter\v!file"}},
73   \c!display=shockwave:display]
74
75% \doglobal \useexternalfigure
76%   [shockwave]
77%   [strobemediaplayback.swf]
78%   [arguments=\luaparameterset{shockwave:arguments}{src="\externalfigureparameter\v!file"},
79%    resources=\luaparameterset{shockwave:resources}{files={"\externalfigureparameter\v!file"}},
80%    display=shockwave:display]
81
82\protect \endinput
83