diff options
| author | gwern0 <gwern0@gmail.com> | 2007-09-18 18:29:50 +0200 |
|---|---|---|
| committer | gwern0 <gwern0@gmail.com> | 2007-09-18 18:29:50 +0200 |
| commit | 5f7d8e9fcd070f30794f68f5b0b91b9d5ce7a974 (patch) | |
| tree | f7d8fe4fd0ee642febeac33dc03391392bde002b /XPrompt.hs | |
| parent | faa6fb0e15f0f8378f21b8b1f11934f3ced11a03 (diff) | |
| download | XMonadContrib-5f7d8e9fcd070f30794f68f5b0b91b9d5ce7a974.tar.gz XMonadContrib-5f7d8e9fcd070f30794f68f5b0b91b9d5ce7a974.tar.xz XMonadContrib-5f7d8e9fcd070f30794f68f5b0b91b9d5ce7a974.zip | |
XPrompt.hs: replace 'borderWidth' with 'borderPixel'
borderWidth is already defined in Config.hs. Thus, if one attempted to use a prompt configuration different than defaultXPConfig, and one defined it in one's Config.hs where it should be, then the borderWidth field would cause a warning by -Wall, since borderWidth is already a name being used by XMonad at large.
darcs-hash:20070918162950-f7719-63aede31072155fee70d3d01cb635636ff2a457c.gz
Diffstat (limited to 'XPrompt.hs')
| -rw-r--r-- | XPrompt.hs | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -89,10 +89,10 @@ data XPConfig = XPC { font :: String -- ^ Font , bgColor :: String -- ^ Backgroud color , fgColor :: String -- ^ Font color - , fgHLight :: String -- ^ Font color of a highlighted completion entry - , bgHLight :: String -- ^ Backgroud color of a highlighted completion entry - , borderColor :: String -- ^ Border color - , borderWidth :: Dimension -- ^ Border width + , fgHLight :: String -- ^ Font color of a highlighted completion entry + , bgHLight :: String -- ^ Backgroud color of a highlighted completion entry + , borderColor :: String -- ^ Border color + , borderPixel :: Dimension -- ^ Border width , position :: XPPosition -- ^ Position: 'Top' or 'Bottom' , height :: Dimension -- ^ Window height , historySize :: Int -- ^ The number of history entries to be saved @@ -131,7 +131,7 @@ defaultXPConfig = , fgHLight = "#000000" , bgHLight = "#BBBBBB" , borderColor = "#FFFFFF" - , borderWidth = 1 + , borderPixel = 1 , position = Bottom , height = 18 , historySize = 256 @@ -378,7 +378,7 @@ drawWin = do w = win st wh = widthOfScreen scr ht = height c - bw = borderWidth c + bw = borderPixel c gc = gcon st fontStruc = fs st bgcolor <- io $ initColor d (bgColor c) @@ -488,7 +488,7 @@ drawComplWin w compl = do let c = config st d = dpy st scr = defaultScreenOfDisplay d - bw = borderWidth c + bw = borderPixel c gc = gcon st bgcolor <- io $ initColor d (bgColor c) fgcolor <- io $ initColor d (fgColor c) |