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

  1. wm iconphoto . -default basket
  2.  
  3. if (strcmp(Tcl_GetString(objv[3]), "-default") == 0) {
  4. isDefault = 1;
  5. }
  6. i = 3 + isDefault + 1;
  7. char *icon = Tcl_GetString(objv[i]);
  8. fprintf("%s", icon);
  9.