Ticket #1243: PopupShownNotify.hs

File PopupShownNotify.hs, 295 bytes (added by guest, 3 years ago)
Line 
1module Main where
2
3import Graphics.UI.Gtk
4
5main = do
6  initGUI
7  window <- windowNew
8  cb <- comboBoxNewText
9  comboBoxAppendText cb "one"
10  comboBoxAppendText cb "two"
11  on cb popupShownNotify $ putStrLn "popupShownNotify"
12  containerAdd window cb
13  widgetShow cb
14  widgetShow window
15  mainGUI