Skip to content
Projeler
Gruplar
Parçacıklar
Yardım
Yükleniyor...
Oturum aç / Kaydol
Gezinmeyi değiştir
C
core
Proje
Proje
Ayrıntılar
Etkinlik
Cycle Analytics
Depo (repository)
Depo (repository)
Dosyalar
Kayıtlar (commit)
Dallar (branch)
Etiketler
Katkıda bulunanlar
Grafik
Karşılaştır
Grafikler
Konular (issue)
0
Konular (issue)
0
Liste
Pano
Etiketler
Kilometre Taşları
Birleştirme (merge) Talepleri
0
Birleştirme (merge) Talepleri
0
CI / CD
CI / CD
İş akışları (pipeline)
İşler
Zamanlamalar
Grafikler
Paketler
Paketler
Wiki
Wiki
Parçacıklar
Parçacıklar
Üyeler
Üyeler
Collapse sidebar
Close sidebar
Etkinlik
Grafik
Grafikler
Yeni bir konu (issue) oluştur
İşler
Kayıtlar (commit)
Konu (issue) Panoları
Kenar çubuğunu aç
LibreOffice
core
Commits
44dc8746
Kaydet (Commit)
44dc8746
authored
Agu 24, 2012
tarafından
Noel Power
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
remove VBA_OOBUILD_HACK and friends
Change-Id: I5c21a407bcae1b668976b94a757d564120973b1a
üst
65736905
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
2 additions
and
38 deletions
+2
-38
Library_vbaobj.mk
sc/Library_vbaobj.mk
+0
-4
vbarange.cxx
sc/source/ui/vba/vbarange.cxx
+0
-12
vbaworksheet.cxx
sc/source/ui/vba/vbaworksheet.cxx
+0
-4
Library_svt.mk
svtools/Library_svt.mk
+1
-0
Package_inc.mk
svtools/Package_inc.mk
+1
-0
bindablecontrolhelper.hxx
svtools/inc/svtools/bindablecontrolhelper.hxx
+0
-0
vbacontrol.cxx
vbahelper/source/msforms/vbacontrol.cxx
+0
-18
No files found.
sc/Library_vbaobj.mk
Dosyayı görüntüle @
44dc8746
...
@@ -32,10 +32,6 @@ $(eval $(call gb_Library_set_include,vbaobj,\
...
@@ -32,10 +32,6 @@ $(eval $(call gb_Library_set_include,vbaobj,\
$(eval $(call gb_Library_set_componentfile,vbaobj,sc/util/vbaobj))
$(eval $(call gb_Library_set_componentfile,vbaobj,sc/util/vbaobj))
$(eval $(call gb_Library_add_defs,vbaobj,\
-DVBA_OOBUILD_HACK \
))
$(eval $(call gb_Library_use_api,vbaobj,\
$(eval $(call gb_Library_use_api,vbaobj,\
offapi \
offapi \
oovbaapi \
oovbaapi \
...
...
sc/source/ui/vba/vbarange.cxx
Dosyayı görüntüle @
44dc8746
...
@@ -2954,11 +2954,7 @@ getPasteFlags (sal_Int32 Paste)
...
@@ -2954,11 +2954,7 @@ getPasteFlags (sal_Int32 Paste)
nFlags
=
IDF_FORMULA
;
break
;
nFlags
=
IDF_FORMULA
;
break
;
case
excel
:
:
XlPasteType
::
xlPasteFormulasAndNumberFormats
:
case
excel
:
:
XlPasteType
::
xlPasteFormulasAndNumberFormats
:
case
excel
:
:
XlPasteType
::
xlPasteValues
:
case
excel
:
:
XlPasteType
::
xlPasteValues
:
#ifdef VBA_OOBUILD_HACK
nFlags
=
(
IDF_VALUE
|
IDF_DATETIME
|
IDF_STRING
|
IDF_SPECIAL_BOOLEAN
);
break
;
nFlags
=
(
IDF_VALUE
|
IDF_DATETIME
|
IDF_STRING
|
IDF_SPECIAL_BOOLEAN
);
break
;
#else
nFlags
=
(
IDF_VALUE
|
IDF_DATETIME
|
IDF_STRING
);
break
;
#endif
case
excel
:
:
XlPasteType
::
xlPasteValuesAndNumberFormats
:
case
excel
:
:
XlPasteType
::
xlPasteValuesAndNumberFormats
:
nFlags
=
IDF_VALUE
|
IDF_ATTRIB
;
break
;
nFlags
=
IDF_VALUE
|
IDF_ATTRIB
;
break
;
case
excel
:
:
XlPasteType
::
xlPasteColumnWidths
:
case
excel
:
:
XlPasteType
::
xlPasteColumnWidths
:
...
@@ -3566,17 +3562,13 @@ ScVbaRange::Sort( const uno::Any& Key1, const uno::Any& Order1, const uno::Any&
...
@@ -3566,17 +3562,13 @@ ScVbaRange::Sort( const uno::Any& Key1, const uno::Any& Order1, const uno::Any&
if
(
nOrientation
==
excel
::
XlSortOrientation
::
xlSortRows
)
if
(
nOrientation
==
excel
::
XlSortOrientation
::
xlSortRows
)
bIsSortColumns
=
sal_True
;
bIsSortColumns
=
sal_True
;
sal_Int16
nHeader
=
0
;
sal_Int16
nHeader
=
0
;
#ifdef VBA_OOBUILD_HACK
nHeader
=
aSortParam
.
nCompatHeader
;
nHeader
=
aSortParam
.
nCompatHeader
;
#endif
sal_Bool
bContainsHeader
=
false
;
sal_Bool
bContainsHeader
=
false
;
if
(
Header
.
hasValue
()
)
if
(
Header
.
hasValue
()
)
{
{
nHeader
=
::
comphelper
::
getINT16
(
Header
);
nHeader
=
::
comphelper
::
getINT16
(
Header
);
#ifdef VBA_OOBUILD_HACK
aSortParam
.
nCompatHeader
=
nHeader
;
aSortParam
.
nCompatHeader
=
nHeader
;
#endif
}
}
if
(
nHeader
==
excel
::
XlYesNoGuess
::
xlGuess
)
if
(
nHeader
==
excel
::
XlYesNoGuess
::
xlGuess
)
...
@@ -3587,9 +3579,7 @@ ScVbaRange::Sort( const uno::Any& Key1, const uno::Any& Order1, const uno::Any&
...
@@ -3587,9 +3579,7 @@ ScVbaRange::Sort( const uno::Any& Key1, const uno::Any& Order1, const uno::Any&
nHeader
=
excel
::
XlYesNoGuess
::
xlYes
;
nHeader
=
excel
::
XlYesNoGuess
::
xlYes
;
else
else
nHeader
=
excel
::
XlYesNoGuess
::
xlNo
;
nHeader
=
excel
::
XlYesNoGuess
::
xlNo
;
#ifdef VBA_OOBUILD_HACK
aSortParam
.
nCompatHeader
=
nHeader
;
aSortParam
.
nCompatHeader
=
nHeader
;
#endif
}
}
if
(
nHeader
==
excel
::
XlYesNoGuess
::
xlYes
)
if
(
nHeader
==
excel
::
XlYesNoGuess
::
xlYes
)
...
@@ -5574,12 +5564,10 @@ ScVbaRange::AutoFill( const uno::Reference< excel::XRange >& Destination, const
...
@@ -5574,12 +5564,10 @@ ScVbaRange::AutoFill( const uno::Reference< excel::XRange >& Destination, const
break
;
break
;
}
}
}
}
#ifdef VBA_OOBUILD_HACK
double
fEndValue
=
MAXDOUBLE
;
double
fEndValue
=
MAXDOUBLE
;
ScDocShell
*
pDocSh
=
excel
::
GetDocShellFromRange
(
mxRange
);
ScDocShell
*
pDocSh
=
excel
::
GetDocShellFromRange
(
mxRange
);
pDocSh
->
GetDocFunc
().
FillAuto
(
aSourceRange
,
NULL
,
eDir
,
eCmd
,
eDateCmd
,
pDocSh
->
GetDocFunc
().
FillAuto
(
aSourceRange
,
NULL
,
eDir
,
eCmd
,
eDateCmd
,
nCount
,
fStep
,
fEndValue
,
sal_True
,
sal_True
);
nCount
,
fStep
,
fEndValue
,
sal_True
,
sal_True
);
#endif
}
}
sal_Bool
SAL_CALL
sal_Bool
SAL_CALL
ScVbaRange
::
GoalSeek
(
const
uno
::
Any
&
Goal
,
const
uno
::
Reference
<
excel
::
XRange
>&
ChangingCell
)
throw
(
uno
::
RuntimeException
)
ScVbaRange
::
GoalSeek
(
const
uno
::
Any
&
Goal
,
const
uno
::
Reference
<
excel
::
XRange
>&
ChangingCell
)
throw
(
uno
::
RuntimeException
)
...
...
sc/source/ui/vba/vbaworksheet.cxx
Dosyayı görüntüle @
44dc8746
...
@@ -960,7 +960,6 @@ ScVbaWorksheet::Spinners( const uno::Any& /*rIndex*/ ) throw (uno::RuntimeExcept
...
@@ -960,7 +960,6 @@ ScVbaWorksheet::Spinners( const uno::Any& /*rIndex*/ ) throw (uno::RuntimeExcept
void
SAL_CALL
void
SAL_CALL
ScVbaWorksheet
::
ShowDataForm
(
)
throw
(
uno
::
RuntimeException
)
ScVbaWorksheet
::
ShowDataForm
(
)
throw
(
uno
::
RuntimeException
)
{
{
#ifdef VBA_OOBUILD_HACK
uno
::
Reference
<
frame
::
XModel
>
xModel
(
getModel
(),
uno
::
UNO_QUERY_THROW
);
uno
::
Reference
<
frame
::
XModel
>
xModel
(
getModel
(),
uno
::
UNO_QUERY_THROW
);
ScTabViewShell
*
pTabViewShell
=
excel
::
getBestViewShell
(
xModel
);
ScTabViewShell
*
pTabViewShell
=
excel
::
getBestViewShell
(
xModel
);
...
@@ -971,9 +970,6 @@ ScVbaWorksheet::ShowDataForm( ) throw (uno::RuntimeException)
...
@@ -971,9 +970,6 @@ ScVbaWorksheet::ShowDataForm( ) throw (uno::RuntimeException)
OSL_ENSURE
(
pDlg
,
"Dialog create fail!"
);
OSL_ENSURE
(
pDlg
,
"Dialog create fail!"
);
pDlg
->
Execute
();
pDlg
->
Execute
();
#else
throw
uno
::
RuntimeException
(
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"Not implemented"
)
),
uno
::
Reference
<
uno
::
XInterface
>
()
);
#endif
}
}
uno
::
Any
SAL_CALL
uno
::
Any
SAL_CALL
...
...
svtools/Library_svt.mk
Dosyayı görüntüle @
44dc8746
...
@@ -183,6 +183,7 @@ $(eval $(call gb_Library_add_exception_objects,svt,\
...
@@ -183,6 +183,7 @@ $(eval $(call gb_Library_add_exception_objects,svt,\
svtools/source/java/javacontext \
svtools/source/java/javacontext \
svtools/source/java/javainteractionhandler \
svtools/source/java/javainteractionhandler \
svtools/source/misc/acceleratorexecute \
svtools/source/misc/acceleratorexecute \
svtools/source/misc/bindablecontrolhelper \
svtools/source/misc/chartprettypainter \
svtools/source/misc/chartprettypainter \
svtools/source/misc/cliplistener \
svtools/source/misc/cliplistener \
svtools/source/misc/dialogclosedlistener \
svtools/source/misc/dialogclosedlistener \
...
...
svtools/Package_inc.mk
Dosyayı görüntüle @
44dc8746
...
@@ -39,6 +39,7 @@ $(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/accessibletableprovide
...
@@ -39,6 +39,7 @@ $(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/accessibletableprovide
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/addresstemplate.hxx,svtools/addresstemplate.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/addresstemplate.hxx,svtools/addresstemplate.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/apearcfg.hxx,svtools/apearcfg.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/apearcfg.hxx,svtools/apearcfg.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/asynclink.hxx,svtools/asynclink.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/asynclink.hxx,svtools/asynclink.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/bindablecontrolhelper.hxx,svtools/bindablecontrolhelper.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/borderhelper.hxx,svtools/borderhelper.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/borderhelper.hxx,svtools/borderhelper.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/brwbox.hxx,svtools/brwbox.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/brwbox.hxx,svtools/brwbox.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/brwhead.hxx,svtools/brwhead.hxx))
$(eval $(call gb_Package_add_file,svtools_inc,inc/svtools/brwhead.hxx,svtools/brwhead.hxx))
...
...
svtools/inc/bindablecontrolhelper.hxx
→
svtools/inc/
svtools/
bindablecontrolhelper.hxx
Dosyayı görüntüle @
44dc8746
File moved
vbahelper/source/msforms/vbacontrol.cxx
Dosyayı görüntüle @
44dc8746
...
@@ -36,9 +36,7 @@
...
@@ -36,9 +36,7 @@
#include <com/sun/star/form/XChangeListener.hpp>
#include <com/sun/star/form/XChangeListener.hpp>
#include <ooo/vba/XControlProvider.hpp>
#include <ooo/vba/XControlProvider.hpp>
#include <ooo/vba/msforms/fmMousePointer.hpp>
#include <ooo/vba/msforms/fmMousePointer.hpp>
#ifdef VBA_OOBUILD_HACK
#include <svtools/bindablecontrolhelper.hxx>
#include <svtools/bindablecontrolhelper.hxx>
#endif
#include "vbacontrol.hxx"
#include "vbacontrol.hxx"
#include "vbacombobox.hxx"
#include "vbacombobox.hxx"
#include "vbabutton.hxx"
#include "vbabutton.hxx"
...
@@ -281,7 +279,6 @@ ScVbaControl::getControlSource() throw (uno::RuntimeException)
...
@@ -281,7 +279,6 @@ ScVbaControl::getControlSource() throw (uno::RuntimeException)
// #FIXME I *hate* having these upstream differences
// #FIXME I *hate* having these upstream differences
// but this is necessary until I manage to upstream other
// but this is necessary until I manage to upstream other
// dependant parts
// dependant parts
#ifdef VBA_OOBUILD_HACK
rtl
::
OUString
sControlSource
;
rtl
::
OUString
sControlSource
;
uno
::
Reference
<
form
::
binding
::
XBindableValue
>
xBindable
(
m_xProps
,
uno
::
UNO_QUERY
);
uno
::
Reference
<
form
::
binding
::
XBindableValue
>
xBindable
(
m_xProps
,
uno
::
UNO_QUERY
);
if
(
xBindable
.
is
()
)
if
(
xBindable
.
is
()
)
...
@@ -301,26 +298,18 @@ ScVbaControl::getControlSource() throw (uno::RuntimeException)
...
@@ -301,26 +298,18 @@ ScVbaControl::getControlSource() throw (uno::RuntimeException)
}
}
}
}
return
sControlSource
;
return
sControlSource
;
#else
throw
uno
::
RuntimeException
(
rtl
::
OUString
(
"getControlSource not supported"
),
uno
::
Reference
<
uno
::
XInterface
>
());
// not supported
#endif
}
}
void
SAL_CALL
void
SAL_CALL
ScVbaControl
::
setControlSource
(
const
rtl
::
OUString
&
_controlsource
)
throw
(
uno
::
RuntimeException
)
ScVbaControl
::
setControlSource
(
const
rtl
::
OUString
&
_controlsource
)
throw
(
uno
::
RuntimeException
)
{
{
#ifdef VBA_OOBUILD_HACK
rtl
::
OUString
sEmpty
;
rtl
::
OUString
sEmpty
;
svt
::
BindableControlHelper
::
ApplyListSourceAndBindableData
(
m_xModel
,
m_xProps
,
_controlsource
,
sEmpty
);
svt
::
BindableControlHelper
::
ApplyListSourceAndBindableData
(
m_xModel
,
m_xProps
,
_controlsource
,
sEmpty
);
#else
throw
uno
::
RuntimeException
(
rtl
::
OUString
(
"setControlSource not supported "
).
concat
(
_controlsource
),
uno
::
Reference
<
uno
::
XInterface
>
());
// not supported
#endif
}
}
rtl
::
OUString
SAL_CALL
rtl
::
OUString
SAL_CALL
ScVbaControl
::
getRowSource
()
throw
(
uno
::
RuntimeException
)
ScVbaControl
::
getRowSource
()
throw
(
uno
::
RuntimeException
)
{
{
#ifdef VBA_OOBUILD_HACK
rtl
::
OUString
sRowSource
;
rtl
::
OUString
sRowSource
;
uno
::
Reference
<
form
::
binding
::
XListEntrySink
>
xListSink
(
m_xProps
,
uno
::
UNO_QUERY
);
uno
::
Reference
<
form
::
binding
::
XListEntrySink
>
xListSink
(
m_xProps
,
uno
::
UNO_QUERY
);
if
(
xListSink
.
is
()
)
if
(
xListSink
.
is
()
)
...
@@ -341,20 +330,13 @@ ScVbaControl::getRowSource() throw (uno::RuntimeException)
...
@@ -341,20 +330,13 @@ ScVbaControl::getRowSource() throw (uno::RuntimeException)
}
}
}
}
return
sRowSource
;
return
sRowSource
;
#else
throw
uno
::
RuntimeException
(
rtl
::
OUString
(
"getRowSource not supported"
),
uno
::
Reference
<
uno
::
XInterface
>
());
// not supported
#endif
}
}
void
SAL_CALL
void
SAL_CALL
ScVbaControl
::
setRowSource
(
const
rtl
::
OUString
&
_rowsource
)
throw
(
uno
::
RuntimeException
)
ScVbaControl
::
setRowSource
(
const
rtl
::
OUString
&
_rowsource
)
throw
(
uno
::
RuntimeException
)
{
{
#ifdef VBA_OOBUILD_HACK
rtl
::
OUString
sEmpty
;
rtl
::
OUString
sEmpty
;
svt
::
BindableControlHelper
::
ApplyListSourceAndBindableData
(
m_xModel
,
m_xProps
,
sEmpty
,
_rowsource
);
svt
::
BindableControlHelper
::
ApplyListSourceAndBindableData
(
m_xModel
,
m_xProps
,
sEmpty
,
_rowsource
);
#else
throw
uno
::
RuntimeException
(
rtl
::
OUString
(
"setRowSource not supported "
).
concat
(
_rowsource
),
uno
::
Reference
<
uno
::
XInterface
>
());
// not supported
#endif
}
}
rtl
::
OUString
SAL_CALL
rtl
::
OUString
SAL_CALL
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment