neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix message bus memory leak

Browse source
This commit is contained in:
Matthias Schiffer 2011-08-12 02:11:09 +02:00
parent 8dab9ed128
commit 180285af85
3 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/Phi/Widget.hs
View file

@ -96,8 +96,7 @@ deriving instance Show WidgetState
createWidgetState :: Phi -> Display -> Widget -> IO WidgetState createWidgetState :: Phi -> Display -> Widget -> IO WidgetState
createWidgetState phi disp (Widget w) = do createWidgetState phi disp (Widget w) = do
phi' <- dupPhi phi priv <- initWidget w phi disp
priv <- initWidget w phi' disp
return WidgetState { stateWidget = w return WidgetState { stateWidget = w
, stateX = 0 , stateX = 0
, stateY = 0 , stateY = 0

3
lib/Phi/Widgets/Systray.hs
View file

@ -59,7 +59,8 @@ instance WidgetClass Systray where
type WidgetData Systray = SystrayState type WidgetData Systray = SystrayState
initWidget (Systray) phi dispvar = do initWidget (Systray) phi dispvar = do
forkIO $ systrayRunner phi dispvar phi' <- dupPhi phi
forkIO $ systrayRunner phi' dispvar
lastReset <- newIORef 0 lastReset <- newIORef 0
return $ SystrayState phi (head . getScreens $ dispvar) 0 lastReset [] return $ SystrayState phi (head . getScreens $ dispvar) 0 lastReset []

3
lib/Phi/Widgets/Taskbar.hs
View file

@ -165,7 +165,8 @@ instance WidgetClass Taskbar where
type WidgetData Taskbar = TaskbarState type WidgetData Taskbar = TaskbarState
initWidget (Taskbar _) phi dispvar = do initWidget (Taskbar _) phi dispvar = do
forkIO $ taskbarRunner phi dispvar phi' <- dupPhi phi
forkIO $ taskbarRunner phi' dispvar
return $ TaskbarState 0 0 (-1) [] M.empty M.empty M.empty M.empty return $ TaskbarState 0 0 (-1) [] M.empty M.empty M.empty M.empty