Adapted to keyboard shortcuts now working also when search fields are focused.
Sat Feb 16 16:24:09 PST 2008 Thomas Persson <tompa.persson@gmail.com>
* Adapted to keyboard shortcuts now working also when search fields are focused.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-climplayer/gui.lisp new-climplayer/gui.lisp
--- old-climplayer/gui.lisp 2014-07-31 08:40:21.000000000 -0700
+++ new-climplayer/gui.lisp 2014-07-31 08:40:21.000000000 -0700
@@ -1233,7 +1233,9 @@
page))))
(defun toggle-focusedp (gadget)
- (let ((page (sheet-to-page (sheet-parent (sheet-parent (sheet-parent gadget))))))
+ (let* ((parent (sheet-parent (sheet-parent (sheet-parent gadget))))
+ (page (when (sheet-parent parent)
+ (sheet-to-page parent))))
(when page
(setf (text-field-focusedp page)
(not (text-field-focusedp page))))))
@@ -1343,3 +1345,9 @@
(redisplay-frame-pane frame
pane))
(mapcar #'results search-tabs))))
+
+(defmethod handle-event :after ((gadget drei::drei-gadget-pane) (event key-press-event))
+ (when (and (equal (frame-name *application-frame*)
+ 'climplayer)
+ (drei::proper-gesture-p (drei::convert-to-gesture event)))
+ (redisplay-frame-panes *climplayer-frame*)))
\ No newline at end of file