diff options
Diffstat (limited to 'dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch')
| -rw-r--r-- | dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch | 172 |
1 files changed, 0 insertions, 172 deletions
diff --git a/dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch b/dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch deleted file mode 100644 index f2691521c4bd..000000000000 --- a/dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch +++ /dev/null @@ -1,172 +0,0 @@ -diff --git a/Bustle/Diagram.hs b/Bustle/Diagram.hs -index d558beb..ef96d60 100644 ---- a/Bustle/Diagram.hs -+++ b/Bustle/Diagram.hs -@@ -450,7 +450,7 @@ mkLayout :: (MonadIO m) - mkLayout s e a = liftIO $ do - ctx <- cairoCreateContext Nothing - layout <- layoutEmpty ctx -- layoutSetMarkup layout (Markup.unMarkup s) -+ layoutSetMarkup layout (Markup.unMarkup s) :: IO String - layoutSetFontDescription layout (Just font) - layoutSetEllipsize layout e - layoutSetAlignment layout a -diff --git a/Bustle/UI.hs b/Bustle/UI.hs -index a78797e..9843b29 100644 ---- a/Bustle/UI.hs -+++ b/Bustle/UI.hs -@@ -30,6 +30,7 @@ import Data.IORef - import qualified Data.Set as Set - import Data.List (intercalate) - import Data.Time -+import qualified Data.Text as T - import Data.Monoid (mempty) - import Text.Printf - -@@ -281,6 +282,7 @@ promptToSave wi = io $ do - case mdetails of - Just (RecordedLog tempFilePath) -> do - let tempFileName = takeFileName tempFilePath -+ title :: String - title = printf (__ "Save log '%s' before closing?") tempFileName - prompt <- messageDialogNew (Just (wiWindow wi)) - [DialogModal] -@@ -459,7 +461,7 @@ wiSetLogDetails :: WindowInfo - -> IO () - wiSetLogDetails wi logDetails = do - writeIORef (wiLogDetails wi) (Just logDetails) -- windowSetTitle (wiWindow wi) (printf (__ "%s - Bustle") (logWindowTitle logDetails)) -+ windowSetTitle (wiWindow wi) (printf (__ "%s - Bustle") (logWindowTitle logDetails) :: String) - - setPage :: MonadIO io - => WindowInfo -@@ -525,7 +527,7 @@ loadPixbuf :: FilePath -> IO (Maybe Pixbuf) - loadPixbuf filename = do - iconName <- getDataFileName $ "data/" ++ filename - C.catch (fmap Just (pixbufNewFromFile iconName)) -- (\(GError _ _ msg) -> warn msg >> return Nothing) -+ (\(GError _ _ msg) -> warn (T.unpack msg) >> return Nothing) - - openDialogue :: Window -> B () - openDialogue window = embedIO $ \r -> do -diff --git a/Bustle/UI/Canvas.hs b/Bustle/UI/Canvas.hs -index 46c1582..5a28761 100644 ---- a/Bustle/UI/Canvas.hs -+++ b/Bustle/UI/Canvas.hs -@@ -1,3 +1,4 @@ -+{-# LANGUAGE OverloadedStrings #-} - {- - Bustle.UI.Canvas: displays diagrams - Copyright © 2008–2012 Collabora Ltd. -@@ -58,7 +59,7 @@ canvasNew :: Eq a - -> (Maybe a -> IO ()) - -> IO (Canvas a) - canvasNew builder showBounds selectionChangedCb = do -- layout <- builderGetObject builder castToLayout "diagramLayout" -+ layout <- builderGetObject builder castToLayout ("diagramLayout" :: String) - idRef <- newIORef Nothing - shapesRef <- newIORef [] - widthRef <- newIORef 0 -diff --git a/Bustle/UI/DetailsView.hs b/Bustle/UI/DetailsView.hs -index 35e80d6..d1b9d96 100644 ---- a/Bustle/UI/DetailsView.hs -+++ b/Bustle/UI/DetailsView.hs -@@ -55,7 +55,7 @@ addValue :: Table - -> Int - -> IO Label - addValue table row = do -- label <- labelNew Nothing -+ label <- labelNew (Nothing :: Maybe String) - miscSetAlignment label 0 0 - labelSetEllipsize label EllipsizeStart - labelSetSelectable label True -@@ -77,7 +77,7 @@ detailsViewNew = do - , tableColumnSpacing := 6 - ] - -- title <- labelNew Nothing -+ title <- labelNew (Nothing :: Maybe String) - miscSetAlignment title 0 0 - tableAttach table title 0 2 0 1 [Fill] [Fill] 0 0 - -diff --git a/Bustle/UI/FilterDialog.hs b/Bustle/UI/FilterDialog.hs -index 9560507..152931e 100644 ---- a/Bustle/UI/FilterDialog.hs -+++ b/Bustle/UI/FilterDialog.hs -@@ -99,7 +99,7 @@ runFilterDialog parent names currentlyHidden = do - nameStore <- makeStore names currentlyHidden - sw <- makeView nameStore - -- instructions <- labelNew Nothing -+ instructions <- labelNew (Nothing :: Maybe String) - widgetSetSizeRequest instructions 600 (-1) - labelSetMarkup instructions - (__ "Unticking a service hides its column in the diagram, \ -diff --git a/Bustle/UI/Recorder.hs b/Bustle/UI/Recorder.hs -index 1e98a68..085eea2 100644 ---- a/Bustle/UI/Recorder.hs -+++ b/Bustle/UI/Recorder.hs -@@ -27,6 +27,7 @@ import Control.Monad (when, liftM) - import Control.Concurrent.MVar - import qualified Data.Map as Map - import Data.Monoid -+import qualified Data.Text as T - import Control.Monad.State (runStateT) - import Text.Printf - -@@ -77,8 +78,7 @@ processBatch pendingRef n label incoming = do - -- message from the user's perspective. - i <- takeMVar n - let j = i + (length pending) -- labelSetMarkup label $ -- printf (__ "Logged <b>%u</b> messages…") j -+ labelSetMarkup label $ (printf (__ "Logged <b>%u</b> messages…") j :: String) - putMVar n j - - incoming rr' -@@ -97,8 +97,8 @@ recorderRun filename mwindow incoming finished = C.handle newFailed $ do - maybe (return ()) (windowSetTransientFor dialog) mwindow - dialog `set` [ windowModal := True ] - -- label <- labelNew Nothing -- labelSetMarkup label $ printf (__ "Logged <b>%u</b> messages…") (0 :: Int) -+ label <- labelNew (Nothing :: Maybe String) -+ labelSetMarkup label $ (printf (__ "Logged <b>%u</b> messages…") (0 :: Int) :: String) - loaderStateRef <- newMVar Map.empty - pendingRef <- newMVar [] - let updateLabel µs body = do -@@ -142,7 +142,7 @@ recorderRun filename mwindow incoming finished = C.handle newFailed $ do - widgetShowAll dialog - where - newFailed (GError _ _ message) = do -- displayError mwindow message Nothing -+ displayError mwindow (T.unpack message) Nothing - - recorderChooseFile :: FilePath - -> Maybe Window -diff --git a/bustle.cabal b/bustle.cabal -index 4ac107c..2d1f907 100644 ---- a/bustle.cabal -+++ b/bustle.cabal -@@ -106,10 +106,10 @@ Executable bustle - , directory - , filepath - , glib -- , gtk >= 0.12.4 -+ , gtk >= 0.13 - , hgettext >= 0.1.5 - , mtl -- , pango -+ , pango >= 0.13 - , parsec - , pcap - , process -@@ -136,7 +136,7 @@ Executable test-monitor - , dbus - , directory - , filepath -- , gtk > 0.12 -+ , gtk >= 0.13 - , glib - , hgettext - , mtl |