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