//		UrlPane.cpp
//		http://www-acs.ucsd.edu/~jstrout/macdev/panes/
//		last modified: 06/11/97

#include "UrlPane.h"
#include <ICAPI.h>		// Internet Config files must be in system path

Boolean UrlPane::Click(Point where, short modifiers)
{
	ICInstance icInst;
	ICError err = ICStart(&icInst, mCreator);
	if (err) return 0;
	
	err = ICFindConfigFile(icInst, 0, 0);
	
	long selStart=0, selEnd=0;
	if (mURL[0]) err = ICLaunchURL(icInst, "\p", (char*)(&mURL[1]), mURL[0], &selStart, &selEnd);
	else err = ICLaunchURL(icInst, "\p", (char*)(&mText[1]), mText[0], &selStart, &selEnd);

	err = ICStop(icInst);
	return 1;
}