manatee-processmanager 0.0.7 → 0.0.8
raw patch · 2 files changed
+15/−10 lines, 2 filesdep ~manatee-core
Dependency ranges changed: manatee-core
Files
Manatee/Extension/ProcessManager/ProcessView.hs view
@@ -29,7 +29,7 @@ import Data.Typeable import Graphics.UI.Gtk hiding (Statusbar, statusbarNew, get) import Graphics.UI.Gtk.Gdk.SerializedEvent-import Manatee.Core.PageView+import Manatee.Core.PageFrame import Manatee.Core.Types import Manatee.Extension.ProcessManager.ProcessBuffer import Manatee.Toolkit.General.Basic@@ -40,7 +40,6 @@ import Manatee.Toolkit.Gtk.Concurrent import Manatee.Toolkit.Gtk.Gtk import Manatee.Toolkit.Gtk.ModelView-import Manatee.Toolkit.Gtk.ScrolledWindow import Paths_manatee_processmanager import System.Linux.Proc import System.FilePath@@ -49,7 +48,7 @@ data ProcessView = ProcessView {processViewPlugId :: TVar PagePlugId- ,processViewScrolledWindow :: ScrolledWindow+ ,processViewFrame :: PageFrame ,processViewBuffer :: ProcessBuffer ,processViewTreeView :: TreeView ,processViewListStore :: ListStore ProcStatus@@ -69,8 +68,9 @@ instance PageView ProcessView where pageViewBuffer = PageBufferWrap . processViewBuffer pageViewPlugId = processViewPlugId- pageViewFocus = treeViewFocus . processViewTreeView+ pageViewBox = pageFrameBox . processViewFrame pageViewScrolledWindow = processViewScrolledWindow+ pageViewFocus = treeViewFocus . processViewTreeView pageViewHandleKeyAction = processViewHandleKeyAction pageViewScrollToTop = processViewScrollToTop pageViewScrollToBottom = processViewScrollToBottom@@ -84,12 +84,12 @@ pId <- newTVarIO plugId -- Create UI frame.- scrolledWindow <- scrolledWindowNew_+ pFrame <- pageFrameNewWithModeName (pageModeName $ processBufferMode buffer) -- Tree view. treeView <- treeViewNew treeViewSetEnableTreeLines treeView True- scrolledWindow `containerAdd` treeView+ pageFrameAddChild pFrame treeView -- List store. listStore <- listStoreNew []@@ -101,7 +101,7 @@ channel <- createViewChannel (processBufferBroadcastChannel buffer) treeView -- Process view.- let processView = ProcessView pId scrolledWindow buffer treeView listStore sortModel channel+ let processView = ProcessView pId pFrame buffer treeView listStore sortModel channel -- Read channel. processViewListenChannel processView@@ -426,10 +426,15 @@ processViewRemoveProcess view (head currentPath) -- Popup notify message.- pageViewUpdateOutputStatus view ("Kill process '" ++ processName ++ "' (" ++ show processId ++ ")") Nothing+ pageFrameShowOutputbar (processViewFrame view) ("Kill process '" ++ processName ++ "' (" ++ show processId ++ ")") Nothing -- | Remove process from view. processViewRemoveProcess :: ProcessView -> Int -> IO () processViewRemoveProcess view index = -- Write message to broadcast channel to update all view of current buffer. writeTChanIO (viewChannel $ processViewBroadcastChannel view) (KillProcess index)++-- | Scrolled window.+processViewScrolledWindow :: ProcessView -> ScrolledWindow+processViewScrolledWindow =+ pageFrameScrolledWindow . processViewFrame
manatee-processmanager.cabal view
@@ -1,5 +1,5 @@ name: manatee-processmanager-version: 0.0.7+version: 0.0.8 Cabal-Version: >= 1.6 license: GPL-3 license-file: LICENSE@@ -30,7 +30,7 @@ location: http://patch-tag.com/r/AndyStewart/manatee-processmanager 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, text >= 0.7.1.0, proc >= 0.0.8, filepath exposed-modules: