[Fencommits] fenfire-hs: make error messages copyable

[Tuukka Hastrup]

Thu Mar  1 21:20:44 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * make error messages copyable
diff -rN -u old-fenfire-hs/Main.hs new-fenfire-hs/Main.hs
--- old-fenfire-hs/Main.hs	2007-03-01 21:20:31.000000000 +0200
+++ new-fenfire-hs/Main.hs	2007-03-01 21:20:31.000000000 +0200
@@ -379,6 +379,7 @@
             item <- actionCreateToolItem action
             toolbarInsert toolbar (castToToolItem item) (-1)
 
+handleException :: Control.Exception.Exception -> IO ()
 handleException e = do
     dialog <- makeMessageDialog "Exception in event" (show e)
     dialogRun dialog
@@ -696,6 +697,7 @@
                   escapeMarkup primary++"</span>\n\n"++escapeMarkup secondary
     set label' [ labelUseMarkup := True
                , labelWrap := True
+               , labelSelectable := True
                , miscYalign := 0.0
                ]
     hBox <- hBoxNew False 0