wxHaskell を使ってみる(2)

以下を参考にしました。

• wxWidgets Reference manual : どんなライブラリがあるか調べるのに役立ちます。
• Documentation for wxHaskell 0.10.3 : wxwidget のHaskell での定義。
• Index of /wxhaskell/samples/wx : サンプル。
• WxHaskell/Quick start
• WxHaskell/Layout :
• Haskell/GUI(en.wikibooks.org)
• "gem install wxRuby" インストールしたwxRuby のサンプル。C:\ruby-1.8\lib\ruby\gems\1.8\gems\wxruby-2.0.1-x86-mswin32-60\samples

module Main where

import Graphics.UI.WX
import Graphics.UI.WXCore 

main :: IO ()
main = start gui

gui :: IO ()
gui = do 
    form    <- frame [text := "コントロール"]
    p       <- panel form []
    textlog <- textCtrl p [enabled := True, wrap := WrapNone] 
    textCtrlMakeLogActiveTarget textlog
    logMessage "ログの記録を開始します。"              

    ok   <- button p [text := "ＯＫ", on command := appendText textlog "ＯＫボタンが押されました。\n"]
    quit <- button p [text := "終了", on command := close form]
    let rlabels = ["第一", "第二", "第三"]
    radioBox       <- radioBox p Horizontal rlabels [text := "横並び", on select ::= logSelect]
    disableButton  <- button   p [text := "無効", on command ::= onEnable radioBox]

    set form [layout :=
                container p $
                 column 0
                     [( margin 10 $  row 7 [widget radioBox ,
                                            widget disableButton ,widget ok, widget quit])
                 , hfill $ minsize (sz 400 150) $ widget textlog ]
             , clientSize := sz 400 200 ]
    return ()

        where
            logSelect w = do
                i <- get w selection
                s <- get w (item i)
                logMessage ("selected index: " ++ show i ++ ": " ++ s)

            onEnable w b = do 
                set w [enabled :~ not]
                enable <- get w enabled
                set b [text := (if enable then "無効" else "有効")]