Ακρόαση συμβάντων εγγράφου

         # -*- coding: utf-8 -*-
         from __future__ import unicode_literals
             
         import os.path, uno, unohelper
         from com.sun.star.document import DocumentEvent, \
             XDocumentEventListener as AdapterPattern
         from com.sun.star.lang import EventObject
             
         class UiDocument(unohelper.Base, AdapterPattern):
             """ Παρακολούθηση συμβάντων εγγράφου """
             '''
             προσαρμοσμένο από το 'δέσμη ενεργειών Python για παρακολούθηση συμβάντος OnSave' στο
             https://forum.openoffice.org/en/forum/viewtopic.php?t=68887
             '''
             def __init__(self):
                 """ Παρακολούθηση συμβάντων εγγράφου """
                 ''' αναφορά χρησιμοποιώντας την κονσόλα Access2Base.Trace OR
                 αναφορά στο 1ο φύλλο, 1η στήλη για έγγραφα Calc '''
                 ctx = uno.getComponentContext()
                 smgr = ctx.getServiceManager()
                 desktop = smgr.createInstanceWithContext(
                 'com.sun.star.frame.Desktop' , ctx)
                 self.doc = desktop.CurrentComponent
                 #self.row = 0  # κατάργηση σχολιασμού μόνο για έγγραφα Calc
                 Console.setLevel("DEBUG")
                 self.listen()  # Έναρξη παρακολούθησης συμβάντων του εγγράφου
             
             @property
             def Filename(self) -> str:
                 sys_filename = uno.fileUrlToSystemPath(self.doc.URL)
                 return os.path.basename(sys_filename)
             
             def setCell(self, calcDoc, txt: str):
                 """ Έξοδος συμβάντων εγγράφου στην 1η στήλη υπολογιστικού φύλλου Calc """
                 sheet = calcDoc.getSheets().getByIndex(0)
                 sheet.getCellByPosition(0,self.row).setString(txt)
                 self.row = self.row + 1
             
             def listen(self, *args):  # OnLoad/OnNew το νωρίτερο
                 """ Έναρξη παρακολούθησης συμβάντων του εγγράφου """
                 self.doc.addDocumentEventListener(self)
                 Console.log("INFO", "Τα συμβάντα του εγγράφου καταγράφονται", True)
             
             def sleep(self, *args):  # OnUnload το αργότερο (προαιρετικό)
                 """ Παύση παρακολούθησης συμβάντων του εγγράφου """
                 self.doc.removeDocumentEventListener(self)
                 Console.log("INFO", "Τα συμβάντα του εγγράφου έχουν καταγραφεί", True)
             
             def documentEventOccured(self, event: DocumentEvent):
                 """ Διακόπτει όλα τα συμβάντα του εγγράφου """
                 #self.setCell(event.Source, event.EventName) # μόνο για έγγραφα Calc
                 Console.log("DEBUG",
                     event.EventName+" in "+self.Filename,
                     False)
             
             def disposing(self, event: EventObject):
                 """ Δημοσίευση όλων των δραστηριοτήτων """
                 self.sleep()
                 Console.show()
             
         def OnLoad(*args):  # Συμβάν 'Open Document'
             listener = UiDocument()  # Αρχικοποιεί την ακρόαση
             
         def OnUnload(*args):  # Συμβάν 'Document has been closed'
             pass  # (προαιρετικό) εκτελείται όταν διατίθεται
             
         g_exportedScripts = (OnLoad,)
             
         from com.sun.star.script.provider import XScript
         class Console():
             """
             Κονσόλα (παρα/προ)σκηνίου για αναφορά/καταγραφή εκτέλεσης του προγράμματος.
             """
             @staticmethod
             def trace(*args,**kwargs):
                 """ Εκτύπωση ελεύθερου καταλόγου στοιχείων στην κονσόλα """
                 scr = Console._a2bScript(script='DebugPrint', module='Compatible')
                 scr.invoke((args),(),())
             @staticmethod
             def log(level: str, text: str, msgBox=False):
                 """ Προσάρτηση μηνύματος καταγραφής στην κονσόλα, προαιρετική πρόσκληση χρήστη """
                 scr = Console._a2bScript(script='TraceLog')
                 scr.invoke((level,text,msgBox),(),())
             @staticmethod
             def setLevel(logLevel: str):
                 """ Ορισμός κάτω ορίου μηνυμάτων καταγραφής """
                 scr = Console._a2bScript(script='TraceLevel')
                 scr.invoke((logLevel,),(),())
             @staticmethod
             def show():
                 """ Εμφάνιση περιεχομένου/διαλόγου κονσόλας """
                 scr = Console._a2bScript(script='TraceConsole')
                 scr.invoke((),(),())
             @staticmethod
             def _a2bScript(script: str, library='Access2Base',
                 module='Trace') -> XScript:
                 "" Λήψη σεναρίου Basic βασισμένου σε εφαρμογή ""
                 sm = uno.getComponentContext().ServiceManager
                 mspf = sm.createInstanceWithContext(
                     "com.sun.star.script.provider.MasterScriptProviderFactory",
                     uno.getComponentContext())
                 scriptPro = mspf.createScriptProvider("")
                 scriptName = "vnd.sun.star.script:"+library+"."+module+"."+script+"?language=Basic&location=application"
                 xScript = scriptPro.getScript(scriptName)
                 return xScript
      

         # -*- coding: utf-8 -*-
         from __future__ import unicode_literals
             
         import uno, apso_utils as ui
             
         def displayAvailableEvents():
             """ Display document events """
             '''
             προσαρμοσμένο από το DisplayAvailableEvents() του A. Pitonyak
             https://forum.openoffice.org/en/forum/viewtopic.php?&t=43689
             '''
             ctx = XSCRIPTCONTEXT.getComponentContext()
             smgr = ctx.ServiceManager
             geb = smgr.createInstanceWithContext(
                 "com.sun.star.frame.GlobalEventBroadcaster", ctx)
             events = geb.Events.getElementNames()
             ui.msgbox('; '.join(events))
             
         g_exportedScripts = (displayAvailableEvents,)