[paparazzi-commits] [4303] fix bug in A/C menu head

[Pascal Brisset]

Revision: 4303
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4303
Author:   hecto
Date:     2009-10-30 23:15:38 +0000 (Fri, 30 Oct 2009)
Log Message:
-----------
 fix bug in A/C menu head

Modified Paths:
--------------
    paparazzi3/trunk/sw/ground_segment/cockpit/live.ml

Modified: paparazzi3/trunk/sw/ground_segment/cockpit/live.ml
===================================================================
--- paparazzi3/trunk/sw/ground_segment/cockpit/live.ml  2009-10-30 19:08:41 UTC 
(rev 4302)
+++ paparazzi3/trunk/sw/ground_segment/cockpit/live.ml  2009-10-30 23:15:38 UTC 
(rev 4303)
@@ -371,13 +371,11 @@
   let af_file =  Http.file_of_url af_url in
   let af_xml = ExtXml.parse_file af_file in
 
-  let label_box = GBin.event_box () in
-  let label = GPack.hbox ~packing:label_box#add ~spacing:3 () in
-  let eb = GBin.event_box ~width:10 ~height:10 ~packing:label#pack () in
-  eb#coerce#misc#modify_bg [`NORMAL, `NAME color];
-  let _ac_label = GMisc.label ~text:name ~packing:label#pack () in
+  (* Aicraft menu decorated with a colored box *)
+  let image = GBin.event_box ~width:10 ~height:10 () in
+  image#coerce#misc#modify_bg [`NORMAL, `NAME color];
+  let ac_mi = GMenu.image_menu_item ~label:name ~image 
~packing:geomap#menubar#append () in
 
-  let ac_mi = GMenu.image_menu_item ~image:label_box 
~packing:geomap#menubar#append () in
   let ac_menu = GMenu.menu () in
   ac_mi#set_submenu ac_menu;
   let ac_menu_fact = new GMenu.factory ac_menu in