From 5328acb32927792c216b19f1fe3ee32e2a31c442 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Mon, 23 Apr 2007 07:08:24 +0200
Subject: force window border to 1px

darcs-hash:20070423050824-b9aa7-3fc8d9ad35a886852f035f8dabb0abaaee912ede
---
 Operations.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 17280a2..4346398 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -159,6 +159,7 @@ manage w = do
     withDisplay $ \d -> io $ do
         selectInput d w $ structureNotifyMask .|. enterWindowMask .|. propertyChangeMask
         mapWindow d w
+        setWindowBorderWidth d w 1
     windows $ W.push w
 
 -- | unmanage. A window no longer exists, remove it from the window
-- 
cgit v1.2.3