libreoffice/svx/source/dialog/hldocntp.cxx

/*************************************************************************
 *
 *  $RCSfile: hldocntp.cxx,v $
 *
 *  $Revision: 1.1.1.1 $
 *
 *  last change: $Author: hr $ $Date: 2000-09-18 17:01:08 $
 *
 *  The Contents of this file are made available subject to the terms of
 *  either of the following licenses
 *
 *         - GNU Lesser General Public License Version 2.1
 *         - Sun Industry Standards Source License Version 1.1
 *
 *  Sun Microsystems Inc., October, 2000
 *
 *  GNU Lesser General Public License Version 2.1
 *  =============================================
 *  Copyright 2000 by Sun Microsystems, Inc.
 *  901 San Antonio Road, Palo Alto, CA 94303, USA
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License version 2.1, as published by the Free Software Foundation.
 *
 *  This library is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 *  MA  02111-1307  USA
 *
 *
 *  Sun Industry Standards Source License Version 1.1
 *  =================================================
 *  The contents of this file are subject to the Sun Industry Standards
 *  Source License Version 1.1 (the "License"); You may not use this file
 *  except in compliance with the License. You may obtain a copy of the
 *  License at http://www.openoffice.org/license.html.
 *
 *  Software provided under this License is provided on an "AS IS" basis,
 *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
 *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
 *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
 *  See the License for the specific provisions governing your rights and
 *  obligations concerning the Software.
 *
 *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
 *
 *  Copyright: 2000 by Sun Microsystems, Inc.
 *
 *  All Rights Reserved.
 *
 *  Contributor(s): _______________________________________
 *
 *
 ************************************************************************/


#ifndef _SFXVIEWFRM_HXX
#include <sfx2/viewfrm.hxx>
#endif
#ifndef _SFX_OBJFAC_HXX
#include <sfx2/docfac.hxx>
#endif

#ifndef _COM_SUN_STAR_UNO_REFERENCE_H_
#include <com/sun/star/uno/Reference.h>
#endif

#ifndef _UCBHELPER_CONTENTBROKER_HXX
#include <ucbhelper/contentbroker.hxx>
#endif

#ifndef _UCBHELPER_CONTENT_HXX
#include <ucbhelper/content.hxx>
#endif

#ifndef _COM_SUN_STAR_SDBC_XRESULTSET_HPP_
#include <com/sun/star/sdbc/XResultSet.hpp>
#endif

#ifndef _COM_SUN_STAR_UNO_SEQUENCE_H_
#include <com/sun/star/uno/Sequence.h>
#endif

#ifndef _COM_SUN_STAR_SDBC_XROW_HPP_
#include <com/sun/star/sdbc/XRow.hpp>
#endif

#ifndef _COM_SUN_STAR_UCB_XCONTENTACCESS_HPP_
#include <com/sun/star/ucb/XContentAccess.hpp>
#endif

#ifndef _COM_SUN_STAR_UNO_EXCEPTION_HPP_
#include <com/sun/star/uno/Exception.hpp>
#endif

#ifndef _SV_CONFIG_HXX
#include <vcl/config.hxx>
#endif

#ifndef _SV_SYSTEM_HXX
#include <vcl/system.hxx>
#endif

#ifndef _SV_IMAGE_HXX
#include <vcl/image.hxx>
#endif

#ifndef _URLOBJ_HXX
#include <tools/urlobj.hxx>
#endif

#include "hldocntp.hxx"
#include "hyperdlg.hrc"

using namespace ::rtl;
using namespace ::com::sun::star;

/*************************************************************************
|*
|* Data-struct for documenttypes in listbox
|*
|************************************************************************/

struct DocumentTypeData
{
    String aStrURL;
    String aStrExt;
    DocumentTypeData (String aURL, String aExt) : aStrURL(aURL), aStrExt(aExt)
    {}
};

/*************************************************************************
|*
|* Contructor / Destructor
|*
|************************************************************************/

SvxHyperlinkNewDocTp::SvxHyperlinkNewDocTp ( Window *pParent, const SfxItemSet& rItemSet)
:   maGrpNewDoc     ( this, ResId (GRP_NEWDOCUMENT) ),
    maRbtEditNow    ( this, ResId (RB_EDITNOW) ),
    maRbtEditLater  ( this, ResId (RB_EDITLATER) ),
    maFtPath        ( this, ResId (FT_PATH_NEWDOC) ),
    maEdPath        ( this, ResId (ED_PATH_NEWDOC) ),
    maFtDocTypes    ( this, ResId (FT_DOCUMENT_TYPES) ),
    maLbDocTypes    ( this, ResId (LB_DOCUMENT_TYPES) ),
    maBtCreate      ( this, ResId (BTN_CREATE) ),
    SvxHyperlinkTabPageBase ( pParent, SVX_RES( RID_SVXPAGE_HYPERLINK_NEWDOCUMENT ),
                              rItemSet )
{
    InitStdControls();
    FreeResource();

    SetExchangeSupport ();

    // set defaults
    maRbtEditNow.Check();

    maBtCreate.SetClickHdl        ( LINK ( this, SvxHyperlinkNewDocTp, ClickNewHdl_Impl ) );
    maEdPath.SetLoseFocusHdl      ( LINK ( this, SvxHyperlinkNewDocTp, LostFocusTargetHdl_Impl ) );
    maEdPath.SetModifyHdl         ( LINK ( this, SvxHyperlinkNewDocTp, ModifiedPathHdl_Impl ) );
    maLbDocTypes.SetDoubleClickHdl( LINK ( this, SvxHyperlinkNewDocTp, DClickDocTypeHdl_Impl ) );

    FillDocumentList ();
}

SvxHyperlinkNewDocTp::~SvxHyperlinkNewDocTp ()
{
    for ( int n=0; n<maLbDocTypes.GetEntryCount(); n++ )
    {
        DocumentTypeData* pTypeData = (DocumentTypeData*)
                                      maLbDocTypes.GetEntryData ( n );
        delete pTypeData;
    }
}

/*************************************************************************
|*
|* Fill the all dialog-controls except controls in groupbox "more..."
|*
|************************************************************************/


void SvxHyperlinkNewDocTp::FillDlgFields ( String& aStrURL )
{
}

#define INTERNETSHORTCUT_ID_TAG       "InternetShortcut"
#define INTERNETSHORTCUT_TITLE_TAG    "Title"
#define INTERNETSHORTCUT_TARGET_TAG   "Target"
#define INTERNETSHORTCUT_FOLDER_TAG   "Folder"
#define INTERNETSHORTCUT_URL_TAG      "URL"
#define INTERNETSHORTCUT_ICONID_TAG   "IconIndex"

void SvxHyperlinkNewDocTp::ReadURLFile( const String& rFile, String& rTitle, String& rURL, sal_Int32& rIconId, BOOL* pShowAsFolder )
{
    // Open file
    Config aCfg( rFile );
    aCfg.SetGroup( INTERNETSHORTCUT_ID_TAG );

    // read URL
    rURL = aCfg.ReadKey( ByteString( RTL_CONSTASCII_STRINGPARAM( INTERNETSHORTCUT_URL_TAG) ), RTL_TEXTENCODING_ASCII_US );
    rURL = SFX_INIMANAGER()->SubstPathVars( rURL );

    // read target
    if ( pShowAsFolder )
    {
        String aTemp( aCfg.ReadKey( ByteString( RTL_CONSTASCII_STRINGPARAM( INTERNETSHORTCUT_TARGET_TAG ) ), RTL_TEXTENCODING_ASCII_US ) );
        *pShowAsFolder = aTemp == String::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( INTERNETSHORTCUT_FOLDER_TAG ) );
    }

    // read image-ID
    String aStrIconId( aCfg.ReadKey( ByteString( RTL_CONSTASCII_STRINGPARAM( INTERNETSHORTCUT_ICONID_TAG ) ), RTL_TEXTENCODING_ASCII_US ) );
    rIconId = aStrIconId.ToInt32();

    // read title
    String aLangStr = SfxIniManager::Get()->SubstPathVars( String::CreateFromAscii( "$(vlang)" ) );
    ByteString aLang( aLangStr, RTL_TEXTENCODING_UTF8 );
    ByteString aGroup = INTERNETSHORTCUT_ID_TAG;
    ( ( aGroup += '-' ) += aLang ) += ".W";
    aCfg.SetGroup( aGroup );
    rTitle = String( aCfg.ReadKey( INTERNETSHORTCUT_TITLE_TAG ), RTL_TEXTENCODING_UTF7 );
}

void SvxHyperlinkNewDocTp::FillDocumentList ()
{
    EnterWait();

    SfxIniManager* pIni = SFX_APP()->GetIniManager();
    String aStrDirName( pIni->Get( SFX_KEY_NEW_DIR ) );

    INetURLObject aFolderObj( aStrDirName, INET_PROT_FILE );
    try
    {
        ::ucb::Content aCnt( aFolderObj.GetMainURL(), uno::Reference< ::com::sun::star::ucb::XCommandEnvironment > () );
        uno::Reference< sdbc::XResultSet > xResultSet;
        uno::Sequence< OUString > aProps(1);
        OUString* pProps = aProps.getArray();
        pProps[0] == OUString::createFromAscii( "Url" );

        try
        {
            xResultSet = aCnt.createCursor( aProps, ::ucb::INCLUDE_DOCUMENTS_ONLY );
        }
        catch ( uno::Exception )
        {
            DBG_ERRORFILE( "Hyperlink-dialog:'New Document':create cursor failed!" );
        }

        if ( xResultSet.is() )
        {
            uno::Reference< com::sun::star::ucb::XContentAccess > xContentAccess( xResultSet, uno::UNO_QUERY );
            try
            {
                while ( xResultSet->next() )
                {
                    OUString aFileURL = xContentAccess->queryContentIdentfierString();
                    INetURLObject aObj( aFileURL );

                    String aTitle;
                    String aURL;
                    BOOL bShowAsFolder;
                    sal_Int32 nIconId;

                    ReadURLFile( aObj.PathToFileName(), aTitle, aURL, nIconId, &bShowAsFolder);//, nImageId );

                    if( aURL.Len() && aTitle.Len() && !aURL.EqualsAscii("private:separator") &&
                        aURL.SearchAscii( "slot" ) == STRING_NOTFOUND && aURL.SearchAscii( "?" ) == STRING_NOTFOUND )
                    {
                        if ( aTitle.GetChar(0) == '_' && aTitle.GetChar(3) == '_' )
                            aTitle = aTitle.Erase( 0, 4 );

                        sal_Char const sTilde[] = "~";
                        aTitle.Erase ( aTitle.SearchAscii( sTilde ), 1 );

                        aURL = pIni->SubstPathVars( aURL );

                        if( !bShowAsFolder )
                        {
                            USHORT nTitleLen = aTitle.Len();
                            if( nTitleLen > 4  && aTitle.GetChar(nTitleLen-4) == '.' && aURL.EqualsAscii( "file:",0,5 ) )
                                aTitle.Erase( nTitleLen-4 );

                            // Insert into listbox
                            const SfxObjectFactory* pFactory = SfxObjectFactory::GetFactory ( aURL );
                            if ( pFactory )
                            {
                                // insert doc-name and image
                                int nPos = maLbDocTypes.InsertEntry ( aTitle );//, aImage );

                                // insert private-url and default-extension as user-data
                                String aStrDefExt ( pFactory->GetFilter (0)->GetDefaultExtension () );
                                DocumentTypeData *pTypeData = new DocumentTypeData ( aURL,
                                                                  aStrDefExt.Copy( 2, aStrDefExt.Len() ) );
                                maLbDocTypes.SetEntryData ( nPos, pTypeData );
                            }
                        }
                    }
                }
            }
            catch ( ... )
            {
                DBG_ERRORFILE( "Hyperlink-dialog:'New Document':Retrieve fileinfos failed!" );
            }
        }
    }
    catch( ... )
    {
        DBG_ERRORFILE( "Hyperlink-dialog:'New Document':Fill listfield failed!" );
    }

    maLbDocTypes.SelectEntryPos ( 0 );

    LeaveWait();
}

/*************************************************************************
|*
|* retrieve and prepare data from dialog-fields
|*
|************************************************************************/

void SvxHyperlinkNewDocTp::GetCurentItemData ( String& aStrURL, String& aStrName,
                                               String& aStrIntName, String& aStrFrame,
                                               SvxLinkInsertMode& eMode )
{
    // get data from dialog-controls
    aStrURL = maEdPath.GetText();

    // does the filename have got a valid extension ?
    INetURLObject aURL( aStrURL, INET_PROT_FILE );

    if ( aStrURL != aEmptyStr &&
         maLbDocTypes.GetSelectEntryPos() != LISTBOX_ENTRY_NOTFOUND )
    {
        // get private-url
        int nPos = maLbDocTypes.GetSelectEntryPos();
        aURL.setExtension ( ( ( DocumentTypeData* )
                                 maLbDocTypes.GetEntryData( nPos ) )->aStrExt );
    }

    sal_Char const sSep[] = ".";

    if( aURL.getFSysPath( INetURLObject::FSYS_DETECT ).Len() - aURL.getName().Len() <= 1 ||
        aURL.getFSysPath( INetURLObject::FSYS_DETECT ).Search( '.' ) == 0 )
    {
        INetURLObject aTmpURL( SFX_APP()->GetIniManager()->Get( SFX_KEY_WORK_PATH ), INET_PROT_FILE );
        if( !aTmpURL.hasFinalSlash() )
            aTmpURL.setFinalSlash();
        aTmpURL.Append( aURL.getName() );
        aURL = aTmpURL;
    }

    // get data from standard-fields
    aStrIntName = mpEdText->GetText();
    aStrName    = mpEdIndication->GetText();
    aStrFrame   = mpCbbFrame->GetText();
    eMode       = (SvxLinkInsertMode) (mpLbForm->GetSelectEntryPos()+1);
    if( IsHTMLDoc() )
        eMode = (SvxLinkInsertMode) ( UINT16(eMode) | HLINK_HTMLMODE );

    if ( aStrURL != aEmptyStr )
        aStrURL = aURL.GetMainURL( INetURLObject::DECODE_WITH_CHARSET );

    if ( aStrName == aEmptyStr )
        aStrName = aStrURL;
}

/*************************************************************************
|*
|* static method to create Tabpage
|*
|************************************************************************/

IconChoicePage* SvxHyperlinkNewDocTp::Create( Window* pWindow, const SfxItemSet& rItemSet )
{
    return( new SvxHyperlinkNewDocTp( pWindow, rItemSet ) );
}

/*************************************************************************
|*
|* Activate / Deactivate Tabpage
|*
|************************************************************************/

void SvxHyperlinkNewDocTp::ActivatePage( const SfxItemSet& rItemSet )
{
    ///////////////////////////////////////
    // Set dialog-fields from input-itemset
    SvxHyperlinkItem *pHyperlinkItem = (SvxHyperlinkItem *)
                                       rItemSet.GetItem (SID_HYPERLINK_GETLINK);

    if ( pHyperlinkItem )
    {
        // standard-fields
        FillStandardDlgFields (pHyperlinkItem);

        mbNewName = ( pHyperlinkItem->GetName() == aEmptyStr );
    }
}

int SvxHyperlinkNewDocTp::DeactivatePage( SfxItemSet* pSet )
{
    String aStrURL, aStrName, aStrIntName, aStrFrame;
    SvxLinkInsertMode eMode;

    GetCurentItemData ( aStrURL, aStrName, aStrIntName, aStrFrame, eMode);

    USHORT nEvents = GetMacroEvents();
    SvxMacroTableDtor* pTable = GetMacroTable();

    SvxHyperlinkItem aItem( SID_HYPERLINK_GETLINK, aStrName, aStrURL, aStrFrame,
                            aStrIntName, eMode, nEvents, pTable );
    pSet->Put (aItem);

    return( LEAVE_PAGE );
}

