4
<title>A Denemo Keymap</title>
5
<author>AT, JRR, RTS</author>
8
<action>ZoomDialog</action>
9
<scheme>(let ((scale "100"))
11
(d-GetUserInput "Scale Display" "Give % scaling required" "100"))
14
(set! scale (/ (string->number scale) 100.0))
15
(format #t "Scaling by ~A~%" scale)
17
(d-RefreshDisplay);;;FIXME refresh display without marking score as changed?
19
<label>Set Display Scale</label>
20
<tooltip>Scales the display by value given by user.</tooltip>