tcl-extensions

Check-in [419ca30322]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fix name of init function
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | winlock
Files: files | file ages | folders
SHA1:419ca30322282659e85c533bb4eb7e603f8f96a1
User & Date: aspect 2015-12-15 02:34:27
Context
2015-12-15
02:34
fix name of init function Leaf check-in: 419ca30322 user: aspect tags: winlock
01:53
fix silly errors: now compiles check-in: feb760fc97 user: aspect tags: winlock
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to win/tclwinlock.c.

129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
            Tcl_DStringFree(&ds);
        }
        return TCL_ERROR;
    }
}

int
WinLock_Init(Tcl_Interp* interp) {
    if(Tcl_InitStubs(interp, "8.4", 0) == NULL) {
        return TCL_ERROR;
    }
    if(Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION) != TCL_OK) {
        return TCL_ERROR;
    }
    Tcl_CreateObjCommand(interp, "winlock", 
                (Tcl_ObjCmdProc *) Tcl_WinLockObjCmd,
                (ClientData) NULL,
                (Tcl_CmdDeleteProc *) NULL);
    return TCL_OK;
}







|












129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
            Tcl_DStringFree(&ds);
        }
        return TCL_ERROR;
    }
}

int
Winlock_Init(Tcl_Interp* interp) {
    if(Tcl_InitStubs(interp, "8.4", 0) == NULL) {
        return TCL_ERROR;
    }
    if(Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION) != TCL_OK) {
        return TCL_ERROR;
    }
    Tcl_CreateObjCommand(interp, "winlock", 
                (Tcl_ObjCmdProc *) Tcl_WinLockObjCmd,
                (ClientData) NULL,
                (Tcl_CmdDeleteProc *) NULL);
    return TCL_OK;
}