Menu
▾
▴
Re: [Gtk2hs-devel] Popup menu trouble
|
From: Axel S. <Axe...@in...> - 2014-02-23 12:46:33
|
Dear Don,
I haven't tracked the developments of ghc's concurrency recently so I don't know if there is still this -threaded option or if everything is nowadays multithreaded. There used to be the necessity to install this call-back that would run the main loop of Gtk+ while the Haskell program has got nothing to do. If there is some sort of stall/backlag/timeout in connection with messages that make the popup disappear when it does not disappear in C then it might be related to this. Maybe you try to connect to unrealize/hide messages of the popup window and at least try to find out if it is hidden or destroyed?
Cheers,
Axel
On 21.02.2014, at 14:00, Donald Allen <don...@gm...> wrote:
>
>
>
> On Thu, Feb 20, 2014 at 2:55 PM, Daniel Wagner <da...@wa...> wrote:
> Man, you have *got* to get into the habit of creating a minimal working
> example. =)
>
> Yeah, I know. I only had a 45 year career in computer science, running software projects large and small (including the Tenex project at BBN when Tenex was the predominant host OS on the ArpaNet), wrote my first computer program in 1960 (IBM 1620 assembly code), so I'm still a newbie, still learning, but I'm trying.
>
> Seriously, I did attempt to reproduce the problem with a small example and got the same result you did -- the popup menu works correctly (our examples were almost identical, but I did try yours to be sure and it works correctly as it did for you). I have not been able to devote time to this since I sent my message, but returned to it yesterday, trying to find the difference between what my application is doing and both our small examples. This resulted in a useful bit of information: my application has another window, call it Window B, that also needs a popup, which I hadn't gotten to. I adapted the little snippet of code from the failing window (Window A) to produce a right-button popup in Window B. This one works correctly.
>
> Window A: a window containing a scrolled window containing a treeview. The treeview's model is a TreeModelSort whose child model is a ListStore. The popup fails in this window as described.
> Window B: a window containing a scrolled window containing a treeview. The treeview's model is a TreeStore. The popup works correctly with this window.
>
> So I'm a bit closer to isolating what's going on here, but I'm not there yet.
>
> The minimal framework I could put around your code to make it run is
> included below. It does not have the problem you describe. Does the code
> below show the bad behavior you describe when you try it? If not, could
> you please try to cook up the smallest piece of code that *does*
> reproduce your problem?
>
> ~d
>
> import Control.Monad.IO.Class
> import Graphics.UI.Gtk
>
> main = do
> initGUI
> w <- windowNew
> b <- buttonNewWithLabel "foo"
> on b buttonPressEvent (tryEvent (do button <- eventButton
> theTime <- eventTime
> case button of
> RightButton -> liftIO
> (mouseButtonPressed theTime)
> _ -> stopEvent))
> containerAdd w b
> widgetShowAll w
> mainGUI
>
> mouseButtonPressed :: TimeStamp -> IO ()
> mouseButtonPressed theTime
> = do menu <- menuNew
> print "mouseButtonPressed called"
> print ("time", theTime)
> menuItem <- menuItemNewWithLabel "New transaction (ctrl-n)"
> on menuItem menuItemActivated (putStrLn "activated, lol")
> 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))
>
> On 2014-02-18 20:17, Donald Allen wrote:
>
> > 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.
> >
> > ------------------------------------------------------------------------------
> > Managing the Performance of Cloud-Based Applications
> > Take advantage of what the Cloud has to offer - Avoid Common Pitfalls.
> > Read the Whitepaper.
> > http://pubads.g.doubleclick.net/gampad/clk?id=121054471&iu=/4140/ostg.clktrk
> > [1]
> >
> > _______________________________________________
> > Gtk2hs-devel mailing list
> > Gtk...@li...
> > https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel [2]
>
>
>
> Links:
> ------
> [1]
> http://pubads.g.doubleclick.net/gampad/clk?id=121054471&iu=/4140/ostg.clktrk
> [2] https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel
>
> ------------------------------------------------------------------------------
> Managing the Performance of Cloud-Based Applications
> Take advantage of what the Cloud has to offer - Avoid Common Pitfalls.
> Read the Whitepaper.
> http://pubads.g.doubleclick.net/gampad/clk?id=121054471&iu=/4140/ostg.clktrk
> _______________________________________________
> Gtk2hs-devel mailing list
> Gtk...@li...
> https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel
>
> ------------------------------------------------------------------------------
> Managing the Performance of Cloud-Based Applications
> Take advantage of what the Cloud has to offer - Avoid Common Pitfalls.
> Read the Whitepaper.
> http://pubads.g.doubleclick.net/gampad/clk?id=121054471&iu=/4140/ostg.clktrk_______________________________________________
> Gtk2hs-devel mailing list
> Gtk...@li...
> https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel
|
