diff options
Diffstat (limited to 'src/GF/Fudgets/FudgetOps.hs')
| -rw-r--r-- | src/GF/Fudgets/FudgetOps.hs | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/src/GF/Fudgets/FudgetOps.hs b/src/GF/Fudgets/FudgetOps.hs index 2c1847105..ac50d3e77 100644 --- a/src/GF/Fudgets/FudgetOps.hs +++ b/src/GF/Fudgets/FudgetOps.hs @@ -1,23 +1,21 @@ ---------------------------------------------------------------------- -- | --- Module : (Module) --- Maintainer : (Maintainer) +-- Module : FudgetOps +-- Maintainer : AR -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date $ --- > CVS $Author $ --- > CVS $Revision $ +-- > CVS $Date: 2005/02/18 19:21:14 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.3 $ -- --- (Description of the module) +-- auxiliary Fudgets for GF syntax editor ----------------------------------------------------------------------------- module FudgetOps where import Fudgets --- auxiliary Fudgets for GF syntax editor - -- save and display showAndSaveF fud = (writeFileF >+< textWindowF) >==< saveF fud @@ -35,7 +33,7 @@ saveSP contents = getSP $ \msg -> case msg of textWindowF = writeOutputF --- to replace stringInputF by a pop-up slot behind a button +-- | to replace stringInputF by a pop-up slot behind a button popupStringInputF :: String -> String -> String -> F String String popupStringInputF label deflt msg = mapF snd |