module Main where

import Graphics.UI.Gtk
import Graphics.UI.Gtk­.ModelView as New

import qualified Data.Tree as Tree

data Phone = Phone { name :: String, number :: Int, marked :: Bool }

main = do
initGUI

win ← windowNew
onDestroy win mainQuit

— create a new tree model
model ← storeImpl
view ← New.treeViewNew­WithModel model

New.treeViewSet­HeadersVisible view True

— add three columns
col1 ← New.treeViewCo­lumnNew
col2 ← New.treeViewCo­lumnNew
col3 ← New.treeViewCo­lumnNew

New.treeViewCo­lumnSetTitle col1 «String column»
New.treeViewCo­lumnSetTitle col2 «Int column»
New.treeViewCo­lumnSetTitle col3 «Bool column»

renderer1 ← New.cellRende­rerTextNew
renderer2 ← New.cellRende­rerTextNew
renderer3 ← New.cellRende­rerToggleNew

New.cellLayou­tPackStart col1 renderer1 True
New.cellLayou­tPackStart col2 renderer2 True
New.cellLayou­tPackStart col3 renderer3 True

New.cellLayou­tSetAttributes col1 renderer1 model $ \row → New.cellText := name row
New.cellLayou­tSetAttributes col2 renderer2 model $ \row → New.cellText := show (number row)
New.cellLayou­tSetAttributes col3 renderer3 model $ \row → New.cellToggle­Active := marked row

New.treeViewAp­pendColumn view col1
New.treeViewAp­pendColumn view col2
New.treeViewAp­pendColumn view col3

containerAdd win view
widgetShowAll win
mainGUI

storeImpl =
New.treeStoreNew
Tree.Node {
Tree.rootLabel = Phone { name = «Foo», number = 1, marked = False },
Tree.subForest = leafNode Phone { name = «Bar», number = 11, marked = True }
,leafNode Phone { name = «Baz», number = 12, marked = False }
},
Tree.Node {
Tree.rootLabel = Phone { name = «Foo», number = 2, marked = False },
Tree.subForest = leafNode Phone { name = «Bar», number = 21, marked = True }
,leafNode Phone { name = «Baz», number = 22, marked = False }
},
Tree.Node {
Tree.rootLabel = Phone { name = «Foo», number = 3, marked = False },
Tree.subForest = leafNode Phone { name = «Bar», number = 31, marked = True }
,leafNode Phone { name = «Baz», number = 32, marked = False }
}
where leafNode a = Tree.Node { Tree.rootLabel = a, Tree.subForest = [] }

import Graphics.UI.Gtk
import Data.Char
import Data.List
import Data.Maybe

data RowInfo = RowInfo { rowString :: String, rowCase :: Maybe Bool }

mkCase Nothing str = str
mkCase (Just False) str = map toLower str
mkCase (Just True) str = map toUpper str

advCase Nothing = Just False
advCase (Just False) = Just True
advCase (Just True) = Nothing

main :: IO ()
main = do
unsafeInitGUI­ForThreadedRTS
win ← windowNew
win on objectDestroy $ mainQuit

content ← readFile «ListText.hs»

model ← listStoreNew (map (\r → RowInfo r Nothing) (lines content))

Если короче, то, — иди нахуй.

Теперь это Nokia-тред.

>>1605620
колчую

Умрёт только твоя мамка, подавившись моей спермой.

>>1605674
Почему ты так зациклен на чужих матерях?

>>1605674
Я не хочу умирать!!!
чья-то мамка

Graphics.UI.Gtk

Дальше не читал, пиар монопараши.

почему я еще жив?

>>1605750
Лалка ни может шарпек от хачкела атличить)