From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Mon, 4 Jul 2005 12:33:50 +0000 (+0000)
Subject: center on parent now works for ask_confirmation dialog
X-Git-Tag: PRE_GETTER_STORAGE~12
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=2e6a5dbecf1c95b808197b3944b89c6bec2360eb;p=helm.git

center on parent now works for ask_confirmation dialog
---

diff --git a/helm/matita/matitaGtkMisc.ml b/helm/matita/matitaGtkMisc.ml
index 9aa4644cb..8a7048bbd 100644
--- a/helm/matita/matitaGtkMisc.ml
+++ b/helm/matita/matitaGtkMisc.ml
@@ -195,7 +195,7 @@ let popup_message_lowlevel
       ?parent ~destroy_with_parent 
       ~title ~allow_grow ~allow_shrink ?icon ~modal ~resizable ?screen 
       ?type_hint ~position ?wm_name ?wm_class ?border_width ?width ?height 
-      ~show () 
+      ~show:false () 
   in
   let stock = 
     match message_type with
@@ -206,6 +206,7 @@ let popup_message_lowlevel
   in
   let image = GMisc.image ~stock ~icon_size:`DIALOG () in
   let label = GMisc.label ~markup:message () in
+  label#set_line_wrap true;
   let hbox = GPack.hbox ~spacing:10 () in
   hbox#pack ~from:`START ~expand:true ~fill:true (image:>GObj.widget);
   hbox#pack ~from:`START ~expand:true ~fill:true (label:>GObj.widget);
@@ -220,6 +221,8 @@ let popup_message_lowlevel
     ~callback:(fun a ->  GMain.Main.quit ();callback a));
   ignore(m#connect#close 
     ~callback:(fun _ -> GMain.Main.quit ();callback `POPUPCLOSED));
+  if show = true then 
+      m#show ();
   GtkThread.main ();
   m#destroy ()