]> git.lyx.org Git - features.git/blob - src/frontends/xforms/FormShowFile.C
xforms clean-up, described in detail in my mail of 31 May. See
[features.git] / src / frontends / xforms / FormShowFile.C
1 /**
2  * \file FormShowFile.C
3  * Copyright 2001 The LyX Team.
4  * See the file COPYING.
5  *
6  * \author Herbert Voss, voss@perce.de
7  */
8
9 #include <config.h>
10
11 #ifdef __GNUG__
12 #pragma implementation
13 #endif
14
15 #include "xformsBC.h"
16 #include "ControlShowFile.h"
17 #include "FormShowFile.h"
18 #include "forms/form_browser.h"
19 #include "gettext.h"
20 #include FORMS_H_LOCATION
21
22 FormShowFile::FormShowFile(ControlShowFile & c)
23         : FormCB<ControlShowFile, FormBrowser>(c, string())
24 {}
25
26
27 void FormShowFile::update()
28 {
29         fl_hide_object(dialog_->button_update);
30         fl_clear_browser(dialog_->browser);
31         // courier medium
32         fl_set_browser_fontstyle(dialog_->browser,FL_FIXED_STYLE);
33         fl_set_form_title(dialog_->form, controller().getFileName().c_str());
34
35         string const contents = controller().getFileContents();
36         if (contents.empty())
37                 fl_add_browser_line(dialog_->browser,
38                                     "Error -> Cannot load file!");
39         else
40                 fl_add_browser_line(dialog_->browser, contents.c_str());
41 }