manatee-template 0.0.7 → 0.0.8
raw patch · 2 files changed
+17/−13 lines, 2 filesdep ~manatee-core
Dependency ranges changed: manatee-core
Files
Manatee/Extension/Template/TemplateView.hs view
@@ -27,11 +27,11 @@ import Data.Typeable import Graphics.UI.Gtk hiding (Statusbar, statusbarNew, get) import Graphics.UI.Gtk.Gdk.SerializedEvent+import Manatee.Core.PageFrame import Manatee.Core.Types import Manatee.Extension.Template.TemplateBuffer import Manatee.Toolkit.General.STM import Manatee.Toolkit.Gtk.Gtk-import Manatee.Toolkit.Gtk.ScrolledWindow import Paths_manatee_template import System.FilePath @@ -40,10 +40,10 @@ data TemplateView = TemplateView {templateViewPlugId :: TVar PagePlugId- ,templateViewScrolledWindow :: ScrolledWindow- ,templateViewView :: SV.SourceView- ,templateViewBuffer :: TemplateBuffer- }+ ,templateViewFrame :: PageFrame+ ,templateViewView :: SV.SourceView+ ,templateViewBuffer :: TemplateBuffer+ } deriving Typeable instance PageBuffer TemplateBuffer where@@ -72,12 +72,15 @@ -- GtkPlug id. pageViewPlugId = templateViewPlugId - -- How to focus when manatee focus current application.- pageViewFocus = widgetGrabFocus . templateViewView+ -- Box.+ pageViewBox = pageFrameBox . templateViewFrame -- Scrolled window.- pageViewScrolledWindow = templateViewScrolledWindow+ pageViewScrolledWindow = pageFrameScrolledWindow . templateViewFrame + -- How to focus when manatee focus current application.+ pageViewFocus = widgetGrabFocus . templateViewView+ -- How to handle key action that pass from daemon process. pageViewHandleKeyAction = templateViewHandleKeyAction @@ -122,12 +125,12 @@ pId <- newTVarIO plugId -- Create UI frame.- scrolledWindow <- scrolledWindowNew_+ pFrame <- pageFrameNewWithModeName (pageModeName $ templateBufferMode sb) templateView <- SV.sourceViewNewWithBuffer (templateBufferBuffer sb)- scrolledWindow `containerAdd` templateView+ pageFrameAddChild pFrame templateView - return $ TemplateView pId scrolledWindow templateView sb+ return $ TemplateView pId pFrame templateView sb -- | String buffer keymap. templateViewKeymap :: Map Text (TemplateView -> IO ())
manatee-template.cabal view
@@ -1,5 +1,6 @@+ name: manatee-template-version: 0.0.7+version: 0.0.8 Cabal-Version: >= 1.6 license: GPL-3 license-file: LICENSE@@ -32,7 +33,7 @@ location: http://patch-tag.com/r/AndyStewart/manatee-template Library- build-depends: base >= 4 && < 5, manatee-core >= 0.0.7, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0,+ build-depends: base >= 4 && < 5, manatee-core >= 0.0.8, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0, containers >= 0.3.0.0, gtk-serialized-event >= 0.12.0, gtk >= 0.12.0, gtksourceview2 >= 0.12.0, text >= 0.7.1.0, bytestring >= 0.9.1.5, dbus-core, regex-tdfa, filepath exposed-modules: