diff options
Diffstat (limited to 'padmin/source')
| -rw-r--r-- | padmin/source/helper.cxx | 23 | ||||
| -rw-r--r-- | padmin/source/makefile.mk | 5 |
2 files changed, 24 insertions, 4 deletions
diff --git a/padmin/source/helper.cxx b/padmin/source/helper.cxx index 801153b10dc7..1dd13a9e9dd5 100644 --- a/padmin/source/helper.cxx +++ b/padmin/source/helper.cxx @@ -2,9 +2,9 @@ * * $RCSfile: helper.cxx,v $ * - * $Revision: 1.6 $ + * $Revision: 1.7 $ * - * last change: $Author: pl $ $Date: 2001-09-04 16:24:50 $ + * last change: $Author: pl $ $Date: 2002-09-03 13:23:11 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -92,6 +92,9 @@ #ifndef _COM_SUN_STAR_UI_DIALOGS_XFOLDERPICKER_HPP_ #include <com/sun/star/ui/dialogs/XFolderPicker.hpp> #endif +#ifndef _COM_SUN_STAR_UI_DIALOGS_XCONTROLACCESS_HPP_ +#include <com/sun/star/ui/dialogs/XControlAccess.hpp> +#endif #ifndef _COM_SUN_STAR_LANG_XMULTISERVICEFACTORY_HPP_ #include <com/sun/star/lang/XMultiServiceFactory.hpp> #endif @@ -307,6 +310,22 @@ bool padmin::chooseDirectory( Window* pParent, String& rInOutPath ) Reference< XFolderPicker > xFolderPicker( xFactory->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FolderPicker" ) ) ), UNO_QUERY ); if( xFolderPicker.is() ) { + Reference< XControlAccess > xCA( xFolderPicker, UNO_QUERY ); + if( xCA.is() ) + { + try + { + Any aState; + aState <<= sal_False; + xCA->setControlProperty( OUString( RTL_CONSTASCII_USTRINGPARAM( "HelpButton" ) ), + OUString( RTL_CONSTASCII_USTRINGPARAM( "Visible" ) ), + aState ); + + } + catch( ... ) + { + } + } INetURLObject aObj( rInOutPath, INET_PROT_FILE, INetURLObject::ENCODE_ALL ); xFolderPicker->setDisplayDirectory( aObj.GetMainURL() ); if( xFolderPicker->execute() == ExecutableDialogResults::OK ) diff --git a/padmin/source/makefile.mk b/padmin/source/makefile.mk index b2287cbc841d..40b2b243605c 100644 --- a/padmin/source/makefile.mk +++ b/padmin/source/makefile.mk @@ -2,9 +2,9 @@ # # $RCSfile: makefile.mk,v $ # -# $Revision: 1.6 $ +# $Revision: 1.7 $ # -# last change: $Author: hjs $ $Date: 2002-08-19 17:46:04 $ +# last change: $Author: pl $ $Date: 2002-09-03 13:23:11 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -63,6 +63,7 @@ PRJ=.. PRJNAME=padmin TARGET=padmin +ENABLE_EXCEPTIONS=TRUE LIBTARGET=NO # --- Settings ----------------------------------------------------- |