From: Duncan C. <dun...@us...> - 2004-07-24 02:31:14
|
Update of /cvsroot/gtk2hs/gtk2hs/gtk/abstract In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9436/gtk/abstract Modified Files: FileChooser.chs Log Message: spelling fix Index: FileChooser.chs =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/abstract/FileChooser.chs,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- FileChooser.chs 16 Jul 2004 15:13:00 -0000 1.5 +++ FileChooser.chs 24 Jul 2004 02:31:05 -0000 1.6 @@ -93,7 +93,7 @@ import Object (makeNewObject) import Signal {#import GList#} -import GError (propogateGError) +import GError (propagateGError) {# context lib="gtk" prefix ="gtk" #} @@ -285,7 +285,7 @@ fileChooserAddShortcutFolder :: FileChooserClass chooser => chooser -> String -> IO () fileChooserAddShortcutFolder chooser foldername = - propogateGError $ \gerrorPtr -> + propagateGError $ \gerrorPtr -> withCString foldername $ \strPtr -> do {# call gtk_file_chooser_add_shortcut_folder #} (toFileChooser chooser) strPtr gerrorPtr @@ -293,7 +293,7 @@ fileChooserRemoveShortcutFolder :: FileChooserClass chooser => chooser -> String -> IO () fileChooserRemoveShortcutFolder chooser foldername = - propogateGError $ \gerrorPtr -> + propagateGError $ \gerrorPtr -> withCString foldername $ \strPtr -> do {# call gtk_file_chooser_remove_shortcut_folder #} (toFileChooser chooser) strPtr gerrorPtr @@ -307,7 +307,7 @@ fileChooserAddShortcutFolderURI :: FileChooserClass chooser => chooser -> String -> IO () fileChooserAddShortcutFolderURI chooser folderuri = - propogateGError $ \gerrorPtr -> + propagateGError $ \gerrorPtr -> withCString folderuri $ \strPtr -> do {# call gtk_file_chooser_add_shortcut_folder_uri #} (toFileChooser chooser) strPtr gerrorPtr @@ -315,7 +315,7 @@ fileChooserRemoveShortcutFolderURI :: FileChooserClass chooser => chooser -> String -> IO () fileChooserRemoveShortcutFolderURI chooser folderuri = - propogateGError $ \gerrorPtr -> + propagateGError $ \gerrorPtr -> withCString folderuri $ \strPtr -> do {# call gtk_file_chooser_remove_shortcut_folder_uri #} (toFileChooser chooser) strPtr gerrorPtr |