Re: Displaying Multiple Dialogs from BASIC

Hal Vaughan <[email protected]> Thu, 16 Jun 2011 05:22:11 -0400
Newsgroups gmane.comp.openoffice.devel.api
Message-ID <[email protected]>
On Jun 16, 2011, at 4:59 AM, Fernand Vanrie wrote:

> On 16/06/2011 10:20, Hal Vaughan wrote:
>> This leads to a couple other questions:
>>=20
>> 1) On the CloseDialog() subroutine, if I want to execute it from a butto=
n in the dialog, how can I pass the dialog itself to the routine?
> you can add a listener to the button (using code) or manualy using the GU=
I to place  a  "event" on the button  who call a macro subroutine

But when I do that, and the listener calls CloseDialog(), how do I make sur=
e that particular Dialog object is available to the CloseDialog() subroutin=
e?  I tried it as you have it written and at the dialog.setvisible(false) l=
ine I got an error because the object was not defined.



Hal

>> 2) Is there any way to run a macro when the "X" on the title bar of the =
dialog is clicked?
> no,  you can add a listener on closing the dialog or using the the "stetv=
isible" who avoid the functioning off the X  and you can add a  "cancelbuto=
n" who call a sub who close the dialog and do someting more...
>> Thanks!
>>=20
>>=20
>> Hal
>>=20
>>=20
>> On Jun 16, 2011, at 3:30 AM, Fernand Vanrie wrote:
>>=20
>>> Hal ,
>>>=20
>>> Y ou can set a Dialogcontrol visible or not , but we need a timeloop to=
 keep it visible
>>>=20
>>> i use 2 sub's for open and closing
>>>=20
>>> Sub Opendialog
>>> bEnd =3D false
>>> oDialogcontrol.setvisible(true)
>>> Do
>>> Wait 100  ' keep computer running (should use "wait for key event" if e=
xisted)
>>> Loop while not bEnd
>>> end sub
>>>=20
>>> sub CloseDialog(dialog as object)
>>>  dialog.setvisible(false)
>>>  Bend =3D true
>>> end sub
>>>=20
>>> Hop it Helps
>>>> I've mentioned the sticky-note project I'm working on yesterday in two=
 emails.
>>>>=20
>>>> 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:
>>>>=20
>>>> 	oSticky =3D createUnoDialog(DialogLibraries.HalLib.StickyNote)
>>>> 	oSticky.Execute()
>>>>=20
>>>> And the program will stop until I close the dialog, either by the clos=
e button, a cancel, or OK, or another button.
>>>>=20
>>>> That means the only way to have multiple dialogs open is to open one a=
nd from there, open the next, and then open the next and so on.
>>>>=20
>>>> Is there some way, from BASIC, to display a dialog and leave it open w=
ithout it stopping a script?
>>>>=20
>>>>=20
>>>> Thank you!
>>>>=20
>>>>=20
>>>>=20
>>>> Hal--
>>>> -----------------------------------------------------------------
>>>> To unsubscribe send email to [email protected]
>>>> For additional commands send email to [email protected]
>>>> with Subject: help
>>> --=20
>>> -----------------------------------------------------------------
>>> To unsubscribe send email to [email protected]
>>> For additional commands send email to [email protected]
>>> with Subject: help
>>>=20
>=20
> --=20
> -----------------------------------------------------------------
> To unsubscribe send email to [email protected]
> For additional commands send email to [email protected]
> with Subject: help
>=20

--=20
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help