unusedcode.easy | 2 vbahelper/source/vbahelper/vbafontbase.cxx | 62 ----------------------------- 2 files changed, 64 deletions(-)
New commits: commit 231520e7bb996f5ec211ff7e4f64e20f112d8789 Author: Gábor Stefanik <netrolller...@gmail.com> Date: Sat Apr 7 19:28:05 2012 +0200 Kill vbaFontBase::get/setUnderline diff --git a/unusedcode.easy b/unusedcode.easy index effe4e4..5611973 100755 --- a/unusedcode.easy +++ b/unusedcode.easy @@ -298,8 +298,6 @@ VCLXDevice::IsCreatedWithToolkit() const VCLXPrinterServer::getImplementationId() VCLXPrinterServer::getTypes() VCLXRadioButton::getFirstActionListener() -VbaFontBase::getUnderline() -VbaFontBase::setUnderline(com::sun::star::uno::Any const&) VbaFoundFilesEnum::SetFileList(com::sun::star::uno::Sequence<rtl::OUString>&) VbaFoundFilesEnum::VbaFoundFilesEnum() VclEventListeners2::~VclEventListeners2() diff --git a/vbahelper/source/vbahelper/vbafontbase.cxx b/vbahelper/source/vbahelper/vbafontbase.cxx index 3f681c6..59dc77f 100644 --- a/vbahelper/source/vbahelper/vbafontbase.cxx +++ b/vbahelper/source/vbahelper/vbafontbase.cxx @@ -276,66 +276,4 @@ VbaFontBase::setColor( const uno::Any& _color ) throw (uno::RuntimeException) mxFont->setPropertyValue( VBAFONTBASE_PROPNAME( "CharColor", "TextColor" ), XLRGBToOORGB(_color) ); } -void SAL_CALL -VbaFontBase::setUnderline( const uno::Any& /*aValue*/ ) throw ( uno::RuntimeException ) -{ -/* - // default - sal_Int32 nValue = excel::XlUnderlineStyle::xlUnderlineStyleNone; - aValue >>= nValue; - switch ( nValue ) - { -// NOTE:: #TODO #FIMXE -// xlUnderlineStyleDoubleAccounting & xlUnderlineStyleSingleAccounting -// don't seem to be supported in Openoffice. -// The import filter converts them to single or double underlines as appropriate -// So, here at the moment we are similarly silently converting -// xlUnderlineStyleSingleAccounting to xlUnderlineStyleSingle. - - case excel::XlUnderlineStyle::xlUnderlineStyleNone: - nValue = awt::FontUnderline::NONE; - break; - case excel::XlUnderlineStyle::xlUnderlineStyleSingle: - case excel::XlUnderlineStyle::xlUnderlineStyleSingleAccounting: - nValue = awt::FontUnderline::SINGLE; - break; - case excel::XlUnderlineStyle::xlUnderlineStyleDouble: - case excel::XlUnderlineStyle::xlUnderlineStyleDoubleAccounting: - nValue = awt::FontUnderline::DOUBLE; - break; - default: - throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Unknown value for Underline")), uno::Reference< uno::XInterface >() ); - } - - mxFont->setPropertyValue( VBAFONTBASE_PROPNAME( "CharUnderline", "FontUnderline" ), uno::Any( nValue ) ); -*/ - -} - -uno::Any SAL_CALL -VbaFontBase::getUnderline() throw ( uno::RuntimeException ) -{ - sal_Int32 nValue = awt::FontUnderline::NONE; - mxFont->getPropertyValue( VBAFONTBASE_PROPNAME( "CharUnderline", "FontUnderline" ) ) >>= nValue; -/* - switch ( nValue ) - { - case awt::FontUnderline::DOUBLE: - nValue = excel::XlUnderlineStyle::xlUnderlineStyleDouble; - break; - case awt::FontUnderline::SINGLE: - nValue = excel::XlUnderlineStyle::xlUnderlineStyleSingle; - break; - case awt::FontUnderline::NONE: - nValue = excel::XlUnderlineStyle::xlUnderlineStyleNone; - break; - default: - throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Unknown value retrieved for Underline") ), uno::Reference< uno::XInterface >() ); - - } -*/ - return uno::makeAny( nValue ); -} - - /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
_______________________________________________ Libreoffice-commits mailing list Libreoffice-commits@lists.freedesktop.org http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits