Posted to tcl by kevin_walzer at Fri Oct 13 17:34:49 GMT 2017view pretty

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);