Hi David,
SessionBase could look like this:
DEFINE CLASS cSession AS session
oDataClass = .F.
PROCEDURE Create
LPARAMETERS tcClass,tcLibrary
THIS.oDataClass = NEWOBJECT(tcClass,tcLibrary)
RETURN THIS
ENDPROC
ENDDEFINE
You could call it like this:
oSession = NEWOBJECT('cSession','session.prg')
oData = oSession.Create('DataFactory','xVFPData')
oData.oDataClass.TestSession()
where 'DataFactory' is some data handling class in 'xVFPData.VCX. If method 'TestSession' opened a table, it would open in the default session of oSession (2 - Private).
I'm like you, sure wish I knew more about how this stuff was supposed to work.
I hope Charlie reponds with some additional info.
Regards
>>>oSession = NEWOBJECT("SessionBase","Session.PRG")
>>>oData = oSession.Create("DataSelector","SomeVCX.VCX")
>
>So Charlie,
>
>What's in your "SessionBase"?
Bob Tracy
Never engage in a battle of wits if you're only half armed.