more like:

* Init of a button 
IF This.Default
   This.Default = This.Default
ENDIF

procedure Default_Assign
LPARA;
 tvPara

do case
 case This.Default and !tvPara
   *un register
 case !tvPara or This.Default and tvPara
  *nothing changed, write for side effect (one never know ...)
 otherwise
   *register
endcase

   This.Default = tvPara
endproc

>I'm not sure what you mean
>

>* Init of a button 
>IF This.Default
>   * Register with container
>ENDIF
>

>>
>>Nice to see you. :)
>>
>>I had this idea, but this is something more that will run on init. I'm a bit reluctant with it.
>>So it would run for every button (no OLE Container here).
>>Any idea to do this fast?
>>
>>It would need an assign, something on init to raise it initaly, it's a pain. :)
>>
>>Best would be if it would run as one expect it ... :)
>>
>>Lutz
>>
>>>Wouldn't be easier to get default object to register with container?