single.fl

基于fltk的一个文本编辑器源代码

# data file for the FLTK User Interface Designer (FLUID)
version 2.0001 
images_dir ./ 
header_name {.h} 
code_name {.cxx} 
gridx 1 
gridy 1 
snap 1
decl {\#include <fltk/Fl_FancyEditor.h>} {public
} 

decl {\#include <fltk/fl_file_chooser.h>} {public
} 

decl {char *filename;} {public
} 

decl {char fname[512];} {public
} 

Function {} {open
} {
  Fl_Window myWindow {
    label {Test Window} open
    xywh {758 718 306 240} resizable visible
  } {
    Fl_Box myEditor {
      xywh {3 23 299 212} resizable box DOWN_BOX color 7
      code0 {o->textfont(FL_HELVETICA);}
      code1 {o->textsize(16);}
      class Fl_FancyEditor
    }
    Fl_Menu_Bar {} {open
      private xywh {-2 -1 310 21} box THIN_UP_BOX
    } {
      Fl_Item_Group File {
        label {&File} open
        } {
        Fl_Item {} {
          label {&New}
          callback {myEditor->Clear();
filename = NULL;}
          }
        Fl_Item {} {
          label {&Open}
          callback {char *fn;
fn = fl_file_chooser("Open File", NULL, NULL);
if(fn)
   {
       FILE *file = fopen(fn, "r");
       if(file)
          {
               myEditor->Clear();
               strcpy(fname, fn);
               filename = fname;
               myEditor->LoadFrom(file);
               fclose(file);
          }
      else
          filename = NULL;
   }}
          }
        Fl_Item {} {
          label {&Insert File}
          callback {char *fn;
fn = fl_file_chooser("Open File", NULL, NULL);
if(fn)
   {
       FILE *file = fopen(fn, "r");
       if(file)
          {
               strcpy(fname, fn);
               filename = fname;
               myEditor->LoadFrom(file);
               fclose(file);
          }
      else
          filename = NULL;
   }}
          }
        Fl_Divider {} {
          }
        Fl_Item {} {
          label {&Save}
          callback {if (!filename)
   filename = fl_file_chooser("Save As", NULL, NULL);
if(filename)
    {
        FILE *file = fopen(filename, "w");
        if(file)
            {
                strcpy(fname, filename);
                filename = fname;
                myEditor->SaveTo(file);
                fclose(file);
            }
       else
           filename = NULL;
    }}
          }
        Fl_Item {} {
          label {Save &As}
          callback {filename = fl_file_chooser("Save As", NULL, NULL);
if(filename)
    {
        FILE *file = fopen(filename, "w");
        if(file)
            {
                strcpy(fname, filename);
                filename = fname;
                myEditor->SaveTo(file);
                fclose(file);
            }
    }}
          }
        Fl_Item {} {
          label {&Close}
          callback {myEditor->Clear();
filename = NULL;}
          }
        Fl_Divider {} {
          }
        Fl_Item {} {
          label {E&xit}
          callback {myWindow->hide();}
          }
      }
      Fl_Item_Group {} {
        label {&Edit} open
        } {
        Fl_Item {} {
          label Cut
          callback {myEditor->Cut();}
          }
        Fl_Item {} {
          label {&Copy}
          callback {myEditor->Copy();}
          }
        Fl_Item {} {
          label {&Paste}
          callback {myEditor->Paste();}
          }
        Fl_Item {} {
          label {Top of File}
          callback {myEditor->Engine()->MoveTo(0,0);
myEditor->SyncDisplay();}
          }
        Fl_Item {} {
          label {Read Only}
          callback {myEditor->readonly(!myEditor->readonly());}
          type Toggle
        }
        Fl_Item {} {
          label {Browse Mode}
          callback {myEditor->browse(!myEditor->browse());}
          type Toggle
        }
        Fl_Item {} {
          label {Status &Panel}
          callback {myEditor->ShowPanel(!myEditor->ShowPanel());} selected
          type Toggle
          code0 {o->set_value();}
        }
      }
      Fl_Item_Group {} {
        label {&Search} open
        } {
        Fl_Item {} {
          label {&Find}
          callback {myEditor->Find();}
          shortcut 0x40066
        }
        Fl_Item {} {
          label {Find &Again}
          callback {myEditor->FindNext();}
          shortcut 0xffc0
        }
        Fl_Item {} {
          label {&Replace}
          callback {myEditor->Replace();}
          }
      }
    }
  }
}