Kill vbaFontBase::get/setUnderline

2 files changed, 0 insertions, 64 deletions

diff --git a/unusedcode.easy b/unusedcode.easy
index effe4e4b17ac..56119738e04c 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 3f681c6eec68..59dc77feec07 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: */