Commit 61e5ae3e authored by David O'Toole's avatar David O'Toole

fix de-selecting objects when opening menubar

parent 3c5cfe77
......@@ -3,7 +3,7 @@
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<!-- 2017-04-11 Tue 18:55 -->
<!-- 2017-04-11 Tue 19:03 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Xelf: The Graphical User Interface Toolkit</title>
......@@ -319,7 +319,7 @@ for the JavaScript code in this tag.
<li><a href="#orgeda495b">Data entry prompt</a></li>
<li><a href="#org897bacb">System terminal</a></li>
<li><a href="#org6c5a725">Rendering Smalltalk style controls</a></li>
<li><a href="#org20b431b">Layout</a></li>
<li><a href="#orgfe0807f">Layout</a></li>
<li><a href="#orgc8c5c02">Duplicating a node&#xa0;&#xa0;&#xa0;<span class="tag"><span class="ccl">ccl</span>&#xa0;<span class="sbcl">sbcl</span></span></a></li>
<li><a href="#org1dfda0a">Visual Lisp lists</a>
<ul>
......@@ -327,7 +327,7 @@ for the JavaScript code in this tag.
<li><a href="#org692626f">Manipulability</a></li>
<li><a href="#orgd511959">Orientation</a></li>
<li><a href="#org6b6c188">Inputs</a></li>
<li><a href="#orgfe0807f">Layout</a></li>
<li><a href="#org6b420f3">Layout</a></li>
<li><a href="#org896c5ce">Phrase / S-expression correspondence</a></li>
</ul>
</li>
......@@ -1820,9 +1820,9 @@ hybrid GUI inspired by MIT Scratch and its derivatives.
</div>
</div>
<div id="outline-container-org20b431b" class="outline-2">
<h2 id="org20b431b">Layout</h2>
<div class="outline-text-2" id="text-org20b431b">
<div id="outline-container-orgfe0807f" class="outline-2">
<h2 id="orgfe0807f">Layout</h2>
<div class="outline-text-2" id="text-orgfe0807f">
<div class="org-src-container">
<pre class="src src-lisp"> (<span style="color: #f47321;">defmethod</span> <span style="color: #9370db;">draw-ghost</span> ((self node))
(<span style="color: #f47321;">with-slots</span> (x y width height) self
......@@ -2127,9 +2127,9 @@ hybrid GUI inspired by MIT Scratch and its derivatives.
</div>
</div>
<div id="outline-container-orgfe0807f" class="outline-3">
<h3 id="orgfe0807f">Layout</h3>
<div class="outline-text-3" id="text-orgfe0807f">
<div id="outline-container-org6b420f3" class="outline-3">
<h3 id="org6b420f3">Layout</h3>
<div class="outline-text-3" id="text-org6b420f3">
<div class="org-src-container">
<pre class="src src-lisp"> (<span style="color: #f47321;">defmethod</span> <span style="color: #9370db;">header-height</span> ((self phrase)) 0)
......@@ -3240,7 +3240,7 @@ hybrid GUI inspired by MIT Scratch and its derivatives.
(not (is-a 'menu (slot-value self 'parent))))
(alternate-tap (slot-value self 'parent) x y)))
(<span style="color: #f47321;">defmethod</span> <span style="color: #9370db;">tap</span> ((self menu) x y)
(<span style="color: #f47321;">defmethod</span> <span style="color: #9370db;">tap</span> <span style="color: #db7093;">:around</span> ((self menu) x y)
(<span style="color: #f47321;">declare</span> (ignore x y))
(<span style="color: #f47321;">with-slots</span> (action target) self
(<span style="color: #f47321;">if</span> action
......@@ -4251,7 +4251,7 @@ hybrid GUI inspired by MIT Scratch and its derivatives.
</div>
<div id="postamble" class="status">
<p class="author">Author: David O'Toole &lt;dto@xelf.me&gt;</p>
<p class="date">Created: 2017-04-11 Tue 18:55</p>
<p class="date">Created: 2017-04-11 Tue 19:03</p>
<p class="validation"><a href="http://validator.w3.org/check?uri=referer">Validate</a></p>
</div>
</body>
......
......@@ -2625,7 +2625,7 @@ See sidebar for more commands to try.
(not (is-a 'menu (slot-value self 'parent))))
(alternate-tap (slot-value self 'parent) x y)))
(defmethod tap ((self menu) x y)
(defmethod tap :around ((self menu) x y)
(declare (ignore x y))
(with-slots (action target) self
(if action
......
......@@ -498,12 +498,12 @@ above.
(define-handle copy :copy)
(defmethod tap ((self copy) x y)
(copy (current-buffer) (cons (slot-value self 'target) (get-selection (current-buffer)))))
(copy (current-buffer)))
(define-handle cut :cut)
(defmethod tap ((self cut) x y)
(cut (current-buffer) (cons (slot-value self 'target) (get-selection (current-buffer)))))
(cut (current-buffer)))
;;; The halo, which manages all the handles
......@@ -2772,7 +2772,7 @@ hybrid GUI inspired by MIT Scratch and its derivatives.
(not (is-a 'menu (slot-value self 'parent))))
(alternate-tap (slot-value self 'parent) x y)))
(defmethod tap ((self menu) x y)
(defmethod tap :around ((self menu) x y)
(declare (ignore x y))
(with-slots (action target) self
(if action
......
* Task list
** TODO remove REVIVE-P arg from ADD-NODE
** TODO fix data entry widget
** DONE split up menus declaration var
CLOSED: [2017-04-11 Tue 16:19]
** TODO fix de-selecting objects when opening menubar
** TODO fix POSITION-WITHIN-PARENT error on pressing TAB
** TODO right click pop up menus
** TODO pinnable pop up menus
** TODO allow tear-off menus
** TODO menu halo handle
** TODO hand me a tile
** TODO save-buffer
** TODO load-buffer
** TODO save-project
** TODO load-project
** TODO command undo/redo
** TODO object/tool palette
** TODO create buffer switch menu
** TODO fix command dialogs
** TODO fix can't drag item out of shell
** TODO scrolling the buffer window
** TODO snap-to-grid and offset
** TODO select-all
** TODO general properties browser
** TODO [#A] fix data entry widget
** TODO [#A] context-menus
** TODO [#A] create buffer switch menu
** TODO [#A] command undo/redo
** TODO [#A] fix command dialogs
** TODO [#A] fix can't drag item out of shell
** TODO [#A] scrolling the buffer window
** TODO [#B] hand me a tile / reference
** TODO [#B] save-buffer
** TODO [#B] load-buffer
** TODO [#B] save-project
** TODO [#B] load-project
** TODO [#B] snap-to-grid and offset
** TODO [#B] select-all
** TODO [#B] general properties browser
*** TODO shell create/pop out 1 property of 1 object
*** TODO shell create/pop out property/method browser
*** TODO controls in sidebar?
......@@ -37,6 +28,11 @@
** TODO [#B] choose and export more accessor names for buffer/node slots
** TODO [#B] Document how to clear all caches
** TODO [#B] should block widgets be marked as :collision-type nil?
** TODO [#C] fix POSITION-WITHIN-PARENT error on pressing TAB
** TODO [#C] right click pop up menus
** TODO [#C] pinnable pop up menus
** TODO [#C] allow tear-off menus
** TODO [#C] object/tool palette
** TODO [#C] mimic eldoc mode on hintline
** TODO [#C] solve too-many-halos problem by showing only nearest halo
** TODO [#C] test sexp correspondence
......@@ -326,3 +322,43 @@
:ARCHIVE_CATEGORY: tasks
:ARCHIVE_TODO: DONE
:END:
** DONE remove REVIVE-P arg from ADD-NODE
CLOSED: [2017-04-11 Tue 18:58]
:PROPERTIES:
:ARCHIVE_TIME: 2017-04-11 Tue 18:58
:ARCHIVE_FILE: ~/xelf/tasks.org
:ARCHIVE_OLPATH: Task list
:ARCHIVE_CATEGORY: tasks
:ARCHIVE_TODO: DONE
:END:
** DONE split up menus declaration var
CLOSED: [2017-04-11 Tue 16:19]
:PROPERTIES:
:ARCHIVE_TIME: 2017-04-11 Tue 18:58
:ARCHIVE_FILE: ~/xelf/tasks.org
:ARCHIVE_OLPATH: Task list
:ARCHIVE_CATEGORY: tasks
:ARCHIVE_TODO: DONE
:END:
** DONE [#B] menu halo handle
CLOSED: [2017-04-11 Tue 18:59]
:PROPERTIES:
:ARCHIVE_TIME: 2017-04-11 Tue 18:59
:ARCHIVE_FILE: ~/xelf/tasks.org
:ARCHIVE_OLPATH: Task list
:ARCHIVE_CATEGORY: tasks
:ARCHIVE_TODO: DONE
:END:
** DONE [#A] fix de-selecting objects when opening menubar
CLOSED: [2017-04-11 Tue 19:09]
:PROPERTIES:
:ARCHIVE_TIME: 2017-04-11 Tue 19:09
:ARCHIVE_FILE: ~/xelf/tasks.org
:ARCHIVE_OLPATH: Task list
:ARCHIVE_CATEGORY: tasks
:ARCHIVE_TODO: DONE
:END:
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