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
43afea36
Kaydet (Commit)
43afea36
authored
Eki 24, 2010
tarafından
Caolán McNamara
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
micro opts and fix indentation
üst
817463a2
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
48 additions
and
52 deletions
+48
-52
eventatt.cxx
basic/source/classes/eventatt.cxx
+48
-52
No files found.
basic/source/classes/eventatt.cxx
Dosyayı görüntüle @
43afea36
...
@@ -156,18 +156,18 @@ void SFURL_firing_impl( const ScriptEvent& aScriptEvent, Any* pRet, const Refere
...
@@ -156,18 +156,18 @@ void SFURL_firing_impl( const ScriptEvent& aScriptEvent, Any* pRet, const Refere
Reference
<
XComponentContext
>
xContext
;
Reference
<
XComponentContext
>
xContext
;
Reference
<
XPropertySet
>
xProps
(
::
comphelper
::
getProcessServiceFactory
(),
UNO_QUERY
);
Reference
<
XPropertySet
>
xProps
(
::
comphelper
::
getProcessServiceFactory
(),
UNO_QUERY
);
OSL_ASSERT
(
xProps
.
is
()
);
OSL_ASSERT
(
xProps
.
is
()
);
OSL_VERIFY
(
xProps
->
getPropertyValue
(
::
rtl
::
OUString
::
createFromAscii
(
"DefaultContext"
)
)
>>=
xContext
);
OSL_VERIFY
(
xProps
->
getPropertyValue
(
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"DefaultContext"
)
)
)
>>=
xContext
);
if
(
xContext
.
is
()
)
if
(
xContext
.
is
()
)
{
{
Reference
<
provider
::
XScriptProviderFactory
>
xFactory
(
Reference
<
provider
::
XScriptProviderFactory
>
xFactory
(
xContext
->
getValueByName
(
xContext
->
getValueByName
(
::
rtl
::
OUString
::
createFromAscii
(
"/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory"
)
),
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory"
)
)
),
UNO_QUERY
);
UNO_QUERY
);
OSL_ENSURE
(
xFactory
.
is
(),
"SFURL_firing_impl: failed to get master script provider factory"
);
OSL_ENSURE
(
xFactory
.
is
(),
"SFURL_firing_impl: failed to get master script provider factory"
);
if
(
xFactory
.
is
()
)
if
(
xFactory
.
is
()
)
{
{
Any
aCtx
;
Any
aCtx
;
aCtx
<<=
::
rtl
::
OUString
::
createFromAscii
(
"user"
);
aCtx
<<=
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"user"
)
);
xScriptProvider
.
set
(
xFactory
->
createScriptProvider
(
aCtx
),
UNO_QUERY
);
xScriptProvider
.
set
(
xFactory
->
createScriptProvider
(
aCtx
),
UNO_QUERY
);
}
}
}
}
...
@@ -486,15 +486,8 @@ Any implFindDialogLibForDialogBasic( const Any& aAnyISP, SbxObject* pBasic, Star
...
@@ -486,15 +486,8 @@ Any implFindDialogLibForDialogBasic( const Any& aAnyISP, SbxObject* pBasic, Star
return
aDlgLibAny
;
return
aDlgLibAny
;
}
}
static
::
rtl
::
OUString
aDecorationPropName
=
::
rtl
::
OUString
::
createFromAscii
(
"Decoration"
);
static
::
rtl
::
OUString
aTitlePropName
=
::
rtl
::
OUString
::
createFromAscii
(
"Title"
);
void
RTL_Impl_CreateUnoDialog
(
StarBASIC
*
pBasic
,
SbxArray
&
rPar
,
BOOL
bWrite
)
void
RTL_Impl_CreateUnoDialog
(
StarBASIC
*
pBasic
,
SbxArray
&
rPar
,
BOOL
bWrite
)
{
{
static
::
rtl
::
OUString
aResourceResolverPropName
=
::
rtl
::
OUString
::
createFromAscii
(
"ResourceResolver"
);
(
void
)
pBasic
;
(
void
)
pBasic
;
(
void
)
bWrite
;
(
void
)
bWrite
;
...
@@ -553,11 +546,14 @@ void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite )
...
@@ -553,11 +546,14 @@ void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite )
bool
bDecoration
=
true
;
bool
bDecoration
=
true
;
try
try
{
{
::
rtl
::
OUString
aDecorationPropName
(
RTL_CONSTASCII_USTRINGPARAM
(
"Decoration"
));
Any
aDecorationAny
=
xDlgModPropSet
->
getPropertyValue
(
aDecorationPropName
);
Any
aDecorationAny
=
xDlgModPropSet
->
getPropertyValue
(
aDecorationPropName
);
aDecorationAny
>>=
bDecoration
;
aDecorationAny
>>=
bDecoration
;
if
(
!
bDecoration
)
if
(
!
bDecoration
)
{
{
xDlgModPropSet
->
setPropertyValue
(
aDecorationPropName
,
makeAny
(
true
)
);
xDlgModPropSet
->
setPropertyValue
(
aDecorationPropName
,
makeAny
(
true
)
);
::
rtl
::
OUString
aTitlePropName
(
RTL_CONSTASCII_USTRINGPARAM
(
"Title"
));
xDlgModPropSet
->
setPropertyValue
(
aTitlePropName
,
makeAny
(
::
rtl
::
OUString
()
)
);
xDlgModPropSet
->
setPropertyValue
(
aTitlePropName
,
makeAny
(
::
rtl
::
OUString
()
)
);
}
}
}
}
...
@@ -570,43 +566,43 @@ void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite )
...
@@ -570,43 +566,43 @@ void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite )
StarBASIC
*
pFoundBasic
=
NULL
;
StarBASIC
*
pFoundBasic
=
NULL
;
OSL_TRACE
(
"About to try get a hold of ThisComponent"
);
OSL_TRACE
(
"About to try get a hold of ThisComponent"
);
Reference
<
frame
::
XModel
>
xModel
=
getModelFromBasic
(
pINST
->
GetBasic
()
)
;
Reference
<
frame
::
XModel
>
xModel
=
getModelFromBasic
(
pINST
->
GetBasic
()
)
;
aDlgLibAny
=
implFindDialogLibForDialogBasic
(
aAnyISP
,
pINST
->
GetBasic
(),
pFoundBasic
);
aDlgLibAny
=
implFindDialogLibForDialogBasic
(
aAnyISP
,
pINST
->
GetBasic
(),
pFoundBasic
);
// If we found the dialog then it belongs to the Search basic
// If we found the dialog then it belongs to the Search basic
if
(
!
pFoundBasic
)
if
(
!
pFoundBasic
)
{
Reference
<
frame
::
XDesktop
>
xDesktop
(
xMSF
->
createInstance
(
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"com.sun.star.frame.Desktop"
)
)
),
UNO_QUERY
);
Reference
<
container
::
XEnumeration
>
xModels
;
if
(
xDesktop
.
is
()
)
{
{
Reference
<
container
::
XEnumerationAccess
>
xComponents
(
xDesktop
->
getComponents
(),
UNO_QUERY
);
Reference
<
frame
::
XDesktop
>
xDesktop
(
xMSF
->
createInstance
if
(
xComponents
.
is
()
)
(
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"com.sun.star.frame.Desktop"
)
)
),
xModels
.
set
(
xComponents
->
createEnumeration
(),
UNO_QUERY
);
UNO_QUERY
);
if
(
xModels
.
is
()
)
Reference
<
container
::
XEnumeration
>
xModels
;
if
(
xDesktop
.
is
()
)
{
Reference
<
container
::
XEnumerationAccess
>
xComponents
(
xDesktop
->
getComponents
(),
UNO_QUERY
);
if
(
xComponents
.
is
()
)
xModels
.
set
(
xComponents
->
createEnumeration
(),
UNO_QUERY
);
if
(
xModels
.
is
()
)
{
while
(
xModels
->
hasMoreElements
()
)
{
{
while
(
xModels
->
hasMoreElements
()
)
Reference
<
frame
::
XModel
>
xNextModel
(
xModels
->
nextElement
(),
UNO_QUERY
);
if
(
xNextModel
.
is
()
)
{
{
Reference
<
frame
::
XModel
>
xNextModel
(
xModels
->
nextElement
(),
UNO_QUERY
);
BasicManager
*
pMgr
=
basic
::
BasicManagerRepository
::
getDocumentBasicManager
(
xNextModel
);
if
(
xNextModel
.
is
()
)
if
(
pMgr
)
aDlgLibAny
=
implFindDialogLibForDialogBasic
(
aAnyISP
,
pMgr
->
GetLib
(
0
),
pFoundBasic
);
if
(
aDlgLibAny
.
hasValue
()
)
{
{
BasicManager
*
pMgr
=
basic
::
BasicManagerRepository
::
getDocumentBasicManager
(
xNextModel
);
bDocDialog
=
true
;
if
(
pMgr
)
xModel
=
xNextModel
;
aDlgLibAny
=
implFindDialogLibForDialogBasic
(
aAnyISP
,
pMgr
->
GetLib
(
0
),
pFoundBasic
);
break
;
if
(
aDlgLibAny
.
hasValue
()
)
{
bDocDialog
=
true
;
xModel
=
xNextModel
;
break
;
}
}
}
}
}
}
}
}
}
}
}
}
if
(
pFoundBasic
)
if
(
pFoundBasic
)
bDocDialog
=
pFoundBasic
->
IsDocBasic
();
bDocDialog
=
pFoundBasic
->
IsDocBasic
();
Reference
<
XScriptListener
>
xScriptListener
=
new
BasicScriptListener_Impl
(
pINST
->
GetBasic
(),
xModel
);
Reference
<
XScriptListener
>
xScriptListener
=
new
BasicScriptListener_Impl
(
pINST
->
GetBasic
(),
xModel
);
Sequence
<
Any
>
aArgs
(
4
);
Sequence
<
Any
>
aArgs
(
4
);
if
(
bDocDialog
)
if
(
bDocDialog
)
...
@@ -617,23 +613,23 @@ void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite )
...
@@ -617,23 +613,23 @@ void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite )
aArgs
[
2
]
=
aDlgLibAny
;
aArgs
[
2
]
=
aDlgLibAny
;
aArgs
[
3
]
<<=
xScriptListener
;
aArgs
[
3
]
<<=
xScriptListener
;
// Create a "living" Dialog
// Create a "living" Dialog
Reference
<
XControl
>
xCntrl
;
Reference
<
XControl
>
xCntrl
;
try
try
{
{
Reference
<
XDialogProvider
>
xDlgProv
(
xMSF
->
createInstanceWithArguments
(
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"com.sun.star.comp.scripting.DialogProvider"
)
),
aArgs
),
UNO_QUERY
);
Reference
<
XDialogProvider
>
xDlgProv
(
xMSF
->
createInstanceWithArguments
(
::
rtl
::
OUString
(
RTL_CONSTASCII_USTRINGPARAM
(
"com.sun.star.comp.scripting.DialogProvider"
)
),
aArgs
),
UNO_QUERY
);
xCntrl
.
set
(
xDlgProv
->
createDialog
(
rtl
::
OUString
()
),
UNO_QUERY_THROW
);
xCntrl
.
set
(
xDlgProv
->
createDialog
(
rtl
::
OUString
()
),
UNO_QUERY_THROW
);
// Add dialog model to dispose vector
// Add dialog model to dispose vector
Reference
<
XComponent
>
xDlgComponent
(
xCntrl
->
getModel
(),
UNO_QUERY
);
Reference
<
XComponent
>
xDlgComponent
(
xCntrl
->
getModel
(),
UNO_QUERY
);
pINST
->
getComponentVector
().
push_back
(
xDlgComponent
);
pINST
->
getComponentVector
().
push_back
(
xDlgComponent
);
// need ThisCompoent from calling script
// need ThisCompoent from calling script
}
}
// preserve existing bad behaviour, it's possible... but probably
// preserve existing bad behaviour, it's possible... but probably
// illegal to open 2 dialogs ( they ARE modal ) when this happens, sometimes
// illegal to open 2 dialogs ( they ARE modal ) when this happens, sometimes
// create dialog fails. So, in this case let's not throw, just leave basic
// create dialog fails. So, in this case let's not throw, just leave basic
// detect the unset object.
// detect the unset object.
catch
(
uno
::
Exception
&
)
catch
(
uno
::
Exception
&
)
{
{
}
}
// Return dialog
// Return dialog
Any
aRetVal
;
Any
aRetVal
;
...
...
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