summaryrefslogtreecommitdiff
path: root/actions/menus/MainMenu/EditMenu/Select/SelectMeasure
blob: 6cc12d93b28e72b25085380c6daed1d50ea27079 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>SelectColumn</after>
        <action>SelectMeasure</action>
        <scheme>(if (None?)
	(d-SetMark)
	(begin
		(d-PushPosition)
		(d-UnsetMark)
		(GoToMeasureBeginning)
		(RepeatProcWhileTest d-CursorRight (lambda () (not (Appending?))))
		(d-PopPosition)))</scheme>
        <label>Select Measure</label>
        <tooltip>Create a selection for the entire current measure</tooltip>
      </row>
    </map>
  </merge>
</Denemo>