new version 1.5.1

Author: prrvchr

source/OAuth2OOo/OAuth2OOo/ChatGPTRequest.xba

@@ -40,7 +40,7 @@ Sub Main
     sQuery = "How to make HTTP requests in Basic in LibreOffice?"
 
     Rem First we need to create the OAuth2Service
-    oRequest = CreateUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
+    oRequest = createUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
 
     Rem To execute an HTTP request we first need a HTTP Request parameter
     oParameter = oRequest.getRequestParameter("ChatGPT")

source/OAuth2OOo/OAuth2OOo/GithubDownloadRequest.xba

@@ -35,19 +35,23 @@ Sub Main
         exit sub
     endif
 
-    Rem Ask the user where to upload the file
-    oFp = CreateUnoService("com.sun.star.ui.dialogs.OfficeFolderPicker")
+    Rem Ask the user where to download the file
+    sTarget = ""
+    oFp = createUnoService("com.sun.star.ui.dialogs.OfficeFolderPicker")
     oFp.Title = "Choose the download directory"
     if oFp.execute() = com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
-        sTarget = oFP.Directory
-    else
+        sTarget = oFp.Directory
+    endif
+    oFp.dispose()
+    Rem User clicked Cancel
+    if sTarget = "" then
         exit sub
     endif
 
     oUrl = getUrl(sSource)
 
     Rem First we need to create the UNO OAuth2Service without OAuth2
-    oRequest = CreateUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
+    oRequest = createUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
 
     Rem We need a first request to initialize HTTP cookies and allow the download
     oParameter = oRequest.getRequestParameter("github-cookies")
@@ -71,7 +75,7 @@ Sub Main
     if oResponse.Ok then
         oSf = createUNOService("com.sun.star.ucb.SimpleFileAccess")
         oSf.writeFile(sTarget + "/" + oUrl.Name, oResponse.getInputStream(65536, false))
-        sText = "File: " + oUrl.Name + " donwloaded..."
+        sText = "File: " + oUrl.Name + " downloaded..."
     else
         sText = oResponse.Text
     endif

source/OAuth2OOo/OAuth2OOo/GoogleAPIRequest.xba

@@ -49,7 +49,7 @@ Sub Main
 
     Rem First we need to create the UNO OAuth2Service with the OAuth2 protocol support
     Rem (ie: with an Url and a User email address)
-    oRequest = CreateUnoServiceWithArguments("io.github.prrvchr.OAuth2OOo.OAuth2Service", Array(sUrl, sUser))
+    oRequest = createUnoServiceWithArguments("io.github.prrvchr.OAuth2OOo.OAuth2Service", Array(sUrl, sUser))
     Rem User canceled OAuth2 Wizard.
     if isNull(oRequest) then
         exit sub

source/OAuth2OOo/OAuth2OOo/GraphAPIRequest.xba

@@ -49,7 +49,7 @@ Sub Main
 
     Rem First we need to create the UNO OAuth2Service with the OAuth2 protocol support
     Rem (ie: with an Url and a User email address)
-    oRequest = CreateUnoServiceWithArguments("io.github.prrvchr.OAuth2OOo.OAuth2Service", Array(sUrl, sUser))
+    oRequest = createUnoServiceWithArguments("io.github.prrvchr.OAuth2OOo.OAuth2Service", Array(sUrl, sUser))
     Rem User canceled OAuth2 Wizard.
     if isNull(oRequest) then
         exit sub

source/OAuth2OOo/OAuth2OOo/HTTPGetRequest.xba

@@ -28,7 +28,7 @@ Rem ╚════════════════════════
 Sub Main
 
     Rem First we need to create the UNO OAuth2Service without OAuth2
-    oRequest = CreateUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
+    oRequest = createUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
 
     Rem To execute an HTTP request we first need a HTTP Request parameter
     oParameter = oRequest.getRequestParameter("httpbin")

source/OAuth2OOo/OAuth2OOo/HTTPPostRequest.xba

@@ -38,7 +38,7 @@ Sub Main
     sKey = "Key1"
 
     Rem First we need to create the UNO OAuth2Service without OAuth2
-    oRequest = CreateUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
+    oRequest = createUnoService("io.github.prrvchr.OAuth2OOo.OAuth2Service")
 
     Rem To execute an HTTP request we first need a HTTP Request parameter
     oParameter = oRequest.getRequestParameter("httpbin")

source/OAuth2OOo/OAuth2OOo/OAuth2Wizard.xba

@@ -27,7 +27,7 @@ Rem ╚════════════════════════
 
 
 Sub OAuth2Wizard
-    Set oDispatch = CreateUnoService("com.sun.star.frame.DispatchHelper")
+    Set oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
     Dim args(0) As New com.sun.star.beans.PropertyValue
     args(0).Name = "Close"
     args(0).Value = false

source/OAuth2OOo/dialogs/OptionsDialog.xdl

@@ -39,10 +39,10 @@
     <dlg:fixedline dlg:style-id="0" dlg:id="FixedLine2" dlg:tab-index="7" dlg:left="6" dlg:top="143" dlg:width="244" dlg:height="15" dlg:help-text="&amp;OptionsDialog.FixedLine2.HelpText" dlg:value="&amp;OptionsDialog.FixedLine2.Label"/>
     <dlg:text dlg:id="Label4" dlg:tab-index="8" dlg:left="10" dlg:top="160" dlg:width="10" dlg:height="15" dlg:help-text="&amp;OptionsDialog.Label4.HelpText" dlg:value="&amp;OptionsDialog.Label4.Label" dlg:valign="center" dlg:tabstop="false"/>
     <dlg:combobox dlg:id="ComboBox1" dlg:tab-index="9" dlg:left="25" dlg:top="160" dlg:width="60" dlg:height="15" dlg:help-text="&amp;OptionsDialog.ComboBox1.HelpText" dlg:value="&amp;OptionsDialog.ComboBox1.Text" dlg:spin="true"/>
-    <dlg:button dlg:id="CommandButton1" dlg:tab-index="10" dlg:disabled="false" dlg:left="95" dlg:top="160" dlg:width="60" dlg:height="15" dlg:help-text="&amp;OptionsDialog.CommandButton1.HelpText" dlg:value="&amp;OptionsDialog.CommandButton1.Label">
+    <dlg:button dlg:id="CommandButton1" dlg:tab-index="10" dlg:disabled="false" dlg:left="105" dlg:top="160" dlg:width="60" dlg:height="15" dlg:help-text="&amp;OptionsDialog.CommandButton1.HelpText" dlg:value="&amp;OptionsDialog.CommandButton1.Label">
       <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.UNO:Connect" script:language="UNO"/>
     </dlg:button>
-    <dlg:checkbox dlg:id="CheckBox1" dlg:tab-index="11" dlg:left="165" dlg:top="160" dlg:width="85" dlg:height="15" dlg:help-text="&amp;OptionsDialog.CheckBox1.HelpText" dlg:value="&amp;OptionsDialog.CheckBox1.Label" dlg:valign="center" dlg:checked="false"/>
+    <dlg:checkbox dlg:id="CheckBox1" dlg:tab-index="11" dlg:left="190" dlg:top="160" dlg:width="60" dlg:height="15" dlg:help-text="&amp;OptionsDialog.CheckBox1.HelpText" dlg:value="&amp;OptionsDialog.CheckBox1.Label" dlg:valign="center" dlg:checked="false"/>
     <dlg:text dlg:style-id="0" dlg:id="Label5" dlg:tab-index="12" dlg:left="10" dlg:top="185" dlg:width="240" dlg:height="15" dlg:help-text="&amp;OptionsDialog.Label5.HelpText" dlg:value="&amp;OptionsDialog.Label5.Label" dlg:align="center" dlg:valign="center"/>
   </dlg:bulletinboard>
 </dlg:window>