Hey, that works great! Now I gotta figure out how to get it on the toolbar. :)

Thanks!

Michelle

>How complex you want to make the wrapper is up to you, but...

>LOCAL a_class
>DIMENSION a_class[1]
>IF AGETCLASS(a_class) AND TYPE('a_class[2]') = 'C'
>  MODIFY CLASS (a_class[2]) OF (a_class[1])
>ENDIF

is really a quite simple solution.