Skip to content

GitLab

G
grew
Commit a8caf292 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files
Options

remove doc pane, prepare for a corpus paned

parent 76152dea
Hide whitespace changes
Inline Side-by-side
Showing with 26 additions and 170 deletions
src/grew.glade
View file @ a8caf292
......@@ -478,7 +478,7 @@
</packing>
</child>
<child>
<widget class="GtkHPaned" id="vpaned_doc">
<widget class="GtkHPaned" id="vpaned_corpus">
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="border_width">5</property>
......@@ -489,107 +489,12 @@
<property name="visible">True</property>
<property name="can_focus">False</property>
<child>
<widget class="GtkViewport" id="viewport3">
<widget class="GtkViewport" id="viewport_corpus">
<property name="visible">True</property>
<property name="can_focus">False</property>
<property name="resize_mode">queue</property>
<child>
<widget class="GtkVBox" id="vbox5">
<property name="visible">True</property>
<property name="can_focus">False</property>
<child>
<widget class="GtkHBox" id="hbox11">
<property name="visible">True</property>
<property name="can_focus">False</property>
<child>
<widget class="GtkHBox" id="hbox12">
<property name="visible">True</property>
<property name="can_focus">False</property>
<child>
<widget class="GtkLabel" id="label13">
<property name="visible">True</property>
<property name="can_focus">False</property>
<property name="label" translatable="yes">-</property>
</widget>
<packing>
<property name="expand">False</property>
<property name="fill">False</property>
<property name="padding">5</property>
<property name="position">0</property>
</packing>
</child>
<child>
<widget class="GtkHScale" id="doc_zoom">
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="adjustment">100 30 310 1 10 10</property>
<property name="round_digits">0</property>
<property name="digits">0</property>
<property name="value_pos">right</property>
</widget>
<packing>
<property name="expand">True</property>
<property name="fill">True</property>
<property name="position">1</property>
</packing>
</child>
<child>
<widget class="GtkLabel" id="label14">
<property name="visible">True</property>
<property name="can_focus">False</property>
<property name="label" translatable="yes">+</property>
</widget>
<packing>
<property name="expand">False</property>
<property name="fill">False</property>
<property name="padding">5</property>
<property name="position">2</property>
</packing>
</child>
</widget>
<packing>
<property name="expand">True</property>
<property name="fill">True</property>
<property name="position">0</property>
</packing>
</child>
</widget>
<packing>
<property name="expand">False</property>
<property name="fill">True</property>
<property name="position">0</property>
</packing>
</child>
<child>
<widget class="GtkButton" id="build_doc">
<property name="label" translatable="yes">Build HTML doc</property>
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="receives_default">True</property>
</widget>
<packing>
<property name="expand">False</property>
<property name="fill">False</property>
<property name="position">1</property>
</packing>
</child>
<child>
<widget class="GtkScrolledWindow" id="doc_view">
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="hscrollbar_policy">automatic</property>
<property name="vscrollbar_policy">automatic</property>
<child>
<placeholder/>
</child>
</widget>
<packing>
<property name="expand">True</property>
<property name="fill">True</property>
<property name="position">2</property>
</packing>
</child>
</widget>
<placeholder/>
</child>
</widget>
<packing>
......@@ -622,16 +527,16 @@
</packing>
</child>
<child>
<widget class="GtkToggleButton" id="btn_show_doc">
<widget class="GtkToggleButton" id="btn_show_corpus">
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="receives_default">True</property>
<property name="relief">none</property>
<child>
<widget class="GtkLabel" id="doc_label">
<widget class="GtkLabel" id="corpus_label">
<property name="visible">True</property>
<property name="can_focus">False</property>
<property name="label" translatable="yes">Documentation</property>
<property name="label" translatable="yes">Corpus</property>
<property name="angle">90</property>
</widget>
</child>
......
src/grew_gtk.ml
View file @ a8caf292
......@@ -191,8 +191,6 @@ let init () =
(* combo_box_text not implemented in lablgladecc2 *)
let combo_box_text = GEdit.combo_box_text ~packing:grew_window#strat_list_viewport#add () in
let doc_dir = ref None in
let main_feat = match !Grew_args.main_feat with
| None -> "phon"
| Some s -> s in
......@@ -202,14 +200,12 @@ let init () =
let _ = grew_window#btn_preferences#connect#clicked ~callback: (fun _ -> display_config_window ()) in (* XXX *)
(** WEBKITS CREATIONS *)
let doc_webkit = GWebView.web_view ~packing:grew_window#doc_view#add () in
let grs_webkit = GWebView.web_view ~packing:grew_window#grs_view#add () in
let module_webkit = GWebView.web_view ~packing:grew_window#module_view#add () in
let error_webkit = GWebView.web_view ~packing:grew_window#err_view_scroll#add () in
let graph_top_webkit = GWebView.web_view ~packing:grew_window#graph_view_top#add () in
let graph_bottom_webkit = GWebView.web_view ~packing:grew_window#graph_view_bottom#add () in
doc_webkit#set_full_content_zoom true;
grs_webkit#set_full_content_zoom true;
module_webkit#set_full_content_zoom true;
graph_top_webkit#set_full_content_zoom true;
......@@ -217,7 +213,6 @@ let init () =
error_webkit#set_full_content_zoom true;
(* ensure UTF-8 encoding *)
doc_webkit#set_custom_encoding "UTF-8";
grs_webkit#set_custom_encoding "UTF-8";
module_webkit#set_custom_encoding "UTF-8";
graph_top_webkit#set_custom_encoding "UTF-8";
......@@ -236,11 +231,6 @@ let init () =
grew_window#graph_label#set_use_markup true;
grew_window#grs_label#set_use_markup true;
(* Doc is usual html view: the contextual menu is enable *)
let web_settings_doc = GWebSettings.web_settings () in
web_settings_doc#set_enable_default_context_menu true;
doc_webkit#set_settings web_settings_doc;
let refresh_error () =
match !messages with
| [] -> grew_window#err_view_scroll#misc#hide ();
......@@ -260,43 +250,23 @@ let init () =
error "%s" msg;
refresh_error () in
let refresh_doc_webkit () =
match !doc_dir with
| Some dir ->
doc_webkit#load_uri ("file://"^(Filename.concat dir "index.html"));
grew_window#build_doc#misc#hide ()
| None ->
doc_webkit#load_html_string empty_html "";
grew_window#build_doc#misc#show () in
let build_doc () =
match !Resources.current_grs with
| None -> ()
| Some grs ->
let temp_dir_name = Filename.get_temp_dir_name () in
let dir = Filename.concat temp_dir_name "grew" in
(* Grs.build_html_doc dir grs; *)
doc_dir := Some dir;
refresh_doc_webkit () in
let reset () =
(* empty all webkits *)
graph_top_webkit#load_html_string empty_html "";
graph_bottom_webkit#load_html_string empty_html "";
module_webkit#load_html_string empty_html "";
grs_webkit#load_html_string empty_html "";
refresh_doc_webkit ();
Grew_rew_display.current_bottom_graph := "";
Grew_rew_display.current_top_graph := "";
(* reset the default panes *)
grew_window#vpaned_doc#misc#show ();
grew_window#vpaned_corpus#misc#show ();
grew_window#err_view_scroll#misc#hide ();
grew_window#vpane_right#set_position 30;
grew_window#btn_show_module#set_active false;
grew_window#vpaned_doc#set_position 30;
grew_window#btn_show_doc#set_active false;
grew_window#vpaned_corpus#set_position 30;
grew_window#btn_show_corpus#set_active false;
grew_window#vpaned_left#set_position 30;
grew_window#btn_show_grs#set_active false in
......@@ -312,9 +282,6 @@ let init () =
(** CALLBACKS *)
(* force html doc building with the "Build HTML doc" button *)
let _ = grew_window#build_doc#connect#clicked (fun () -> error_handling build_doc ()) in
let strat_list = ref [] in
let refresh_btn_run () =
......@@ -371,7 +338,7 @@ let init () =
if grew_window#btn_gr_top_dot#active
then Grew_rew_display.svg_dot_temp_file ?domain ~main_feat graph
else Grew_rew_display.svg_dep_temp_file ?domain ~main_feat graph in
grew_window#vpaned_doc#misc#show ();
grew_window#vpaned_corpus#misc#show ();
grew_window#err_view_scroll#misc#hide ();
graph_top_webkit#load_uri ("file://"^svg_file)
| (_, Some file) ->
......@@ -446,9 +413,7 @@ let init () =
grew_window#grs_label#set_label "No Grs loaded"
end;
update_features ();
doc_dir := None;
refresh_doc_webkit () in
update_features () in
(* end: load_grs *)
(* -------------------------------------------------------------------------------- *)
......@@ -478,9 +443,9 @@ let init () =
let check_positions () =
if (grew_window#vpaned_doc#position < 30)
then (grew_window#vpaned_doc#set_position 30;
grew_window#btn_show_doc#set_active false);
if (grew_window#vpaned_corpus#position < 30)
then (grew_window#vpaned_corpus#set_position 30;
grew_window#btn_show_corpus#set_active false);
if (grew_window#vpaned_left#position < 30)
then (grew_window#vpaned_left#set_position 30;
......@@ -490,21 +455,21 @@ let init () =
then (grew_window#vpane_right#set_position 30;
grew_window#btn_show_module#set_active false) in
let _ = grew_window#btn_show_doc#connect#clicked
let _ = grew_window#btn_show_corpus#connect#clicked
~callback:
(fun () ->
if grew_window#btn_show_doc#active
then grew_window#vpaned_doc#set_position 250
else (grew_window#vpaned_doc#set_position 30; check_positions ())
if grew_window#btn_show_corpus#active
then grew_window#vpaned_corpus#set_position 250
else (grew_window#vpaned_corpus#set_position 30; check_positions ())
) in
let _ = grew_window#vpaned_doc#event#connect#button_release
let _ = grew_window#vpaned_corpus#event#connect#button_release
~callback:
(fun b ->
if (grew_window#vpaned_doc#position > 30)
then (grew_window#btn_show_doc#set_active true)
else (grew_window#vpaned_doc#set_position 30;
grew_window#btn_show_doc#set_active false);
if (grew_window#vpaned_corpus#position > 30)
then (grew_window#btn_show_corpus#set_active true)
else (grew_window#vpaned_corpus#set_position 30;
grew_window#btn_show_corpus#set_active false);
check_positions ();
false
) in
......@@ -558,12 +523,11 @@ let init () =
let fl = ref "G0" in
grew_window#vpane_right#set_position 30;
grew_window#btn_show_module#set_active false;
grew_window#vpaned_doc#set_position 30;
grew_window#btn_show_doc#set_active false;
grew_window#vpaned_corpus#set_position 30;
grew_window#btn_show_corpus#set_active false;
grew_window#btn_show_grs#set_active true;
graph_top_webkit#load_html_string empty_html "";
graph_bottom_webkit#load_html_string empty_html "";
refresh_doc_webkit ();
module_webkit#load_html_string empty_html "";
if (grew_window#vpaned_left#position <= 30)
......@@ -574,7 +538,7 @@ let init () =
Grew_rew_display.transform ~show_bottom:true file_svg (file_svg^".trans.svg") !fl;
grs_webkit#load_uri ("file://"^file_svg^".trans.svg");
Log.debug ("[Grew_gtk] file://"^file_svg^".trans.svg");
grew_window#vpaned_doc#misc#show ();
grew_window#vpaned_corpus#misc#show ();
grew_window#err_view_scroll#misc#hide ();
grs_webkit#execute_script("alert('showOnTop2::G0')");
grs_webkit#execute_script("alert('showOnBottom2::"^(!fl)^"')");
......@@ -709,10 +673,6 @@ let init () =
graph_top_webkit#load_uri ("file://"^svg_file_top);
graph_bottom_webkit#load_uri ("file://"^svg_file_bottom);
(match !doc_dir with
| Some dir -> doc_webkit#load_uri ("file://"^(Filename.concat dir doc_file))
| None -> doc_webkit#load_html_string empty_html "");
Grew_rew_display.current_top_graph := (graph_top);
Grew_rew_display.current_bottom_graph := (graph^".2");
click_marker1 := true;
......@@ -820,12 +780,6 @@ let init () =
grs_webkit#set_zoom_level (grew_window#grs_zoom#adjustment#value /. 100.)
) in
let _ = grew_window#doc_zoom#connect#value_changed
~callback:
(fun () ->
doc_webkit#set_zoom_level (grew_window#doc_zoom#adjustment#value /. 100.)
) in
let _ = grew_window#graph_top_zoom#connect#value_changed
~callback:
(fun () ->
......@@ -967,9 +921,6 @@ let init () =
let _ = grew_window#graph_view_bottom#event#add [`BUTTON_PRESS] in
let _ = grew_window#graph_view_bottom#event#connect#button_press ~callback: (contextual_menu Bottom) in
(* force doc building in required on the commande line *)
if !Grew_args.gui_doc then build_doc ();
(* Really start the gui *)
grew_window#check_widgets ();
grew_window#toplevel#show ();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment