LIB/GTK: use ByteString instead of String for

src/HSFM/GUI/Gtk/Callbacks.hs

@@ -236,7 +236,7 @@ execute _ _ _ = withErrorDialog
 -- |Supposed to be used with 'withRows'. Deletes a file or directory.
 del :: [Item] -> MyGUI -> MyView -> IO ()
 del [item] _ _ = withErrorDialog $ do
-  let cmsg  = "Really delete \"" ++ fullPathS item ++ "\"?"
+  let cmsg  = "Really delete \"" ++ P.fpToString (fullPathS item) ++ "\"?"
   withConfirmationDialog cmsg
     $ easyDelete item
 -- this throws on the first error that occurs
@@ -253,7 +253,7 @@ del _ _ _ = withErrorDialog
 moveInit :: [Item] -> MyGUI -> MyView -> IO ()
 moveInit [item] mygui myview = do
   writeTVarIO (operationBuffer myview) (FMove . MP1 $ item)
-  let sbmsg = "Move buffer: " ++ fullPathS item
+  let sbmsg = "Move buffer: " ++ P.fpToString (fullPathS item)
   popStatusbar mygui
   void $ pushStatusBar mygui sbmsg
 moveInit _ _ _ = withErrorDialog
@@ -264,7 +264,7 @@ moveInit _ _ _ = withErrorDialog
 copyInit :: [Item] -> MyGUI -> MyView -> IO ()
 copyInit [item] mygui myview = do
   writeTVarIO (operationBuffer myview) (FCopy . CP1 $ item)
-  let sbmsg = "Copy buffer: " ++ fullPathS item
+  let sbmsg = "Copy buffer: " ++ P.fpToString (fullPathS item)
   popStatusbar mygui
   void $ pushStatusBar mygui sbmsg
 copyInit _ _ _ = withErrorDialog
@@ -279,14 +279,16 @@ operationFinal _ myview = withErrorDialog $ do
   cdir <- getCurrentDir myview
   case op of
     FMove (MP1 s) -> do
-      let cmsg = "Really move \"" ++ fullPathS s
-                  ++ "\"" ++ " to \"" ++ fullPathS cdir ++ "\"?"
+      let cmsg = "Really move \"" ++ P.fpToString (fullPathS s)
+                  ++ "\"" ++ " to \"" ++ P.fpToString (fullPathS cdir)
+                  ++ "\"?"
       withConfirmationDialog cmsg . withCopyModeDialog
         $ \cm -> void $ runFileOp (FMove . MC s cdir $ cm)
       return ()
     FCopy (CP1 s) -> do
-      let cmsg = "Really copy \"" ++ fullPathS s
-                 ++ "\"" ++ " to \"" ++ fullPathS cdir ++ "\"?"
+      let cmsg = "Really copy \"" ++ P.fpToString (fullPathS s)
+                 ++ "\"" ++ " to \"" ++ P.fpToString (fullPathS cdir)
+                 ++ "\"?"
       withConfirmationDialog cmsg . withCopyModeDialog
         $ \cm -> void $ runFileOp (FCopy . CC s cdir $ cm)
       return ()
@@ -305,7 +307,7 @@ upDir mygui myview = withErrorDialog $ do
 newFile :: MyGUI -> MyView -> IO ()
 newFile _ myview = withErrorDialog $ do
   mfn   <- textInputDialog "Enter file name"
-  let pmfn = P.parseFn =<< mfn
+  let pmfn = P.parseFn =<< P.userStringToFP <$> mfn
   for_ pmfn $ \fn -> do
     cdir  <- getCurrentDir myview
     createFile cdir fn
@@ -314,10 +316,11 @@ newFile _ myview = withErrorDialog $ do
 renameF :: [Item] -> MyGUI -> MyView -> IO ()
 renameF [item] _ _ = withErrorDialog $ do
   mfn  <- textInputDialog "Enter new file name"
-  let pmfn = P.parseFn =<< mfn
+  let pmfn = P.parseFn =<< P.userStringToFP <$> mfn
   for_ pmfn $ \fn -> do
-    let cmsg = "Really rename \"" ++ fullPathS item
-               ++ "\"" ++ " to \"" ++ P.fromAbs (anchor item P.</> fn) ++ "\"?"
+    let cmsg = "Really rename \"" ++ P.fpToString (fullPathS item)
+               ++ "\"" ++ " to \""
+               ++ P.fpToString (P.fromAbs (anchor item P.</> fn)) ++ "\"?"
     withConfirmationDialog cmsg $
       HSFM.FileSystem.FileOperations.renameFile item fn
 renameF _ _ _ = withErrorDialog

src/HSFM/GUI/Gtk/MyView.hs

@@ -16,8 +16,10 @@ along with this program; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 --}
 
+{-# LANGUAGE OverloadedStrings #-}
 {-# OPTIONS_HADDOCK ignore-exports #-}
 
+
 module HSFM.GUI.Gtk.MyView where
 
 
@@ -55,6 +57,7 @@ import HPath
 import qualified HPath as P
 import HSFM.FileSystem.FileOperations
 import HSFM.FileSystem.FileType
+import HSFM.GUI.Glib.GlibString()
 import HSFM.GUI.Gtk.Data
 import HSFM.GUI.Gtk.Icons
 import HSFM.GUI.Gtk.Utils
@@ -157,7 +160,7 @@ createTreeView = do
 
   -- filename column
   cF <- treeViewColumnNew
-  treeViewColumnSetTitle        cF "Filename"
+  treeViewColumnSetTitle        cF ("Filename" :: String)
   treeViewColumnSetResizable    cF True
   treeViewColumnSetClickable    cF True
   treeViewColumnSetSortColumnId cF 1
@@ -169,7 +172,7 @@ createTreeView = do
 
   -- date column
   cMD <- treeViewColumnNew
-  treeViewColumnSetTitle        cMD "Date"
+  treeViewColumnSetTitle        cMD ("Date" :: String)
   treeViewColumnSetResizable    cMD True
   treeViewColumnSetClickable    cMD True
   treeViewColumnSetSortColumnId cMD 2
@@ -179,7 +182,7 @@ createTreeView = do
 
   -- permissions column
   cP <- treeViewColumnNew
-  treeViewColumnSetTitle        cP "Permission"
+  treeViewColumnSetTitle        cP ("Permission" :: String)
   treeViewColumnSetResizable    cP True
   treeViewColumnSetClickable    cP True
   treeViewColumnSetSortColumnId cP 3