Select Code to Download

    if (formatPtr == NULL) {
        if ((formatObj != NULL) && !matched) {
...
        }
        return TCL_ERROR;
    }

use strict;
...
$mw->update;
MainLoop;