[Gtk2hs-devel] Popup menu trouble

[Donald A. <don...@gm...>]

I am trying to pop up a menu when the right button is pressed with the
cursor in a particular treeview. I set up the event handler as follows:

-- Handle buttonPressEvent within the view
on view buttonPressEvent (tryEvent (do button <- eventButton
                                       theTime <- eventTime
                                       case button of
                                          RightButton -> liftIO
(mouseButtonPressed theTime accountRegister globals)
                                          _ -> stopEvent))

and

mouseButtonPressed :: TimeStamp -> AccountRegister -> Globals -> IO ()
mouseButtonPressed theTime accountRegister globals
   = do menu <- menuNew
        print "mouseButtonPressed called"
        print ("time", theTime)
        menuItem <- menuItemNewWithLabel "New transaction (ctrl-n)"
        on menuItem menuItemActivated (newTransaction accountRegister
globals)
        menuShellAppend menu menuItem
        menuItem <- menuItemNewWithLabel "Duplicate selected transaction
(ctrl-d)"
        menuShellAppend menu menuItem
        widgetShowAll menu
        print "about to call menuPopup"
        menuPopup menu (Just (RightButton, theTime))

The first time I press the right button, the menu appears for perhaps 10
seconds and then disappears. During that time, I can click 'New
transaction' and the right thing happens. The second time I press the right
button, the menu appears very briefly, less than a second and then
disappears. Subsequent right clicks behave the same. In other words,
useless.

The debugging prints in mouseButtonPressed all appear in response to the
right clicks. The event time advances, as you would expect.

I'm at a complete loss as to what might be causing this and can't continue
with my project if this is not solved. Any suggestions would be appreciated.