/*************************************************************************
|*
|* Fill output-ItemSet
|*
|*
|************************************************************************/

BOOL SvxHyperlinkNewDocTp::FillItemSet( SfxItemSet& rOut)
{
    String aStrURL, aStrName, aStrIntName, aStrFrame;
    SvxLinkInsertMode eMode;

    GetCurentItemData ( aStrURL, aStrName, aStrIntName, aStrFrame, eMode);

    // put data into itemset
    USHORT nEvents = GetMacroEvents();
    SvxMacroTableDtor* pTable = GetMacroTable();

    SvxHyperlinkItem aItem( SID_HYPERLINK_SETLINK, aStrName, aStrURL, aStrFrame,
                            aStrIntName, eMode, nEvents, pTable );
    rOut.Put (aItem);

    return TRUE;
}

/*************************************************************************
|*
|* Set initial focus
|*
|************************************************************************/

void SvxHyperlinkNewDocTp::SetInitFocus()
{
    maEdPath.GrabFocus();
}

/*************************************************************************
|*
|* Ask page whether an insert is possible
|*
\************************************************************************/

BOOL SvxHyperlinkNewDocTp::AskApply ()
{
    if( GetName( maEdPath.GetText() ) != aEmptyStr )
        return TRUE;

    WarningBox aWarning( this, WB_OK, SVX_RESSTR(RID_SVXSTR_HYPDLG_NOVALIDFILENAME) );
    aWarning.Execute();

    return FALSE;
}

/*************************************************************************
|*
|* Any action to do after apply-button is pressed
|*
\************************************************************************/

void SvxHyperlinkNewDocTp::DoApply ()
{
    EnterWait();

    // get data from dialog-controls
    String aStrNewName = maEdPath.GetText();

    if ( aStrNewName == aEmptyStr )
        aStrNewName = maStrInitURL;

    ///////////////////////////////////////////////////////
    // create a real URL-String
    INetURLObject aURL( aStrNewName, INET_PROT_FILE );

    int nPos = maLbDocTypes.GetSelectEntryPos();
    if( nPos == LISTBOX_ENTRY_NOTFOUND )
        nPos=0;
    aURL.setExtension ( ( ( DocumentTypeData* )
                             maLbDocTypes.GetEntryData( nPos ) )->aStrExt );

    sal_Char const sSep[] = ".";

    if( aURL.getFSysPath( INetURLObject::FSYS_DETECT ).Len() - aURL.getName().Len() <= 1 ||
        aURL.getFSysPath( INetURLObject::FSYS_DETECT ).Search( '.' ) == 0 )
    {
        INetURLObject aTmpURL( SFX_APP()->GetIniManager()->Get( SFX_KEY_WORK_PATH ), INET_PROT_FILE );
        if( !aTmpURL.hasFinalSlash() )
            aTmpURL.setFinalSlash();
        aTmpURL.Append( aURL.getName() );
        aURL = aTmpURL;
    }

    ///////////////////////////////////////////////////////
    // create Document
    aStrNewName = aURL.GetURLPath( INetURLObject::DECODE_WITH_CHARSET );//INetURLObject::FSYS_DETECT );
    sal_Char const sSlash[] = "/";
    if( aStrNewName.SearchAscii( sSlash ) == 0 )
        aStrNewName.Erase( 0, 1 );

    // current document
    SfxViewFrame* pCurrentDocFrame = SFX_APP()->GetViewFrame();

    if ( aStrNewName != aEmptyStr )
    {
        // get private-url
        int nPos = maLbDocTypes.GetSelectEntryPos();
        if( nPos == LISTBOX_ENTRY_NOTFOUND )
            nPos=0;
        String aStrDocName ( ( ( DocumentTypeData* )
                             maLbDocTypes.GetEntryData( nPos ) )->aStrURL );

        // create items
        SfxStringItem aName( SID_FILE_NAME, aStrDocName );
        SfxStringItem aReferer( SID_REFERER, UniString::CreateFromAscii(
                                    RTL_CONSTASCII_STRINGPARAM( "private:user" ) ) );
        SfxStringItem aFrame( SID_TARGETNAME, UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "_blank" ) ) );
        //SfxBoolItem aFrame( SID_OPEN_NEW_VIEW, TRUE );

        String aStrFlags ( sal_Unicode('S') );
        if ( maRbtEditLater.IsChecked() )
        {
            aStrFlags += sal_Unicode('H');
        }
        SfxStringItem aFlags (SID_OPTIONS, aStrFlags);

        // open url
        const SfxPoolItem* pReturn = GetDispatcher()->Execute( SID_OPENDOC,
                                                               SFX_CALLMODE_SYNCHRON,
                                                               &aName, &aFlags,
                                                               &aFrame, &aReferer, 0L );

        // save new doc
        const SfxViewFrameItem *pItem = PTR_CAST( SfxViewFrameItem, pReturn );
        SfxViewFrame *pViewFrame = pItem->GetFrame();
        if (pViewFrame)
        {
            //SfxViewFrame *pViewFrame = pFrame->GetCurrentViewFrame();
            SfxStringItem aNewName( SID_FILE_NAME, aStrNewName );
            pViewFrame->GetDispatcher()->Execute( SID_SAVEASDOC,
                                                  SFX_CALLMODE_SYNCHRON,
                                                  &aNewName, 0L );

            if ( maRbtEditLater.IsChecked() )
            {
                BOOL bResult = pViewFrame->DoClose();
            }
        }
    }

    if ( maRbtEditNow.IsChecked() )
    {
        pCurrentDocFrame->ToTop();
    }

    LeaveWait();
}

