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

« back to all changes in this revision

Viewing changes to actions/menus/MainMenu/ViewMenu/Zoom/ZoomDialog

  • 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
        <action>ZoomDialog</action>
 
9
        <scheme>(let ((scale "100"))
 
10
        (set! scale             
 
11
        (d-GetUserInput "Scale Display" "Give % scaling required" "100"))
 
12
        (if (string? scale)
 
13
                (begin
 
14
                        (set! scale (/ (string-&gt;number scale) 100.0))
 
15
                        (format #t "Scaling by ~A~%" scale)
 
16
                        (d-Zoom scale)
 
17
                        (d-RefreshDisplay);;;FIXME refresh display without marking score as changed?
 
18
                        )))</scheme>
 
19
        <label>Set Display Scale</label>
 
20
        <tooltip>Scales the display by value given by user.</tooltip>
 
21
      </row>
 
22
    </map>
 
23
  </merge>
 
24
</Denemo>