[paparazzi-commits] [4525] fix bug on window resizing

[Pascal Brisset]

Revision: 4525
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4525
Author:   hecto
Date:     2010-02-01 14:09:00 +0000 (Mon, 01 Feb 2010)
Log Message:
-----------
 fix bug on window resizing

Modified Paths:
--------------
    paparazzi3/trunk/sw/logalizer/plot.ml

Modified: paparazzi3/trunk/sw/logalizer/plot.ml
===================================================================
--- paparazzi3/trunk/sw/logalizer/plot.ml       2010-02-01 10:11:24 UTC (rev 
4524)
+++ paparazzi3/trunk/sw/logalizer/plot.ml       2010-02-01 14:09:00 UTC (rev 
4525)
@@ -270,13 +270,14 @@
       let () = context#set_font_by_name "sans 8 " in
       let layout = context#create_layout in
       let dr = self#get_pixmap () in
-      object
+      object (self)
        method size =
          let s = da#misc#allocation in
          (s.Gtk.width, s.Gtk.height)
 
        method init = fun () ->
          dr#set_foreground (`NAME "white");
+         let (width, height) = self# size in
          dr#rectangle ~x:0 ~y:0 ~width ~height ~filled:true ()
 
        method set_color = fun (r, g, b) ->