diff --git a/Graphics/UI/Gtk/WtkGtk.hs b/Graphics/UI/Gtk/WtkGtk.hs
--- a/Graphics/UI/Gtk/WtkGtk.hs
+++ b/Graphics/UI/Gtk/WtkGtk.hs
@@ -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
    
diff --git a/wtk-gtk.cabal b/wtk-gtk.cabal
--- a/wtk-gtk.cabal
+++ b/wtk-gtk.cabal
@@ -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