Commit 8d0a2443 authored by David O'Toole's avatar David O'Toole

fix dialog box handling for now

parent c6c0f177
......@@ -356,6 +356,14 @@
((type :initform :system)
(running :initform nil)))
(defmethod add-widget ((buffer buffer) (node node))
(when (not (contains buffer node))
(push node (inputs buffer))
(adopt buffer node)))
(defmethod remove-widget ((buffer buffer) (node node))
(delete-input buffer node))
(defun show-dialog (dialog title)
(let ((frame (make-frame title dialog)))
(add-node (current-buffer) frame)
......
......@@ -1193,6 +1193,7 @@
(defmethod drag-candidate ((self buffer) drag x y)
(declare (ignore drag))
(assert (not (object-eq self drag)))
(hit-inputs self x y))
(defmethod handle-point-motion ((self buffer) mouse-x mouse-y)
......
......@@ -1218,6 +1218,7 @@ This section is obsolete and will be removed in the future.
(defmethod drag-candidate ((self buffer) drag x y)
(declare (ignore drag))
(assert (not (object-eq self drag)))
(hit-inputs self x y))
(defmethod handle-point-motion ((self buffer) mouse-x mouse-y)
......@@ -4895,6 +4896,14 @@ supported compiler.
((type :initform :system)
(running :initform nil)))
(defmethod add-widget ((buffer buffer) (node node))
(when (not (contains buffer node))
(push node (inputs buffer))
(adopt buffer node)))
(defmethod remove-widget ((buffer buffer) (node node))
(delete-input buffer node))
(defun show-dialog (dialog title)
(let ((frame (make-frame title dialog)))
(add-node (current-buffer) frame)
......
* Task list
** TODO switch to menubar and shell not being in buffer
*** DONE fix updating
CLOSED: [2017-04-21 Fri 08:15]
*** DONE fix drawing
CLOSED: [2017-04-21 Fri 08:15]
*** TODO fix clicks/focus
** TODO switch to dialog boxes not being in buffer
** TODO fix dialog boxes
*** TODO [#A] context-menu with reset-to-current-values
**** TODO pin down context menu elements
**** TODO fix broken layout/rendering of context menu
*** TODO [#A] fix menubar not being in switched-to buffer to respond to clicks
*** TODO [#A] project properties: height width scale-output- resizable author title license frame-rate
*** TODO [#B] close after eval if frame
*** TODO [#B] add more notifications for cut/copy etc
*** TODO [#B] show error bubble and restore value when input incorrect
*** TODO [#B] fix menu clicks sometimes not working
......@@ -784,3 +780,18 @@
:ARCHIVE_CATEGORY: tasks
:ARCHIVE_TODO: DONE
:END:
** TODO switch to menubar and shell not being in buffer
:PROPERTIES:
:ARCHIVE_TIME: 2017-04-21 Fri 08:40
:ARCHIVE_FILE: ~/xelf/tasks.org
:ARCHIVE_OLPATH: Task list
:ARCHIVE_CATEGORY: tasks
:ARCHIVE_TODO: TODO
:END:
*** DONE fix updating
CLOSED: [2017-04-21 Fri 08:15]
*** DONE fix drawing
CLOSED: [2017-04-21 Fri 08:15]
*** DONE fix clicks/focus
CLOSED: [2017-04-21 Fri 08:39]
......@@ -65,5 +65,9 @@
(trace xelf::open-shell)
(trace xelf::focus-on)
(trace xelf::close-shell)
(trace xelf::drag-candidate)
(trace xelf::drag-maybe)
(trace xelf::drag-fail)
(trace xelf::hit-inputs)
(test-gui)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment