From 1c94ebd5a49fb2f0afa6adb85e36248756294731 Mon Sep 17 00:00:00 2001
From: ericm <ericm>
Date: Tue, 25 Apr 2000 17:25:27 +0000
Subject: * generic/tkMain.c: Fixed function header comment for Tk_MainEx.

* unix/mkLinks:
* doc/GetScroll.3: Added information about Tk_GetScrollInfoObj
[Bug: 1866].
---
 ChangeLog        |  8 ++++++++
 doc/GetScroll.3  | 23 ++++++++++++++++++-----
 generic/tkMain.c |  4 ++--
 unix/mkLinks     |  4 ++++
 4 files changed, 32 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f357ee2..b3f1e61 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2000-04-25  Eric Melski  <ericm@scriptics.com>
+
+	* generic/tkMain.c: Fixed function header comment for Tk_MainEx.
+
+	* unix/mkLinks: 
+	* doc/GetScroll.3: Added information about Tk_GetScrollInfoObj
+	[Bug: 1866].
+
 2000-04-24  Eric Melski  <ericm@scriptics.com>
 
 	* unix/mkLinks: 
diff --git a/doc/GetScroll.3 b/doc/GetScroll.3
index a07e0d0..6e7acc8 100644
--- a/doc/GetScroll.3
+++ b/doc/GetScroll.3
@@ -5,19 +5,22 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: GetScroll.3,v 1.2 1998/09/14 18:22:51 stanton Exp $
+'\" RCS: @(#) $Id: GetScroll.3,v 1.3 2000/04/25 17:25:27 ericm Exp $
 '\" 
 .so man.macros
-.TH Tk_GetScrollInfo 3 4.0 Tk "Tk Library Procedures"
+.TH Tk_GetScrollInfo 3 8.0 Tk "Tk Library Procedures"
 .BS
 .SH NAME
-Tk_GetScrollInfo \- parse arguments for scrolling commands
+Tk_GetScrollInfo, Tk_GetScrollInfoObj \- parse arguments for scrolling commands
 .SH SYNOPSIS
 .nf
 \fB#include <tk.h>\fR
 .sp
 int
 \fBTk_GetScrollInfo(\fIinterp, argc, argv, dblPtr, intPtr\fB)\fR
+.sp
+int
+\fBTk_GetScrollInfoObj(\fIinterp, objc, objv, dblPtr, intPtr\fB)\fR
 .SH ARGUMENTS
 .AS "Tcl_Interp" *dblPtr
 .AP Tcl_Interp *interp in
@@ -27,8 +30,13 @@ Number of strings in \fIargv\fR array.
 .AP char *argv[] in
 Argument strings.  These represent the entire widget command, of
 which the first word is typically the widget name and the second
-word is typically \fBxview\fR or \fByview\fR.  This procedure parses
-arguments starting with \fIargv\fR[2].
+word is typically \fBxview\fR or \fByview\fR.
+.AP int objc in
+Number of Tcl_Obj's in \fIobjv\fR array.
+.AP Tcl_Obj *CONST objv[] in
+Argument objects.  These represent the entire widget command, of
+which the first word is typically the widget name and the second
+word is typically \fBxview\fR or \fByview\fR.
 .AP double *dblPtr out
 Filled in with fraction from \fBmoveto\fR option, if any.
 .AP int *intPtr out
@@ -60,6 +68,11 @@ or \fBTK_SCROLL_PAGES\fR is returned and \fI*intPtr\fR is filled
 in with the \fInumber\fR value, which must be a proper integer.
 If an error occurs in parsing the arguments, \fBTK_SCROLL_ERROR\fR
 is returned and an error message is left in \fIinterp->result\fR.
+.PP
+\fBTk_GetScrollInfoObj\fR is identical in function to
+\fBTk_GetScrollInfo\fR.  However, \fBTk_GetScrollInfoObj\fR accepts
+Tcl_Obj style arguments, making it more appropriate for use with new
+development.
 
 .SH KEYWORDS
 parse, scrollbar, scrolling command, xview, yview
diff --git a/generic/tkMain.c b/generic/tkMain.c
index 120ade3..6145d20 100644
--- a/generic/tkMain.c
+++ b/generic/tkMain.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMain.c,v 1.7 1999/12/08 00:11:54 redman Exp $
+ * RCS: @(#) $Id: tkMain.c,v 1.8 2000/04/25 17:25:27 ericm Exp $
  */
 
 #include <ctype.h>
@@ -72,7 +72,7 @@ static void		StdinProc _ANSI_ARGS_((ClientData clientData,
 /*
  *----------------------------------------------------------------------
  *
- * TkMainEx --
+ * Tk_MainEx --
  *
  *	Main program for Wish and most other Tk-based applications.
  *
diff --git a/unix/mkLinks b/unix/mkLinks
index 203b872..2bff198 100644
--- a/unix/mkLinks
+++ b/unix/mkLinks
@@ -587,6 +587,10 @@ if test -r GetScroll.3; then
     rm -f Tk_GetScrollInfo.3
     ln GetScroll.3 Tk_GetScrollInfo.3
 fi
+if test -r GetScroll.3; then
+    rm -f Tk_GetScrollInfoObj.3
+    ln GetScroll.3 Tk_GetScrollInfoObj.3
+fi
 if test -r GetSelect.3; then
     rm -f Tk_GetSelection.3
     ln GetSelect.3 Tk_GetSelection.3
-- 
cgit v0.12