PureBasic Forums - English

Yes I've seen both. I still need help. Also I'm not interested in running an AppleScript, but learning how to send the raw AppleEvents like in the post from Wilbert

Can anyone help with my original question?

Shardik had already had a version for mac on this topic
https://www.purebasic.fr/english/viewtopic.php?p=467833#p467833
it is the second example in his post.

It can also be done by running an AppleScript
Code is from Piero.

EnableExplicit

Structure daResults : Out.s : Err.s : ExC.w ...

From what I understand, visibleFrame is the screen size with the menubar height and doc height removed.
I think!

OK, but I still would like to know how to send an AppleEvent with data attached. SO I can use the same process to handle other programs and events.
I don't need an aletrnative way to do this. I want to KNOW how it gets done so I can LEARN.

I do have the Macintosh version to open file info windows, if you are interested?

Nice, but I already knew how to do that, but I want to be able to send the AppleEvents directly like the examples here.


** EDIT **

What are the "~" (tilde) character doing in your string concatinations?

How does one send an AppleEvent to the Finder?
and also how does one send the data to go with the event?
Such as tell application "Finder" to get selection
then get the first item of the selection
and then tell application "Finder" to open information window of I
Applescript is

tell application ...

I have a Dell UltraSharp U3417W monitor. Its screen resolution is 3440w x 1440h.
On PureBasic 6.12 LTS, DesktopWidth(0) returns 1440, same as DesktopHeight(0)

Result = ExamineDesktops()
WinWidth.l = DesktopWidth(0) : WinHeight.l = DesktopHeight(0)
Debug "WindWidth = " + WinWidth
Debug "WinHeight ...

The bug is, it doesn't redraw till the thread completes. It should redraw after every StartVectorDrawing()-StopVectorDrawing() loop

Haven't tested on PC yet

** EDIT ** Tested on PC, It works great!

I have a small program that draws the Recamån series on a Canvas Gadget.
The drawing routines are in a thread. A loop occurs to draw each segment followed by a StopVectorDrawing().
On the Mac, the drawings of each segment don't appear until the entire thread is finished.
I can post the entire ...

Darn, I wish you compiled it for Mac also!

If by reset, you mean set all values back to zero, you can use FillMemory like so...

mylen.l = 100
Dim MyArray.l(mylen)
...
; use array
...
; reset array
FillMemory(@ MyArray(), mylen -1, 0, #PB_Long)

Where does someone get the program "here"?

Also, because you piped the output to test.txt, you can't get any output from the readProgramString command.

It locks up on me also.
I am still on Ventura