Commit d4f27f1d by Guerric Chupin

Corrections to countTo.

parent 4430c8c7
......@@ -9,7 +9,7 @@ import RMCA.Auxiliary.Misc
-- | = Yampa
countTo :: (Integral b) => b -> SF (Event a) (Event b)
countTo n = count >>^ filterE (> n)
countTo n = count >>^ filterE (== n)
-- | 'stepBack' contains its previous argument as its output. Because it's hard to define it at time 0, it's wrapped up in a 'Maybe'.
stepBack :: SF a (Maybe a)
......
......@@ -109,7 +109,7 @@ layerSettings isStartedRV = do
boxPackStart layerSettingsBox' repeatBox PackRepel 0
repeatLabel <- labelNew (Just "Repeat count")
labelSetLineWrap repeatLabel True
repeatAdj <- adjustmentNew 0 0 (fromIntegral (maxBound :: Int)) 1 1 0
repeatAdj <- adjustmentNew 1 1 100 1 1 0
repeatButton <- spinButtonNew repeatAdj 1 0
auxRepeatBox <- vBoxNew False 0
centerAl' <- alignmentNew 0.5 0.5 0 0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment