diff options
| -rw-r--r-- | .main.hs.swp | bin | 0 -> 12288 bytes | |||
| -rw-r--r-- | main.hs | 8 |
2 files changed, 4 insertions, 4 deletions
diff --git a/.main.hs.swp b/.main.hs.swp Binary files differnew file mode 100644 index 0000000..9604716 --- /dev/null +++ b/.main.hs.swp @@ -7,11 +7,11 @@ import qualified RealCalc main :: IO () main = do _ <- initGUI w <- windowNew - windowSetKeepAbove w True - set w [ windowDecorated := False, windowTypeHint := WindowTypeHintDock, windowResizable := False ] + set w [ windowDecorated := False, windowResizable := False ] grid <- gridNew input <- entryNew - output <- labelNew (Nothing :: Maybe String) + output <- entryNew + set output [ entryEditable := False ] clip <- Cl.liftIO $ clipboardGet selectionPrimary gridAttach grid input 0 0 1 1 gridAttach grid output 0 1 1 1 @@ -30,7 +30,7 @@ main = do _ <- initGUI case RealCalc.calculate s of Nothing -> return () Just r -> do Cl.liftIO $ clipboardSetText clip r - Cl.liftIO $ labelSetText output r + Cl.liftIO $ set output [ entryText := r ] return False widgetShowAll w mainGUI |