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
