gmane.comp.openoffice.devel.api

How to make changes to a Dialog persistent

Fernand Vanrie — 2011-12-06T12:07:49

When have made some changes to a Dialog (stored in a Librarie) I trye to 
make this changes persitent for future use.
The secrets are in the methods off the dialog.model
odialog.model.read( ???)
odialog.model.write(???)
found a confusing explaination in the DSK but nullware any examples how 
to use this read-write mechanism to make the changes persitent

Thanks for any hint !

Fernand

new Apache OpenOffice.org mail list to replace this list

2011-11-02T16:23:59

executing a dialog without blocking the program

Gerardo Gómez — 2011-10-27T02:17:45

Is it possible to execute a dialog of UNO-AWT without blocking the program.
for example:

dialog.execute();                                            // execute the
dialog (show the dialog)...
System.out.println("not blocking dialog");         // ...without being
blocked, keep to this line while showing the dialog.

Thank you in advance for your answers.

Regards

Announcing "BNF4OOo - Managing Backus-Naur-Forms with OpenOffice"

Rony G. Flatscher — 2011-10-24T17:52:01

Hi there,

maybe one of the last announcements, before Oracle shuts down these lists:

A student of WU Vienna, Franz Hohenegger, created a nice BNF-editing/transforming package for his
Diploma Thesis entitled "BNF4OOo - Managing Backus-Naur-Forms with OpenOffice".

Here is what the author says about his package:

    /Author's Abstract (English):/

    "This diploma thesis is about a program named BNF4OOo <http://sourceforge.net/projects/bnf4ooo/>
    which enables the user to manage different supported BNF
    <http://en.wikipedia.org/wiki/Backus%E2%80%93Naur_Form>-dialects and make own customized BNF
    <http://en.wikipedia.org/wiki/Backus%E2%80%93Naur_Form>-dialects as well. These dialects can be
    transferred into character-based syntax diagrams and a XML format closely related to IBM's DITA
    <http://en.wikipedia.org/wiki/Darwin_Information_Typing_Architecture>. OpenOffice
    <http://www.OpenOffice.org> is used as a graphical inferface for the transformations. This work
    describes the supported BNF-dialects with their used syntax structures and their implementation
    in BNF4OOo <http://sourceforge.net/projects/bnf4ooo/>. Furthermore it introduces the internal
    logic and structure of BNF4OOo <http://sourceforge.net/projects/bnf4ooo/>."


You  can get at this work by pointing your browser to
<http://wi.wu.ac.at:8002/rgf/diplomarbeiten/index.htm#dipl_201110>:

  * Clicking on the title gives you the PDF version of his thesis which nicely explains BNF and his
    work, which optionally allows to use OpenOffice.org writer as a GUI-based editor.
  * Clicking on the zip-link downloads his package.

Future updates will be placed on that project's Sourceforge home:
<http://sourceforge.net/projects/bnf4ooo/>.

Some highlights:

  * using OOo as a GUI (including his tools and configuration editor) via the OOo menu-system and a
    BNF-toolbar,
  * importing (extended) BNF textfiles,
  * rendering eBNFs to various kind of rail-diagrams and syntax definitions (text, but also XML,
    based on DITA, such that one can use DITA to create even more breath-taking rail-diagrams),
  * exporting raildiagrams as pictures, as HTML, and exporting the eBNF definitions as (individual)
    text files inclduing XML-DITA.

His package can also be used stand-alone via the commandline (including the ability to define ones
own extended BNF dialect)!

If you have any questions, then please come forward.

Regards,

---rony

P.S.: The package also works with LibreOffice, needless to say.

missing setSelectedItem() method in XComboBox interface

Gerardo Gómez — 2011-10-14T22:54:44

As far as i know, there isn't any setSelectedItem() method in XComboBox
interface, i don't know if i need to make a new bug ticket for this one, if
you know of an alternative to this please let me know

