Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!wums2!schreiber_r
From: schreiber_r@wums2.wustl.edu
Newsgroups: comp.sys.mac.programmer
Subject: Invisible Dialog Text: IMMEADIATE HELP NEEDED!!!
Message-ID: <3881.26e4eb0a@wums2.wustl.edu>
Date: 5 Sep 90 17:09:46 GMT
Lines: 55

Ok all you smart people out there try to figure this one out. I will be deeply
indebted to the one who does!

I'm using the Think Class Library with Pascal 3.0. I'm building a large
application which works without any hitches in the Think environment. I
compiled it to an application without any error or strange messages. Now the
problem: ONE of my many (7-9) dialogs will not display its text items at all.
The box comes up with all the controls visible and active and the TE boxes
outlined, but any text boxes or any text associated with a control does not
display until you click the control. 

I call the box up like this...

		PositionDialog('DLOG', GetRanges);
		ParamText(Prompt, '', '', '');
		InputD := GetNewDialog(GetRanges, nil, pointer(-1));
		CurrentDialog := InputD;
		GetDItem(InputD, OKBold, aType, aHandle, aBox);
		SetDItem(InputD, OKBold, aType, Handle(@DrawBoldOK), aBox);

...{ in here is where I set up various defalt settings for text and controls}
...{ I've left it out to be brief}

		ShowWindow(WindowPtr(InputD));
		who := 0;
		repeat
     		  okToExit := true;
		  while (who <> ok) and (who <> cancel) do
   	       	    begin
		      ModalDialog(nil, who);
		        case who of
                          
			 ..{here are the cases to preform actions based on who}
			end;   {Case}
                    end;
		until okToExit;
		DisposDialog(InputD);

It accepts input OK and responds even though the text can't be seen. After
clicking the OK button, my program opens up a window with a Static Text pane
installed. The window title is blank--not empty, blank. There is white space
in the title bar where my text should be. It's almost as if the font color has
been turned to white. 

I have to finish this project by Friday! Please help!!! Thanks in advance.

Side Note: Has anyone else had a problem with Boomerang and the TCL? I had to
disable it due to its crashing my SFBoxes.

-- 
============================= Matt Haffner ====================================
Washington University School of Medicine
BitNet: SCHREIBER_R@WUMS
InterNet: schreiber_r@wums2.wustl.edu
(After September 10: InterNet: haffner@ossenu.astro.acns.nwu.edu)