fltk/fluid/codeview_panel.cxx
Matthias Melcher fd791a068e
Separate FLUID user documentation, screen shot automation (#936)
* CMake integration, no autotiools
* alignment panel is now correctly renamed to setting panel
* source view is now correctly renamed to code view
* Merge FLTK FLUID docs into FLUID user manual.
* Add two simple entry tutorials
* Remove FLUID chapter form FLTK docs.
* GitHub action to generate HTML and PDF docs and
  make the available as artefacts
2024-04-17 17:51:32 +02:00

549 lines
20 KiB
C++

//
// Code dialogs for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2023 by Bill Spitzak and others.
//
// This library is free software. Distribution and use rights are outlined in
// the file "COPYING" which should have been included with this file. If this
// file is missing or damaged, see the license at:
//
// https://www.fltk.org/COPYING.php
//
// Please see the following page on how to report bugs and issues:
//
// https://www.fltk.org/bugs.php
//
// generated by Fast Light User Interface Designer (fluid) version 1.0400
#include "codeview_panel.h"
#include "fluid.h"
#include "file.h"
#include "../src/flstring.h"
#include <FL/Fl_Tabs.H>
#include <FL/Fl_Button.H>
static char *cv_source_filename = NULL;
static char *cv_header_filename = NULL;
static char *cv_design_filename = NULL;
int cv_code_choice;
extern void select_only(Fl_Type *o);
extern void reveal_in_browser(Fl_Type *t);
/**
Update the header and source code highlighting depending on the
currently selected object
The Code View system offers an immediate preview of the code
files that will be generated by FLUID. It also marks the code
generated for the last selected item in the header and the source
file.
*/
void update_codeview_position() {
if (!codeview_panel || !codeview_panel->visible())
return;
if (cv_autoposition->value()==0)
return;
if (codeview_panel && codeview_panel->visible() && Fl_Type::current) {
int pos0 = 0, pos1 = 0;
if (cv_source->visible_r()) {
switch (cv_code_choice) {
case 0: // prolog: not yet (include statements)
pos0 = Fl_Type::current->code1_start;
pos1 = Fl_Type::current->code2_end;
break;
case 1: // static: callbacks, menu declarations
pos0 = Fl_Type::current->code_static_start;
pos1 = Fl_Type::current->code_static_end;
break;
case 2: // code: entire implementation block including children
pos0 = Fl_Type::current->code1_start;
pos1 = Fl_Type::current->code2_end;
break;
case 3: // code1: all implementation code before the children
pos0 = Fl_Type::current->code1_start;
pos1 = Fl_Type::current->code1_end;
break;
case 4: // code1: all implementation code before the children
pos0 = Fl_Type::current->code2_start;
pos1 = Fl_Type::current->code2_end;
break;
}
if (pos0>=0) {
if (pos1<pos0)
pos1 = cv_source->buffer()->line_end(pos0);
cv_source->buffer()->highlight(pos0, pos1);
int line = cv_source->buffer()->count_lines(0, pos0);
cv_source->scroll(line, 0);
}
}
if (cv_header->visible_r()) {
switch (cv_code_choice) {
case 0: // prolog: not yet (include statements)
case 1: // static: callbacks, menu declarations
pos0 = Fl_Type::current->header_static_start;
pos1 = Fl_Type::current->header_static_end;
break;
case 2: // code: entire implementation block including children
pos0 = Fl_Type::current->header1_start;
pos1 = Fl_Type::current->header2_end;
break;
case 3: // code1: all implementation code before the children
pos0 = Fl_Type::current->header1_start;
pos1 = Fl_Type::current->header1_end;
break;
case 4: // code1: all implementation code before the children
pos0 = Fl_Type::current->header2_start;
pos1 = Fl_Type::current->header2_end;
break;
}
if (pos0>=0) {
if (pos1<pos0)
pos1 = cv_header->buffer()->line_end(pos0);
cv_header->buffer()->highlight(pos0, pos1);
int line = cv_header->buffer()->count_lines(0, pos0);
cv_header->scroll(line, 0);
}
}
if (cv_project->visible_r()) {
switch (cv_code_choice) {
case 0: // prolog: not yet (include statements)
case 1: // static: callbacks, menu declarations
case 2: // code: entire implementation block including children
pos0 = Fl_Type::current->proj1_start;
pos1 = Fl_Type::current->proj2_end;
break;
case 3: // code1: all implementation code before the children
pos0 = Fl_Type::current->proj1_start;
pos1 = Fl_Type::current->proj1_end;
break;
case 4: // code1: all implementation code before the children
pos0 = Fl_Type::current->proj2_start;
pos1 = Fl_Type::current->proj2_end;
break;
}
if (pos0>=0) {
if (pos1<pos0)
pos1 = cv_project->buffer()->line_end(pos0);
cv_project->buffer()->highlight(pos0, pos1);
int line = cv_project->buffer()->count_lines(0, pos0);
cv_project->scroll(line, 0);
}
}
}
}
/**
Callback to update the codeview position.
*/
void update_codeview_position_cb(class Fl_Tabs*, void*) {
// make sure that the selected tab shows the current view
update_codeview_cb(0,0);
// highlight the selected widget in the selected tab
update_codeview_position();
}
/**
Generate a header, source, strings, or design file in a temporary directory
and load those into the Code Viewer widgets.
*/
void update_codeview_cb(class Fl_Button*, void*) {
if (!codeview_panel || !codeview_panel->visible())
return;
if (!cv_source_filename) {
cv_source_filename = (char*)malloc(FL_PATH_MAX);
fl_strlcpy(cv_source_filename, get_tmpdir().c_str(), FL_PATH_MAX);
fl_strlcat(cv_source_filename, "codeview_tmp.cxx", FL_PATH_MAX);
}
if (!cv_header_filename) {
cv_header_filename = (char*)malloc(FL_PATH_MAX);
fl_strlcpy(cv_header_filename, get_tmpdir().c_str(), FL_PATH_MAX);
fl_strlcat(cv_header_filename, "codeview_tmp.h", FL_PATH_MAX);
}
if (!cv_design_filename) {
cv_design_filename = (char*)malloc(FL_PATH_MAX);
fl_strlcpy(cv_design_filename, get_tmpdir().c_str(), FL_PATH_MAX);
fl_strlcat(cv_design_filename, "codeview_tmp.fl", FL_PATH_MAX);
}
if (cv_project->visible_r()) {
write_file(cv_design_filename, false, true);
int top = cv_project->top_line();
cv_project->buffer()->loadfile(cv_design_filename);
cv_project->scroll(top, 0);
} else if (cv_strings->visible_r()) {
static const char *exts[] = { ".txt", ".po", ".msg" };
char fn[FL_PATH_MAX+1];
fl_strlcpy(fn, get_tmpdir().c_str(), FL_PATH_MAX);
fl_strlcat(fn, "strings", FL_PATH_MAX);
fl_filename_setext(fn, FL_PATH_MAX, exts[g_project.i18n_type]);
write_strings(fn);
int top = cv_strings->top_line();
cv_strings->buffer()->loadfile(fn);
cv_strings->scroll(top, 0);
} else if (cv_source->visible_r() || cv_header->visible_r()) {
Fl_String code_file_name_bak = g_project.code_file_name;
g_project.code_file_name = cv_source_filename;
Fl_String header_file_name_bak = g_project.header_file_name;
g_project.header_file_name = cv_header_filename;
// generate the code and load the files
Fd_Code_Writer f;
// generate files
if (f.write_code(cv_source_filename, cv_header_filename, true))
{
// load file into source editor
int pos = cv_source->top_line();
cv_source->buffer()->loadfile(cv_source_filename);
cv_source->scroll(pos, 0);
// load file into header editor
pos = cv_header->top_line();
cv_header->buffer()->loadfile(cv_header_filename);
cv_header->scroll(pos, 0);
// update the source code highlighting
update_codeview_position();
}
g_project.code_file_name = code_file_name_bak;
g_project.header_file_name = header_file_name_bak;
}
}
/**
This is called by the timer itself
*/
void update_codeview_timer(void*) {
update_codeview_cb(0,0);
}
void codeview_defer_update() {
// we will only update earliest 0.5 seconds after the last change, and only
// if no other change was made, so dragging a widget will not generate any
// CPU load
Fl::remove_timeout(update_codeview_timer, 0);
Fl::add_timeout(0.5, update_codeview_timer, 0);
}
/**
Show or hide the source code preview.
The state is stored in the app preferences.
*/
void codeview_toggle_visibility() {
if (!codeview_panel) {
make_codeview();
codeview_panel->callback((Fl_Callback*)toggle_codeview_cb);
Fl_Preferences svp(fluid_prefs, "codeview");
int autorefresh;
svp.get("autorefresh", autorefresh, 1);
cv_autorefresh->value(autorefresh);
int autoposition;
svp.get("autoposition", autoposition, 1);
cv_autoposition->value(autoposition);
int tab;
svp.get("tab", tab, 0);
if (tab>=0 && tab<cv_tab->children()) cv_tab->value(cv_tab->child(tab));
svp.get("code_choice", cv_code_choice, 2);
cv_code_choice_w->value(cv_code_choice_w->find_item_with_argument(cv_code_choice));
if (!position_window(codeview_panel,"codeview_pos", 0, 320, 120, 550, 500)) return;
}
if (codeview_panel->visible()) {
codeview_panel->hide();
codeview_item->label("Show Code View");
} else {
codeview_panel->show();
codeview_item->label("Hide Code View");
update_codeview_cb(0,0);
}
}
Fl_Double_Window *codeview_panel=(Fl_Double_Window *)0;
Fl_Tabs *cv_tab=(Fl_Tabs *)0;
Fl_Group *cv_source_tab=(Fl_Group *)0;
CodeViewer *cv_source=(CodeViewer *)0;
CodeViewer *cv_header=(CodeViewer *)0;
TextViewer *cv_strings=(TextViewer *)0;
TextViewer *cv_project=(TextViewer *)0;
Fl_Group *cv_find_row=(Fl_Group *)0;
Fl_Button *cv_find_text_case=(Fl_Button *)0;
Fl_Input *cv_find_text=(Fl_Input *)0;
static void cb_cv_find_text(Fl_Input* o, void*) {
Fl_Text_Display *e = NULL;
if (cv_source->visible_r()) {
e = cv_source;
} else if (cv_header->visible_r()) {
e = cv_header;
} else if (cv_project->visible_r()) {
e = cv_project;
}
if (e) {
Fl_Text_Buffer *b = e->buffer();
int pos = e->insert_position();
int found = b->search_forward(pos, o->value(), &pos, cv_find_text_case->value());
if (found) {
b->select(pos, pos + (int)strlen(o->value()));
e->insert_position(pos);
e->show_insert_position();
}
}
}
static void cb_(Fl_Button*, void*) {
Fl_Text_Display *e = NULL;
if (cv_source->visible_r()) {
e = cv_source;
} else if (cv_header->visible_r()) {
e = cv_header;
} else if (cv_project->visible_r()) {
e = cv_project;
}
if (e) {
const char *needle = cv_find_text->value();
Fl_Text_Buffer *b = e->buffer();
int pos = e->insert_position()-1;
if (pos < 0) pos = b->length()-1;
int found = b->search_backward(pos, needle, &pos, cv_find_text_case->value());
if (!found)
found = b->search_backward(b->length()-1, needle, &pos, cv_find_text_case->value());
if (found) {
b->select(pos, pos + (int)strlen(needle));
e->insert_position(pos);
e->show_insert_position();
}
}
}
static void cb_1(Fl_Button*, void*) {
Fl_Text_Display *e = NULL;
if (cv_source->visible_r()) {
e = cv_source;
} else if (cv_header->visible_r()) {
e = cv_header;
} else if (cv_project->visible_r()) {
e = cv_project;
}
if (e) {
const char *needle = cv_find_text->value();
Fl_Text_Buffer *b = e->buffer();
int pos = e->insert_position() + 1;
if (pos+1 >= b->length()) pos = 0;
int found = b->search_forward(pos, needle, &pos, cv_find_text_case->value());
if (!found && (pos > 0))
found = b->search_forward(0, needle, &pos, cv_find_text_case->value());
if (found) {
b->select(pos, pos + (int)strlen(needle));
e->insert_position(pos);
e->show_insert_position();
}
}
}
static void cb_Reveal(Fl_Button*, void*) {
if (codeview_panel && codeview_panel->visible()) {
Fl_Type *node = NULL;
if (cv_source->visible_r())
node = Fl_Type::find_in_text(0, cv_source->insert_position());
else if (cv_header->visible_r())
node = Fl_Type::find_in_text(1, cv_header->insert_position());
else if (cv_project->visible_r())
node = Fl_Type::find_in_text(2, cv_project->insert_position());
if (node) {
select_only(node);
reveal_in_browser(node);
if (Fl::event_clicks()==1) // double click
node->open();
}
}
}
Fl_Group *cv_settings_row=(Fl_Group *)0;
Fl_Light_Button *cv_autorefresh=(Fl_Light_Button *)0;
Fl_Light_Button *cv_autoposition=(Fl_Light_Button *)0;
Fl_Choice *cv_code_choice_w=(Fl_Choice *)0;
static void cb_cv_code_choice_w(Fl_Choice* o, void*) {
cv_code_choice = (int)o->mvalue()->argument();
update_codeview_position();
}
Fl_Menu_Item menu_cv_code_choice_w[] = {
{"prolog", 0, 0, (void*)(0), 16, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
{"static", 0, 0, (void*)(1), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
{"code", 0, 0, (void*)(2), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
{"code 1", 0, 0, (void*)(3), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
{"code 2", 0, 0, (void*)(4), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
{0,0,0,0,0,0,0,0,0}
};
Fl_Double_Window* make_codeview() {
{ codeview_panel = new Fl_Double_Window(520, 515, "Code View");
codeview_panel->callback((Fl_Callback*)toggle_codeview_cb);
codeview_panel->align(Fl_Align(FL_ALIGN_CLIP|FL_ALIGN_INSIDE));
{ cv_tab = new Fl_Tabs(10, 10, 500, 440);
cv_tab->selection_color((Fl_Color)4);
cv_tab->labelcolor(FL_BACKGROUND2_COLOR);
cv_tab->callback((Fl_Callback*)update_codeview_position_cb);
{ cv_source_tab = new Fl_Group(10, 35, 500, 415, "Source");
cv_source_tab->labelsize(13);
{ CodeViewer* o = cv_source = new CodeViewer(10, 40, 500, 410);
cv_source->box(FL_DOWN_FRAME);
cv_source->color(FL_BACKGROUND2_COLOR);
cv_source->selection_color(FL_SELECTION_COLOR);
cv_source->labeltype(FL_NORMAL_LABEL);
cv_source->labelfont(0);
cv_source->labelsize(14);
cv_source->labelcolor(FL_FOREGROUND_COLOR);
cv_source->textfont(4);
cv_source->textsize(11);
cv_source->align(Fl_Align(FL_ALIGN_TOP));
cv_source->when(FL_WHEN_RELEASE);
Fl_Group::current()->resizable(cv_source);
o->linenumber_width(60);
o->linenumber_size(o->Fl_Text_Display::textsize());
} // CodeViewer* cv_source
cv_source_tab->end();
Fl_Group::current()->resizable(cv_source_tab);
} // Fl_Group* cv_source_tab
{ Fl_Group* o = new Fl_Group(10, 35, 500, 415, "Header");
o->labelsize(13);
o->hide();
{ CodeViewer* o = cv_header = new CodeViewer(10, 40, 500, 410);
cv_header->box(FL_DOWN_FRAME);
cv_header->color(FL_BACKGROUND2_COLOR);
cv_header->selection_color(FL_SELECTION_COLOR);
cv_header->labeltype(FL_NORMAL_LABEL);
cv_header->labelfont(0);
cv_header->labelsize(14);
cv_header->labelcolor(FL_FOREGROUND_COLOR);
cv_header->textfont(4);
cv_header->textsize(11);
cv_header->align(Fl_Align(FL_ALIGN_TOP));
cv_header->when(FL_WHEN_RELEASE);
Fl_Group::current()->resizable(cv_header);
o->linenumber_width(60);
o->linenumber_size(o->Fl_Text_Display::textsize());
} // CodeViewer* cv_header
o->end();
} // Fl_Group* o
{ Fl_Group* o = new Fl_Group(10, 35, 500, 415, "Strings");
o->labelsize(13);
o->hide();
{ TextViewer* o = cv_strings = new TextViewer(10, 40, 500, 410);
cv_strings->box(FL_DOWN_FRAME);
cv_strings->color(FL_BACKGROUND2_COLOR);
cv_strings->selection_color(FL_SELECTION_COLOR);
cv_strings->labeltype(FL_NORMAL_LABEL);
cv_strings->labelfont(0);
cv_strings->labelsize(14);
cv_strings->labelcolor(FL_FOREGROUND_COLOR);
cv_strings->textfont(4);
cv_strings->textsize(11);
cv_strings->align(Fl_Align(FL_ALIGN_TOP));
cv_strings->when(FL_WHEN_RELEASE);
Fl_Group::current()->resizable(cv_strings);
o->linenumber_width(60);
o->linenumber_size(o->Fl_Text_Display::textsize());
} // TextViewer* cv_strings
o->end();
} // Fl_Group* o
{ Fl_Group* o = new Fl_Group(10, 35, 500, 415, "Project");
o->labelsize(13);
o->hide();
{ TextViewer* o = cv_project = new TextViewer(10, 40, 500, 410);
cv_project->box(FL_DOWN_FRAME);
cv_project->color(FL_BACKGROUND2_COLOR);
cv_project->selection_color(FL_SELECTION_COLOR);
cv_project->labeltype(FL_NORMAL_LABEL);
cv_project->labelfont(0);
cv_project->labelsize(14);
cv_project->labelcolor(FL_FOREGROUND_COLOR);
cv_project->textfont(4);
cv_project->textsize(11);
cv_project->align(Fl_Align(FL_ALIGN_TOP));
cv_project->when(FL_WHEN_RELEASE);
Fl_Group::current()->resizable(cv_project);
o->linenumber_width(60);
o->linenumber_size(o->Fl_Text_Display::textsize());
} // TextViewer* cv_project
o->end();
} // Fl_Group* o
cv_tab->end();
Fl_Group::current()->resizable(cv_tab);
} // Fl_Tabs* cv_tab
{ cv_find_row = new Fl_Group(10, 460, 500, 20);
{ cv_find_text_case = new Fl_Button(244, 460, 25, 20, "aA");
cv_find_text_case->type(1);
cv_find_text_case->labelsize(11);
} // Fl_Button* cv_find_text_case
{ cv_find_text = new Fl_Input(40, 460, 200, 20, "Find:");
cv_find_text->labelsize(11);
cv_find_text->textsize(11);
cv_find_text->callback((Fl_Callback*)cb_cv_find_text);
cv_find_text->when(FL_WHEN_RELEASE | FL_WHEN_ENTER_KEY_CHANGED);
} // Fl_Input* cv_find_text
{ Fl_Button* o = new Fl_Button(273, 460, 25, 20, "<<");
o->labelsize(11);
o->callback((Fl_Callback*)cb_);
} // Fl_Button* o
{ Fl_Button* o = new Fl_Button(298, 460, 25, 20, ">>");
o->labelsize(11);
o->callback((Fl_Callback*)cb_1);
} // Fl_Button* o
{ Fl_Button* o = new Fl_Button(327, 460, 61, 20, "Reveal");
o->labelsize(11);
o->callback((Fl_Callback*)cb_Reveal);
} // Fl_Button* o
{ Fl_Box* o = new Fl_Box(490, 460, 20, 20);
Fl_Group::current()->resizable(o);
} // Fl_Box* o
cv_find_row->end();
} // Fl_Group* cv_find_row
{ cv_settings_row = new Fl_Group(10, 485, 500, 20);
{ Fl_Button* o = new Fl_Button(10, 485, 61, 20, "Refresh");
o->labelsize(11);
o->callback((Fl_Callback*)update_codeview_cb);
} // Fl_Button* o
{ Fl_Light_Button* o = cv_autorefresh = new Fl_Light_Button(77, 485, 91, 20, "Auto-Refresh");
cv_autorefresh->labelsize(11);
o->callback((Fl_Callback*)update_codeview_cb);
} // Fl_Light_Button* cv_autorefresh
{ cv_autoposition = new Fl_Light_Button(172, 485, 89, 20, "Auto-Position");
cv_autoposition->labelsize(11);
} // Fl_Light_Button* cv_autoposition
{ cv_code_choice_w = new Fl_Choice(265, 485, 70, 20);
cv_code_choice_w->down_box(FL_BORDER_BOX);
cv_code_choice_w->labelsize(11);
cv_code_choice_w->textsize(11);
cv_code_choice_w->callback((Fl_Callback*)cb_cv_code_choice_w);
cv_code_choice_w->menu(menu_cv_code_choice_w);
} // Fl_Choice* cv_code_choice_w
{ Fl_Box* o = new Fl_Box(375, 485, 80, 20);
Fl_Group::current()->resizable(o);
} // Fl_Box* o
{ Fl_Button* o = new Fl_Button(460, 485, 50, 20, "Close");
o->labelsize(11);
o->callback((Fl_Callback*)toggle_codeview_b_cb);
} // Fl_Button* o
cv_settings_row->end();
} // Fl_Group* cv_settings_row
codeview_panel->size_range(384, 120);
codeview_panel->end();
} // Fl_Double_Window* codeview_panel
return codeview_panel;
}
//