module Main where

import Graphics.UI.Gtk

main = do
  initGUI
  window <- windowNew
  cb <- comboBoxNewText
  comboBoxAppendText cb "one"
  comboBoxAppendText cb "two"
  on cb popupShownNotify $ putStrLn "popupShownNotify"
  containerAdd window cb
  widgetShow cb
  widgetShow window
  mainGUI