]> git.lyx.org Git - lyx.git/blobdiff - src/frontends/xforms/FormBibtex.C
Introduce LFUN_PRINT.
[lyx.git] / src / frontends / xforms / FormBibtex.C
index f2fb0f9c8de87139efa6aa97621f3613af2ec1d6..71416187e1356669392e783a7089bb184adb3c63 100644 (file)
 /**
  * \file FormBibtex.C
- * Copyright 2001 the LyX Team
- * Read the file COPYING
+ * This file is part of LyX, the document processor.
+ * Licence details can be found in the file COPYING.
  *
  * \author Angus Leeming
  * \author John Levon
- * \author Herbert Voss <voss@lyx.org>
+ * \author Herbert Voß
+ * \author Rob Lahaye
+ *
+ * Full author contact details are available in file CREDITS.
  */
 
-#ifdef __GNUG__
-#pragma implementation
-#endif
-
 #include <config.h>
-#include "xformsBC.h"
-#include "ControlBibtex.h"
+
 #include "FormBibtex.h"
-#include "form_bibtex.h"
-#include "gettext.h"
-#include "debug.h"
-#include "support/lstrings.h"
+#include "ControlBibtex.h"
+#include "forms/form_bibtex.h"
+
+#include "Tooltips.h"
+#include "xforms_helpers.h"
+#include "xformsBC.h"
+
 #include "support/filetools.h"
+#include "support/globbing.h"
+#include "support/lstrings.h"
+#include "support/lyxalgo.h"
+
+#include "lyx_forms.h"
+
+using lyx::support::ChangeExtension;
+using lyx::support::compare;
+using lyx::support::contains;
+using lyx::support::FileFilterList;
+using lyx::support::getStringFromVector;
+using lyx::support::getVectorFromString;
+using lyx::support::OnlyFilename;
+using lyx::support::prefixIs;
+using lyx::support::split;
 
+using std::vector;
+using std::string;
 
-typedef FormCB<ControlBibtex, FormDB<FD_form_bibtex> > base_class;
 
-FormBibtex::FormBibtex(ControlBibtex & c)
-       : base_class(c, _("BibTeX Database"))
+typedef FormController<ControlBibtex, FormView<FD_bibtex> > base_class;
+
+FormBibtex::FormBibtex(Dialog & parent)
+       : base_class(parent, _("BibTeX Database"))
 {}
 
 
 void FormBibtex::build()
 {
-       dialog_.reset(build_bibtex());
-
-       fl_set_input_return(dialog_->database, FL_RETURN_CHANGED);
-       fl_set_input_return(dialog_->style, FL_RETURN_CHANGED);
-
-        // Manage the ok, apply, restore and cancel/close buttons
-       bc().setOK(dialog_->button_ok);
-       bc().setCancel(dialog_->button_cancel);
+       dialog_.reset(build_bibtex(this));
+
+       // Manage the ok, apply, restore and cancel/close buttons
+       bcview().setOK(dialog_->button_ok);
+       bcview().setApply(dialog_->button_apply);
+       bcview().setCancel(dialog_->button_close);
+       bcview().setRestore(dialog_->button_restore);
+
+       // disable for read-only documents
+       bcview().addReadOnly(dialog_->input_database);
+       bcview().addReadOnly(dialog_->button_database_browse);
+       bcview().addReadOnly(dialog_->button_style_browse);
+       bcview().addReadOnly(dialog_->button_rescan);
+       bcview().addReadOnly(dialog_->input_style);
+       bcview().addReadOnly(dialog_->check_bibtotoc);
+
+       // trigger an input event for cut&paste with middle mouse button.
+       setPrehandler(dialog_->input_database);
+       setPrehandler(dialog_->input_style);
+
+       fl_set_input_return(dialog_->input_database, FL_RETURN_CHANGED);
+       fl_set_input_return(dialog_->input_style, FL_RETURN_CHANGED);
+
+       // callback for double click in browser
+       fl_set_browser_dblclick_callback(dialog_->browser_styles,
+                                        C_FormDialogView_InputCB, 2);
+
+       // set up the tooltips
+       string str = _("The database you want to cite from. Insert it "
+                      "without the default extension \".bib\". Use comma "
+                      "to separate databases.");
+       tooltips().init(dialog_->button_database_browse, str);
+
+       str = _("Browse directory for BibTeX stylefiles");
+       tooltips().init(dialog_->button_style_browse, str);
+
+       str = _("The BibTeX style to use (only one allowed). Insert it without "
+               "the default extension \".bst\" and without path.");
+       tooltips().init(dialog_->input_style, str);
+
+       str = _("Select if the bibliography should appear in the Table "
+               "of Contents");
+       tooltips().init(dialog_->check_bibtotoc, str);
+
+       str = _("Double click to choose a BibTeX style from the list.");
+       tooltips().init(dialog_->browser_styles, str);
+
+#if FL_VERSION == 0 || (FL_REVISION == 0 && FL_FIXLEVEL == 0)
+       // Work-around xforms' bug; enable tooltips for browser widgets.
+       setPrehandler(dialog_->browser_styles);
+#endif
 
-       bc().addReadOnly(dialog_->database_browse);
-       bc().addReadOnly(dialog_->database);
-       bc().addReadOnly(dialog_->style_browse);
-       bc().addReadOnly(dialog_->style);
-       bc().addReadOnly(dialog_->radio_bibtotoc);
+       str = _("Updates your TeX system for a new bibstyle list. Only "
+               "the styles which are in directories where TeX finds them "
+               "are listed!");
+       tooltips().init(dialog_->button_rescan, str);
 }
 
 
