diff options
| author | ppedrot | 2012-04-20 11:38:44 +0000 |
|---|---|---|
| committer | ppedrot | 2012-04-20 11:38:44 +0000 |
| commit | a2e44a2dbe77c5ce227ea7e12d2cfce903221254 (patch) | |
| tree | d8012b21b9ec5d535e923cff601c1b39827331b0 /ide/coqide.ml | |
| parent | b75888541f65b577b83a4ef669e3f5d29a220953 (diff) | |
Cleaning up widget code and using a naming convention for such files.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15232 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide.ml')
| -rw-r--r-- | ide/coqide.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 263ccf7a6d..9540fe4b96 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -102,7 +102,7 @@ type viewable_script = message_view : GText.view; analyzed_view : analyzed_views; toplvl : Coq.coqtop ref; - command : Command_windows.command_window; + command : Wg_Command.command_window; } let kill_session s = @@ -159,7 +159,7 @@ let build_session s = (Some session_tab#coerce,None,session_paned#coerce) let session_notebook = - Typed_notebook.create build_session kill_session + Wg_Notebook.create build_session kill_session ~border_width:2 ~show_border:false ~scrollable:true () let cb = GData.clipboard Gdk.Atom.primary @@ -1512,7 +1512,7 @@ let create_session file = |Subst_args -> Project_file.args_from_project the_file !custom_project_files !current.project_file_name in let ct = ref (Coq.spawn_coqtop coqtop_args) in - let command = new Command_windows.command_window ct current in + let command = new Wg_Command.command_window ct current in let legacy_av = new analyzed_view script proof message stack ct file in let () = legacy_av#update_stats in let _ = |