Safe Haskell	Safe-Inferred

Ui.BlockCStub

Contents

query
view creation
Block operations
- debugging
- selection

Description

This is a stubbed out version of BlockC. The real BlockC will use this when TESTING is defined, since they don't work from ghci if they have a C dependency.

It's just a big copy-paste from BlockC, but should be ok since that changes very rarely.

Synopsis

get_screens :: IO [Rect.Rect]
create_view :: ViewId -> Text -> Rect.Rect -> Block.Config -> Fltk ()
destroy_view :: ViewId -> Fltk ()
get_view_status :: ViewId -> Fltk (Rect.Rect, Zoom.Zoom, Int, Int)
set_size :: ViewId -> Rect.Rect -> Fltk ()
set_zoom :: ViewId -> Zoom.Zoom -> Fltk ()
set_track_scroll :: ViewId -> Types.Width -> Fltk ()
set_selection :: ViewId -> Sel.Num -> [Types.TrackNum] -> [Selection] -> Fltk ()
bring_to_front :: ViewId -> Fltk ()
set_config :: ViewId -> Block.Config -> Fltk ()
set_skeleton :: ViewId -> Skeleton.Skeleton -> [(Color.Color, [(Types.TrackNum, Types.TrackNum)])] -> Fltk ()
set_title :: ViewId -> Text -> Fltk ()
set_status :: ViewId -> Text -> Color.Color -> Fltk ()
set_display_track :: ViewId -> Types.TrackNum -> Block.DisplayTrack -> Fltk ()
floating_open :: ViewId -> Types.TrackNum -> ScoreTime -> Text -> (Int, Int) -> Fltk ()
floating_insert :: [ViewId] -> Text -> Fltk ()
tracks :: ViewId -> Fltk Types.TrackNum
insert_track :: ViewId -> Types.TrackNum -> Block.Tracklike -> [Events.Events] -> Track.SetStyle -> Types.Width -> Fltk ()
remove_track :: ViewId -> Types.TrackNum -> Fltk ()
update_track :: Bool -> ViewId -> Types.TrackNum -> Block.Tracklike -> [Events.Events] -> Track.SetStyle -> ScoreTime -> ScoreTime -> Fltk ()
update_entire_track :: Bool -> ViewId -> Types.TrackNum -> Block.Tracklike -> [Events.Events] -> Track.SetStyle -> Fltk ()
set_track_signal :: ViewId -> Types.TrackNum -> Track.TrackSignal -> Fltk ()
set_waveform :: ViewId -> Types.TrackNum -> Track.WaveformChunk -> Fltk ()
clear_waveforms :: ViewId -> Fltk ()
gc_waveforms :: Fltk ()
set_track_title :: ViewId -> Types.TrackNum -> Text -> Fltk ()
set_track_title_focus :: ViewId -> Types.TrackNum -> Fltk ()
set_block_title_focus :: ViewId -> Fltk ()
print_debug :: ViewId -> Fltk ()
dump :: IO [(ViewId, String)]
data Selection = Selection {
- sel_color :: !Color.Color
- sel_start :: !TrackTime
- sel_cur :: !TrackTime
- sel_orientation :: !SelectionOrientation
}
data SelectionOrientation
- = None
- | Positive
- | Negative
- | Both

query

get_screens :: IO [Rect.Rect] Source #

view creation

create_view :: ViewId -> Text -> Rect.Rect -> Block.Config -> Fltk () Source #

destroy_view :: ViewId -> Fltk () Source #

get_view_status :: ViewId -> Fltk (Rect.Rect, Zoom.Zoom, Int, Int) Source #

set_size :: ViewId -> Rect.Rect -> Fltk () Source #

set_zoom :: ViewId -> Zoom.Zoom -> Fltk () Source #

set_track_scroll :: ViewId -> Types.Width -> Fltk () Source #

set_selection :: ViewId -> Sel.Num -> [Types.TrackNum] -> [Selection] -> Fltk () Source #

bring_to_front :: ViewId -> Fltk () Source #

Block operations

set_config :: ViewId -> Block.Config -> Fltk () Source #

set_skeleton :: ViewId -> Skeleton.Skeleton -> [(Color.Color, [(Types.TrackNum, Types.TrackNum)])] -> Fltk () Source #

set_title :: ViewId -> Text -> Fltk () Source #

set_status :: ViewId -> Text -> Color.Color -> Fltk () Source #

set_display_track :: ViewId -> Types.TrackNum -> Block.DisplayTrack -> Fltk () Source #

floating_open :: ViewId -> Types.TrackNum -> ScoreTime -> Text -> (Int, Int) -> Fltk () Source #

floating_insert :: [ViewId] -> Text -> Fltk () Source #

