|
From: | anonymous |
Subject: | [Denemo-devel] [bug #31238] Tested the 0.8.20 candidate for windows, crash |
Date: | Mon, 01 Nov 2010 17:36:16 +0000 |
User-agent: | Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12 ( .NET CLR 3.5.30729) |
Follow-up Comment #4, bug #31238 (project denemo): This designate voice script lacks one thing. It should cursor right as the last thing it does so that you can go on entering notes in your new voice setting without having to move past it first. Just add the line (d-MoveCursorRight) right after (d-DirectivePut-standalone-minpixels "Voice" 10 ) so the new script will be as follows. -DW ;;DesignateVoice (let ((choice #f)(label #f) (OneVoice "OneVoice: Default-For a single voice on a staff") (VoiceOne "VoiceOne: Designate as upper voice") (VoiceTwo "VoiceTwo: Designate as lower voice")(VoiceThree "VoiceThree: Horizontally offset upper voice") (VoiceFour "VoiceFour: Horizontally offset lower voice") ) (set! choice (d-GetOption (string-append OneVoice stop VoiceOne stop VoiceTwo stop VoiceThree stop VoiceFour stop) ) ) (cond ( (equal? choice VoiceOne ) (begin (set! choice "voiceOne") (set! label "Voice1") )) ( (equal? choice VoiceTwo ) (begin (set! choice "voiceTwo") (set! label "Voice2") )) ( (equal? choice VoiceThree ) (begin (set! choice "voiceThree") (set! label "Voice3") )) ( (equal? choice VoiceFour ) (begin (set! choice "voiceFour") (set! label "Voice4") )) ( (equal? choice OneVoice ) (begin (set! choice "oneVoice") (set! label "1Voice") ) ) ) (if choice (begin (d-DirectivePut-standalone "Voice" ) (d-DirectivePut-standalone-display "Voice" label ) (d-DirectivePut-standalone-ty "Voice" 60 ) (d-DirectivePut-standalone-postfix "Voice" (string-append "\" choice ) ) (d-DirectivePut-standalone-minpixels "Voice" 10 ) (d-MoveCursorRight) ) ) ) _______________________________________________________ Reply to this item at: <http://savannah.gnu.org/bugs/?31238> _______________________________________________ Message sent via/by Savannah http://savannah.gnu.org/
[Prev in Thread] | Current Thread | [Next in Thread] |