/* Button Client - DMS - March 98 - by Sylvain HUET */
/* Rev. 0101 - Aug. '98 - by Marc BARILLEY */

typeof button=ObjButton;;

fun pressbut(a,b)= _DMSevent this "click" nil nil;;

fun _end(s)=
  _DMSdelete this;;

fun _resizeI(x,s)=
 let x->[win x y w h] in _SIZEbutton button w h x y;
 0;;

fun IniDMI(param)=
 let _DMSgetZone this "Button" @_end @_resizeI @_end ->[win x y w h] in
 if win==nil then nil else
  set button=_CBbutton _CRbutton _channel win x y w h 0 _DMSgetName this @pressbut 0
 ;;