-ButtonPolicy::SMInput FormBibtex::input(FL_OBJECT * ob, long)
+ButtonPolicy::SMInput FormBibtex::input(FL_OBJECT * ob, long ob_value)
 {
-       if (ob == dialog_->database_browse) {
-               string const in_name  = fl_get_input(dialog_->database);
-               string out_name = 
-                       controller().Browse(in_name,
-                                           "Select Database",
-                                           "*.bib| BibTeX Databases (*.bib)");
+       if (ob == dialog_->button_database_browse) {
+               // When browsing, take the first file only
+               string const in_name = getString(dialog_->input_database);
+               FileFilterList const
+                       filter(_("*.bib| BibTeX Databases (*.bib)"));
+               string out_name =
+                       controller().browse("", _("Select Database"),
+                                           filter);
                if (!out_name.empty()) {
-                       out_name = OnlyFilename(out_name); 
-                       if (suffixIs(out_name,".bst")) {
-                               // to prevent names like xxxbst.bst
-                               out_name = ChangeExtension(out_name,"");
-                       }
-   
-                       fl_freeze_form(form()); 
-                       fl_set_input(dialog_->database, out_name.c_str());
-                       fl_unfreeze_form(form()); 
+                       // add the database to any existing ones
+                       if (!in_name.empty())
+                               out_name = in_name + ',' + out_name;
+
+                       fl_set_input(dialog_->input_database, out_name.c_str());
                }
-       }       
-
-       if (ob == dialog_->style_browse) {
-               string const in_name  = fl_get_input(dialog_->style);
-               string out_name = 
-                       controller().Browse(in_name,
-                                           "Select BibTeX-Style",
-                                           "*.bst| BibTeX Styles (*.bst)");
-               if (!out_name.empty()) {
-                       if (suffixIs(out_name,".bst")) {
-                               // to prevent names like xxxbib.bib
-                               // name for display only
-                               out_name = OnlyFilename(ChangeExtension(out_name,""));
-                       }
-
-                       fl_freeze_form(form()); 
-                       fl_set_input(dialog_->style, out_name.c_str());
-                       fl_unfreeze_form(form()); 
+
+       } else if (ob == dialog_->button_style_browse) {
+               string const in_name = getString(dialog_->input_style);
+               FileFilterList const
+                       filter(_("*.bst| BibTeX Styles (*.bst)"));
+               string const style = controller()
+                       .browse(in_name, _("Select BibTeX-Style"), filter);
+               if (!style.empty()) {
+                       fl_set_input(dialog_->input_style, style.c_str());
                }
+
+       } else if (ob == dialog_->browser_styles && ob_value == 2) {
+               // double clicked in styles browser
+               string const style = getString(dialog_->browser_styles);
+               if (style.empty()) {
+                       return ButtonPolicy::SMI_NOOP;
+               } else {
+                       fl_set_input(dialog_->input_style,
+                                       ChangeExtension(style, "").c_str());
+               }
+               // reset the browser so that the following
+               // single-click callback doesn't do anything
+               fl_deselect_browser(dialog_->browser_styles);
+
+       } else if (ob == dialog_->button_rescan) {
+               fl_clear_browser(dialog_->browser_styles);
+               controller().rescanBibStyles();
+               vector<string> styles;
+               controller().getBibStyles(styles);
+               fl_add_browser_line(dialog_->browser_styles,
+                                   getStringFromVector(styles, "\n").c_str());
        }
-  
-       if (!compare(fl_get_input(dialog_->database),"")) {
+
+       // with an empty database nothing makes sense ...
+       if (!compare(fl_get_input(dialog_->input_database), "")) {
                return ButtonPolicy::SMI_NOOP;
        }
 
@@ -99,44 +171,74 @@ ButtonPolicy::SMInput FormBibtex::input(FL_OBJECT * ob, long)
 
 void FormBibtex::update()
 {
-       fl_set_input(dialog_->database,
+       fl_set_input(dialog_->input_database,
                     controller().params().getContents().c_str());
-        string bibtotoc = "bibtotoc";
-       string bibstyle (controller().params().getOptions().c_str());
-       if (prefixIs(bibstyle,bibtotoc)) { // bibtotoc exists?
-               fl_set_button(dialog_->radio_bibtotoc,1);
-               if (contains(bibstyle,',')) { // bibstyle exists?
-                       bibstyle = split(bibstyle,bibtotoc,',');
+
+       string bibtotoc = "bibtotoc";
+       string bibstyle = controller().params().getOptions();
+
+       bool const bibtotoc_exists = prefixIs(bibstyle, bibtotoc);
+       fl_set_button(dialog_->check_bibtotoc, bibtotoc_exists);
+       if (bibtotoc_exists) {
+               if (contains(bibstyle, ',')) { // bibstyle exists?
+                       bibstyle = split(bibstyle, bibtotoc, ',');
                } else {
-                       bibstyle = "";
+                       bibstyle.erase();
                }
+       }
+       fl_set_input(dialog_->input_style, bibstyle.c_str());
 
-               fl_set_input(dialog_->style,bibstyle.c_str());
+       vector<string> styles;
+       controller().getBibStyles(styles);
 
-       } else {
-               fl_set_button(dialog_->radio_bibtotoc,0);
-               fl_set_input(dialog_->style,bibstyle.c_str());
+       fl_clear_browser(dialog_->browser_styles);
+       fl_add_browser_line(dialog_->browser_styles,
+                           getStringFromVector(styles, "\n").c_str());
+}
+
+namespace {
+
+string const unique_and_no_extensions(string const & str_in)
+{
+       vector<string> dbase = getVectorFromString(str_in);
+       for (vector<string>::iterator it = dbase.begin();
+            it != dbase.end(); ++it) {
+               *it = ChangeExtension(*it, string());
        }
+       lyx::eliminate_duplicates(dbase);
+       return getStringFromVector(dbase);
 }
 
+} // namespace anon
+
 
 void FormBibtex::apply()
 {
-       controller().params().setContents(fl_get_input(dialog_->database));
-       string const bibstyle = fl_get_input(dialog_->style); // may be empty!
+       string const db = getString(dialog_->input_database);
+       if (db.empty()) {
+               // no database -> no bibtex-command and no options!
+               controller().params().setContents("");
+               controller().params().setOptions("");
+               return;
+       }
+
+       controller().params().setContents(unique_and_no_extensions(db));
+
+       // empty is valid!
+       string bibstyle = getString(dialog_->input_style);
+       if (!bibstyle.empty()) {
+               // save the BibTeX style without any ".bst" extension
+               bibstyle = ChangeExtension(OnlyFilename(bibstyle), "");
+       }
+
+       bool const addtotoc = fl_get_button(dialog_->check_bibtotoc);
+       string const bibtotoc = addtotoc ? "bibtotoc" : "";
+       if (addtotoc && !bibstyle.empty()) {
+               // Both bibtotoc and style.
+               controller().params().setOptions(bibtotoc + ',' + bibstyle);
 
-       if ((fl_get_button(dialog_->radio_bibtotoc) > 0) &&
-           (!bibstyle.empty())) {
-               // both bibtotoc and style
-               controller().params().setOptions("bibtotoc,"+bibstyle);
        } else {
-               if (fl_get_button(dialog_->radio_bibtotoc) > 0) {
-                       // bibtotoc and no style
-                       controller().params().setOptions("bibtotoc");
-               } else {
-                       // only style
-                       controller().params().setOptions(bibstyle);
-               }
+               // At least one of addtotoc and bibstyle is empty. No harm to output both!
+               controller().params().setOptions(bibtotoc + bibstyle);
        }
 }
-