Fixed and enhanced timer.
Sun Apr 11 09:39:29 PDT 2010 Thomas Persson <tompa.persson@gmail.com>
* Fixed and enhanced timer.
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 12:42:23.000000000 -0700
+++ new-climplayer/gui.lisp 2014-07-31 12:42:23.000000000 -0700
@@ -47,9 +47,6 @@
(tab-layout-pages (find-pane-named frame
'main-pane)))))
(setf play-list-tab nil))
- ((and (cl-user::process-p mplayer-process)
- (cl-user::process-alive-p mplayer-process))
- (get-stream-info))
((and (timer frame)
(= (car (timer frame))
(caddr (multiple-value-list (get-decoded-time))))
@@ -65,7 +62,11 @@
continuous-playbackp
t
(timer frame)
- nil))
+ nil)
+ (stop t))
+ ((and (cl-user::process-p mplayer-process)
+ (cl-user::process-alive-p mplayer-process))
+ (get-stream-info))
(next-to-play
(when mplayer-process
(close (cl-user::process-input mplayer-process)))
@@ -641,7 +642,7 @@
(defun stop (kill-process)
(with-accessors ((current currently-playing)
(process mplayer-process))
- *application-frame*
+ *climplayer-frame*
(setf current
nil)
(if (and kill-process