Graphics.UI.WX.Controls.TimelineComposite

Description

Composite widget made up from a timeline, a ruler and optionally a waveform It is provided because 1) the <censored> wxwidgets fucks up the layout all the time, really hard; 2) some custom resizing is needed because of the vertical scrollbar.

Synopsis

type ToSamplesFun = Int -> Int

data TimelineComposite a

makeTimelineComposite :: Window x -> Int -> Int -> (Int, Int) -> Int -> Maybe (Int, Wave, ToSamplesFun) -> [Prop (TimelineComposite a)] -> IO (TimelineComposite a)

module Graphics.UI.WX.Controls.TimelineWidget

module Graphics.UI.WX.Controls.Ruler

module Graphics.UI.WX.Controls.Waveform

Documentation

type ToSamplesFun = Int -> Int

conversion from timeline time to samples offset in the wave

data TimelineComposite a

the composite widget

Instances

Widget (TimelineComposite a)

Dimensions (TimelineComposite a)

Identity (TimelineComposite a)

Tipped (TimelineComposite a)

Sized (TimelineComposite a)

WaveDisplay (TimelineComposite a)

RulerDisplay (TimelineComposite a) Int

TimelineDisplay (TimelineComposite a) a

makeTimelineComposite

::
=> Window x	parent
-> Int	number of rows (levels) in the timeline (numbering starts from 1)
-> Int	height of a row in pixels
-> (Int, Int)	the time interval of the timeline
-> Int	height of the ruler in pixels
-> Maybe (Int, Wave, ToSamplesFun)	the optional waveform: (height,wave,conversion-function); the function converts time to sample position in the wave
-> [Prop (TimelineComposite a)]
-> IO (TimelineComposite a)

module Graphics.UI.WX.Controls.TimelineWidget

module Graphics.UI.WX.Controls.Ruler

module Graphics.UI.WX.Controls.Waveform

Produced by Haddock version 2.4.1