Pomoc za LibreOffice 24.8
Mimo pśipokazowanja makrow tšojenjam abo napóranja tšojeńskich pśisłuchakow, móžośo dialogowe pśisłuchaki wužywaś, kótarychž princip jo, klucowe słowa abo metody UNO definěrowaś, kótarež se tšojenjam pśirěduju, kótarež se maju wobglědowaś. Tšojeński pśisłuchak jo zagronity za wuwjeźenje metodow z pomocu protokola vnd.sun.star.UNO:<method_name>. Na rozdźěl wót pśisłuchakow, kótarež muse wšykne pódprěte metody definěrowaś, samo gaž njeby se wužywali, dialogowe pśisłuchaki jano dwě metoźe gromaźe z wótglědanymi wóźeńskimi hookimi skriptami trjebaju.
Lěpšyny toś togo pśistupa su:
Pakujo kod, kótaryž wót tšojenja wóźone makra pśeźěłujo,
źěli tšojenja wót makrowych mjenjow, což wótwardowanje abo aktualizacije wólažcujo, pśedewšym, gaž se makra abo module pśesuwaju.
Toś ten mechanizm se how za rěcy Basic a Python z pomocu importěrowaneju kopiju dialoga Access2Base dlgTrace znaglědnja. Wobchad z wuwześami a lokalizacija se pśeglědnosći dla wuwóstajatej.
Eksportěrujśo dialog Access2Base dlgTrace a importěrujśo jen do nałožeńskeje biblioteki MyLib.
Wužywajśo we wobceŕku kakosćow wóźeńskich elementow dialogowego editora rejtarik Tšojenja, aby makrowe pśipokazanja z komponentowymi pśipokazanjami wuměnił a zapódajśo wótglědane metodowe mjenja:
Nastajśo metodowe mě komponenty dialogowego tłocaška Dump to file na _dump2File
Na žycenje móžośo metodowe mjenja tšojeńskich komponentow tłoconeje tasty txtTracelog a tłoconeje tasty myški ako _openHelp definěrowaś
Definěrujśo na žycenje tłocašk W pórěźe, kótaryž metodowego mjenja fokusoweje tšojeńskeje komponenty ako onOkHasfocus dostawa
Tšojenja, kótarymž akcije su pśipokazane, měli protokol vnd.sun.star.UNO: naspomnjeś.
Metoda createDialogWithHandler słužby com.sun.star.awt.DialogProvider2 se wužywa, aby dialog a jogo předźěłowak póstajiła. Pśeźěłowak jo zagronity za implementěrowanje zwězowańskego městna com.sun.star.awt.XDialogEventHandler.
Wšykne metodowe mjenja komponenty muse se eksplicitnje deklarěrowaś, gaž se dialogowy pśeźěłowak wužywa.
W toś tom pśikłaźe jo dialog na licadle.
      # -*- 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 Console Handler """
          ''' adaptěrowany wót « Créer un dialogue avec gestionnaire d'événements » wót 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):
              """ Dialog wót jogo stojnišća napóraś """
              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=''):
          ''' Grozny MsgBox '''
          import msgbox
          mb = msgbox.MsgBox(uno.getComponentContext())
          mb.addButton('Howdy')
          mb.show(prompt,0,title)
          
      def ConsoleHandler():
          Console().show()
          
      g_exportedScripts = (ConsoleHandler,)
          
      Ako wócakane, felujuca metoda onOkHasFocus wuwześe wuchytujo.
Cytajśo bok wuwołanja Python na LibreOffice Basic za getBasicScript rutinowe wopisanje a za drobnostki wó rěcy pśesegajucem skriptowem wuwjeźenju.
W toś tom pśikłaźe jo dialog w dokumenśe zasajźony a móžo teke na licadle byś.
      ' <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)) ' jolic dialog jo w dokumenśe zasajźony
          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) pśi pśez kompjuter zeprětem dialogu
              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
          
      ' adaptěrowany wót « Créer un dialogue avec gestionnaire d'événements » wót JM Zambon
      ' https://wiki.openoffice.org/wiki/FR/Documentation/Python/Creating_Dialog_with_Handler
      Ako wócakane, felujuca metoda onOkHasFocus wuwześe wuchytujo.