*** empty log message ***

1 files changed, 0 insertions, 64 deletions

diff --git a/src/bltGrMisc.C b/src/bltGrMisc.C
index 1ff37db..ea6c8bd 100644
--- a/src/bltGrMisc.C
+++ b/src/bltGrMisc.C
@@ -807,70 +807,6 @@ Blt_AdjustViewport(int offset, int worldSize, int windowSize, int scrollUnits,
     return offset;
 }
 
-int
-Blt_GetScrollInfoFromObj(Tcl_Interp *interp, int objc, Tcl_Obj *const *objv,
-			 int *offsetPtr, int worldSize, int windowSize, 
-			 int scrollUnits, int scrollMode)
-{
-    char c;
-    const char *string;
-    int length;
-    int offset;
-
-    offset = *offsetPtr;
-    string = Tcl_GetStringFromObj(objv[0], &length);
-    c = string[0];
-    if ((c == 's') && (strncmp(string, "scroll", length) == 0)) {
-	double fract;
-	int count;
-
-	if (objc != 3) {
-	    return TCL_ERROR;
-	}
-	/* Scroll number unit/page */
-	if (Tcl_GetIntFromObj(interp, objv[1], &count) != TCL_OK) {
-	    return TCL_ERROR;
-	}
-	string = Tcl_GetStringFromObj(objv[2], &length);
-	c = string[0];
-	if ((c == 'u') && (strncmp(string, "units", length) == 0)) {
-	    fract = (double)count *scrollUnits;
-	} else if ((c == 'p') && (strncmp(string, "pages", length) == 0)) {
-	    /* A page is 90% of the view-able window. */
-	    fract = (double)count * windowSize * 0.9;
-	} else {
-	    Tcl_AppendResult(interp, "unknown \"scroll\" units \"", 
-		     Tcl_GetString(objv[2]), "\"", (char *)NULL);
-	    return TCL_ERROR;
-	}
-	offset += (int)fract;
-    } else if ((c == 'm') && (strncmp(string, "moveto", length) == 0)) {
-	double fract;
-
-	if (objc != 2) {
-	    return TCL_ERROR;
-	}
-	/* moveto fraction */
-	if (Tcl_GetDoubleFromObj(interp, objv[1], &fract) != TCL_OK) {
-	    return TCL_ERROR;
-	}
-	offset = (int)(worldSize * fract);
-    } else {
-	double fract;
-	int count;
-
-	/* Treat like "scroll units" */
-	if (Tcl_GetIntFromObj(interp, objv[0], &count) != TCL_OK) {
-	    return TCL_ERROR;
-	}
-	fract = (double)count *scrollUnits;
-	offset += (int)fract;
-    }
-    *offsetPtr = Blt_AdjustViewport(offset, worldSize, windowSize, scrollUnits,
-	scrollMode);
-    return TCL_OK;
-}
-
 /*
  *---------------------------------------------------------------------------
  *