tracks :: ViewId -> Fltk Types.TrackNum Source #

insert_track :: ViewId -> Types.TrackNum -> Block.Tracklike -> [Events.Events] -> Track.SetStyle -> Types.Width -> Fltk () Source #

remove_track :: ViewId -> Types.TrackNum -> Fltk () Source #

update_track Source #

Arguments

:: Bool	True if the ruler has changed and should be copied over. It's a bit of a hack to be a separate flag, but rulers are updated rarely and copied over entirely for efficiency.
-> ViewId
-> Types.TrackNum
-> Block.Tracklike
-> [Events.Events]
-> Track.SetStyle
-> ScoreTime
-> ScoreTime
-> Fltk ()

update_entire_track :: Bool -> ViewId -> Types.TrackNum -> Block.Tracklike -> [Events.Events] -> Track.SetStyle -> Fltk () Source #

Like update_track except update everywhere.

set_track_signal :: ViewId -> Types.TrackNum -> Track.TrackSignal -> Fltk () Source #

Unlike other Fltk functions, this doesn't throw if the ViewId is not found. That's because it's called asynchronously when derivation is complete.

set_waveform :: ViewId -> Types.TrackNum -> Track.WaveformChunk -> Fltk () Source #

clear_waveforms :: ViewId -> Fltk () Source #

gc_waveforms :: Fltk () Source #

set_track_title :: ViewId -> Types.TrackNum -> Text -> Fltk () Source #

set_track_title_focus :: ViewId -> Types.TrackNum -> Fltk () Source #

set_block_title_focus :: ViewId -> Fltk () Source #

debugging

print_debug :: ViewId -> Fltk () Source #

dump :: IO [(ViewId, String)] Source #

selection

data Selection Source #

This is the low level version of Sel.Selection. It only applies to a single track, and has an explicit color.

Constructors

Selection
Fields sel_color :: !Color.Color sel_start :: !TrackTime sel_cur :: !TrackTime sel_orientation :: !SelectionOrientation

Instances

Instances details

Show Selection Source #
Instance details Defined in Ui.BlockCStub Methods showsPrec :: Int -> Selection -> ShowS # show :: Selection -> String # showList :: [Selection] -> ShowS #
Eq Selection Source #
Instance details Defined in Ui.BlockCStub Methods (==) :: Selection -> Selection -> Bool # (/=) :: Selection -> Selection -> Bool #
Ord Selection Source #
Instance details Defined in Ui.BlockCStub Methods compare :: Selection -> Selection -> Ordering # (<) :: Selection -> Selection -> Bool # (<=) :: Selection -> Selection -> Bool # (>) :: Selection -> Selection -> Bool # (>=) :: Selection -> Selection -> Bool # max :: Selection -> Selection -> Selection # min :: Selection -> Selection -> Selection #

data SelectionOrientation Source #

Constructors

None
Positive
Negative
Both

Instances

Instances details

Enum SelectionOrientation Source #
Instance details Defined in Ui.BlockCStub Methods succ :: SelectionOrientation -> SelectionOrientation # pred :: SelectionOrientation -> SelectionOrientation # toEnum :: Int -> SelectionOrientation # fromEnum :: SelectionOrientation -> Int # enumFrom :: SelectionOrientation -> [SelectionOrientation] # enumFromThen :: SelectionOrientation -> SelectionOrientation -> [SelectionOrientation] # enumFromTo :: SelectionOrientation -> SelectionOrientation -> [SelectionOrientation] # enumFromThenTo :: SelectionOrientation -> SelectionOrientation -> SelectionOrientation -> [SelectionOrientation] #
Show SelectionOrientation Source #
Instance details Defined in Ui.BlockCStub Methods showsPrec :: Int -> SelectionOrientation -> ShowS # show :: SelectionOrientation -> String # showList :: [SelectionOrientation] -> ShowS #
Eq SelectionOrientation Source #
Instance details Defined in Ui.BlockCStub Methods (==) :: SelectionOrientation -> SelectionOrientation -> Bool # (/=) :: SelectionOrientation -> SelectionOrientation -> Bool #
Ord SelectionOrientation Source #
Instance details Defined in Ui.BlockCStub Methods compare :: SelectionOrientation -> SelectionOrientation -> Ordering # (<) :: SelectionOrientation -> SelectionOrientation -> Bool # (<=) :: SelectionOrientation -> SelectionOrientation -> Bool # (>) :: SelectionOrientation -> SelectionOrientation -> Bool # (>=) :: SelectionOrientation -> SelectionOrientation -> Bool # max :: SelectionOrientation -> SelectionOrientation -> SelectionOrientation # min :: SelectionOrientation -> SelectionOrientation -> SelectionOrientation #