diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkCmds.c | 8 | ||||
| -rw-r--r-- | generic/tkInt.h | 2 |
2 files changed, 6 insertions, 4 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index 6196b17..1b871eb 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -1477,12 +1477,12 @@ Tk_WinfoObjCmd( Tcl_NewIntObj(DefaultDepthOfScreen(Tk_Screen(tkwin)))); break; case WIN_SCREENHEIGHT: - Tcl_SetObjResult(interp, - Tcl_NewIntObj(HeightOfScreen(Tk_Screen(tkwin)))); + Tcl_SetObjResult(interp, + Tcl_NewIntObj(TkpHeightOfScreen(tkwin))); break; case WIN_SCREENWIDTH: - Tcl_SetObjResult(interp, - Tcl_NewIntObj(WidthOfScreen(Tk_Screen(tkwin)))); + Tcl_SetObjResult(interp, + Tcl_NewIntObj(TkpWidthOfScreen(tkwin))); break; case WIN_SCREENMMHEIGHT: Tcl_SetObjResult(interp, diff --git a/generic/tkInt.h b/generic/tkInt.h index b644c5b..b330601 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -1217,6 +1217,8 @@ MODULE_SCOPE int TkInitTkCmd(Tcl_Interp *interp, MODULE_SCOPE int TkInitFontchooser(Tcl_Interp *interp, ClientData clientData); MODULE_SCOPE void TkpWarpPointer(TkDisplay *dispPtr); +MODULE_SCOPE int TkpHeightOfScreen(Tk_Window tkwin); +MODULE_SCOPE int TkpWidthOfScreen(Tk_Window tkwin); #ifdef _WIN32 #define TkParseColor XParseColor |