Posted to tcl by kevin_walzer at Fri Oct 13 17:34:49 GMT 2017view raw
- wm iconphoto . -default basket
- if (strcmp(Tcl_GetString(objv[3]), "-default") == 0) {
- isDefault = 1;
- }
- i = 3 + isDefault + 1;
- char *icon = Tcl_GetString(objv[i]);
- fprintf("%s", icon);