twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

don't crash when given a non-existent font in XPrompt.

Browse Source
This commit is contained in:
David Roundy 2007-08-10 17:04:45 +00:00
parent b19f9499a9
commit dd88f670da
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XPrompt.hs
View File

@ -130,7 +130,8 @@ mkXPrompt t conf compl action = do
liftIO $ selectInput d w $ exposureMask .|. keyPressMask liftIO $ selectInput d w $ exposureMask .|. keyPressMask
gc <- liftIO $ createGC d w gc <- liftIO $ createGC d w
liftIO $ setGraphicsExposures d gc False liftIO $ setGraphicsExposures d gc False
fontS <- liftIO $ loadQueryFont d (font conf) fontS <- liftIO (loadQueryFont d (font conf) `catch`
\_ -> loadQueryFont d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*")
(hist,h) <- liftIO $ readHistory (hist,h) <- liftIO $ readHistory
let st = initState d rw w s compl gc fontS (XPT t) hist conf let st = initState d rw w s compl gc fontS (XPT t) hist conf
st' <- liftIO $ execStateT runXP st st' <- liftIO $ execStateT runXP st