{-# LANGUAGE OverloadedStrings #-}
module Gui where
import qualified Data.Text as T () -- instances only
import Data.Int
import Data.GI.Base.GType
import Data.GI.Base.GValue
import Types
import Operations
import Gui.TreeWidget
treeWidgetConfig :: TreeWidgetConfig CostCentreData
treeWidgetConfig =
TreeWidgetConfig {
twcColumns = [
Column "No" gtypeString TextColumn (toGValue . Just . ccdRecordIds), -- 0
Column "Name" gtypeString TextColumn (toGValue . Just . ccdLabel), -- 1
Column "Entries" gtypeInt64 TextColumn (toGValue . ccdEntries), -- 2
Column "Individual Time" gtypeDouble PercentColumn (toGValue . ccdTimeIndividual), -- 3
Column "Individual Alloc" gtypeDouble PercentColumn (toGValue . ccdAllocIndividual), -- 4
Column "Inherited Time" gtypeDouble PercentColumn (toGValue . ccdTimeInherited), -- 5
Column "Inherited Alloc" gtypeDouble PercentColumn (toGValue . ccdAllocInherited), -- 6
Column "Relative Time" gtypeDouble PercentColumn (toGValue . ccdTimeRelative), -- 7
Column "Relative Alloc" gtypeDouble PercentColumn (toGValue . ccdAllocRelative), -- 8
Column "Module" gtypeString TextColumn (toGValue . Just . ccdModule), -- 9
Column "Source" gtypeString TextColumn (toGValue . Just . ccdSource) -- 10
]
}
noColumn :: Int32
noColumn = 0
nameColumn :: Int32
nameColumn = 1
entriesColumn :: Int32
entriesColumn = 2
individualTimeColumn :: Int32
individualTimeColumn = 3
individualAllocColumn :: Int32
individualAllocColumn = 4
inheritedTimeColumn :: Int32
inheritedTimeColumn = 5
inheritedAllocColumn :: Int32
inheritedAllocColumn = 6
relativeTimeColumn :: Int32
relativeTimeColumn = 7
relativeAllocColumn :: Int32
relativeAllocColumn = 8
moduleColumn :: Int32
moduleColumn = 9
sourceColumn :: Int32
sourceColumn = 10