フリーソフトウェアライセンス診断

僭越ながら私も(wxHaskellで)書いてみたり…

import Graphics.UI.WX
import System.Exit

main = startQuestion "フリーソフトウェアライセンス診断" q1

q1 = yn "あなたのコードを商用ソフトウェアに組み込まれて販売されてもかまわないか？"
       q2 (res "GPLライセンス")
q2 = yn "あなたはストールマンのフリーソフトウェア運動に心から賛同しているか？"
       (res "GPLライセンス") q3
q3 = yn "あなたはそのソフトウェアを将来Rubyの一部として配布したいか？"
       (res "Rubyライセンス") (res "BSDまたはMITライセンス")

startQuestion title q = start $ q title >> exitWith ExitSuccess

yn msg y n title = do
  ret <- confirmDialog objectNull title msg True
  if ret then y title else n title

res msg title = infoDialog objectNull (title++"結果") (msg++"がおすすめ")

やはり文字エンコーディングが問題になりますが…