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

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