Skip to content

Commit

Permalink
Try to fix compile errors in DragDropDemo (#453)
Browse files Browse the repository at this point in the history
  • Loading branch information
Numpsy authored Mar 2, 2025
1 parent 46d44d8 commit 3cfe3e2
Showing 1 changed file with 3 additions and 3 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -78,11 +78,11 @@ module DragDropDemo =
Border.create
[ Border.classes [ "drop" ]
Border.padding 16.0
DragDrop.allowDrop true
Control.allowDrop true
Border.child
(TextBlock.create
[ TextBlock.text state.dropText
DragDrop.onDrop (fun e ->
Control.onDrop (fun e ->
if e.Data.Contains(DataFormats.Text) then
Dropped(e.Data.GetText()) |> dispatch
elif e.Data.Contains(DataFormats.Files) then
Expand All @@ -92,7 +92,7 @@ module DragDropDemo =
|> String.concat Environment.NewLine)
|> dispatch
)
DragDrop.onDragOver (fun e ->
Control.onDragOver (fun e ->
e.DragEffects <-
if e.Data.Contains(DataFormats.Text)
|| e.Data.Contains(DataFormats.Files) then
Expand Down

0 comments on commit 3cfe3e2

Please sign in to comment.