1

私は最初のgtk2hs+gladeアプリケーションを作成しており、テキストビューを使用してプログラムからの出力を表示しています。デフォルトの動作と思われるスクロールの代わりに、テキストを再設定するたびにテキストビューが大きくなり、その下のボタンが消えるまで小さくなりますが、スクロールバーがポップアップしたり、スクロールしたりすることはありません。スクロールさせるために何か特別なことをすることになっていますか？これが私が現在使用している主な機能です。ダーティなコードは許してください。後でハウスクリーニングするつもりです。:)

main :: FilePath -> IO ()
main gladepath = do
initGUI
-- Create inital game state
st <- newIORef (State "" "" "" 0 0 0)
-- Get handles to all needed widgets from Glade file
Just xml <- xmlNew gladepath
mw     <- xmlGetWidget xml castToWindow "mainWindow"
sw     <- xmlGetWidget xml castToWindow "window2"
mb     <- xmlGetWidget xml castToButton "fireButton"
ng     <- xmlGetWidget xml castToButton "nbutton"
mv     <- xmlGetWidget xml castToTextView "textview1"
but    <- xmlGetWidget xml castToButton "button1"
ab     <- xmlGetWidget xml castToAboutDialog "aboutdialog1"
menu   <- xmlGetWidget xml castToMenuItem "menuitem3"
about  <- xmlGetWidget xml castToMenuItem "imagemenuitem10"
quitb  <- xmlGetWidget xml castToMenuItem "menuitem3"
p1name <- xmlGetWidget xml castToEntry "entry1"
p2name <- xmlGetWidget xml castToEntry "entry2"
spin   <- xmlGetWidget xml castToSpinButton "spinbutton1"
sett   <- xmlGetWidget xml castToMenuItem "menuitem2"
p1lab  <- xmlGetWidget xml castToLabel "label4"
p2lab  <- xmlGetWidget xml castToLabel "label5"
cylab  <- xmlGetWidget xml castToLabel "label6"
-- Handle events and such
buff <- textViewGetBuffer mv
onActivateLeaf quitb mainQuit
onResponse ab $ \resp -> 
   case resp of
      ResponseClose -> widgetHide ab
      _             -> widgetHide ab
onActivateLeaf about $ widgetShow ab
onActivateLeaf sett  $ widgetShowAll sw
onDelete sw $ \_ -> widgetHide sw >> return True
onClicked but $ 
          initalize sw p1name p2name spin st p1lab p2lab cylab buff
onClicked ng $ widgetShowAll sw
onDelete ab $ \_ -> widgetHide ab >> return True
onClicked mb $ fireButton st sw buff cylab
onActivateLeaf menu $ widgetDestroy mw
onDestroy mw mainQuit
widgetShowAll mw
mainGUI

他に何か必要な場合は、コメントでリクエストしてください。他に何か提供する必要があるかどうかわかりません。

空き地ファイルは大きすぎてここに表示できませんが、誰かが必要とする場合に備えて、ここに貼り付けました：http ://hpaste.org/fastcgi/hpaste.fcgi/view?id=6310#a6310

4

1 に答える 1

3

gtk2hsメーリングリストでAxelと話した後、私はなんとか自分の問題を解決することができました。

TextViewは、1行のテキスト、またはスクロールバーを備えた複数行のTextViewになるように設計されています。スクロール機能が必要な場合は、TextViewをスクロールウィンドウに配置する必要があります。TextViewをスクロールウィンドウに配置することで問題を解決しました。これで完全に機能します。

于 2009-06-28T13:05:14.280 に答える