Changeset 4591

Show
Ignore:
Timestamp:
02/04/10 12:59:23 (4 years ago)
Author:
douglask
Message:

Some changes to work with Tcl/Tk 8.0 again

Location:
vic/branches/mpeg4
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • vic/branches/mpeg4/Tcl.cpp

    r4572 r4591  
    108108                int n = strlen(application_) + strlen(s); 
    109109                char* wrk = new char[n + 80]; 
     110#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 5) 
     111                sprintf(wrk, "tkerror \"%s: %s\"", application_, s); 
     112#else 
    110113                sprintf(wrk, "bgerror \"%s: %s\"", application_, s); 
     114#endif 
    111115                Tcl_GlobalEval(tcl_, wrk); 
    112116                delete[] wrk; //SV-XXX: Debian 
  • vic/branches/mpeg4/main.cpp

    r4572 r4591  
    517517                        usage(NULL); 
    518518        } 
    519  
     519#ifdef USE_ZVFS 
    520520        Tcl_FindExecutable(argv[0]); 
     521#endif 
    521522        Tcl::init("vic"); 
    522523        Tcl& tcl = Tcl::instance();