// // "$Id$" // // Main demo program for the Fast Light Tool Kit (FLTK). // // Copyright 1998-2017 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: // // http://www.fltk.org/COPYING.php // // Please report all bugs and problems on the following page: // // http://www.fltk.org/str.php // #include #include #include // *FIXME* // Implement fl_putenv(). Then remove the following comment // and the #define's of fl_putenv below // Visual C++ 2005 incorrectly displays a warning about the use of // POSIX APIs on Windows, which is supposed to be POSIX compliant... #if defined(_MSC_VER) # define fl_putenv _putenv #else # define fl_putenv putenv #endif // _MSC_VER // *FIXME* To do: // Check whether '#include ' can be removed since chdir() // has been replaced with fl_chdir() (AlbrechtS, Nov 12, 2017) #if defined __APPLE__ #include #include // no longer necessary with fl_chdir() ? #endif #include #include #include #include #include #include #include /* Define a macro to decide if a trailing 'd' needs to be removed from the executable file name. Previous versions of Visual Studio added a 'd' to the executable file name ('demod.exe') in Debug configurations that needed to be removed. This is no longer true with CMake-generated IDE's since FLTK 1.4. The 'old' behavior obviously applied or still applies to CodeWarrior (__MWERKS__). *FIXME* is this still true and necessary? */ // #if ( defined _MSC_VER || defined __MWERKS__ ) && defined _DEBUG #if defined(WIN32) && defined(__MWERKS__) && defined(_DEBUG) # define DEBUG_EXE_WITH_D 1 #else # define DEBUG_EXE_WITH_D 0 #endif /* The form description */ void doexit(Fl_Widget *, void *); void doback(Fl_Widget *, void *); void dobut(Fl_Widget *, long); void doscheme(Fl_Choice *c, void *) { Fl::scheme(c->text(c->value())); } Fl_Double_Window *form; Fl_Button *but[9]; void create_the_forms() { Fl_Widget *obj; form = new Fl_Double_Window(350, 440); obj = new Fl_Box(FL_FRAME_BOX,10,15,330,40,"FLTK Demonstration"); obj->color(FL_GRAY-4); obj->labelsize(24); obj->labelfont(FL_BOLD); obj->labeltype(FL_ENGRAVED_LABEL); obj = new Fl_Box(FL_FRAME_BOX,10,65,330,330,0); obj->color(FL_GRAY-8); obj = new Fl_Button(280,405,60,25,"Exit"); obj->callback(doexit); Fl_Choice *choice = new Fl_Choice(75, 405, 100, 25, "Scheme:"); choice->labelfont(FL_HELVETICA_BOLD); choice->add("none"); choice->add("gtk+"); choice->add("gleam"); choice->add("plastic"); choice->callback((Fl_Callback *)doscheme); Fl::scheme(NULL); if (!Fl::scheme()) choice->value(0); else if (!strcmp(Fl::scheme(), "gtk+")) choice->value(1); else if (!strcmp(Fl::scheme(), "gleam")) choice->value(2); else if (!strcmp(Fl::scheme(), "plastic")) choice->value(3); else choice->value(0); obj = new Fl_Button(10,15,330,380); obj->type(FL_HIDDEN_BUTTON); obj->callback(doback); obj = but[0] = new Fl_Button( 30, 85,90,90); obj = but[1] = new Fl_Button(130, 85,90,90); obj = but[2] = new Fl_Button(230, 85,90,90); obj = but[3] = new Fl_Button( 30,185,90,90); obj = but[4] = new Fl_Button(130,185,90,90); obj = but[5] = new Fl_Button(230,185,90,90); obj = but[6] = new Fl_Button( 30,285,90,90); obj = but[7] = new Fl_Button(130,285,90,90); obj = but[8] = new Fl_Button(230,285,90,90); for (int i=0; i<9; i++) { but[i]->align(FL_ALIGN_WRAP); but[i]->callback(dobut, i); } form->end(); } /* Maintaining and building up the menus. */ typedef struct { char name[64]; int numb; char iname[9][64]; char icommand[9][64]; } MENU; #define MAXMENU 32 MENU menus[MAXMENU]; int mennumb = 0; /* Return the number of a given menu name. */ int find_menu(const char* nnn) { int i; for (i=0; ihide(); for (i=0; ishow(); but[bn]->label(menus[men].iname[i]); if (menus[men].icommand[i][0] != '@') but[bn]->tooltip(menus[men].icommand[i]); else but[bn]->tooltip(0); } if (stack[stsize]!=nnn) strcpy(stack[stsize],nnn); stsize++; } /* Pop a menu */ void pop_menu() { if (stsize<=1) return; stsize -= 2; push_menu(stack[stsize]); } /* The callback Routines */ /* Handle a button push */ void dobut(Fl_Widget *, long arg) { int men = find_menu(stack[stsize-1]); int n = menus[men].numb; int bn = but2numb( (int) arg, n-1); if (menus[men].icommand[bn][0] == '@') { push_menu(menus[men].icommand[bn]); } else { #ifdef WIN32 STARTUPINFO suInfo; // Process startup information PROCESS_INFORMATION prInfo; // Process information # if DEBUG_EXE_WITH_D const char *exe = "d.exe"; // exe name with trailing 'd' # else const char *exe = ".exe"; // exe name w/o trailing 'd' # endif memset(&suInfo, 0, sizeof(suInfo)); suInfo.cb = sizeof(suInfo); int icommand_length = strlen(menus[men].icommand[bn]); char* copy_of_icommand = new char[icommand_length+1]; strcpy(copy_of_icommand,menus[men].icommand[bn]); // On WIN32 the .exe suffix needs to be appended to the command // whilst leaving any additional parameters unchanged - this // is required to handle the correct conversion of cases such as : // `../fluid/fluid valuators.fl' to '../fluid/fluid.exe valuators.fl'. // skip leading spaces. char* start_command = copy_of_icommand; while (*start_command == ' ') ++start_command; // find the space between the command and parameters if one exists. char* start_parameters = strchr(start_command,' '); char* command = new char[icommand_length+6]; // 6 for extra 'd.exe\0' if (start_parameters==NULL) { // no parameters required. sprintf(command, "%s%s", start_command, exe); } else { // parameters required. // break the start_command at the intermediate space between // start_command and start_parameters. *start_parameters = 0; // move start_paremeters to skip over the intermediate space. ++start_parameters; sprintf(command, "%s%s %s", start_command, exe, start_parameters); } CreateProcess(NULL, command, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &suInfo, &prInfo); delete[] command; delete[] copy_of_icommand; #elif defined __APPLE__ char *cmd = strdup(menus[men].icommand[bn]); char *arg = strchr(cmd, ' '); char command[2048], path[2048], app_path[2048]; // this neat little block of code ensures that the current directory // is set to the location of the Demo application. CFBundleRef app = CFBundleGetMainBundle(); CFURLRef url = CFBundleCopyBundleURL(app); CFStringRef cc_app_path = CFURLCopyFileSystemPath(url, kCFURLPOSIXPathStyle); CFRelease(url); CFStringGetCString(cc_app_path, app_path, 2048, kCFStringEncodingUTF8); CFRelease(cc_app_path); if (*app_path) { if (memcmp(app_path + strlen(app_path) - 4, ".app", 4) == 0) { char *n = strrchr(app_path, '/'); if (n) *n = 0; } fl_chdir(app_path); } char *name = new char[strlen(cmd) + 5]; strcpy(name, cmd); if (arg) name[arg-cmd] = 0; strcat(name, ".app"); // check whether app bundle exists if ( ! fl_filename_isdir(name) ) strcpy(name, cmd); if (arg) { const char *fluidpath; *arg = 0; #if defined USING_XCODE fl_filename_absolute(path, 2048, "../../../../test/"); fluidpath = "Fluid.app"; #else strcpy(path, app_path); strcat(path, "/"); fluidpath = "../fluid/fluid.app"; // check whether fluid bundle exists if ( ! fl_filename_isdir(fluidpath) ) fluidpath = "../fluid"; #endif if (strcmp(cmd, "../fluid/fluid")==0) { sprintf(command, "open %s --args %s%s", fluidpath, path, arg+1); } else { sprintf(command, "open %s --args %s%s", name, path, arg+1); } } else { sprintf(command, "open %s", name); } delete[] name; // puts(command); system(command); free(cmd); #else // NON WIN32 systems. int icommand_length = strlen(menus[men].icommand[bn]); char* command = new char[icommand_length+5]; // 5 for extra './' and ' &\0' sprintf(command, "./%s &", menus[men].icommand[bn]); if (system(command)==-1) { /* ignore */ } delete[] command; #endif // WIN32 } } void doback(Fl_Widget *, void *) {pop_menu();} void doexit(Fl_Widget *, void *) {exit(0);} /* Load the menu file. Returns whether successful. */ int load_the_menu(char* fname) { FILE *fin = 0; char line[256], mname[64],iname[64],cname[64]; int i, j; fin = fl_fopen(fname,"r"); #if defined ( __APPLE__ ) if (fin == NULL) { // mac os bundle menu detection: char* pos = strrchr(fname,'/'); if (!pos) return 0; *pos = '\0'; pos = strrchr(fname,'/'); if (!pos) return 0; strcpy(pos,"/Resources/demo.menu"); fin = fl_fopen(fname,"r"); } #endif if (fin == NULL) { return 0; } for (;;) { if (fgets(line,256,fin) == NULL) break; // remove all carriage returns that Cygwin may have inserted char *s = line, *d = line; for (;;++d) { while (*s=='\r') s++; *d = *s++; if (!*d) break; } // interpret the line j = 0; i = 0; while (line[i] == ' ' || line[i] == '\t') i++; if (line[i] == '\n') continue; if (line[i] == '#') continue; while (line[i] != ':' && line[i] != '\n') mname[j++] = line[i++]; mname[j] = '\0'; if (line[i] == ':') i++; j = 0; while (line[i] != ':' && line[i] != '\n') { if (line[i] == '\\') { i++; if (line[i] == 'n') iname[j++] = '\n'; else iname[j++] = line[i]; i++; } else iname[j++] = line[i++]; } iname[j] = '\0'; if (line[i] == ':') i++; j = 0; while (line[i] != ':' && line[i] != '\n') cname[j++] = line[i++]; cname[j] = '\0'; addto_menu(mname,iname,cname); } fclose(fin); return 1; } int main(int argc, char **argv) { fl_putenv((char *)"FLTK_DOCDIR=../documentation/html"); char buf[FL_PATH_MAX]; strcpy(buf, argv[0]); #if DEBUG_EXE_WITH_D // MS_VisualC appends a 'd' to debugging executables. Remove it. fl_filename_setext( buf, "" ); buf[ strlen(buf)-1 ] = 0; #endif fl_filename_setext(buf,".menu"); char *fname = buf; int i = 0; if (!Fl::args(argc,argv,i) || i < argc-1) Fl::fatal("Usage: %s \n%s",argv[0],Fl::help); if (i < argc) fname = argv[i]; create_the_forms(); if (!load_the_menu(fname)) Fl::fatal("Can't open %s",fname); if (buf != fname) strcpy(buf,fname); const char *c = fl_filename_name(buf); if (c > buf) { buf[c-buf] = 0; if (fl_chdir(buf) == -1) { /* ignore */ } } push_menu("@main"); form->show(argc,argv); Fl::run(); return 0; } // // End of "$Id$". //