expand blocks at init

This commit is contained in:
Pascal Brisset
2006-05-15 17:46:39 +00:00
parent d217f0c330
commit 2e48f3dcb4
+4
View File
@@ -156,6 +156,10 @@ class flight_plan = fun ?edit geomap color fp_dtd xml ->
end)
(XmlEdit.children xml_wpts) in
let _ =
XmlEdit.expand_node xml_tree_view xml_root;
let blocks = XmlEdit.child xml_root "blocks" in
XmlEdit.expand_node xml_tree_view blocks in
object
method georef = ref_wgs84