/* connectionC.pkg */
/* Connections Client v1.0 - DMS - Apr. '99 - by Marc BARILLEY */

typeof number = ObjText;;

fun rflDMSEnd (zone)=
  _DStext number;
  _DMSreleaseZone this "number";
  0;;

fun rflDMSResize (x,s)=
  let x->[wn x y w h] in
    _SIZEtext number w h x y;
0;;


fun __show(n) =
  let _DMSgetZone this "number" nil @rflDMSResize nil -> [wn x y w h] in
  if wn==nil
  then
    set number = nil
  else
    set number = _CRtext _channel wn x y w h ET_ALIGN_CENTER|ET_DOWN n;    
  _DMSevent this "shown" nil nil
;;
    
  
/* DMS */
fun activate(from,action,param,rep)=
  
  if !strcmp action "hide"
  then
  {
    _DStext number;
    _DMSevent this "hidden" nil nil;
  }
  else if !strcmp action "destroy"
  then
  {
    _DMSdelete this;
    _DMSevent this "destroyed" nil nil;
    0
  }
  else
    nil;
0;;

fun beforeclose ()=
  _DStext number;
  _DMSevent this "destroyed" nil nil;;


fun IniDMI (param)=
  _DMSregisterDMI this @activate @beforeclose;
  _DMSevent this "in" nil nil;;

/* comm */
fun __set (num)=
  _SETtext number num
;;