, ("&Predictable",Nothing,Nothing,noLS predictablef)\r
] 0 []\r
) []\r
- :+: SubMenu "Sp&eed" ( RadioMenu [ ("&Slowest",Nothing, Just '1', noLS (changeSpeedf timerId Slowest))\r
- , ("S&lower", Nothing, Just '2', noLS (changeSpeedf timerId Slower))\r
- , ("N&ormal", Nothing, Just '3', noLS (changeSpeedf timerId Normal))\r
+ :+: SubMenu "Sp&eed" ( RadioMenu [ ("&Slowest",Nothing, Just '`', noLS (changeSpeedf timerId Slowest))\r
+ , ("S&lower", Nothing, Just '1', noLS (changeSpeedf timerId Slower))\r
+ , ("N&ormal", Nothing, Just '2', noLS (changeSpeedf timerId Normal))\r
+ , ("F&ast", Nothing, Just '3', noLS (changeSpeedf timerId Fast))\r
, ("&Faster", Nothing, Just '4', noLS (changeSpeedf timerId Faster))\r
, ("Fas&test",Nothing, Just '5', noLS (changeSpeedf timerId Fastest))\r
] ([Slowest,Slower,Normal,Faster,Fastest]??options.displaySpeed+1) []\r