diff --git a/ltk.cabal b/ltk.cabal
--- a/ltk.cabal
+++ b/ltk.cabal
@@ -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
diff --git a/src/Graphics/UI/Frame/ViewFrame.hs b/src/Graphics/UI/Frame/ViewFrame.hs
--- a/src/Graphics/UI/Frame/ViewFrame.hs
+++ b/src/Graphics/UI/Frame/ViewFrame.hs
@@ -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