Posted to tcl by kevin_walzer at Mon Sep 23 02:11:34 GMT 2024view pretty

  /* Retrieve current accessibility state for window. */
    if (objc == 2) {
      hPtr = Tcl_FindHashEntry(&WindowAccessibleState, Tk_PathName(win));
      widgetstate = Tcl_GetHashValue(hPtr);
      Tcl_SetObjResult(ip, widgetstate);
      Tcl_GetStringResult(ip);
      return TCL_OK;