Changeset 5222 for branches/uq/lang/tcl/src/Rappture_Init.c

Timestamp:

Apr 14, 2015 9:02:37 PM (9 years ago)

Author:

mmh

Message:

add ScreenSize? command and use it instead of broken tk screenwidth

File:

• branches/uq/lang/tcl/src/Rappture_Init.c (modified) (2 diffs)

branches/uq/lang/tcl/src/Rappture_Init.c

@@ -30 +30 @@
 extern Tcl_AppInitProc RpDaemon_Init;
 extern Tcl_AppInitProc RpCurses_Init;
-
+extern Tcl_AppInitProc RpScreenSize_Init;
 #ifdef notdef
 extern Tcl_AppInitProc RpLibrary_Init;
@@ -79 +79 @@
         return TCL_ERROR;
     }
+    if (RpScreenSize_Init(interp) != TCL_OK) {
+        return TCL_ERROR;
+    }
     if (RpSysinfo_Init(interp) != TCL_OK) {
         return TCL_ERROR;