diff --git a/Manatee/Extension/PdfViewer/PdfView.hs b/Manatee/Extension/PdfViewer/PdfView.hs
--- a/Manatee/Extension/PdfViewer/PdfView.hs
+++ b/Manatee/Extension/PdfViewer/PdfView.hs
@@ -110,7 +110,7 @@
              widgetSetSizeRequest 
                area 
                (truncate winWidth) 
-               (truncate (scaleValue * pageHeight * integralToDouble (pdfBufferNPages buffer)))
+               (truncate (scaleValue * pageHeight * i2d (pdfBufferNPages buffer)))
 
     -- Get render index range and scale value.
     (indexRange, currentIndex) <- pdfViewGetIndexRange view
@@ -129,7 +129,7 @@
           drawWindow <- widgetGetDrawWindow area
           renderWithDrawable drawWindow $ do
             setSourceRGB 1.0 1.0 1.0
-            translate 0 (scaleValue * pageHeight * integralToDouble index)
+            translate 0 (scaleValue * pageHeight * i2d index)
             scale scaleValue scaleValue
             pageRender page
                                         
@@ -182,7 +182,7 @@
       bottonIndex = truncate $ vAdjBottom / height
       startIndex  = (\x -> if x < 0 then 0 else x) topIndex
       endIndex    = (\x -> if x >= nPages then nPages - 1 else x) 
-                    $ if vAdjBottom - integralToDouble bottonIndex * height == 0.0
+                    $ if vAdjBottom - i2d bottonIndex * height == 0.0
                          then bottonIndex - 1
                          else bottonIndex
       -- Use point at half of visible area avoid bound value problem.
@@ -205,7 +205,7 @@
         | otherwise 
             = currentIndex + 1
   vAdj <- scrolledWindowGetVAdjustment scrolledWindow
-  adjustmentSetValue vAdj (integralToDouble nextIndex * height * scaleValue)
+  adjustmentSetValue vAdj (i2d nextIndex * height * scaleValue)
 
 -- | View prev page.
 pdfViewPrevPage :: PdfView -> IO ()
@@ -222,7 +222,7 @@
         | otherwise 
             = currentIndex - 1
   vAdj <- scrolledWindowGetVAdjustment scrolledWindow
-  adjustmentSetValue vAdj (integralToDouble prevIndex * height * scaleValue)
+  adjustmentSetValue vAdj (i2d prevIndex * height * scaleValue)
 
 -- | First page.
 pdfViewFirstPage :: PdfView -> IO ()
@@ -237,5 +237,5 @@
       maxIndex   = pdfBufferNPages buffer - 1
   scaleValue <- readTVarIO viewScale
   vAdj <- scrolledWindowGetVAdjustment scrolledWindow
-  adjustmentSetValue vAdj (integralToDouble maxIndex * height * scaleValue)
+  adjustmentSetValue vAdj (i2d maxIndex * height * scaleValue)
 
diff --git a/manatee-pdfviewer.cabal b/manatee-pdfviewer.cabal
--- a/manatee-pdfviewer.cabal
+++ b/manatee-pdfviewer.cabal
@@ -1,5 +1,5 @@
 name:			manatee-pdfviewer
-version:		0.0.1
+version:		0.0.2
 Cabal-Version:	>= 1.6
 license:		GPL-3
 license-file:	LICENSE
@@ -8,8 +8,12 @@
 description:    manatee-pdfviewer is PDF viewer extension for Manatee (Haskell/Gtk+ Integrated Live Environment)
  .
  If you see Chinese garbled in pdf viewer, make sure install package `poppler-data` 
- first, example, use command "sudo aptitude install poppler-data -y" to install it in Debian System.
- And replace Chinese font in file `/etc/fonts/conf.d/49-sansserif.conf'
+ .
+ First use below command install `poppler-data' in Debain:
+ .
+ > sudo aptitude install poppler-data -y
+ .
+ And replace Chinese font string in file `/etc/fonts/conf.d/49-sansserif.conf'
 author:			Andy Stewart
 maintainer:		Andy Stewart <lazycat.manatee@gmail.com>
 stability:		provisional
@@ -23,7 +27,7 @@
   location:     http://patch-tag.com/r/AndyStewart/manatee-pdfviewer
   
 Library
-     build-depends: base >= 4 && < 5, manatee-core >= 0.0.1, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0,
+     build-depends: base >= 4 && < 5, manatee-core >= 0.0.2, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0,
                     containers >= 0.3.0.0, gtk-serialized-event >= 0.12.0, poppler >= 0.12.1, gtk >= 0.12.0,
                     cairo >= 0.12.0, text >= 0.7.1.0, mtl >= 1.1.0.2, utf8-string
      exposed-modules: