From 6ee3cd0af791ef480a6d28d2d69e6f4c86cc8c54 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sat, 4 Aug 2007 12:46:22 +0200 Subject: XPrompt.hs: haddock corrections and some comments darcs-hash:20070804104622-32816-15ca269926147136c45966d812d018151833ef5c.gz --- XPrompt.hs | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/XPrompt.hs b/XPrompt.hs index f091b47..1e44580 100644 --- a/XPrompt.hs +++ b/XPrompt.hs @@ -42,14 +42,16 @@ import System.Environment (getEnv) import System.IO import System.Posix.Files (fileExist) --- $usage: +-- $usage -- --- For example usage see XMonadContrib.ShellPrompt or --- XMonadContrib.XMonadPrompt - --- TODO --- scrolling the completions that don't fit in the window --- commands to edit the command line +-- For example usage see 'XMonadContrib.ShellPrompt', +-- 'XMonadContrib.XMonadPrompt' or 'XMonadContrib.SshPrompt' +-- +-- TODO: +-- +-- * scrolling the completions that don't fit in the window (?) +-- +-- * commands to edit the command line type XP = StateT XPState IO @@ -80,7 +82,7 @@ data XPConfig = , borderWidth :: Dimension -- ^ Border width , position :: XPPosition -- ^ Position: 'Top' or 'Bottom' , height :: Dimension -- ^ Window height - , historySize :: Int + , historySize :: Int -- ^ The number of history entries to be saved } deriving (Show, Read) data XPType = forall p . XPrompt p => XPT p @@ -583,10 +585,10 @@ printString d drw gc fc bc x y s = do fillDrawable :: Display -> Drawable -> GC -> Pixel -> Pixel -> Dimension -> Dimension -> Dimension -> IO () fillDrawable d drw gc border bgcolor bw wh ht = do - -- we strat with the border + -- we start with the border setForeground d gc border fillRectangle d drw gc 0 0 wh ht - -- this foreground is the background of the text + -- here foreground means the background of the text setForeground d gc bgcolor fillRectangle d drw gc (fi bw) (fi bw) (wh - (bw * 2)) (ht - (bw * 2)) -- cgit v1.2.3