diff options
Diffstat (limited to 'UI/Zenity.hs')
-rw-r--r-- | UI/Zenity.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/UI/Zenity.hs b/UI/Zenity.hs index 3b8b028..f61bb44 100644 --- a/UI/Zenity.hs +++ b/UI/Zenity.hs @@ -27,14 +27,15 @@ zenityUI = UI , withProgress = progress } -name :: Title -> Desc -> (Name -> Maybe Problem) -> IO (Maybe Name) -name title desc checkproblem = go "" +name :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name) +name title desc (Name suggested) checkproblem = go "" where go extradesc = do h <- runZenity [ "--entry" , "--title", title , "--text", desc ++ "\n" ++ extradesc + , "--entry-text", BU8.toString suggested ] (ret, ok) <- waitZenity h if ok |