レイアウトが崩れる組み合わせ

[tokiwoousaka]

失敗例、以下のコードでレイアウトが大きく崩れた。

  twinBottom
    ( twinTopCont
        ( parCont
          $  "先ほどお見せした複雑な構成は、次のようなコードで実現できますね。\n"
        )
        ( codeCont
          $  "presentation = do\n"
          ++ "  slideTitle .= \"複雑な構成の例\"\n"
          ++ "  twinLeft\n"
          ++ "    ( verticalCont\n"
          ++ "      [ listCont [\"左下項目１\", \"左下項目２\", \"左下項目３\"]\n"
          ++ "      , codeCont \"main :: IO ()\\nmain\\n  = putStrLn \\\"Hi!\\\"\"\n"
          ++ "      ]\n"
          ++ "    )\n"
          ++ "    ( imgCont HStretch \"../img/jpeg01.jpeg\" )"
        )
    )
    ( parCont
      $  "このように、TakahashiMonadを用いる事で、\n"
      ++ "Haskellを使ってさまざまなスライドを作成する事が可能です。"
    )

[tokiwoousaka]

同様の崩れを以下のコードで確認、twinBottomに問題あり？

  horizon
    [ listCont
      [ "ほげほげ"
      , "ぴよぴよ"
      ]
    , twinBottomCont
      ( imgCont HStretch "../img/my_icon.gif"
      )
      ( parCont "ほげほげ"
      )
    ]

・・・と思ったけどこれは画像の表示のサイズ指定が上手くいっていないもよう・・・どうすりゃええんや

[tokiwoousaka]

前レスの縦ストレッチの問題は別件 https://github.com/tokiwoousaka/takahashi/issues/9 なんか解決しそう