ltk 0.15.0.4 → 0.15.0.5
raw patch · 2 files changed
+6/−5 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Default: instance (Default alpha, Default beta) => Default (alpha, beta)
- Default: instance (Default alpha, Default beta, Default gamma) => Default (alpha, beta, gamma)
- Default: instance Default (Maybe alpha)
- Default: instance Default Bool
- Default: instance Default Int
- Default: instance Default Text
- Default: instance Default [alpha]
- Default: instance Default alpha => Default (Either alpha beta)
- Graphics.UI.Editor.Basics: eventText :: GUIEvent -> Text
- Graphics.UI.Editor.Basics: gtkReturn :: GUIEvent -> Bool
- Graphics.UI.Editor.Basics: instance Bounded GUIEventSelector
- Graphics.UI.Editor.Basics: instance Enum GUIEventSelector
- Graphics.UI.Editor.Basics: instance Eq GUIEventSelector
- Graphics.UI.Editor.Basics: instance Event GUIEvent GUIEventSelector
- Graphics.UI.Editor.Basics: instance EventSelector GUIEventSelector
- Graphics.UI.Editor.Basics: instance EventSource Notifier GUIEvent IO GUIEventSelector
- Graphics.UI.Editor.Basics: instance Ord GUIEventSelector
- Graphics.UI.Editor.Basics: instance Show GUIEventSelector
- Graphics.UI.Editor.Basics: selector :: GUIEvent -> GUIEventSelector
- Graphics.UI.Editor.Composite: instance Default Dependency
- Graphics.UI.Editor.Composite: instance Default PackageName
- Graphics.UI.Editor.Composite: instance Default Version
- Graphics.UI.Editor.Composite: instance Default Version1
- Graphics.UI.Editor.Composite: instance Default Version2
- Graphics.UI.Editor.Composite: instance Default VersionRange
- Graphics.UI.Editor.Composite: instance Eq Version1
- Graphics.UI.Editor.Composite: instance Eq Version2
- Graphics.UI.Editor.Composite: instance Show Version1
- Graphics.UI.Editor.Composite: instance Show Version2
- Graphics.UI.Editor.DescriptionPP: applicator :: FieldDescriptionPP alpha gamma -> alpha -> alpha -> gamma ()
- Graphics.UI.Editor.DescriptionPP: fieldEditor :: FieldDescriptionPP alpha gamma -> alpha -> IO (Widget, Injector alpha, alpha -> Extractor alpha, Notifier)
- Graphics.UI.Editor.DescriptionPP: fieldParser :: FieldDescriptionPP alpha gamma -> alpha -> CharParser () alpha
- Graphics.UI.Editor.DescriptionPP: fieldPrinter :: FieldDescriptionPP alpha gamma -> alpha -> Doc
- Graphics.UI.Editor.DescriptionPP: parameters :: FieldDescriptionPP alpha gamma -> Parameters
- Graphics.UI.Editor.Parameters: instance Eq Direction
- Graphics.UI.Editor.Parameters: instance Eq HorizontalAlign
- Graphics.UI.Editor.Parameters: instance Eq Parameter
- Graphics.UI.Editor.Parameters: instance Show Direction
- Graphics.UI.Editor.Parameters: instance Show HorizontalAlign
- Graphics.UI.Editor.Parameters: instance Show Parameter
- Graphics.UI.Editor.Simple: instance BinClass Widget
- Graphics.UI.Editor.Simple: instance ButtonClass Widget
- Graphics.UI.Editor.Simple: instance ContainerClass Widget
- Graphics.UI.Frame.Panes: activePane :: FrameState delta -> Maybe (PaneName, Connections)
- Graphics.UI.Frame.Panes: currentPage :: PaneLayout -> Int
- Graphics.UI.Frame.Panes: detachedId :: PaneLayout -> Maybe Text
- Graphics.UI.Frame.Panes: detachedSize :: PaneLayout -> Maybe (Int, Int)
- Graphics.UI.Frame.Panes: instance Eq (IDEPane delta)
- Graphics.UI.Frame.Panes: instance Eq PaneDirection
- Graphics.UI.Frame.Panes: instance Eq PaneLayout
- Graphics.UI.Frame.Panes: instance Eq PanePathElement
- Graphics.UI.Frame.Panes: instance Ord (IDEPane delta)
- Graphics.UI.Frame.Panes: instance Read PaneDirection
- Graphics.UI.Frame.Panes: instance Read PaneLayout
- Graphics.UI.Frame.Panes: instance Read PanePathElement
- Graphics.UI.Frame.Panes: instance Show (FrameState delta)
- Graphics.UI.Frame.Panes: instance Show (IDEPane delta)
- Graphics.UI.Frame.Panes: instance Show Connection
- Graphics.UI.Frame.Panes: instance Show Notebook
- Graphics.UI.Frame.Panes: instance Show PaneDirection
- Graphics.UI.Frame.Panes: instance Show PaneLayout
- Graphics.UI.Frame.Panes: instance Show PanePathElement
- Graphics.UI.Frame.Panes: instance Show UIManager
- Graphics.UI.Frame.Panes: instance Show Window
- Graphics.UI.Frame.Panes: layout :: FrameState delta -> PaneLayout
- Graphics.UI.Frame.Panes: paneGroups :: PaneLayout -> Map Text PaneLayout
- Graphics.UI.Frame.Panes: paneMap :: FrameState delta -> Map PaneName (PanePath, Connections)
- Graphics.UI.Frame.Panes: panePathFromNB :: FrameState delta -> !(Map Notebook PanePath)
- Graphics.UI.Frame.Panes: paneTabs :: PaneLayout -> Maybe PaneDirection
- Graphics.UI.Frame.Panes: panes :: FrameState delta -> Map PaneName (IDEPane delta)
- Graphics.UI.Frame.Panes: uiManager :: FrameState delta -> UIManager
- Graphics.UI.Frame.Panes: windows :: FrameState delta -> [Window]
- Text.PrinterParser: fieldParser :: FieldDescriptionS alpha -> alpha -> CharParser () alpha
- Text.PrinterParser: fieldPrinter :: FieldDescriptionS alpha -> alpha -> Doc
- Text.PrinterParser: instance Pretty Text
- Text.PrinterParser: parameters :: FieldDescriptionS alpha -> Parameters
+ Default: instance (Default.Default alpha, Default.Default beta) => Default.Default (alpha, beta)
+ Default: instance (Default.Default alpha, Default.Default beta, Default.Default gamma) => Default.Default (alpha, beta, gamma)
+ Default: instance Default.Default (GHC.Base.Maybe alpha)
+ Default: instance Default.Default Data.Text.Internal.Text
+ Default: instance Default.Default GHC.Types.Bool
+ Default: instance Default.Default GHC.Types.Int
+ Default: instance Default.Default [alpha]
+ Default: instance Default.Default alpha => Default.Default (Data.Either.Either alpha beta)
+ Graphics.UI.Editor.Basics: [eventText] :: GUIEvent -> Text
+ Graphics.UI.Editor.Basics: [gtkReturn] :: GUIEvent -> Bool
+ Graphics.UI.Editor.Basics: [selector] :: GUIEvent -> GUIEventSelector
+ Graphics.UI.Editor.Basics: instance Control.Event.Event Graphics.UI.Editor.Basics.GUIEvent Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Basics: instance Control.Event.EventSelector Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Basics: instance Control.Event.EventSource Graphics.UI.Editor.Basics.Notifier Graphics.UI.Editor.Basics.GUIEvent GHC.Types.IO Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Basics: instance GHC.Classes.Eq Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Basics: instance GHC.Classes.Ord Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Basics: instance GHC.Enum.Bounded Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Basics: instance GHC.Enum.Enum Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Basics: instance GHC.Show.Show Graphics.UI.Editor.Basics.GUIEventSelector
+ Graphics.UI.Editor.Composite: instance Default.Default Data.Version.Version
+ Graphics.UI.Editor.Composite: instance Default.Default Distribution.Package.Dependency
+ Graphics.UI.Editor.Composite: instance Default.Default Distribution.Package.PackageName
+ Graphics.UI.Editor.Composite: instance Default.Default Distribution.Version.VersionRange
+ Graphics.UI.Editor.Composite: instance Default.Default Graphics.UI.Editor.Composite.Version1
+ Graphics.UI.Editor.Composite: instance Default.Default Graphics.UI.Editor.Composite.Version2
+ Graphics.UI.Editor.Composite: instance GHC.Classes.Eq Graphics.UI.Editor.Composite.Version1
+ Graphics.UI.Editor.Composite: instance GHC.Classes.Eq Graphics.UI.Editor.Composite.Version2
+ Graphics.UI.Editor.Composite: instance GHC.Show.Show Graphics.UI.Editor.Composite.Version1
+ Graphics.UI.Editor.Composite: instance GHC.Show.Show Graphics.UI.Editor.Composite.Version2
+ Graphics.UI.Editor.DescriptionPP: [applicator] :: FieldDescriptionPP alpha gamma -> alpha -> alpha -> gamma ()
+ Graphics.UI.Editor.DescriptionPP: [fieldEditor] :: FieldDescriptionPP alpha gamma -> alpha -> IO (Widget, Injector alpha, alpha -> Extractor alpha, Notifier)
+ Graphics.UI.Editor.DescriptionPP: [fieldParser] :: FieldDescriptionPP alpha gamma -> alpha -> CharParser () alpha
+ Graphics.UI.Editor.DescriptionPP: [fieldPrinter] :: FieldDescriptionPP alpha gamma -> alpha -> Doc
+ Graphics.UI.Editor.DescriptionPP: [parameters] :: FieldDescriptionPP alpha gamma -> Parameters
+ Graphics.UI.Editor.Parameters: instance GHC.Classes.Eq Graphics.UI.Editor.Parameters.Direction
+ Graphics.UI.Editor.Parameters: instance GHC.Classes.Eq Graphics.UI.Editor.Parameters.HorizontalAlign
+ Graphics.UI.Editor.Parameters: instance GHC.Classes.Eq Graphics.UI.Editor.Parameters.Parameter
+ Graphics.UI.Editor.Parameters: instance GHC.Show.Show Graphics.UI.Editor.Parameters.Direction
+ Graphics.UI.Editor.Parameters: instance GHC.Show.Show Graphics.UI.Editor.Parameters.HorizontalAlign
+ Graphics.UI.Editor.Parameters: instance GHC.Show.Show Graphics.UI.Editor.Parameters.Parameter
+ Graphics.UI.Editor.Simple: instance Graphics.UI.Gtk.Types.BinClass Graphics.UI.Gtk.Types.Widget
+ Graphics.UI.Editor.Simple: instance Graphics.UI.Gtk.Types.ButtonClass Graphics.UI.Gtk.Types.Widget
+ Graphics.UI.Editor.Simple: instance Graphics.UI.Gtk.Types.ContainerClass Graphics.UI.Gtk.Types.Widget
+ Graphics.UI.Frame.Panes: [activePane] :: FrameState delta -> Maybe (PaneName, Connections)
+ Graphics.UI.Frame.Panes: [currentPage] :: PaneLayout -> Int
+ Graphics.UI.Frame.Panes: [detachedId] :: PaneLayout -> Maybe Text
+ Graphics.UI.Frame.Panes: [detachedSize] :: PaneLayout -> Maybe (Int, Int)
+ Graphics.UI.Frame.Panes: [layout] :: FrameState delta -> PaneLayout
+ Graphics.UI.Frame.Panes: [paneGroups] :: PaneLayout -> Map Text PaneLayout
+ Graphics.UI.Frame.Panes: [paneMap] :: FrameState delta -> Map PaneName (PanePath, Connections)
+ Graphics.UI.Frame.Panes: [panePathFromNB] :: FrameState delta -> !(Map Notebook PanePath)
+ Graphics.UI.Frame.Panes: [paneTabs] :: PaneLayout -> Maybe PaneDirection
+ Graphics.UI.Frame.Panes: [panes] :: FrameState delta -> Map PaneName (IDEPane delta)
+ Graphics.UI.Frame.Panes: [uiManager] :: FrameState delta -> UIManager
+ Graphics.UI.Frame.Panes: [windows] :: FrameState delta -> [Window]
+ Graphics.UI.Frame.Panes: instance GHC.Classes.Eq (Graphics.UI.Frame.Panes.IDEPane delta)
+ Graphics.UI.Frame.Panes: instance GHC.Classes.Eq Graphics.UI.Frame.Panes.PaneDirection
+ Graphics.UI.Frame.Panes: instance GHC.Classes.Eq Graphics.UI.Frame.Panes.PaneLayout
+ Graphics.UI.Frame.Panes: instance GHC.Classes.Eq Graphics.UI.Frame.Panes.PanePathElement
+ Graphics.UI.Frame.Panes: instance GHC.Classes.Ord (Graphics.UI.Frame.Panes.IDEPane delta)
+ Graphics.UI.Frame.Panes: instance GHC.Read.Read Graphics.UI.Frame.Panes.PaneDirection
+ Graphics.UI.Frame.Panes: instance GHC.Read.Read Graphics.UI.Frame.Panes.PaneLayout
+ Graphics.UI.Frame.Panes: instance GHC.Read.Read Graphics.UI.Frame.Panes.PanePathElement
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show (Graphics.UI.Frame.Panes.FrameState delta)
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show (Graphics.UI.Frame.Panes.IDEPane delta)
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show Graphics.UI.Editor.Basics.Connection
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show Graphics.UI.Frame.Panes.PaneDirection
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show Graphics.UI.Frame.Panes.PaneLayout
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show Graphics.UI.Frame.Panes.PanePathElement
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show Graphics.UI.Gtk.Types.Notebook
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show Graphics.UI.Gtk.Types.UIManager
+ Graphics.UI.Frame.Panes: instance GHC.Show.Show Graphics.UI.Gtk.Types.Window
+ Text.PrinterParser: [fieldParser] :: FieldDescriptionS alpha -> alpha -> CharParser () alpha
+ Text.PrinterParser: [fieldPrinter] :: FieldDescriptionS alpha -> alpha -> Doc
+ Text.PrinterParser: [parameters] :: FieldDescriptionS alpha -> Parameters
+ Text.PrinterParser: instance Text.PrinterParser.Pretty Data.Text.Internal.Text
- Graphics.UI.Editor.Basics: propagateAsChanged :: EventSource alpha GUIEvent m GUIEventSelector => alpha -> [GUIEventSelector] -> m ()
+ Graphics.UI.Editor.Basics: propagateAsChanged :: (EventSource alpha GUIEvent m GUIEventSelector) => alpha -> [GUIEventSelector] -> m ()
- Graphics.UI.Editor.Simple: staticListEditor :: Eq beta => [beta] -> (beta -> Text) -> Editor beta
+ Graphics.UI.Editor.Simple: staticListEditor :: (Eq beta) => [beta] -> (beta -> Text) -> Editor beta
- Graphics.UI.Editor.Simple: staticListMultiEditor :: Eq beta => [beta] -> (beta -> Text) -> Editor [beta]
+ Graphics.UI.Editor.Simple: staticListMultiEditor :: (Eq beta) => [beta] -> (beta -> Text) -> Editor [beta]
Files
- ltk.cabal +1/−1
- src/Graphics/UI/Frame/ViewFrame.hs +5/−4
ltk.cabal view
@@ -1,5 +1,5 @@ name: ltk-version: 0.15.0.4+version: 0.15.0.5 cabal-version: >= 1.8 build-type: Simple license: GPL
src/Graphics/UI/Frame/ViewFrame.hs view
@@ -163,7 +163,7 @@ import qualified Data.Text as T (pack, stripPrefix, unpack) import Data.Monoid ((<>)) import Graphics.UI.Gtk.Abstract.Widget- (widgetSetSizeRequest, buttonReleaseEvent)+ (widgetSetHAlign, widgetSetSizeRequest, buttonReleaseEvent) import Data.Foldable (forM_) import Control.Arrow (Arrow(..)) @@ -293,10 +293,11 @@ containerSetBorderWidth tabButton 0 containerAdd tabButton image - boxPackStart innerBox lbl PackGrow 0- boxPackStart innerBox tabButton PackNatural 5+ boxPackStart innerBox lbl PackNatural 0+ boxPackStart innerBox tabButton PackNatural 0 containerAdd labelBox innerBox+ widgetSetHAlign innerBox AlignCenter dragSourceSet labelBox [Button1] [ActionCopy,ActionMove] tl <- targetListNew targetListAddTextTargets tl 0@@ -487,7 +488,7 @@ panedPack1 newpane activeNotebook True False return (newpane,nbIndex) case (reverse panePath, nbi) of- (SplitP dir:_, _) -> liftIO $ do+ (SplitP dir:_, _) -> liftIO $ if dir `elem` [TopP, LeftP] then panedPack1 (castToPaned parent) np True False else panedPack2 (castToPaned parent) np True False