windows.dragdrop-listener: add a short documentation and a summary

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener-docs.factor b/basis/windows/dragdrop-listener/dragdrop-listener-docs.factor
new file mode 100644 (file)
index 0000000..109f2f0
--- /dev/null
+++ b/basis/windows/dragdrop-listener/dragdrop-listener-docs.factor
@@ -0,0 +1,64 @@
+! Copyright (C) 2017 Alexander Ilin.
+! See http://factorcode.org/license.txt for BSD license.
+USING: help.markup help.syntax kernel windows.ole32 ;
+IN: windows.dragdrop-listener
+
+ABOUT: "windows.dragdrop-listener"
+
+ARTICLE: "windows.dragdrop-listener" "Dropping files onto listener window"
+"The " { $vocab-link "windows.dragdrop-listener" } " vocab is a demo of the COM wrapping facilities. It allows you to drag-and-drop any file from the Explorer onto a listener window, and have the contents of that file parsed and executed immediately. If the file does not contain valid Factor source code, you will see compilation errors." $nl
+"Register the current listener window to accept file drops:" $nl
+{ $subsections dragdrop-listener-window }
+"Only one file at a time can be dropped." ;
+
+HELP: +listener-dragdrop-wrapper+
+{ $var-description "" } ;
+
+HELP: <listener-dragdrop>
+{ $values
+    { "hWnd" null }
+    { "object" object }
+}
+{ $description "" } ;
+
+HELP: dragdrop-listener-window
+{ $description "Run this word from a listener to activate drag-and-drop support for the listener window." $nl
+"Note: if you get the \"" { $snippet "COM error 0x8007000e" } "\", you need to call " { $link ole-initialize } " first." } ;
+
+HELP: filecount-from-data-object
+{ $values
+    { "data-object" null }
+    { "n" null }
+}
+{ $description "" } ;
+
+HELP: filecount-from-hdrop
+{ $values
+    { "hdrop" null }
+    { "n" null }
+}
+{ $description "" } ;
+
+HELP: filenames-from-data-object
+{ $values
+    { "data-object" null }
+    { "filenames" null }
+}
+{ $description "" } ;
+
+HELP: filenames-from-hdrop
+{ $values
+    { "hdrop" null }
+    { "filenames" null }
+}
+{ $description "" } ;
+
+HELP: handle-data-object
+{ $values
+    { "handler" null } { "data-object" null }
+    { "filenames" null }
+}
+{ $description "" } ;
+
+HELP: listener-dragdrop
+{ $class-description "" } ;

diff --git a/basis/windows/dragdrop-listener/summary.txt b/basis/windows/dragdrop-listener/summary.txt
new file mode 100644 (file)
index 0000000..a0d9ab8
--- /dev/null
+++ b/basis/windows/dragdrop-listener/summary.txt
@@ -0,0 +1 @@
+Drop files onto listener window