void CLocation::OnBrowse()
{
CWinComApp * pApp = (CWinComApp *) AfxGetApp();
ASSERT(pApp != NULL);
CFileDialog fd(TRUE);
fd.m_ofn.lpstrInitialDir = pApp->GetIniCWD();
UpdateData();
if (fd.DoModal() == IDOK) {
// Make the source an absolute URI
CString path = fd.GetPathName();
char * fileaddr = HTLocalToWWW(path, NULL);
if (fileaddr) {
m_source = fileaddr;
m_sourceList.SetWindowText(fileaddr);
// Set the initial dir for next time
int idx = path.ReverseFind('\\');
if (idx != -1) path.GetBufferSetLength(idx+1);
pApp->SetIniCWD(path);
HT_FREE(fileaddr);
}
/* Update the destination */
CString file = fd.GetFileName();
if (!file.IsEmpty()) {
CString base = "";
char * escaped = HTEscape(file, URL_XALPHAS);
char * destination = escaped;
int length = m_destinationList.GetCount();
if (length > 0) {
m_destinationList.GetLBText(0, base);
if (!base.IsEmpty()) {
destination = HTParse(escaped, base, PARSE_ALL);
HT_FREE(escaped);
}
}
destination = HTSimplify(&destination);
m_destination = destination;
m_destinationList.SetWindowText(m_destination);
HT_FREE(destination);
}
// If change in source then update the entity and link info
ASSERT(GetParentFrame()->GetActiveView()->IsKindOf(RUNTIME_CLASS(CTabsView)));
CTabsView * view = (CTabsView *) GetParentFrame()->GetActiveView();
view->GetDocument()->m_EntityInfo.Clear();
view->GetDocument()->m_Links.Clear();
UpdateData();
}
}
/* Find Related Name ** ----------------- ** Creates a string that can be used as a related name when ** calling HTParse initially. ** ** The code for this routine originates from the Linemode ** browser and was moved here by [email protected] ** in order for all clients to take advantage. ** The string returned must be freed by the caller */ PUBLIC char * HTGetCurrentDirectoryURL (void) { char wd[HT_MAX_PATH+2]; #ifdef HAVE_GETCWD /* System V variant SIGN CHANGED TBL 921006 !! */ char * result = (char *) getcwd(wd, sizeof(wd)); #else #ifdef HAVE_GETWD char * result = (char *) getwd(wd); #else #error "This platform does not support neither getwd nor getcwd\n" char * result = NULL; #endif /* HAVE_GETWD */ #endif /* HAVE_GETCWD */ if (result) { *(wd+HT_MAX_PATH) = '\0'; if (*(wd+strlen(wd)-1) != '/') strcat(wd, "/"); } return result ? HTLocalToWWW(result, NULL) : NULL; }