~ubuntu-branches/ubuntu/oneiric/denemo/oneiric

« back to all changes in this revision

Viewing changes to actions/menus/ObjectMenu/Bookmarks/BookmarkRNonPrinting

  • Committer: Bazaar Package Importer
  • Author(s): Alessio Treglia
  • Date: 2010-10-27 08:00:18 UTC
  • mfrom: (1.3.3 upstream)
  • mto: This revision was merged to the branch mainline in revision 15.
  • Revision ID: james.westby@ubuntu.com-20101027080018-tuekd0869v8ptnqv
Tags: upstream-0.8.16
ImportĀ upstreamĀ versionĀ 0.8.16

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
<?xml version="1.0"?>
2
 
<Denemo>
3
 
  <merge>
4
 
    <title>A Denemo Keymap</title>
5
 
    <author>AT, JRR, RTS</author>
6
 
    <map>
7
 
      <row>
8
 
        <after/>
9
 
        <action>BookmarkRNonPrinting</action>
10
 
        <scheme>  ;;;Non Printing Bookmark 
11
 
;;;by Nils Gey RTS Modified to avoid poluting the global namespace with the variable user-input
12
 
 
13
 
(let ((user-input "XXX"))
14
 
(set! user-input (d-GetUserInput "Named Bookmark" "Give a name" "X"))
15
 
 
16
 
 (if user-input   ;in case the user pressed Escape do nothing
17
 
 (begin
18
 
  (d-DirectivePut-standalone-display "BookmarkR" user-input)
19
 
  (d-CursorLeft)
20
 
  (d-DirectivePut-standalone-ty  "BookmarkR" -40)
21
 
  (d-DirectivePut-standalone-tx  "BookmarkR" -10)
22
 
  (d-CursorRight)))
23
 
(d-RefreshDisplay))
24
 
 
25
 
</scheme>
26
 
        <label>Add non-printing Bookmark</label>
27
 
        <tooltip>Adds a custom Denemo bookmark without Lilypond output.</tooltip>
28
 
      </row>
29
 
    </map>
30
 
  </merge>
31
 
</Denemo>