/*module quicktime v 1.0 -April 2000- by Duncan de Spens quicktimeS.pkg*/

defcom playAll= playUrl S;;
typeof clis=[CLIENT r1];;
 
fun __register()=
 set clis=DMSsender::clis;;
 
fun logout(cli)=set clis=remove_from_list clis cli;0;;

fun play(cli,param)=
 _DMSsend this cli playAll [param];;

fun activate(from,cli,action,param,rep)= 
 if !strcmp action "playAll" then
  (apply_on_list clis @play param;0)
 else if !strcmp action "stopAll" then
  (apply_on_list clis @play nil;0)
 else if !strcmp action "start" then
  (_DMScreateClientDMI this cli nil;0)
 else nil;;

fun IniDMI(file)=
_DMSregisterDMI this @activate @logout nil nil;;