Commit 7f3c1682 authored by David O'Toole's avatar David O'Toole

odmvklc

parent 470a8e3e
......@@ -1556,6 +1556,7 @@ See sidebar for more commands to try.
(defmethod tap ((self node) x y) nil)
(defmethod tap :after ((self node) x y)
(bring-to-front self)
(with-shell
(when (shell-p (current-buffer))
(when (not (holding-control))
......@@ -1908,6 +1909,9 @@ See sidebar for more commands to try.
(defmethod draw-focus ((self halo)))
(defmethod draw-highlight ((self halo)))
(defmethod accept ((self halo) other))
(defmethod destroy :before ((halo halo))
(mapc #'destroy (inputs halo)))
;; Halos:1 ends here
;; Opening a halo
......@@ -1973,7 +1977,7 @@ See sidebar for more commands to try.
;; [[file:~/quicklisp/local-projects/xelf/gui.org::*Data%20entry%20prompt][Data entry prompt:1]]
(defvar *prompt* nil)
(defparameter *active-prompt-color* "red")
(defparameter *active-prompt-color* "blue")
(defparameter *inactive-prompt-color* "gray40")
(defparameter *prompt-cursor-inactive-color* "gray50")
(defparameter *default-prompt-text-color* "white")
......
......@@ -1575,6 +1575,7 @@ above.
(defmethod tap ((self node) x y) nil)
(defmethod tap :after ((self node) x y)
(bring-to-front self)
(with-shell
(when (shell-p (current-buffer))
(when (not (holding-control))
......@@ -1926,6 +1927,9 @@ above.
(defmethod draw-focus ((self halo)))
(defmethod draw-highlight ((self halo)))
(defmethod accept ((self halo) other))
(defmethod destroy :before ((halo halo))
(mapc #'destroy (inputs halo)))
#+end_src
* Opening a halo
......@@ -1988,7 +1992,7 @@ above.
#+begin_src lisp
(defvar *prompt* nil)
(defparameter *active-prompt-color* "red")
(defparameter *active-prompt-color* "blue")
(defparameter *inactive-prompt-color* "gray40")
(defparameter *prompt-cursor-inactive-color* "gray50")
(defparameter *default-prompt-text-color* "white")
......@@ -2307,8 +2311,8 @@ above.
(defmethod draw :after ((self buffer))
(when *menubar*
(draw *menubar*))
(when (shell-p self)
(draw *shell*))
;; (when (shell-p self)
;; (draw *shell*))
(when *notification*
(draw *notification*)))
......
......@@ -3,6 +3,7 @@
*** 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 command line has no cursor
*** 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] add more notifications for cut/copy etc
......
......@@ -62,9 +62,8 @@
(trace xelf::make-method-menu-item)
(trace xelf::release)
(trace xelf::press)
;; (trace xelf::display-string)
;; (trace xelf::layout-as-string)
;; (trace xelf::layout)
;; (trace xelf::hit)
(trace xelf::open-shell)
(trace xelf::focus-on)
(trace xelf::close-shell)
(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