more like:
IF This.Default
This.Default = This.Default
ENDIF
procedure Default_Assign
LPARA;
tvPara
do case
case This.Default and !tvPara
case !tvPara or This.Default and tvPara
otherwise
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?
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord
Weeks of programming can save you hours of planning.
OffThere is no place like [::1]