ui.windows.drop-target: new vocab

diff --git a/extra/ui/windows/drop-target/authors.txt b/extra/ui/windows/drop-target/authors.txt
new file mode 100644 (file)
index 0000000..8e1955f
--- /dev/null
+++ b/extra/ui/windows/drop-target/authors.txt
@@ -0,0 +1 @@
+Alexander Ilin

diff --git a/extra/ui/windows/drop-target/drop-target.factor b/extra/ui/windows/drop-target/drop-target.factor
new file mode 100644 (file)
index 0000000..264b567
--- /dev/null
+++ b/extra/ui/windows/drop-target/drop-target.factor
@@ -0,0 +1,30 @@
+! Copyright (C) 2019 Alexander Ilin.
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors kernel math namespaces
+ui.gadgets ui.gadgets.worlds ui.gestures
+windows.dropfiles windows.user32 ;
+IN: ui.windows.drop-target
+
+TUPLE: drop-target < world
+    on-file-drop ; ! ( seq -- )
+
+TUPLE: world-attributes < ui.gadgets.worlds:world-attributes
+    { on-file-drop initial: [ drop ] } ;
+
+: make-topmost ( world topmost? -- )
+    [ handle>> hWnd>> ] [ HWND_TOPMOST HWND_NOTOPMOST ? ] bi* 0 0 0 0
+    SWP_NOSIZE SWP_NOMOVE bitor SWP_NOACTIVATE bitor SetWindowPos drop ;
+
+M: drop-target graft*
+    [ call-next-method ] [ world-accept-files ] [ t make-topmost ] tri ;
+
+: handle-drop ( drop-target -- )
+    on-file-drop>> [ dropped-files get-global swap call( files -- ) ] when* ;
+
+drop-target H{
+    { T{ file-drop } [ handle-drop ] }
+} set-gestures
+
+: <drop-target> ( world-attributes -- world )
+    clone drop-target >>world-class [ <world> ] keep on-file-drop>>
+    >>on-file-drop ;

diff --git a/extra/ui/windows/drop-target/platforms.txt b/extra/ui/windows/drop-target/platforms.txt
new file mode 100644 (file)
index 0000000..8e1a559
--- /dev/null
+++ b/extra/ui/windows/drop-target/platforms.txt
@@ -0,0 +1 @@
+windows

diff --git a/extra/ui/windows/drop-target/summary.txt b/extra/ui/windows/drop-target/summary.txt
new file mode 100644 (file)
index 0000000..d8bea6d
--- /dev/null
+++ b/extra/ui/windows/drop-target/summary.txt
@@ -0,0 +1 @@
+A window that accepts files drag-and-dropped from the operating system