wtk-gtk 0.1 → 0.2

raw patch · 2 files changed

+8/−5 lines, 2 filesdep ~wtk

Dependency ranges changed: wtk

Files

• Graphics/UI/Gtk/WtkGtk.hs +5/−2
• wtk-gtk.cabal +3/−3

@@ -40,6 +40,7 @@ --   It contains all details that have to passed around to manage properly --   Gtk UI and of course users state. data State a = St { ntbk     :: Notebook                           -- ^ Notebook. All the GUI is embeded in a notebook.+                  , titleN   :: String                             -- ^ Notebook's title                   , usrSt    :: a                                  -- ^ User's state                   , bs       :: [(Int,Button,ConnectId Button)]    -- ^ Page number and its closing button and closing signal                   , inputPg  :: Int                                --   id of widget with focus@@ -75,12 +76,14 @@                    -- | State initializaion                   initState :: Notebook                                                    -- ^ Gtk's 'Notebook+          -> String                                                      -- ^ Notebook's title           -> a                                                           -- ^ Initialized user's state           -> (Int -> IORef (State a) -> IO (VBox, [WidgetsCollection]))  -- ^ Input page creation           -> (String -> Int -> a -> a)                                   -- ^ User state change           -> Bool                                                        -- ^ Debug on/off           -> IO (IORef (State a))-initState ntbk iniUsrState inputPg newUstSt debug = newIORef $ St ntbk iniUsrState [] inputPg newUstSt 0 debug+initState ntbk title iniUsrState inputPg newUstSt debug = +          newIORef $ St ntbk title iniUsrState [] inputPg newUstSt 0 debug  -- | Displays debuging detail if switched on logSt :: Bool -> String -> IO ()@@ -226,7 +229,7 @@    -- Old page is removed after the new one is shown. New one is inserted under    -- the number of the old one, therefore the old one is moved to next number.    -- This works according to experience and is not confirmed by any API docu.-   notebookInsertPage (ntbk st) vb "Input" i+   notebookInsertPage (ntbk st) vb (titleN st) i    notebookRemovePage (ntbk st) (i + 1)    notebookSetCurrentPage (ntbk st) i    

@@ -1,11 +1,11 @@ Name:		wtk-gtk-Version:	0.1+Version:	0.2 License:	BSD3 License-file: license Author:		Bartosz Wojcik Maintainer:	Bartosz Wojcik <bartoszmwojcik@gmail.com> Copyright:  Copyright (c) 2012 Bartosz Wojcik-Category:	Tool Kit+Category:	Utils Synopsis:	GTK tools within Wojcik Tool Kit Stability:  experimental Build-type:	Simple@@ -22,7 +22,7 @@  Library    Build-Depends:     base >= 3 && < 5, parsec >= 2.1, old-locale >= 1.0, time >= 1.1.0,-                      containers >= 0.2, gtk >= 0.10, mtl >= 1.1.0.2, wtk, lenses+                      containers >= 0.2, gtk >= 0.10, mtl >= 1.1.0.2, wtk >= 0.2, lenses    Exposed-modules:   Graphics.UI.Gtk.WtkGui,                       Graphics.UI.Gtk.WtkGtk,                       Graphics.UI.Gtk.WtkGtkBp