XButton, XFixedText, etc (Graphical components)

Gerardo Gómez — 2011-10-04T05:11:14

Hello my name is Gerardo and i want to know if there is a way to
enable(disable) Graphical components without having to destroy or construct
them each change of state?. I'm currently working in the translation of an
OpenOffice extension called Oo2gdocs, changing the java Swing GUI to the UNO
AWT GUI.

INFO: New home and EOL of this mailing list in the near future

Jürgen Schmidt — 2011-09-02T06:05:58

Hi,

It's probably not news to you, but in case you haven't heard, the
OpenOffice.org project has a new home under the Apache Software Foundation (
http://incubator.apache.org/openofficeorg/index.html). And some things are
going different under Apache. We will have only one project - Apache Open
Office - and the number of mailing lists will be limited to only a few (see
http://incubator.apache.org/openofficeorg/mailing-lists.html). There is a
common consensus that we will create new mailing lists with specific topics
if necessary but at the moment we will move forward with only few lists to
concentrate the information flow. From my point of view it's an advantage
compared to the former setup with many projects and many project related
mailing lists.

As the project lead of the API and Extension project i would like to inform
you that this mailing list will go end of life soon (exact date not known
yet) and further discussion on API and Extension specific topics should
happen on the ooo-dev< at >incubator.apache.org mailing list. I recommend that
you join the Apache OpenOffice project and subscribe (mail to
ooo-dev-subscribe< at >incubator.apache.org) on the ooo-dev list asap and help to
make this new Apache project successful in the same way as before under the
old setup. Well it's not really a new project but more the continuation of
the former official OpenOffice.org project. New in the sense that it is now
under the umbrella of the Apache foundation.

Maybe there will be some mail forwarding mechanisms established to ensure
that we won't lose any messages in the future but i hope that you all will
subscribe to the ooo-dev< at >incubator.apache.org mailing lists and that we
accept the new project under Apache as it is.

The migration of the project infrastructure to Apache is ongoing (source
code, website, wiki, forum, ...) and there are still a lot of things to do.
Every helping hand is welcome. Some things will change under Apache because
of the already existing rules there and we want to be a good and well formed
project there. Every change is also the opportunity to make things better
(if necessary) in the future. And you can be part of this important move of
OOo and can help to move things forward.

The good thing at Apache is that it is independent, well accepted in the
open source world and all project members are equal. Important is that the
rules of the Apache foundation and the project are accepted and that things
are getting done.

I hope to see you all on the new project and the
ooo-dev< at >incubator.apache.org mailing list soon. I am looking forward to an
interesting and challenging future of OOo under the umbrella of the Apache
foundation.

Regards

Juergen

Constant values for Function arguments

Johnny Rosenberg — 2011-08-18T10:52:06

Here's another delicate problem that's easy to work around, but still
very strange:

Module 2:
———Code starts below———
REM  *****  BASIC  *****

Option Explicit

Public Const VALUE=1
Public Const STRING=4
Public Const FORMULA=16
Public Const DATETIME=2

Sub HelloWorld
Print "Hello world!"
End Sub
———End of code———


Module1:
———Code starts below———
REM  *****  BASIC  *****

Option Explicit

Sub Main
Dim A
A=VALUE+STRING+FORMULA
End Sub
———End of code———
Run Main and you will get an error message at ”A=VALUE+STRING+FORMULA”.
If you run step by step (Ctrl+F8 in the BASIC IDE) and stop at that
line and then hover your mouse pointer over VALUE or STRING or
FORMULA, you can clearly see its values, but obviously this doesn't
help. Dimensioning A as Variant, as I did, doesn't help either. If you
look at VALUE, STRING or FORMULA in the variable monitor (or whatever
it's called in English), the window at the bottom left, you can see
that they are Variant/Integer and you can see their correct values.

So now, let's move the constant definition to Module1:
Module 2:
———Code starts below———
REM  *****  BASIC  *****

Option Explicit

Sub HelloWorld
Print "Hello world!"
End Sub
———End of code———


Module1:
———Code starts below———
REM  *****  BASIC  *****

Option Explicit

Public Const VALUE=1
Public Const STRING=4
Public Const FORMULA=16
Public Const DATETIME=2

Sub Main
Dim A
A=VALUE+STRING+FORMULA
End Sub
———End of code———

Now Main in Module1 works as expected, but take a look in the monitor
again. Those constants appears in exactly the same way this time as
before, the only exception is that this works.
I would be very grateful for an explanation about this. Is there
REALLY a logical reason for it to be this way or should I report this
as a bug as soon as possible?

Of course I can define those constants in every module, but isn't one
of the points by declaring as Public that I can reach them in all my
modules? Well, in this case I can; I just can't use them, at least not
when adding them to each other.
”A=VALUE” works in both my examples, but obviously not
”A=VALUE+STRING+FORMULA” for some reason I am sure absolutely nobody
can explain, so please prove me wrong here…!

:D


Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

ReDim driving me crazy again…

Johnny Rosenberg — 2011-08-17T09:45:12

I edited a lot of code yesterday, one of the rows I did NOT edit was
this one, which occurs at the top of a subroutine:

ReDim NDice(1 To 6) As Integer

It is defined in another module as:
Public NDice(1 To 6) As Integer


The error message I get is (translated from Swedish):
”BASIC syntax error:
The NDice variable is already defined.”

Yes, I know it is, that's one of the points by using ReDim, isn't it?

Before doing some heavy editing there was no complaints on this line
at all, and as I said, this is NOT one of the many lines I changed.

So obviously some of my other edits caused this, but where to start
looking? What can I possible have done to cause this?

I just hate when these things happen, when there is an error message
telling me that I can't do something that I should be able to do. Like
if I got an error message for the line ”If a=b Then”, and the error
message says: ”BASIC syntax error: a and b are already compared”…

Custom types drives me nuts – this can't be happening… can it?

Johnny Rosenberg — 2011-08-15T12:31:42

I was editing some code I have, actually a game with dice and stuff,
but that doesn't matter, I suppose.

So I ran into a problem, and I copied the troubling part of the code
to a separate document for test driving.
However, the test code runs perfectly, but not within the game of mine!

I ran the game on another computer but another version of
OpenOffice.org (actually the first computer runs LibreOffice 3.3.3),
but the results were exactly the same.

Here's the test code. I have a message box after almost every
statement so I can see what happens. I added some extra comments in
the code.

REM  *****  BASIC  *****

Option Explicit
Option Compatible

Type DieStatistics
Value As Integer
Count As Integer
End Type

' The variable DiceFreq, declared below this comment, tells us which
two die values that are most frequent. For example, if the six dice
are 133455,
' DiceFreq will contain:
' DiceFreq(0).Value: 5 (the most common value is 5)
' DiceFreq(0).Count: 2 (2 dice have the value 5)
' DiceFreq(1).Value: 3 (the second most common value is 3 – in this
case there are two of both 3 and five, but higher value has priority)
' DiceFreq(1).Count: 2 (2 dice have the value 3)
' This makes it very easy for us to calculate things later,
calculations that are not present in this short example though.
Private DiceFreq(1) As DieStatistics '


Sub Test0
'NDice tells us how many there are of each die value. In the above
example, NDice(4)=1, since there are 1 die with the value 4.
Dim NDice(1 To 6) As Integer, i As Integer

'Here we set the values of NDice for an example where this is known
to fail, that is what NDice would contain if the dice were 112345
'NDice(1)=2, NDice(2)=1 and so on.
For i=2 To 5
NDice(i)=1
Next i
NDice(1)=2

'Here's where I calculate the values for DiceFreq by going through
NDice from 6 to 1.
For i=6 To 1 Step -1
If NDice(i)>DiceFreq(0).Count Then
DiceFreq(1).Count=DiceFreq(0).Count
DiceFreq(1).Value=DiceFreq(0).Value
MsgBox DiceFreq(0).Value & ": " & DiceFreq(0).Count & " st." & Chr(13) & _
DiceFreq(1).Value & ": " & DiceFreq(1).Count & " st."
DiceFreq(0).Count=NDice(i)
DiceFreq(0).Value=i
MsgBox DiceFreq(0).Value & ": " & DiceFreq(0).Count & " st." & Chr(13) & _
DiceFreq(1).Value & ": " & DiceFreq(1).Count & " st."
ElseIf NDice(i)>DiceFreq(1).Count Then
DiceFreq(1).Count=NDice(i)
DiceFreq(1).Value=i
MsgBox DiceFreq(0).Value & ": " & DiceFreq(0).Count & " st." & Chr(13) & _
DiceFreq(1).Value & ": " & DiceFreq(1).Count & " st."
EndIf
Next i
MsgBox "Final reults:" & String(2,Chr(13)) & DiceFreq(0).Value & ": "
& DiceFreq(0).Count & _
 " st." & Chr(13) & DiceFreq(1).Value & ": " & DiceFreq(1).Count & " st."
End Sub


Now, while this works perfectly as a stand-alone subroutine, it
doesn't work in the game. What happens in the game is that everytime I
change the value of DiceFreq(i).Value or DiceFreq(i).Count, BOTH
instances are changed, for example if I set DiceFreq(0).Value to 5,
DiceFreq(1).Value is also set to 5 and I just can't figure out why!

In the game the corresponding subroutine is called from another
module, but I simulated that too in my test, but still it ONLY fails
in the game.

I can upload my game document (the debug version) somewhere if needed.

What on earth could possibly cause this? I'm just out of ideas!

Help…?


Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

ReDim of a variable of a custom type

Johnny Rosenberg — 2011-08-15T10:45:06

I wrote some example code:

REM  *****  BASIC  *****

Option Compatible
Option Explicit

Type MyType
a As Integer
b As Integer
End Type
Dim x(1) As MyType

Sub Main
Dim y As MyType
Dim i As Integer
For i=0 To 1
x(i).a=1+i*2
x(i).b=2+i*2
Next i
y.a=5
y.b=6

MsgBox x(0).a & x(0).b & x(1).a & x(1).b & y.a & y.b ' Displays 123456

ReDim x(1) As MyType
ReDim y As MyType
MsgBox x(0).a & x(0).b & x(1).a & x(1).b & y.a & y.b ' Displays 123400
End Sub

So if we have an array as MyType (or any other custom type, I
suppose), ReDim will not reset it.
Is this the expected behaviour or should I write a bug report?

How can I read my code in a module in the Basic IDE with Basic code?

Johnny Rosenberg — 2011-08-14T06:11:37

My workaround at the moment, is to first save my code to a file and
then loading it from the file.

Not that it matters why I want to do this, but I am writing a macro
that examines my subroutines and functions. I want to know the name of
every function and every subroutine, what module they are in, what
parameters they want, what they return, which subroutines and
functions (of those in the same modules) they call, by which functions
and subroutines they are called and maybe some more.
My macro works, but as I said, it reads the information from files
rather than directly from the modules in the Basic IDE.

If I only can read all the text in one module at once, that would do
it just fine. If there is a simple one-liner that reads just one
function or subroutine, that's a bonus, and if I can read a dialogue
that's even better…

I know how to read from spreadsheets and writer documents, I just
can't figure out how to reach the text in the IDE.
Hoping for an answer even though I noticed that this list seems quite
dead these days. Maybe people are busy doing real things…


Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

OpenOffice.org Basic – Arrays as parameters in functions

Johnny Rosenberg — 2011-08-12T17:52:47

Let's say I have this array:

Type MyType
A As String
B As Long
End Type

Sub Main
Dim MyArray(0) As MyType, i As Long

'A lot of stuff going on

For i=1 To Something
ReDim Preserve
MyArray(i).A=getStuffFromSomewhere()
MyArray(i).B=getStuffFromOuterSpace()
Next i

'More stuff going on for quite a while
End Sub

So I have a big array of my own type. Now I want a function to do
things based on the contents of MyArray. I know I can do this:

Function MyFunction(AnArray As Variant)
'Do things
End Function

So my question is, if I don't want to use the parameter-as-variant
method, is there another way?
I guess I could do something like the following:

Function MyFunction(AnArray(Something) As MyType)
'Do things
End Function

The problem is that ”Something” is just that, something, not a known value.
Using the variant trick seems to be cheating to me… Is it the only way
to go, really?


Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

Global variables – OpenOffice.org Basic

Johnny Rosenberg — 2011-08-08T15:42:20

I am testing some functions at the moment (I wrote them a few years
ago and now I'm trying to make them faster…) but I am a bit stuck at
the moment.

It looks something like this:

Module1
¯¯¯¯¯¯¯
' Code starts here
Option Explicit

Type Blahblah
This As Integer
That As Integer
End Type

Dim OneThing As Blahblah
Dim MoreStuff As Integer

Sub Main
Dim X As Integer
Some stuff
X=MyFunction(47)
More stuff
End Sub
' End of code

Module2
¯¯¯¯¯¯¯
' Code starts here
Function MyFunction(A As Integer) As Integer
Dim SomeValue As Integer
Some stuff
OneThing.This=A*SomeValue
More stuff
MyFunction=OneThing.This-A
End Function
' End of code

Now, when running this (with F5 or F8), it seems like it starts at
”Sub Main” and everything above it is omitted, so I get an error
message in module2 when ”OneThing” is mentioned.
Shouldn't the global things be available in all modules? They are if I
run similar macros from a spreadsheet, for example, that is not from
the Basic IDE.

Did I miss something here? Is there a way around it?


Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

Missing a Frac() function

Johnny Rosenberg — 2011-08-07T14:55:50

Am I the only one who miss a Frac() function in OpenOffice.org Basic
and as a cell function?

I always have to use my own function, which is probably slower than a
built in function would be:

Function Frac(Value As Double) As Double
    Frac=Value-Fix(Value) ' Using ”Int” instead of ”Fix” doesn't work
properly for negative values.
End Function

For example, Frac(-12.3456789) ⇨ -0.3456789

I use Frac() all the time and I can't be the only one who need it, can I? Among
other things it's nice for separating time from time+date, even if there are
other ways to do that.

In case there is a Frac() function after all, what's it called?

Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

Event OnPrepareUnload and CloseVetoException

Peter Eberlein — 2011-08-04T07:32:43

Hi,

according to mba in 
http://openoffice.org/projects/api/lists/dev/archive/2006-09/message/209 
it seems, that you can't prevent the document from closing by throwing a 
CloseVetoException, if once a OnPrepareUnload-event is fired.
Is this still true for OpenOffice 3.2?

Is there another way to let the document and the frame live by using the 
XJob-interface, if the user wants to close them?

Regards

Peter

Getting information from some site via Basic IDE – possible? How?

Johnny Rosenberg — 2011-07-16T15:34:39

Is it possible with the OpenOffice.org BASIC IDE to access a web site,
login, copy some text to the clipboard, and then logout?
Any hints?


Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

Open Ended Arrays or Similar Data Structures

Hal Vaughan — 2011-06-19T02:35:03

Is there any way, in OOo BASIC, to create something like a vector or linked list or anything that gives me something like an array that I can keep adding elements to?  (Everything I found with an array indicated it has to be declared with a set number of members.)


Thanks!



Hal-- 
-----------------------------------------------------------------
To unsubscribe send email to dev-unsubscribe< at >api.openoffice.org
For additional commands send email to sympa< at >api.openoffice.org
with Subject: help

Pre-recorded Macro Suddenly Crashing

Hal Vaughan — 2011-06-16T10:16:00

I've been using this macro for a good while:

sub CharacterName
Dim oDoc   As Object
Dim oDispatch As Object
BasicLibraries.LoadLibrary("HalLib")
HalLib.AutoTextMacro.InsertAutoMacroText()
Margin4()
'MsgBox "Debug 1"
oDoc = ThisComponent.CurrentController.Frame
'MsgBox "Debug 2"
oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
'MsgBox "Debug 3"
oDispatch.executeDispatch(oDoc, ".uno:GoToStartOfLine", "", 0, Array())
'MsgBox "Debug 4"
oDispatch.executeDispatch(oDoc, ".uno:EndOfLineSel", "", 0, Array())
MsgBox "Debug 5"
oDispatch.executeDispatch(oDoc, ".uno:ChangeCaseToUpper", "", 0, Array())
MsgBox "Debug 6"
oDispatch.executeDispatch(oDoc, ".uno:GoToEndOfLine", "", 0, Array())
'MsgBox "Debug 7"

End Sub

The debugging statements were not in there until recently.  The two lines that call other subroutines:

HalLib.AutoTextMacro.InsertAutoMacroText()
Margin4()

Are part of an auto-text setup I use where I can define keys to type out character names when I'm writing a script.  The first pulls the name out of a user field in the document and enters it in the document.  The 2nd one (Margin4()) changes the margins.

The line I'm having problem with is right after the "Debug 5" statement:

oDispatch.executeDispatch(oDoc, ".uno:ChangeCaseToUpper", "", 0, Array())

Now this is crashing my program every single time.  A few hours ago it was working perfectly.  Then I was trying to modify a routine that is in the same library and also reads the user fields in the document.  The routine I was working on does not change anything the above routine uses.

I've changed the routine I'm editing back to what it was originally.  (The original statements were just commented out, so I just uncommented them and commented out the changes.)  But I still get a crash whenever the macro hits this line.

I was wondering if something could have changed, so I tried to record a new macro, and I can't.


Any thoughts on why the ChangeCaseToUpper would suddenly not work?


Thanks!


Hal-- 
-----------------------------------------------------------------
To unsubscribe send email to dev-unsubscribe< at >api.openoffice.org
For additional commands send email to sympa< at >api.openoffice.org
with Subject: help

Displaying Multiple Dialogs from BASIC

Hal Vaughan — 2011-06-16T07:22:31

I've mentioned the sticky-note project I'm working on yesterday in two emails.

Now I'm running into a problem: I'd like to display a number of sticky-notes, but to display any kind of dialog in BASIC, I need to do something like this:

oSticky = createUnoDialog(DialogLibraries.HalLib.StickyNote)
oSticky.Execute()

And the program will stop until I close the dialog, either by the close button, a cancel, or OK, or another button.

That means the only way to have multiple dialogs open is to open one and from there, open the next, and then open the next and so on.

Is there some way, from BASIC, to display a dialog and leave it open without it stopping a script?


Thank you!



Hal-- 
-----------------------------------------------------------------
To unsubscribe send email to dev-unsubscribe< at >api.openoffice.org
For additional commands send email to sympa< at >api.openoffice.org
with Subject: help

Document Text Fields

Hal Vaughan — 2011-06-15T05:23:45

While looking through the reference, I can find info on getting and storing text fields in a document in com.sun.star.text.FieldMaster.User, where I can name a text field and save the data.

I don't find anything telling me if there is a limit to how long such a field can be.  I think I remember them being unlimited.  Is that correct?  (I want to use them for storing notes about a document.)


Thank you!



Hal-- 
-----------------------------------------------------------------
To unsubscribe send email to dev-unsubscribe< at >api.openoffice.org
For additional commands send email to sympa< at >api.openoffice.org
with Subject: help