Description: Toggles a button off
Mapped Command:
FUNCTION __DeaIconButton(label,clr)
   local handle := __ScanObjects(label)          // get a handle if possible
   if handle > 0                                 // if the object does indeed exist
      _handles_[handle,9] := InactiveObject      // status (inactive)
      msethot(handle,0,0,0,0)                    // clear the mouse hot region
      if clr                                     // deactivate and clear from the array
         __ClrIconButton(handle)                 // clear the icon from the screen
      endif
   else                                          // otherwise it's an invalid object
      __HandleError(NoSuchLabel,label)           // branch to the handle error routine
   endif
RETURN(Void)