// Created: 23.09.98
// RCS-ID: $Id$
// Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
-// Licence: wxWindows license (part of wxExtra library)
+// Licence: wxWindows licence (part of wxExtra library)
/////////////////////////////////////////////////////////////////////////////
#ifdef __GNUG__
#pragma hdrstop
#endif
-// this is Win32 only code
+#if wxUSE_MIMETYPE
+
+// Doesn't compile in WIN16 mode
#ifndef __WIN16__
#ifndef WX_PRECOMP
#ifdef __WXMSW__
#include "wx/msw/registry.h"
- #include "windows.h"
+ #include "wx/msw/private.h"
#endif // OS
#include "wx/msw/mimetype.h"
m_strFileType = strFileType;
if ( !strFileType ) {
- m_strFileType = m_ext.AfterFirst('.') + "_auto_file";
+ m_strFileType = m_ext.AfterFirst('.') + _T("_auto_file");
}
}
wxRegKey(wxRegKey::HKCR, strKey + _T("\\Topic")).
QueryValue(_T(""), ddeTopic);
+ if (ddeTopic.IsEmpty())
+ ddeTopic = wxT("System");
+
// HACK: we use a special feature of wxExecute which exists
// just because we need it here: it will establish DDE
// conversation with the program it just launched
wxString strExpPath = wxExpandEnvVars(strFullPath);
// here we need C based counting!
- int nIndex = wxAtoi(strIndex) - 1 ;
+ int nIndex = wxAtoi(strIndex);
+#ifdef __DIGITALMARS__
+//FIXME __DIGITALMARS__ April 2003 CE
+ // why no ExtractIcon in library
+ wxLogTrace(_T("wxFileTypeImpl::GetIcon"),
+ _T("Returning false from wxFileTypeImpl::GetIcon because of DigitalMars compiler bug"));
+ HICON hIcon = 0 ;
+#else
HICON hIcon = ExtractIcon(GetModuleHandle(NULL), strExpPath, nIndex);
+#endif
switch ( (int)hIcon ) {
case 0: // means no icons were found
case 1: // means no such file or it wasn't a DLL/EXE/OCX/ICO/...
default:
icon->SetHICON((WXHICON)hIcon);
+ wxSize size = wxGetHiconSize(hIcon);
+ icon->SetSize(size);
if ( iconIndex )
*iconIndex = nIndex;
if ( iconFile )
return CreateFileType(wxEmptyString, ext);
}
+/*
wxFileType *
wxMimeTypesManagerImpl::GetOrAllocateFileTypeFromExtension(const wxString& ext)
{
return fileType;
}
-
+*/
// MIME type -> extension -> file type
wxFileType *
wxCHECK_MSG( !ftInfo.GetExtensions().IsEmpty(), NULL,
_T("Associate() needs extension") );
- const wxString& ext = ftInfo.GetExtensions()[0u];
+ bool ok = FALSE ;
+ int iExtCount = 0 ;
+ wxString filetype;
+ wxString extWithDot;
+
+ wxString ext = ftInfo.GetExtensions()[iExtCount];
wxCHECK_MSG( !ext.empty(), NULL,
_T("Associate() needs non empty extension") );
- wxString extWithDot;
if ( ext[0u] != _T('.') )
extWithDot = _T('.');
extWithDot += ext;
+ // start by setting the HKCR\\.ext entries
+ // default is filetype; content type is mimetype
+ const wxString& filetypeOrig = ftInfo.GetShortDesc();
+
wxRegKey key(wxRegKey::HKCR, extWithDot);
- wxFileType *ft = NULL;
if ( !key.Exists() )
{
- wxString filetype;
-
// create the mapping from the extension to the filetype
- bool ok = key.Create();
+ ok = key.Create();
if ( ok )
{
- const wxString& filetypeOrig = ftInfo.GetShortDesc();
+
if ( filetypeOrig.empty() )
{
// make it up from the extension
- filetype << extWithDot.c_str() + 1 << _T("_auto_file");
+ filetype << extWithDot.c_str() + 1 << _T("_file");
}
else
{
ok = key.SetValue(_T(""), filetype);
}
-
+ }
+ else
+ {
+ // key already exists, maybe we want to change it ??
+ if (!filetypeOrig.empty())
+ {
+ filetype = filetypeOrig;
+ ok = key.SetValue(_T(""), filetype);
+ }
+ else
+ {
+ ok = key.QueryValue(_T(""), filetype);
+ }
+ }
+ // now set a mimetypeif we have it, but ignore it if none
const wxString& mimetype = ftInfo.GetMimeType();
- if ( ok && !mimetype.empty() )
+ if ( !mimetype.empty() )
{
// set the MIME type
ok = key.SetValue(_T("Content Type"), mimetype);
}
}
+
+ // now make other extensions have the same filetype
+
+ for (iExtCount=1; iExtCount < ftInfo.GetExtensionsCount(); iExtCount++ )
+ {
+ ext = ftInfo.GetExtensions()[iExtCount];
+ if ( ext[0u] != _T('.') )
+ extWithDot = _T('.');
+ extWithDot += ext;
+
+ wxRegKey key(wxRegKey::HKCR, extWithDot);
+ if ( !key.Exists() ) ok = key.Create();
+ ok = key.SetValue(_T(""), filetype);
+
+ // now set any mimetypes we may have, but ignore it if none
+ const wxString& mimetype = ftInfo.GetMimeType();
+ if ( !mimetype.empty() )
+ {
+ // set the MIME type
+ ok = key.SetValue(_T("Content Type"), mimetype);
+
if ( ok )
{
- // create the filetype key itself (it will be empty for now, but
- // SetCommand(), SetDefaultIcon() &c will use it later)
- wxRegKey keyFT(wxRegKey::HKCR, filetype);
- ok = keyFT.Create();
- }
+ // create the MIME key
+ wxString strKey = MIME_DATABASE_KEY;
+ strKey << mimetype;
+ wxRegKey keyMIME(wxRegKey::HKCR, strKey);
+ ok = keyMIME.Create();
if ( ok )
{
- // ok, we've created everything correctly
- ft = CreateFileType(filetype, extWithDot);
+ // and provide a back link to the extension
+ ok = keyMIME.SetValue(_T("Extension"), extWithDot);
}
- else
- {
- // one of the registry operations failed
- wxLogError(_("Failed to register extension '%s'."), ext.c_str());
}
}
- else // key already exists
+
+
+ } // end of for loop; all extensions now point to HKCR\.ext\Default
+
+ // create the filetype key itself (it will be empty for now, but
+ // SetCommand(), SetDefaultIcon() &c will use it later)
+ wxRegKey keyFT(wxRegKey::HKCR, filetype);
+ ok = keyFT.Create();
+
+ wxFileType *ft = NULL;
+ ft = CreateFileType(filetype, extWithDot);
+
+ if (ft)
{
- // FIXME we probably should return an existing file type then?
- }
+ if (! ftInfo.GetOpenCommand ().IsEmpty() ) ft->SetCommand (ftInfo.GetOpenCommand (), wxT("open" ) );
+ if (! ftInfo.GetPrintCommand().IsEmpty() ) ft->SetCommand (ftInfo.GetPrintCommand(), wxT("print" ) );
+ // chris: I don't like the ->m_impl-> here FIX this ??
+ if (! ftInfo.GetDescription ().IsEmpty() ) ft->m_impl->SetDescription (ftInfo.GetDescription ()) ;
+ if (! ftInfo.GetIconFile().IsEmpty() ) ft->SetDefaultIcon (ftInfo.GetIconFile(), ftInfo.GetIconIndex() );
+ }
return ft;
}
bool wxFileTypeImpl::SetCommand(const wxString& cmd,
const wxString& verb,
- bool overwriteprompt)
+ bool WXUNUSED(overwriteprompt))
{
wxCHECK_MSG( !m_ext.IsEmpty() && !verb.IsEmpty(), FALSE,
_T("SetCommand() needs an extension and a verb") );
return FALSE;
wxRegKey rkey(wxRegKey::HKCR, GetVerbPath(verb));
-
+#if 0
if ( rkey.Exists() && overwriteprompt )
{
#if wxUSE_GUI
(
wxString::Format(
_("Do you want to overwrite the command used to %s "
- "files with extension \"%s\" (current value is '%s', "
- "new value is '%s')?"),
+ "files with extension \"%s\" ?\nCurrent value is \n%s, "
+ "\nNew value is \n%s %1"), // bug here FIX need %1 ??
verb.c_str(),
m_ext.c_str(),
old.c_str(),
return FALSE;
}
}
-
+#endif
// TODO:
// 1. translate '%s' to '%1' instead of always adding it
// 2. create DDEExec value if needed (undo GetCommand)
return rkey.Create() && rkey.SetValue(_T(""), cmd + _T(" \"%1\"") );
}
+/* // no longer used
bool wxFileTypeImpl::SetMimeType(const wxString& mimeTypeOrig)
{
wxCHECK_MSG( !m_ext.IsEmpty(), FALSE, _T("SetMimeType() needs extension") );
wxRegKey rkey(wxRegKey::HKCR, m_ext);
return rkey.Create() && rkey.SetValue(_T("Content Type"), mimeType);
}
+*/
bool wxFileTypeImpl::SetDefaultIcon(const wxString& cmd, int index)
{
- wxCHECK_MSG( !m_ext.IsEmpty(), FALSE, _T("SetMimeType() needs extension") );
- wxCHECK_MSG( wxFileExists(cmd), FALSE, _T("Icon file not found.") );
+ wxCHECK_MSG( !m_ext.IsEmpty(), FALSE, _T("SetDefaultIcon() needs extension") );
+ wxCHECK_MSG( !m_strFileType.IsEmpty(), FALSE, _T("File key not found") );
+// the next line fails on a SMBshare, I think because it is case mangled
+// wxCHECK_MSG( !wxFileExists(cmd), FALSE, _T("Icon file not found.") );
if ( !EnsureExtKeyExists() )
return FALSE;
wxString::Format(_T("%s,%d"), cmd.c_str(), index));
}
+bool wxFileTypeImpl::SetDescription (const wxString& desc)
+{
+ wxCHECK_MSG( !m_strFileType.IsEmpty(), FALSE, _T("File key not found") );
+ wxCHECK_MSG( !desc.IsEmpty(), FALSE, _T("No file description supplied") );
+
+ if ( !EnsureExtKeyExists() )
+ return FALSE;
+
+ wxRegKey rkey(wxRegKey::HKCR, m_strFileType );
+
+ return rkey.Create() &&
+ rkey.SetValue(_T(""), desc);
+}
+
// ----------------------------------------------------------------------------
// remove file association
// ----------------------------------------------------------------------------
result = FALSE;
if ( !RemoveMimeType() )
result = FALSE;
+ if ( !RemoveDescription() )
+ result = FALSE;
+/*
+ //this might hold other keys, eg some have CSLID keys
if ( result )
{
// delete the root key
if ( key.Exists() )
result = key.DeleteSelf();
}
-
+*/
return result;
}
return !rkey.Exists() || rkey.DeleteSelf();
}
+bool wxFileTypeImpl::RemoveDescription()
+{
+ wxCHECK_MSG( !m_ext.IsEmpty(), FALSE,
+ _T("RemoveDescription() needs extension") );
+
+ wxRegKey rkey (wxRegKey::HKCR, m_strFileType );
+ return !rkey.Exists() || rkey.DeleteSelf();
+}
+
#endif
// __WIN16__
+
+#endif // wxUSE_MIMETYPE