Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
usr /
lib /
libreoffice /
share /
basic /
SFDialogs /
[ HOME SHELL ]
Name
Size
Permission
Action
dialog.xlb
288
B
-rw-r--r--
__License.xba
1.77
KB
-rw-r--r--
script.xlb
548
B
-rw-r--r--
SF_DialogControl.xba
99.78
KB
-rw-r--r--
SF_DialogListener.xba
5.59
KB
-rw-r--r--
SF_Dialog.xba
39.45
KB
-rw-r--r--
SF_Register.xba
16.41
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : SF_DialogListener.xba
<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="SF_DialogListener" script:language="StarBasic" script:moduleType="normal">REM ======================================================================================================================= REM === The ScriptForge library and its associated libraries are part of the LibreOffice project. === REM === The SFDialogs library is one of the associated libraries. === REM === Full documentation is available on https://help.libreoffice.org/ === REM ======================================================================================================================= Option Compatible Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' SF_Listener ''' =========== ''' The current module is dedicated to the management of dialog control events, triggered by user actions, ''' which cannot be defined with the Basic IDE ''' ''' Concerned events: ''' TreeControl control type ''' ----------- ''' The OnNodeSelected event, triggered when a user selects a node ''' A typical action is to display additional info about the selected item elsewhere in the dialog ''' The OnNodeExpanded event, triggered when a user clicks on the expansion symbol ''' A typical action is to create dynamically a subnode or a subtree below the expanded item ''' ''' The described events are processed thru UNO listeners ''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' REM ================================================================= DEFINITIONS REM ================================================================== EXCEPTIONS REM ============================================================== PUBLIC METHODS REM ----------------------------------------------------------------------------- Public Sub _SFEXP_requestChildNodes(Optional ByRef poEvent As Object) ''' Triggered by the OnNodeExpanded event of a tree control ''' The event is triggered thru a com.sun.star.view.XTreeExpansionListener ''' The argument is passed to a user routine sstored in the SF_DialogControl instance ''' as a scripting framework URI Dim oControl As Object ' The SF_DialogControl object having triggered the event On Local Error GoTo Catch ' Avoid stopping event scripts Check: ' Ensure there is a node If IsNull(poEvent) Or IsMissing(poEvent) Then Exit Sub If IsNull(poEvent.Node) Then Exit Sub Try: Set oControl = ScriptForge.SF_Services.CreateScriptService("SFDialogs.DialogEvent", poEvent) ScriptForge.SF_Session._ExecuteScript(oControl.OnNodeExpanded, poEvent) Finally: Exit Sub Catch: GoTo Finally End Sub Sub _SFEXP_disposing(ByRef poEvent As Object) End Sub Sub _SFEXP_treeExpanding(Optional ByRef poEvent As Object) End Sub Sub _SFEXP_treeCollapsing(ByRef poEvent As Object) End Sub Sub _SFEXP_treeExpanded(ByRef poEvent As Object) End Sub Sub _SFEXP_treeCollapsed(ByRef poEvent As Object) End Sub REM ----------------------------------------------------------------------------- Public Sub _SFSEL_selectionChanged(Optional ByRef poEvent As Object) ''' Triggered by the OnNodeSelected event of a tree control ''' The event is triggered thru a com.sun.star.view.XSelectionChangeListener ''' The argument is passed to a user routine sstored in the SF_DialogControl instance ''' as a scripting framework URI ''' ''' Nothing happens if there are several selected nodes or none Dim vSelection As Variant ' Variant, not object !! Dim oControl As Object ' The SF_DialogControl object having triggered the event On Local Error GoTo Catch ' Avoid stopping event scripts Check: ' Ensure there is a selection If IsNull(poEvent) Or IsMissing(poEvent) Then Exit Sub vSelection = poEvent.Source.getSelection() If IsEmpty(vSelection) Or IsArray(vSelection) Then Exit Sub Try: Set oControl = ScriptForge.SF_Services.CreateScriptService("SFDialogs.DialogEvent", poEvent) ScriptForge.SF_Session._ExecuteScript(oControl.OnNodeSelected, poEvent) Finally: Exit Sub Catch: GoTo Finally End Sub Sub _SFSEL_disposing(ByRef poEvent As Object) End Sub REM ============================================================= PRIVATE METHODS REM ============================================ END OF SFDIALOGS.SF_DIALOGLISTENER </script:module>
Close