Added some buttons.
Thu Mar 6 12:20:58 PST 2008 Thomas Persson <tompa.persson@gmail.com>
* Added some buttons.
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-08-01 21:39:09.000000000 -0700
+++ new-climplayer/gui.lisp 2014-08-01 21:39:09.000000000 -0700
@@ -331,9 +331,32 @@
pane))
(write-string "-" pane))))))
+(defun draw-stop-button (pane)
+ (multiple-value-bind (x y)
+ (stream-cursor-position pane)
+ (write-string " " pane)
+ (draw-rectangle* pane
+ x
+ (+ y 3)
+ (+ x 6)
+ (+ y 10))))
+
(defun display-controls (frame pane)
(with-text-size (pane :small)
(with-text-face (pane :bold)
+ (write-string " " pane)
+ (with-output-as-presentation (pane `(com-previous) 'command)
+ (write-string "<<" pane))
+ (write-string " " pane)
+ (with-output-as-presentation (pane `(com-play-or-pause) 'command)
+ (write-string ">" pane))
+ (write-string " " pane)
+ (with-output-as-presentation (pane `(com-stop) 'command)
+ (draw-stop-button pane))
+ (write-string " " pane)
+ (with-output-as-presentation (pane `(com-next) 'command)
+ (write-string ">>" pane))
+ (write-string " " pane)
(with-drawing-options (pane :ink (if (random-playbackp frame)
+darkgreen+
+lightgray+))
@@ -908,7 +931,7 @@
()
(play-relative-to-current 1))
-(define-climplayer-command (com-prev :name t :keystroke (:left :control))
+(define-climplayer-command (com-previous :name t :keystroke (:left :control))
()
(play-relative-to-current -1))