diff --git a/src/GUI/Gtk/Callbacks.hs b/src/GUI/Gtk/Callbacks.hs index 7c9277e..6d7d402 100644 --- a/src/GUI/Gtk/Callbacks.hs +++ b/src/GUI/Gtk/Callbacks.hs @@ -267,8 +267,8 @@ upDir mygui myview = withErrorDialog $ do -- |Go up one directory and visualize it in the treeView. newFile :: MyGUI -> MyView -> IO () newFile mygui myview = withErrorDialog $ do - cdir <- getCurrentDir myview - mfn <- fileChooserDialog + cdir <- getCurrentDir myview + mfn <- textInputDialog "Enter file name" maybe (return ()) (\fn -> do createFile cdir fn refreshTreeView' mygui myview cdir diff --git a/src/GUI/Gtk/Dialogs.hs b/src/GUI/Gtk/Dialogs.hs index 7e48395..1c5d1e8 100644 --- a/src/GUI/Gtk/Dialogs.hs +++ b/src/GUI/Gtk/Dialogs.hs @@ -161,16 +161,16 @@ withErrorDialog io = do -- |Asks the user which directory copy mode he wants via dialog popup -- and returns 'DirCopyMode'. -fileChooserDialog :: IO (Maybe String) -fileChooserDialog = do +textInputDialog :: String -> IO (Maybe String) +textInputDialog title = do chooserDialog <- messageDialogNew Nothing [DialogDestroyWithParent] MessageQuestion ButtonsNone - "Enter filename" + title entry <- entryNew cbox <- dialogGetActionArea chooserDialog - dialogAddButton chooserDialog "Create" (ResponseUser 0) + dialogAddButton chooserDialog "Ok" (ResponseUser 0) dialogAddButton chooserDialog "Cancel" (ResponseUser 1) boxPackStart (castToBox cbox) entry PackNatural 5 widgetShowAll chooserDialog