Drag Act

[richmond62]

So . . . getting "all excited" (well, not that much as, as usual, the hype and the tripe don't coincide) about
Apple's new and much talked-up Freeform app for MacOS (that means, on your computer screen rather than
a tablet):

https://www.macrumors.com/2022/10/25/io ... eform-app/

I noticed how one can:

1. Drag an image from outwith Freeform onto its window.

2. Drag an RTF document from outwith Freeform onto its window.

The question . . .
-

RuPaul.jpg (25.64 KiB) Viewed 2714 times

-
Err, No, not that question, although I am feeling fairly camp today.

The question is, is there a way to drag images and text documents from a folder window onto a LiveCode stack?

[Klaus]

Hi Richmond,

here a quick and dirty demo stack, check the card script.
This should get you started.

Best

Klaus

[richmond62]

Fantastic, Klaus!

Thank you very much indeed!

[richmond62]

The RTF drag needs a spot of fine tuning:
-

SShot 2022-10-29 at 19.51.35.png (17.69 KiB) Viewed 2708 times

-
This is because the default textSize of a new field is 12.

[richmond62]

SShot 2022-10-29 at 20.12.39.png (5.39 KiB) Viewed 2695 times

-

Code: Select all

 case tSuffix = "rtf" 
         create field
         set the rtftext of last fld to url("file:" & tFile)
         ---- Richmond 29/10/22
         focus on last fld
         select text of last fld
         put the textSize of the selectedText into TXSZ
         set the textSize of last fld to TXSZ
         set the height of last fld to the formattedHeight of last fld
         set the width of last fld to the formattedWidth of last fld
         focus on nothing
         ----
         break

Not sure WHY focus on nothing does NOT remove focus from the field.
-

Focus on nothing

focusN.jpg (7.64 KiB) Viewed 2689 times

[richmond62]

Err . . . perhaps the state of the Dictionary might be something to do with that:
-

-
A great source of comfort:
-

SShot 2022-10-29 at 20.31.42.png (26.13 KiB) Viewed 2684 times

[richmond62]

Deepjoy:
-

SShot 2022-10-29 at 20.33.28.png (24.13 KiB) Viewed 2671 times

-

SShot 2022-10-29 at 20.33.46.png (23.27 KiB) Viewed 2671 times

[richmond62]

Aaaaaah:
-

Code: Select all

case tSuffix = "rtf" 
         create field
         set the rtftext of last fld to url("file:" & tFile)
         ---- Richmond 29/10/22
         focus on last fld
         select text of last fld
         put the textSize of the selectedText into TXSZ
         set the textSize of last fld to TXSZ
         set the height of last fld to the formattedHeight of last fld
         set the width of last fld to the formattedWidth of last fld
         select empty
         ----
         break