Attachment #335694 for bug #451614

View | Details | Raw Unified | Return to bug 451614
Collapse All | Expand All




/*
 * If Tk_Init() hasn't been called, then there won't be a main window
 * yet. In such cases, Tk_MainWindow() places a suitable error message
 * in Tcl_GetStringResult(interp).
 */
  if(!main_w)
    return TCL_ERROR;

    tkpg->border = bd;
    tkpg_draw_3d_border(tkpg);
  } else {
    fprintf(stderr, "Tk_Get3DBorder failed: %s\n", Tcl_GetStringResult(tkpg->interp));
  };
}


 *  argv            char ** The array of 'argc' configuration arguments.
 * Output:
 *  return           int    TCL_ERROR and the context of the error
 *                          is recorded in Tcl_GetStringResult(result).
 */
static int tkpg_scrollbar_error(TkPgplot *tkpg, Tcl_Interp *interp, 
			       char *widget, char *view, int argc,

 * Output:
 *  return   Tk_Window    The top-level window of the path, or NULL if
 *                        it doesn't exist. In the latter case an error
 *                        message will have been appended to Tcl_GetStringResult(interp).
 */
static Tk_Window tkpg_toplevel_of_path(Tcl_Interp *interp, Tk_Window main_w,
				       char *path)

  free(first);
/*
 * If the window doesn't exist, Tk_NameToWindow() is documented to place
 * an error message in Tcl_GetStringResult(interp), so just return the error condition.
 */
  if(!w)
    return NULL;

Return to bug 451614

Lines 417-423 Link Here

(-)drivers/xtk/tkpgplot.c.ORIG (-5 / +5 lines)
417	/*	417	/*
418	* If Tk_Init() hasn't been called, then there won't be a main window	418	* If Tk_Init() hasn't been called, then there won't be a main window
419	* yet. In such cases, Tk_MainWindow() places a suitable error message	419	* yet. In such cases, Tk_MainWindow() places a suitable error message
420	* in interp->result.	420	* in Tcl_GetStringResult(interp).
421	*/	421	*/
422	if(!main_w)	422	if(!main_w)
423	return TCL_ERROR;	423	return TCL_ERROR;
Lines 2136-2142 Link Here
2136	tkpg->border = bd;	2136	tkpg->border = bd;
2137	tkpg_draw_3d_border(tkpg);	2137	tkpg_draw_3d_border(tkpg);
2138	} else {	2138	} else {
2139	fprintf(stderr, "Tk_Get3DBorder failed: %s\n", tkpg->interp->result);	2139	fprintf(stderr, "Tk_Get3DBorder failed: %s\n", Tcl_GetStringResult(tkpg->interp));
2140	};	2140	};
2141	}	2141	}
2142		2142
Lines 2261-2267 Link Here
2261	* argv char ** The array of 'argc' configuration arguments.	2261	* argv char ** The array of 'argc' configuration arguments.
2262	* Output:	2262	* Output:
2263	* return int TCL_ERROR and the context of the error	2263	* return int TCL_ERROR and the context of the error
2264	* is recorded in interp->result.	2264	* is recorded in Tcl_GetStringResult(result).
2265	*/	2265	*/
2266	static int tkpg_scrollbar_error(TkPgplot tkpg, Tcl_Interp interp,	2266	static int tkpg_scrollbar_error(TkPgplot tkpg, Tcl_Interp interp,
2267	char widget, char view, int argc,	2267	char widget, char view, int argc,
Lines 2586-2592 Link Here
2586	* Output:	2586	* Output:
2587	* return Tk_Window The top-level window of the path, or NULL if	2587	* return Tk_Window The top-level window of the path, or NULL if
2588	* it doesn't exist. In the latter case an error	2588	* it doesn't exist. In the latter case an error
2589	* message will have been appended to interp->result.	2589	* message will have been appended to Tcl_GetStringResult(interp).
2590	*/	2590	*/
2591	static Tk_Window tkpg_toplevel_of_path(Tcl_Interp *interp, Tk_Window main_w,	2591	static Tk_Window tkpg_toplevel_of_path(Tcl_Interp *interp, Tk_Window main_w,
2592	char *path)	2592	char *path)
Lines 2630-2636 Link Here
2630	free(first);	2630	free(first);
2631	/*	2631	/*
2632	* If the window doesn't exist, Tk_NameToWindow() is documented to place	2632	* If the window doesn't exist, Tk_NameToWindow() is documented to place
2633	* an error message in interp->result, so just return the error condition.	2633	* an error message in Tcl_GetStringResult(interp), so just return the error condition.
2634	*/	2634	*/
2635	if(!w)	2635	if(!w)
2636	return NULL;	2636	return NULL;