Hi

Have you a reference of code or functions that can help me?


Here is an example for onNew and onLoad

sub ConfigureDemarre(SetOrNot)


dim monEvent(0 to 1) as new com.sun.star.beans.PropertyValue
monEvent(0).name = "EventType"
monEvent(0).value="Basic"
monEvent(1).name = "Script"
if SetOrNot = 1 then
        monEvent(1).value="macro:///myLib.myModule.mySub()"
else
        monEvent(1).value=""
endif

'for only bind to the document
'lesEvents = thisComponent.events
'lesEvents.replaceByName("OnStartApp", monEvent())

GlobalEvent = createUnoservice("com.sun.star.frame.GlobalEventBroadcaster")
GlobalEvent.Events.ReplaceByName("OnNew", monEvent())
GlobalEvent.Events.ReplaceByName("OnLoad", monEvent())

end sub

--
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org
Indesko >> http://www.indesko.com
Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
Livre "Programmation OpenOffice.org", Eyrolles 2004

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to