Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv30344
Modified Files: gui.lisp Log Message: Provide default values for commands expected to accept numeric arguments.
--- /project/gsharp/cvsroot/gsharp/gui.lisp 2007/11/25 14:19:29 1.91 +++ /project/gsharp/cvsroot/gsharp/gui.lisp 2007/12/19 11:06:03 1.92 @@ -1051,13 +1051,13 @@ ;;; motion by element
(define-gsharp-command com-forward-element - ((count 'integer :prompt "Number of Elements")) + ((count 'integer :prompt "Number of Elements" :default 1)) "Move forward by element." (loop repeat count do (forward-element (current-cursor))))
(define-gsharp-command com-backward-element - ((count 'integer :prompt "Number of Elements")) + ((count 'integer :prompt "Number of Elements" :default 1)) "Move backward by element." (loop repeat count do (backward-element (current-cursor)))) @@ -1067,12 +1067,12 @@ ;;; motion by measure
(define-gsharp-command com-forward-measure - ((count 'integer :prompt "Number of Measures")) + ((count 'integer :prompt "Number of Measures" :default 1)) "Move forward by measure." (loop repeat count do (forward-bar (current-cursor))))
(define-gsharp-command com-backward-measure - ((count 'integer :prompt "Number of Measures")) + ((count 'integer :prompt "Number of Measures" :default 1)) "Move backward by measure." (loop repeat count do (backward-bar (current-cursor))))
@@ -1245,7 +1245,7 @@ (forward-element cursor))))
(define-gsharp-command com-delete-element - ((count 'integer :prompt "Number of Elements")) + ((count 'integer :prompt "Number of Elements" :default 1)) "Delete element forwards." (let ((cursor (current-cursor))) (loop repeat count @@ -1259,7 +1259,7 @@ (delete-element cursor))))))
(define-gsharp-command com-erase-element - ((count 'integer :prompt "Number of Elements")) + ((count 'integer :prompt "Number of Elements" :default 1)) "Delete element backwards." (let ((cursor (current-cursor))) (loop repeat count