diff options
| author | Jason Creighton <jcreigh@gmail.com> | 2007-04-23 07:08:24 +0200 |
|---|---|---|
| committer | Jason Creighton <jcreigh@gmail.com> | 2007-04-23 07:08:24 +0200 |
| commit | 5328acb32927792c216b19f1fe3ee32e2a31c442 (patch) | |
| tree | e89c503a4e198c17f5045e3ce14d71028b022af8 | |
| parent | 57cc6a484cb92ee288f1d529f71a56734168e7b5 (diff) | |
| download | metatile-5328acb32927792c216b19f1fe3ee32e2a31c442.tar metatile-5328acb32927792c216b19f1fe3ee32e2a31c442.zip | |
force window border to 1px
darcs-hash:20070423050824-b9aa7-3fc8d9ad35a886852f035f8dabb0abaaee912ede
| -rw-r--r-- | Operations.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |