Fix for when a top level directory is empty and a fix for the width of the bottom info pane.
Mon May 26 10:46:42 PDT 2008 Thomas Persson <tompa.persson@gmail.com>
* Fix for when a top level directory is empty and a fix for the width of the bottom info pane.
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-10 07:12:40.000000000 -0700
+++ new-climplayer/gui.lisp 2014-07-10 07:12:40.000000000 -0700
@@ -204,7 +204,7 @@
interactor
(18 (horizontally ()
pointer-doc
- (100 extended-info)))))))
+ (120 extended-info)))))))
(defmethod (setf play-list-tab) :after (page
frame)
diff -rN -u old-climplayer/playlist.lisp new-climplayer/playlist.lisp
--- old-climplayer/playlist.lisp 2014-07-10 07:12:40.000000000 -0700
+++ new-climplayer/playlist.lisp 2014-07-10 07:12:40.000000000 -0700
@@ -144,7 +144,8 @@
:parent parent)))
(setf (node-contents dir-node)
(remove nil (find-contents dir dir-node)))
- (when (node-contents dir-node)
+ (when (or (node-contents dir-node)
+ (member dir *media-directories*))
dir-node)))
(defgeneric refresh-node (node))