/* Iconify Module - DMS - mar 98 - by Sylvain HUET */

/* correction : Bob le Gob, nov. 2004 */

typeof file=S;;
typeof first=I;;
typeof icon=ObjIcon;;

fun iconify(a,b,c)=
 set first=
  if first then (_SHOWwindow DMSwin WINDOW_UNHIDDEN; 0)
  else (_SHOWwindow DMSwin WINDOW_HIDDEN; 1);;

fun _iconify()=
 _SHOWwindow DMSwin WINDOW_HIDDEN;;

fun activate(from,cli,action,param,rep)=
 if !strcmp action "iconify" then
  if !first then iconify nil nil nil
  else nil
 else if !strcmp action "uniconify" then
  if first then iconify nil nil nil
  else nil
 else nil;;

fun IniDMI(param)=
 let strextr _getpack _checkpack param ->l in
  (set file=getInfo l "file";
   set first=atoi getInfo l "first");
 //set icon=_CRtaskIcon _channel _GETbitmap _LDbitmap _channel _checkpack file DMSname;
 set icon=_CRtaskIcon2 _channel _LDbitmap _channel _checkpack file DMSname; /* correction */
 _CBtaskIconDClick icon @iconify 0;
 if first then _iconify else nil;
 _DMSregisterDMI this @activate nil nil nil;;