/* Navigation Server - DMS - aug 98 - by Sylvain HUET */

typeof clis=[CLIENT r1];;

var horizontal="0";;
var bmp="";;

fun logout(cli)=
 if !findList clis cli then nil
 else
 (set clis=remove_from_list clis cli;
  _DMSevent this cli "destroyed" nil nil)
;;

fun activate(from,cli,action,param,rep)=
 if !strcmp action "start" then
  _DMScreateClientDMI this cli strbuild (horizontal::bmp::nil)::nil
 else if !strcmp action "destroy" then
  (_DMSdelClientDMI this cli;
   logout cli)
 else nil;;

fun IniDMI(param)=
 _DMSregisterDMI this @activate nil @logout nil;
 let strextr _getpack _checkpack param->l in
 (set bmp=getInfo l "bmp";
  set horizontal=getInfo l "horizontal");;

fun __register()=
 if findList clis DMSsender then nil
 else
 (set clis=DMSsender::clis;
  _DMSevent this DMSsender "entering" nil nil);;