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

# -*- 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,)