[Gtk2hs-commit] gtk2hs/mogul/Graphics/UI/Gtk/Mogul WidgetTable.hs,1.2,1.3

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/mogul/Graphics/UI/Gtk/Mogul
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26467/mogul/Graphics/UI/Gtk/Mogul

Modified Files:
	WidgetTable.hs 
Log Message:
Change use of foreignPtrToPtr to unsafeForeignPtrToPtr and provide backwards
compatability for GHC pre-6.2.


Index: WidgetTable.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/mogul/Graphics/UI/Gtk/Mogul/WidgetTable.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- WidgetTable.hs	16 Jan 2005 21:32:32 -0000	1.2
+++ WidgetTable.hs	8 Apr 2005 14:00:48 -0000	1.3
@@ -82,7 +82,7 @@
   let wId = (mkWidgetId name)
   table <- takeMVar widgetTable
   putMVar widgetTable (addToFM table wId
-    ((foreignPtrToPtr.unWidget.toWidget) w))
+    ((unsafeForeignPtrToPtr.unWidget.toWidget) w))
   w `onUnrealize` (do
     table <- takeMVar widgetTable
     putMVar widgetTable (table `delFromFM` wId))