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 /
SFDocuments /
[ HOME SHELL ]
Name
Size
Permission
Action
dialog.xlb
290
B
-rw-r--r--
__License.xba
1.77
KB
-rw-r--r--
script.xlb
770
B
-rw-r--r--
SF_Base.xba
43.71
KB
-rw-r--r--
SF_Calc.xba
174.42
KB
-rw-r--r--
SF_Chart.xba
36.89
KB
-rw-r--r--
SF_DocumentListener.xba
5.58
KB
-rw-r--r--
SF_Document.xba
55.97
KB
-rw-r--r--
SF_FormControl.xba
92.72
KB
-rw-r--r--
SF_Form.xba
67.91
KB
-rw-r--r--
SF_Register.xba
24.31
KB
-rw-r--r--
SF_Writer.xba
27.21
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : SF_DocumentListener.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_DocumentListener" script:language="StarBasic" script:moduleType="normal">REM ======================================================================================================================= REM === The ScriptForge library and its associated libraries are part of the LibreOffice project. === REM === The SFDocuments library is one of the associated libraries. === REM === Full documentation is available on https://help.libreoffice.org/ === REM ======================================================================================================================= Option Compatible Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' SF_DocumentListener ''' =================== ''' The current module is dedicated to the management of document events + listeners, triggered by user actions, ''' which cannot be defined with the Basic IDE ''' ''' Concerned listeners: ''' com.sun.star.sheet.XRangeSelectionListener ''' allowing a user to select a cell range at any moment ''' ''' The described events/listeners are processed by UNO listeners ''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' REM ================================================================= DEFINITIONS REM ============================================================= PRIVATE MEMBERS Private _SelectedRange As String ' The selected range is returned by a "done" event Private _RangeSelectionFinished As Boolean ' Flag indicating that the interaction with the user has stopped REM ================================================================== EXCEPTIONS REM ============================================================== PUBLIC METHODS REM ----------------------------------------------------------------------------- Public Function RunRangeSelector(ByRef poComponent As Object _ , ByRef pvPropertyValues As Variant _ ) As String ''' Called from the SF_Calc.OpenRangeSelector() method ''' Opens a non-modal dialog with a text box, ''' let the user make a selection in the current or another sheet and ''' returns the selected area as a string. Dim oController As Object ' com.sun.star.frame.Controller Dim oListener As Object ' com.sun.star.sheet.XRangeSelectionListener Dim lCountLoops As Long ' Sleep cycles counter Const cstListenerPrefix = "_SFRGSEL_" ' Prefix used for naming events Subs Const cstSleep = 50 ' Sleep steps in ms while waiting for the end of the interaction Const cstMaxSleep = (60 * 5 * 1000) / cstSleep ' Never sleep more than 5 minutes. Afterwards, processing continues On Local Error GoTo Catch ' Avoid stopping event scripts Try: ' Create the listener Set oController = poComponent.CurrentController Set oListener = CreateUnoListener(cstListenerPrefix, "com.sun.star.sheet.XRangeSelectionListener") oController.addRangeSelectionListener(oListener) ' Open the selector _SelectedRange = "" _RangeSelectionFinished = False oController.startRangeSelection(pvPropertyValues) ' Dummy thread synchronization lCountLoops = 0 Do While Not _RangeSelectionFinished And lCountLoops < cstMaxSleep Wait(cstSleep) lCountLoops = lCountLoops + 1 Loop Finally: If Not IsNull(oListener) Then oController.removeRangeSelectionListener(oListener) RunRangeSelector = _SelectedRange Exit Function Catch: GoTo Finally End Function ' SFDocuments.SF_DocumentListener.RunRangeSelector REM ============================================================= PRIVATE METHODS REM ----------------------------------------------------------------------------- Sub _SFRGSEL_done(Optional poEvent As Object) ' com.sun.star.sheet.RangeSelectionEvent On Local Error GoTo Catch ' Avoid stopping event scripts Try: _SelectedRange = poEvent.RangeDescriptor _RangeSelectionFinished = True Finally: Exit Sub Catch: GoTo Finally End Sub REM ----------------------------------------------------------------------------- Sub _SFRGSEL_aborted(Optional poEvent As Object) ' com.sun.star.sheet.RangeSelectionEvent On Local Error GoTo Catch ' Avoid stopping event scripts Try: _RangeSelectionFinished = True Finally: Exit Sub Catch: GoTo Finally End Sub REM ============================================ END OF SFDIALOGS.SF_DIALOGLISTENER </script:module>
Close