force window border to 1px

This commit is contained in:
Jason Creighton
2007-04-23 05:08:24 +00:00
parent 50f89990a0
commit 2a5be03dd1

View File

@@ -159,6 +159,7 @@ manage w = do
withDisplay $ \d -> io $ do withDisplay $ \d -> io $ do
selectInput d w $ structureNotifyMask .|. enterWindowMask .|. propertyChangeMask selectInput d w $ structureNotifyMask .|. enterWindowMask .|. propertyChangeMask
mapWindow d w mapWindow d w
setWindowBorderWidth d w 1
windows $ W.push w windows $ W.push w
-- | unmanage. A window no longer exists, remove it from the window -- | unmanage. A window no longer exists, remove it from the window