[GitHub] [openoffice] oooforum opened a new pull request #104: Update GetProductInfo function

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[GitHub] [openoffice] oooforum opened a new pull request #104: Update GetProductInfo function

GitBox

oooforum opened a new pull request #104:
URL: https://github.com/apache/openoffice/pull/104


   Modify GetProductInfo function
   Actually returns Product Name and Build version in one string
   Example: OpenOffice4.1.7
   Adding a space between these to split in two strings
   Now: OpenOffice 4.1.7


----------------------------------------------------------------
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.

For queries about this service, please contact Infrastructure at:
[hidden email]



---------------------------------------------------------------------
To unsubscribe, e-mail: [hidden email]
For additional commands, e-mail: [hidden email]

Reply | Threaded
Open this post in threaded view
|

[GitHub] [openoffice] cbmarcum commented on pull request #104: Update GetProductInfo function

GitBox

cbmarcum commented on pull request #104:
URL: https://github.com/apache/openoffice/pull/104#issuecomment-711047940


   I'm not much of a Basic developer but I put this together as a test.
   ```
   Sub Main
   PR104()
   End Sub
   
   
   sub PR104
   GlobalScope.BasicLibraries.loadLibrary("Tools")
   rem ----------------------------------------------------------------------
   rem define variables
   dim document   as object
   dim dispatcher as object
   rem ----------------------------------------------------------------------
   rem get access to the document
   document   = ThisComponent.CurrentController.Frame
   dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   
   rem ----------------------------------------------------------------------
   
   dim productname As String
   productname = Misc.GetProductName()
   
   dim args1(0) as new com.sun.star.beans.PropertyValue
   args1(0).Name = "Text"
   args1(0).Value = productname
   
   dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
   end sub
   ```


----------------------------------------------------------------
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.

For queries about this service, please contact Infrastructure at:
[hidden email]



---------------------------------------------------------------------
To unsubscribe, e-mail: [hidden email]
For additional commands, e-mail: [hidden email]

Reply | Threaded
Open this post in threaded view
|

[GitHub] [openoffice] cbmarcum commented on pull request #104: Update GetProductInfo function

GitBox
In reply to this post by GitBox

cbmarcum commented on pull request #104:
URL: https://github.com/apache/openoffice/pull/104#issuecomment-711049343


   Forgot to mention it's actually the GetProductName() function no GetProductInfo() as the title suggests.


----------------------------------------------------------------
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.

For queries about this service, please contact Infrastructure at:
[hidden email]



---------------------------------------------------------------------
To unsubscribe, e-mail: [hidden email]
For additional commands, e-mail: [hidden email]