如何调整GTK ComboBox（文本）的大小以适应其内容？

Question

我想在我的小部件的中心添加GtkComboBoxText，并占用显示最大项目所需的最小空间。到目前为止，我已尝试使用GtkAlignment执行此操作，但GtkComboBox未展开以适合其内容。

下面是一个最小的例子（在Haskell中），但任何语言的建议都会受到赞赏。

import Graphics.UI.Gtk

import Data.Text(pack)
import Control.Monad.Trans(liftIO)
import Control.Monad(mapM)

main :: IO ()
main = do
   initGUI

   window1 <- windowNew
   alignment1 <- alignmentNew 0.5 0.5 0.1 0.1
   comboboxtext1 <- comboBoxNewText

   mapM ((comboBoxAppendText comboboxtext1).pack) ["Foo", "Bar", "LongFooBarText"]

   containerAdd window1 alignment1
   containerAdd alignment1 comboboxtext1

   on window1 deleteEvent $ liftIO mainQuit >> return False

   widgetShowAll window1
   mainGUI