Add drop event + example.

events.lisp

@@ -47,6 +47,9 @@
 (defclass paste-event (direct-event)
   ((content :initarg :content :initform (arg! :content) :reader content)))
 
+(defclass drop-event (direct-event)
+  ((paths :initarg :paths :initform (arg! :paths) :reader paths)))
+
 (defclass text-event (direct-event)
   ((text :initarg :text :initform (arg! :text) :reader text)))
 

examples/drop.lisp

@@ -0,0 +1,23 @@
+#|
+ This file is a part of Alloy
+ (c) 2019 Shirakumo http://tymoon.eu (shinmera@tymoon.eu)
+ Author: Nicolas Hafner <shinmera@tymoon.eu>
+|#
+
+(in-package #:org.shirakumo.alloy.examples)
+
+(defclass custom-window (glfw:window)
+  ())
+
+(alloy:define-observable show-drop (paths alloy:observable))
+
+(defmethod alloy:handle ((event alloy:drop-event) (window custom-window))
+  (alloy:notify-observers 'show-drop window (alloy:paths event) window))
+
+(define-example drop-files (screen)
+  (let* ((window (windowing:make-window screen :class 'custom-window))
+         (focus (make-instance 'alloy:focus-list :focus-parent window))
+         (layout (make-instance 'alloy:border-layout :layout-parent window))
+         (label (alloy:represent "Drop some files here!" 'alloy:button :focus-parent focus :layout-parent layout)))
+    (alloy:on show-drop (paths window)
+      (setf (alloy:value label) (princ-to-string paths)))))

examples/package.lisp

@@ -9,6 +9,7 @@
   (:local-nicknames
    (#:alloy #:org.shirakumo.alloy)
    (#:glfw #:org.shirakumo.alloy.renderers.glfw)
+   (#:simple #:org.shirakumo.alloy.renderers.simple)
    (#:windowing #:org.shirakumo.alloy.windowing)
    (#:colors #:org.shirakumo.alloy.colored.colors))
   (:export

package.lisp

@@ -191,8 +191,11 @@
    #:dx
    #:dy
    #:direct-event
+   #:copy-event
    #:paste-event
    #:content
+   #:drop-event
+   #:paths
    #:text-event
    #:text
    #:key-event