Δημιουργία χειριστή διαλόγου
Πέρα από την εκχώρηση μακροεντολών σε συμβάντα ή την δημιουργία ακροατών συμβάντων, κάποιος μπορεί να χρησιμοποιήσει χειριστές διαλόγου, των οποίων η αρχή είναι ο καθορισμός λέξεων-κλειδιών UNO, ή μεθόδων, που απεικονίζονται σε συμβάντα προς παρακολούθηση. Ο χειριστής συμβάντων είναι υπεύθυνος για την εκτέλεση μεθόδων χρησιμοποιώντας το πρωτόκολλο vnd.sun.star.UNO:<method_name>. Αντίθετα προς τους ακροατές που απαιτούν τον καθορισμό όλων των υποστηριζόμενων μεθόδων, ακόμα και εάν δεν χρησιμοποιούνται, οι χειριστές διαλόγων απαιτούν μόνο δύο μεθόδους στην κορυφή των σκοπούμενων δεσμών ενεργειών αγκίστρου στοιχείου ελέγχου.
Τα πλεονεκτήματα αυτής της προσέγγισης είναι:
Συσκευάζει τον κώδικα που χειρίζεται μακροεντολές βάσει συμβάντων,
αποσυσχετίζει συμβάντα από ονόματα μακροεντολών που διευκολύνει τη διατήρηση ή τις ενημερώσεις, ειδικότερα κατά τη μετακίνηση μακροεντολών ή αρθρωμάτων.
Αυτός ο μηχανισμός απεικονίζεται εδώ με τις γλώσσες Basic και Pythonχρησιμοποιώντας εισαγόμενο αντίγραφο του διαλόγου Access2Base dlgTrace. Ο χειρισμός εξαιρέσεων και η τοπικοποίηση παραλείπονται για σαφήνεια.
Εκχώρηση μεθόδων διαλόγου
Διάλογος εξαγωγή του Access2Base dlgTrace και εισαγωγής του στη βιβλιοθήκη εφαρμογής MyLib.
Στο παράθυρο ιδιότητες στοιχείων ελέγχου του Επεξεργαστή διαλόγου, χρησιμοποιήστε την καρτέλα συμβάντα για να αντικαταστήσετε τις αναθέσεις μακροεντολών από αναθέσεις συστατικών και πληκτρολογήστε τα ονόματα στις προοριζόμενες μεθόδους:
Ορίστε το πλήκτρο διαλόγου Dump to file ονόματος μεθόδου συστατικού στο _dump2File
Προαιρετικά ορίστε τα ονόματα μεθόδων συστατικών συμβάντων πατημένου πλήκτρου και πατημένου πλήκτρου ποντικιού txtTracelog ως _openHelp
Προαιρετικά ορίστε το όνομα μεθόδου συστατικού συμβάντος που δέχεται την εστίαση του πλήκτρου Ok ως onOkHasfocus
Οι ενέργειες που ανατέθηκαν σε συμβάντα πρέπει να αναφέρονται στο πρωτόκολλο vnd.sun.star.UNO: .
Δημιουργία του χειριστή
Η μέθοδος createDialogWithHandler της υπηρεσίας com.sun.star.awt.DialogProvider2 χρησιμοποιείται για να ορίσει τον διάλογο και τον χειριστή του. Ο χειριστής είναι υπεύθυνος για την υλοποίηση της διεπαφής com.sun.star.awt.XDialogEventHandler.
Όλα τα ονόματα μεθόδων συστατικών πρέπει να δηλώνονται ρητά κατά τη χρήση χειριστή διαλόγου.
Με Python
Σε αυτό το παράδειγμα ο διάλογος βρίσκεται στον υπολογιστή.
# -*- coding: utf-8 -*-
from __future__ import unicode_literals
import uno, unohelper
from com.sun.star.awt import XDialogEventHandler
_DLG_PROVIDER = "com.sun.star.awt.DialogProvider2"
class Console(unohelper.Base, XDialogEventHandler):
""" Χειριστής κονσόλας Access2Base """
''' προσαρμοσμένο από « Créer un dialogue avec gestionnaire d'événements » by JM Zambon
https://wiki.openoffice.org/wiki/FR/Documentation/Python/Creating_Dialog_with_Handler '''
def show(self):
dialog = self.getDialog("MyLib.dlgTrace", embedded=True)
dialog.Title = "Konsole"
dialog.execute()
def callHandlerMethod(self, dialog, event, method):
if method == '_dump2File':
event.Source.setLabel("dump requested")
scr = getBasicScript(script="_DumpToFile", module="Trace",
library='Access2Base')
scr.invoke((event,), (), ())
elif method == '_openHelp':
_msgbox('Not yet implemented')
dialog.endDialog(1)
else:
return False
def getSupportedMethodNames(self):
return ('_dump2File', '_openHelp')
def getDialog(self, libr_dlg: str, embedded=False):
""" Δημιουργία διαλόγου από τη θέση του """
smgr = XSCRIPTCONTEXT.getComponentContext().ServiceManager
if embedded:
model = XSCRIPTCONTEXT.getDocument()
dp = smgr.createInstanceWithArguments(_DLG_PROVIDER, (model,))
location = "?location=document"
else:
dp = smgr.createInstanceWithContext(_DLG_PROVIDER, ctx)
location = "?location=application"
dlg = dp.createDialogWithHandler("vnd.sun.star.script:"+libr_dlg+location, self)
return dlg
# def getBasicScript() # see note
def _msgbox(prompt='', title=''):
''' Άσχημο MsgBox '''
import msgbox
mb = msgbox.MsgBox(uno.getComponentContext())
mb.addButton('Howdy')
mb.show(prompt,0,title)
def ConsoleHandler():
Console().show()
g_exportedScripts = (ConsoleHandler,)
Όπως αναμενόταν, η μέθοδος που λείπει onOkHasFocus δημιουργεί εξαίρεση.
Δείτε τη σελίδα Κλήσεις Python σε Basic του Collabora Office για την περιγραφή ρουτίνας getBasicScript και για λεπτομέρειες για διαγλωσσική εκτέλεση δέσμης ενεργειών.
Με Basic του Collabora Office
Σε αυτό το παράδειγμα ο διάλογος ενσωματώνεται σε έγγραφο και μπορεί επίσης να τοποθετηθεί στον υπολογιστή.
' <MyLib>.<Handler> module
Public Sub Console_Show()
Dim dp as Object ' com.sun.star.awt.DialogProvider2
Dim dialog As Object ' com.sun.star.awt.XDialog, com.sun.star.awt.XDialogEventHandler
Dim eventHandler As Object ' com.sun.star.awt.XDialogEventHandler
dp = CreateUnoService("com.sun.star.awt.DialogProvider2")
dp.Initialize(Array(ThisComponent)) ' εάν είναι ο διάλογος doc-embedded
eventHandler = CreateUnoListener("Console_", "com.sun.star.awt.XDialogEventHandler")
dialog = dp.createDialogWithHandler("vnd.sun.star.script:MyLib.dlgTrace?location=document", eventHandler)
dialog.Title = "Konsole"
dialog.execute()
End Sub ' <Handler>.Console_Show()
Private Function Console_callHandlerMethod(dialog as Object, _
event As com.sun.star.document.DocumentEvent, _
method As String) As Boolean
''' Intercept dialog events using .UNO protocol '''
Console_callHandlerMethod = True
Select Case method
Case "_dump2File"
event.Source.setLabel("dump requested")
With GlobalScope.BasicLibraries
If Not .IsLibraryLoaded("Access2Base") Then .LoadLibrary("Access2Base")
End With
Access2Base.Trace._DumpToFile
Case "_openHelp"
MsgBox "Not yet implemented",0 , "Howdy"
'dialog.endDialog(1) εάν είναι διάλογος με βάση τον υπολογιστή
Case Else : Console_callHandlerMethod = False
End Select
End Function ' <Handler>.Console_callHandlerMethod
Private Function Console_getSupportedMethodNames()
Console_getSupportedMethodNames = Array("_dump2File", "_openHelp")
End Function ' <Handler>.Console _getSupportedMethodNames
' προσαρμοσμένο από « Créer un dialogue avec gestionnaire d'événements » του JM Zambon
' https://wiki.openoffice.org/wiki/FR/Documentation/Python/Creating_Dialog_with_Handler
Όπως αναμενόταν, η μέθοδος που λείπει onOkHasFocus δημιουργεί εξαίρεση.