Page 1 of 1

Dragdrop message no longer working using Win 11

Posted: Thu Mar 09, 2023 11:01 am
by golife
Working on Windows 11 Pro Build 22000.1574
LiveCode Version 9.6.9-rc-1 Build 15600

Since two days ago, all my stacks that are using "on dragdrop" to drop files to a field that records their filename are no longer receiving the message.
  • Entering the card with the mouse kept down and the file selected, the background color of ths stack is hilited.
    Then the mousePointer turns to an insert icon with "+ copy" label and the icon of the file type.
  • When dropping the text file to the destinatino object (here it is field "input"), a new field is created containing the text of the dropped file and LC sends one "deleteGraphic" message. (Nothing is deleted here...)
  • When dropping another LiveCode stack, the stack is opened in a new window.
  • Other file types such as pdf cannot be dropped. The mousepointer shows the denial symbol.
  • Checking the "dragdrop" message, it does not fire while the "dragEnter" message is recognized.
Here is my text script. I am attaching a test stack together with the text file I am trying to drop.
Expected is that it presents the filename only.

I hope I made some silly mistakes, but the problem exists for all my stacks and prohibits essentially work.

If no one else can see the problem I wonder what it is. A bug in Windows? A but in LiveCode? Some settings? Before filing a bug report, I need to further analyze the problem. What error message to detect and receive and how?

Code: Select all

# Script: Test script for drag and drop
# DT: 230309-1100
# User: RH
# Desc: Dragdrop message not received

local sPaneColor = "white"
local sPaneColorEnter = "255,231,256"

on dragdrop
   put CR& "dragDrop" after field "output"
   put the dragData["files"] into tDragData
   set the text of me to tDragData
   set the backgroundcolor of me to sPaneColor
end dragdrop

on dragEnter
   put CR& "dragEnter" after field "output"
   put keys(the dragData) into tKeys
   put CR& tKeys after field "output"
   if "files" is in tKeys then
      set the dragAction to "copy"
      if the result is not empty then put CR&the result after field "output"
      set the backgroundcolor of me to sPaneColorEnter
   else
      set the dragAction to "none"
      if the result is not empty then put CR&the result after field "output"
   end if
end dragEnter

on dragLeave
   put CR& "dragLeave" && the dragAction after field "output"
   set the dragAction to "none"
   put CR& "dragLeave" && the dragAction after field "output"
   set the backgroundcolor of me to sPaneColor
end dragLeave
Image

Re: Dragdrop message no longer working using Win 11

Posted: Thu Mar 09, 2023 3:06 pm
by golife
I have to add that I just tested this on another computer and "dragdrop" is working.
So, what in a computer system (Windows) could prevent the message from being sent?

Re: Dragdrop message no longer working using Win 11

Posted: Thu Oct 31, 2024 12:06 pm
by golife
The situation does not change. The problem continues.
The "dragdrop" messages is never sent.

A workaround: Just place use the message "dragEnter" and work from there:

Code: Select all

on dragEnter
   put the dragdata["files"] into field "dragData"
end dragEnter