/* Input/Output Client - DMS - March 97 - by Sylvain HUET */
/* Rev - January 01 - by Sebastien DENEUX*/

defcom Copen=open S;;
defcom Cgoto=goto S;;
defcomvar Cx=;;

fun IniDMI(param)=
 _setX _channel; 
 _DMSevent this "in" nil nil; 
 0;;

fun __activeX(p)= _onX Cx p [];;

fun __open(url)=
 _on _masterchannel Copen [url];;


defcom maincom=main S I S;;
fun __goto(url)=
 _DMSreset;
 let strextr url-> l in
 (_setress "enter" hd hd tl l;
  _openchannel nil 
  strcat "_load \"locked/stduser.pkg\"\n"
   mkscript maincom [hd hd l nil nil] nil);;
 
fun _ActiveX(s)=_DMSevent this itoh s nil nil;;
fun _ActiveXS(s)=_DMSevent this s nil nil;;
fun _Focus()=_SETfocus DMSwin;;