/*************************************************************************
|*
|* reset dialog-fields
|*
|************************************************************************/

void SvxHyperlinkNewDocTp::Reset( const SfxItemSet& rItemSet)
{
    ///////////////////////////////////////
    // Set dialog-fields from create-itemset
    maStrInitURL = aEmptyStr;

    SvxHyperlinkItem *pHyperlinkItem = (SvxHyperlinkItem *)
                                       rItemSet.GetItem (SID_HYPERLINK_GETLINK);

    if ( pHyperlinkItem )
    {
        // set dialog-fields
        FillStandardDlgFields (pHyperlinkItem);

        // set all other fields
        FillDlgFields ( (String&)pHyperlinkItem->GetURL() );

        // Store initial URL
        maStrInitURL = pHyperlinkItem->GetURL();

        mbNewName = ( pHyperlinkItem->GetName() == aEmptyStr );
    }
}

/*************************************************************************
|*
|* Click on imagebutton : new
|*
|************************************************************************/

IMPL_LINK ( SvxHyperlinkNewDocTp, ClickNewHdl_Impl, void *, EMPTYARG )
{
    SfxFileDialog aDlg( SFX_APP()->GetTopWindow(), WB_3DLOOK | WB_OPEN |
                        SFXWB_PATHDIALOG );

    String aStrPath = GetPath ( maEdPath.GetText() );
    String aStrName = GetName ( maEdPath.GetText() );

    if ( aStrPath == aEmptyStr )
    {
        aStrPath = SFX_APP()->GetIniManager()->Get( SFX_KEY_WORK_PATH  );
    }

    aDlg.SetPath ( aStrPath );

    if ( aDlg.Execute() == RET_OK )
    {
        String aStrTmp( aDlg.GetPath() );
        aStrTmp += aStrName;
        INetURLObject aNewURL( aStrTmp, INET_PROT_FILE );

        if ( aStrName != aEmptyStr && aNewURL.getExtension() != aEmptyStr &&
             maLbDocTypes.GetSelectEntryPos() != LISTBOX_ENTRY_NOTFOUND )
        {
            // get private-url
            int nPos = maLbDocTypes.GetSelectEntryPos();
            aNewURL.setExtension ( ( ( DocumentTypeData* )
                                     maLbDocTypes.GetEntryData( nPos ) )->aStrExt );
        }

        aStrTmp = aNewURL.GetURLPath( INetURLObject::DECODE_WITH_CHARSET );
        sal_Char const sSlash[] = "/";
        if( aStrTmp.SearchAscii( sSlash ) == 0 )
            aStrTmp.Erase( 0, 1 );

        maEdPath.SetText ( aStrTmp );
    }

    return( 0L );
}

