[過去ﾛｸﾞ]
関数型プログラミング言語Haskell Part32 (1002ﾚｽ)
関数型プログラミング言語Haskell Part32 http://mevius.5ch.net/test/read.cgi/tech/1548720347/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
234: デフォルトの名無しさん [] 2019/03/20(水) 22:23:43.02 ID:GM5azBbl HaskellのGUI(Gtk2hs)でカウンター作ってみた。 import Graphics.UI.Gtk main = do initGUI window <- windowNew set window [windowTitle := "counter", containerBorderWidth := 10] mainbox <- vBoxNew True 5 containerAdd window mainbox label <- labelNewWithMnemonic "0" boxPackStart mainbox label PackNatural 0 countbtn <- buttonNewWithLabel "Count" clrbtn <- buttonNewWithLabel "Clear" boxPackStart mainbox countbtn PackNatural 0 boxPackEnd mainbox clrbtn PackNatural 0 widgetShowAll window onClicked countbtn (labelGetLabel label >>= \n -> labelSetText label (show (1 + (read n)))) onClicked clrbtn (labelSetText label "0") onDestroy window mainQuit mainGUI http://mevius.5ch.net/test/read.cgi/tech/1548720347/234
235: デフォルトの名無しさん [] 2019/03/20(水) 22:24:12.70 ID:GM5azBbl label <- labelNewWithMnemonic "0" boxPackStart mainbox label PackNatural 0 countbtn <- buttonNewWithLabel "Count" clrbtn <- buttonNewWithLabel "Clear" boxPackStart mainbox countbtn PackNatural 0 boxPackEnd mainbox clrbtn PackNatural 0 widgetShowAll window onClicked countbtn (labelGetLabel label >>= \n -> labelSetText label (show (1 + (read n)))) onClicked clrbtn (labelSetText label "0") onDestroy window mainQuit mainGUI http://mevius.5ch.net/test/read.cgi/tech/1548720347/235
236: デフォルトの名無しさん [] 2019/03/20(水) 22:24:33.45 ID:GM5azBbl boxPackStart mainbox countbtn PackNatural 0 boxPackEnd mainbox clrbtn PackNatural 0 widgetShowAll window onClicked countbtn (labelGetLabel label >>= \n -> labelSetText label (show (1 + (read n)))) onClicked clrbtn (labelSetText label "0") onDestroy window mainQuit mainGUI http://mevius.5ch.net/test/read.cgi/tech/1548720347/236
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.037s