Drag and drop?

[AdamStrangeParticipant]

Does mx2 support dropping of files on the app window?

If so, how?

if not, how?

[degacParticipant]

I know (and found in module source) that SDL has an event SDL_DropEvent but not sure if this is implemented/used in MX2 (its defined so I imagine that can be catched).

 

edit:

tested using the SDL example, just adding in Select..End Select

Case SDL_DROPFILE
Print “Event dropfile”

edit2:

looking at the event.monkey2 source it seems that SDL_DROP is not implemented (or maybe I’ve looked in the wrong place! – there are only key, windows and mouse events)

it seems to works

[impixiParticipant]

Looks like you need to hack Mojo to support dragging items onto the application window.

Rough “proof of concept” example:

monkey2/modules/mojo/app/app.monkey2

Add the following field, property and method to to the AppInstance class:

Monkey

[crayon-5cb9ac4ade5ab755293036 inline="true" ] Private Field _draggedFileName:String Public Property DraggedFileName:String() Return _draggedFileName End Method ClearDraggedFileName:Void() _draggedFileName = Null End

1 2 3 4 5 6 7 8 9 10 11 12 13

[crayon-5cb9ac4ade5ab755293036 inline="true" ] Private   Field _draggedFileName:String   Public   Property DraggedFileName:String()     Return _draggedFileName   End   Method ClearDraggedFileName:Void()     _draggedFileName = Null   End

[/crayon]

Add the following function call to the bottom of the AppInstance class constructor, just before the End statement:

Monkey

[crayon-5cb9ac4ade5b0476549710 inline="true" ] Method New() ... SDL_EventState(SDL_DROPFILE, SDL_ENABLE) End

1 2 3 4 5 6 7 8 9

[crayon-5cb9ac4ade5b0476549710 inline="true" ] Method New()     ...     SDL_EventState(SDL_DROPFILE, SDL_ENABLE)   End

[/crayon]

Add the following to the Select statement in the DispatchEvent method:

Monkey

[crayon-5cb9ac4ade5b4496054223 inline="true" ] Method DispatchEvent( event:SDL_Event Ptr ) Select event->type ... Case SDL_DROPFILE Local devent:=Cast<SDL_DropEvent Ptr>( event ) _draggedFileName = String.FromCString(devent->file) Print _draggedFileName SDL_free(devent->file) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

[crayon-5cb9ac4ade5b4496054223 inline="true" ] Method DispatchEvent( event:SDL_Event Ptr )      Select event->type     ...       Case SDL_DROPFILE       Local devent:=Cast<SDL_DropEvent Ptr>( event )       _draggedFileName = String.FromCString(devent->file)       Print _draggedFileName       SDL_free(devent->file)       End   End

[/crayon]

Compile the mojo module. Test it out with the following example.

sdl2DragTest.monkey2:

Monkey

[crayon-5cb9ac4ade5b9591711235 inline="true" ]#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New() Super.New("Window",640, 480) End Method OnRender( canvas:Canvas ) Override App.RequestRender() If App.DraggedFileName canvas.DrawText(App.DraggedFileName, Width/2, Height/2, .5, .5) Else canvas.DrawText("Drag something onto the window...", Width/2, Height/2, .5, .5) Endif End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

[crayon-5cb9ac4ade5b9591711235 inline="true" ]#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window     Method New()     Super.New("Window",640, 480)   End     Method OnRender( canvas:Canvas ) Override     App.RequestRender()     If App.DraggedFileName       canvas.DrawText(App.DraggedFileName, Width/2, Height/2, .5, .5)     Else       canvas.DrawText("Drag something onto the window...", Width/2, Height/2, .5, .5)     Endif   End End   Function Main()   New AppInstance   New MyWindow   App.Run() End

[/crayon]

As I said, that’s just a proof of concept that works for me (on Windows).

To make DropEvent behave like the other Mojo event types requires extra work… Something for another time…

[Mark SiblyKeymaster]

Looks nice and easy, will have a hack at this today.

[GwenelParticipant]

Does drag and drop work for both windows and icons? Please create a drag and drop banana how to use it in new releases it could be emmensly useful to have sometimes

[nerobotParticipant]

It’s easy. Write in your widow constructor

Monkey

App.FileDropped+=Lambda( path: String ) Print path End

1 2 3

App.FileDropped+=Lambda( path: String )   Print path End

Works fine on Windows, don’t know about osx.

[GwenelParticipant]

it works in macos the same , also with folders and multiple files is confirmed.

How about dropping files onto the actual app icon instead of the app window?

In windows this would mean reading the parameters of the exe file right? What about macOS?

[nerobotParticipant]

Ted2go is supporting drag-into-exe. You can test it on win and mac.

The code

Monkey

App.Idle+=Lambda() ' open docs from args Local args:=AppArgs() For Local i:=1 Until args.Length Local arg:=args[i] arg=arg.Replace( "\","/" ) MainWindow.OnFileDropped( arg ) Next End

1 2 3 4 5 6 7 8 9 10

App.Idle+=Lambda()   ' open docs from args Local args:=AppArgs() For Local i:=1 Until args.Length Local arg:=args[i] arg=arg.Replace( "\","/" ) MainWindow.OnFileDropped( arg ) Next End

[GwenelParticipant]

I get the error “identifier “MainWindow” Not found?

[nerobotParticipant]

Replace MainWindow.OnFileDropped( arg ) with your code .

[GwenelParticipant]

oh gotcha I thought was some clever mechanism to chain parameter/icon input to the window drag and drop input.

 

for macos you need to edit info.plist to allow dragging to an icon on the desktop or onto the dock

info.plist  needs the added line:

Add/Modify public.data mime type

I can be misstaken as this is all new to me, but am exploring it now. Is this why you can’t drag files onto Monkey2 in the macos dock (or desk) maybe.

[Author]

Posts