/*************************************************************************
|*
|* Contens of combobox "Path" modified
|*
|************************************************************************/

IMPL_LINK ( SvxHyperlinkNewDocTp, ModifiedPathHdl_Impl, void *, EMPTYARG )
{
    if ( mbNewName )
        mpEdIndication->SetText ( maEdPath.GetText() );

    return( 0L );
}

/*************************************************************************
|*
|* Combobox Target lost the focus
|*
|************************************************************************/

IMPL_LINK ( SvxHyperlinkNewDocTp, LostFocusTargetHdl_Impl, void *, EMPTYARG )
{
    String aStrURL ( maEdPath.GetText() );

    // Extension
    if ( GetName ( aStrURL ) != aEmptyStr &&
         maLbDocTypes.GetSelectEntryPos() != LISTBOX_ENTRY_NOTFOUND )
    {
        INetURLObject aURL( aStrURL, INET_PROT_FILE );

        // get private-url
        int nPos = maLbDocTypes.GetSelectEntryPos();
        aURL.setExtension ( ( ( DocumentTypeData* )
                                 maLbDocTypes.GetEntryData( nPos ) )->aStrExt );

        String aStrTmp( aURL.GetURLPath( INetURLObject::DECODE_WITH_CHARSET ) );
        sal_Char const sSlash[] = "/";
        if( aStrTmp.SearchAscii( sSlash ) == 0 )
            aStrTmp.Erase( 0, 1 );
        maEdPath.SetText ( aStrTmp );
    }

    ModifiedPathHdl_Impl ( NULL );

    return (0L);
}

/*************************************************************************
|*
|* Double-Click in Listbox
|*
|************************************************************************/

IMPL_LINK ( SvxHyperlinkNewDocTp, DClickDocTypeHdl_Impl, void *, EMPTYARG )
{
    if (maEdPath.GetText().Len() )
        LostFocusTargetHdl_Impl (NULL);

    return (0L);
}

/*************************************************************************
|*
|* retrieve path
|*
|************************************************************************/

String SvxHyperlinkNewDocTp::GetPath ( String& aStrFull )
{
    String aStrPath;

    /*
    if ( aStrFull != aEmptyStr )
    {
        DirEntry aDirEntry ( aStrFull );

        if ( aDirEntry.GetExtension() != aEmptyStr )
            aStrPath = aDirEntry.GetPath().GetFull();   // Pfad mit Filename (+Ext)
        else
            if ( aDirEntry.Exists() )
                aStrPath = aDirEntry.GetFull();         // nur Pfad
            else
                aStrPath = aDirEntry.GetPath().GetFull();// Pfad mit Filename (ohne Ext)
    }
    */

    aStrPath = aStrFull;

    return aStrPath;
}

/*************************************************************************
|*
|* retrieve filename
|*
|************************************************************************/

String SvxHyperlinkNewDocTp::GetName ( String& aStrFull )
{
    String aStrName;
/*
    if ( aStrFull != aEmptyStr )
    {
        INetURLObject aURL( aStrFull, INET_PROT_FILE );

        if ( aDirEntry.GetExtension() != aEmptyStr || !aDirEntry.Exists() )
            aStrName = aDirEntry.GetName();
        else if ( aDirEntry.Exists() )
        {
            FileStat aFileStatus ( aDirEntry );

            if ( aFileStatus.GetKind() == FSYS_KIND_FILE )
                aStrName = aDirEntry.GetName();
        }

        if( aURL.getExtension() != aEmptyStr )
            aStrName = aURL.getName();
    }
    */
    INetURLObject aURL( aStrFull, INET_PROT_FILE );
    aStrName = aURL.getName();

    return aStrName;
}