rad@genco.bungi.com (Bob Daniel) (11/18/90)
Think Pascal supposedly allows access to the global environment in DA's
through 'dctlStorage'. This is a handle that contains the address to
the globals. I'm attempting to pass this address to external code
resources but it doesn't seem to be the proper address. I'm passing it
to the externals by storing the address in the window refCon of the
DA window. The external can then do a FrontWindow to get the DA window
and then gets the address from the refCon.
In the DA, it stores 'dctlStorage' in the reCon...
WindowPeek(daWindow)^.refCon := longint(theDevCtlEnt^.dctlStorage);
In the External, a structure (record) is defined in the same manner as
the globals in a GlobalHandle...
Globals := GlobalHandle(WindowPeek(FrontWindow)^.refCon);
Looking at the address in TMON, it appears there is other info at that
address then the real global data afterwards. Apparently an offset
should be used from that address to get the globals.
Anyone know the structure of globals in ThP?