Fixed some redisplay issues relating to keyboard shortcuts in text fields.
Sun Feb 17 08:11:25 PST 2008 Thomas Persson <tompa.persson@gmail.com>
* Fixed some redisplay issues relating to keyboard shortcuts in text fields.
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-24 20:44:39.000000000 -0700
+++ new-climplayer/gui.lisp 2014-07-24 20:44:39.000000000 -0700
@@ -395,7 +395,8 @@
:keystroke (#\r :control))
()
(setf (random-playbackp *application-frame*)
- (not (random-playbackp *application-frame*))))
+ (not (random-playbackp *application-frame*)))
+ (redisplay-frame-panes *application-frame*))
(define-climplayer-command (com-continuous-playback :name t)
()
@@ -822,7 +823,8 @@
(switch-to-page (nth (mod (+ n (position current-page
pages))
(length pages))
- pages))))
+ pages))
+ (redisplay-frame-panes *application-frame*)))
(define-climplayer-command (com-config :name t)
()
@@ -851,7 +853,8 @@
()
(stop t)
(setf (previously-played *application-frame*)
- nil))
+ nil)
+ (redisplay-frame-panes *application-frame*))
(define-climplayer-command (com-timer-on :name t)
((hour 'integer :prompt "hour")
@@ -915,7 +918,8 @@
(+ (player-speed *application-frame*)
1/40))
(mplayer-command (format nil "speed_set ~A"
- (float (player-speed *application-frame*)))))
+ (float (player-speed *application-frame*))))
+ (redisplay-frame-panes *application-frame*))
(define-climplayer-command (com-decrease-speed :keystroke (#\- :control))
()
@@ -923,7 +927,8 @@
(- (player-speed *application-frame*)
1/40))
(mplayer-command (format nil "speed_set ~A"
- (float (player-speed *application-frame*)))))
+ (float (player-speed *application-frame*))))
+ (redisplay-frame-panes *application-frame*))
(define-climplayer-command (com-listener :name t)
()
@@ -1188,7 +1193,8 @@
'main-pane))))
(when (typep page
'search-page)
- (remove-page page))))
+ (remove-page page)
+ (redisplay-frame-panes *application-frame*))))
(defclass search-page (tab-page)
((last-search :initform ""
@@ -1230,7 +1236,9 @@
(reverse (cons page
(reverse (tab-layout-pages tab-layout))))
(tab-layout-enabled-page tab-layout)
- page))))
+ page)
+ (redisplay-frame-panes *application-frame*)
+ page)))
(defun toggle-focusedp (gadget)
(let* ((parent (sheet-parent (sheet-parent (sheet-parent gadget))))
@@ -1263,7 +1271,8 @@
'main-pane))))
(when (typep enabled 'search-page)
(setf (display-all enabled)
- t))))
+ (not (display-all enabled)))
+ (redisplay-frame-panes *application-frame*))))
(defun display-results (frame pane)
(when (sheet-parent pane)
@@ -1346,9 +1355,3 @@
(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