Okay guys, here goes nothing.  I typed it all out at home and tested it
and then forgot to bring it to work to send, so I'm going to try it from
memory.  You may have to turn AUTOCLIP off.  The button type is 161.
Good luck and if it sucks, I'll mail the one that works.

'
'BUTTON 1,_activeWnd,"Find the Button",(0,0)-(30,30),161
'
'-------------
RESOURCES "","rsrcRSED","CDEF", 10, "InvisCDEF"
COMPILE 0,_caseInsensitive_DimmedVarsOnly_appendRes
END GLOBALS
OUTPUT FILE "InvisCDEF.res"

GOTO "CDEF_Entry"

'==========================
'Param& is the pt clicked
'
CLEAR LOCAL
DIM c.8, clicked
LOCAL FN Clicked (cntl&, param&)
  c;8 = [cntl&]+_cntrlRect
  clicked = FN PTINRECT(param&,c)
END FN=clicked

'=========================
'Create control region
'
CLEAR LOCAL
DIM c.8
LOCAL FN MakeRgn (cntl&, param&)
  c;8 = [cntl&]+_cntrlRect
  CALL OPENRGN
  CALL FRAMERECT (c)
  CALL CLOSERGN (param&)
END FN


"CDEF_Entry"
DIM varCode%,control&,msg%,parm&, hit&
ENTERPROC%(varCode%,control&,msg%,parm&)
  hit& = _nil
  SELECT msg%
    CASE 1
      hit&=FN Clicked(control&,parm&)
    CASE 2,10
      FN MakeRgn
  END SELECT
EXITPROC%=hit&


-Derek
----------------
www2.hawaii.edu/~dereksmi
----------------