G'day David, you wrote: > Date: Thu, 18 Feb 1999 14:56:57 +1100 > To: futurebasic@... > From: David <David.Cottrell@...> > Subject: PG pg3t edit field problem > Message-Id: <184.108.40.206.19990218145657.0089ab20@...> > > I want to open a PG window with some text in an edit field. The problem is > that the text changes depending on other events. > > If I use Edit$ = theString$ when the window is first drawn, the text does > not appear untill some subsequent update of the window is forced. I think > the problem is that it takes too long for the window to draw! > > Anyone know how to take a string (only a few words really) and replace the > contents of the pg3t resource (which is where PG looks for whatever goes > into the Edit field to start with). > > Thanks again > > david Please find some functions I use to manipulate PG TEXT resources. This one changes the state of an editfield pG3c resource. LOCAL FN ChangeEFObj(ObjectRef,ObjPType) 'Change state of EField obj EDIT FIELD ObjectRef,,,ObjPType 'Change state of EField theObj = FN pGgetRef(gWhichClass,ObjectRef) 'Get pG3c data of EField gObjZType = ObjPType 'Change state in pG3c data FN pGputObj(gWhichClass,theObj) 'Save for future use END FN This function takes text in an editfield & stores it in the appropriate pG3t resource, if you tweak this function you should be able to change the pG3t recource before opening the window where the editfield is by passing your text to the eFHndl& & not getting what is already in the editfield. LOCAL FN ChangeEFText(ObjectRef) 'Change text in EField EDIT FIELD ObjectRef 'Activate EField theObj = FN pGgetRef(gWhichClass,ObjectRef) 'Get pG3c data on EField GET FIELD eFHndl&,ObjectRef 'Get handle to text & style data for EField LONG IF eFHndl& 'Check handle exists FN pGreplaceRes(eFHndl&,_"pG3t",gObjResID,"")'Replace matching pG3t rescorce KILL FIELD eFHndl& 'Kill handle to EField text & style END IF END FN Oh & don't forget to add the appropriate pG globalisation functions. Regards, Chris Wyatt, in Bendigo, Victoria, Australia.