Rebase to trunk

Author: jan.nijtmans

README

@@ -1,6 +1,6 @@
 README: Itcl
 
-This is the 4.3.4 source distribution of Itcl, an object oriented
+This is the 4.4a0 source distribution of Itcl, an object oriented
 extension for Tcl. Itcl releases are available from Sourceforge at:
 
 https://sourceforge.net/projects/incrtcl/files/%5Bincr%20Tcl_Tk%5D-4-source/

configure

@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.72 for itcl 4.3.4.
+# Generated by GNU Autoconf 2.72 for itcl 4.4a0.
 #
 #
 # Copyright (C) 1992-1996, 1998-2017, 2020-2023 Free Software Foundation,
@@ -601,8 +601,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='itcl'
 PACKAGE_TARNAME='itcl'
-PACKAGE_VERSION='4.3.4'
-PACKAGE_STRING='itcl 4.3.4'
+PACKAGE_VERSION='4.4a0'
+PACKAGE_STRING='itcl 4.4a0'
 PACKAGE_BUGREPORT=''
 PACKAGE_URL=''
 
@@ -1336,7 +1336,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-'configure' configures itcl 4.3.4 to adapt to many kinds of systems.
+'configure' configures itcl 4.4a0 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1398,7 +1398,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of itcl 4.3.4:";;
+     short | recursive ) echo "Configuration of itcl 4.4a0:";;
    esac
   cat <<\_ACEOF
 
@@ -1500,7 +1500,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-itcl configure 4.3.4
+itcl configure 4.4a0
 generated by GNU Autoconf 2.72
 
 Copyright (C) 2023 Free Software Foundation, Inc.
@@ -1866,7 +1866,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by itcl $as_me 4.3.4, which was
+It was created by itcl $as_me 4.4a0, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   $ $0$ac_configure_args_raw
@@ -10082,7 +10082,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by itcl $as_me 4.3.4, which was
+This file was extended by itcl $as_me 4.4a0, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -10137,7 +10137,7 @@ ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config='$ac_cs_config_escaped'
 ac_cs_version="\\
-itcl config.status 4.3.4
+itcl config.status 4.4a0
 configured by $0, generated by GNU Autoconf 2.72,
   with options \\"\$ac_cs_config\\"
 

configure.ac

@@ -19,7 +19,7 @@ dnl	to configure the system for the local environment.
 # so that we create the export library with the dll.
 #-----------------------------------------------------------------------
 
-AC_INIT([itcl],[4.3.4])
+AC_INIT([itcl],[4.4a0])
 
 #--------------------------------------------------------------------
 # Call TEA_INIT as the first TEA_ macro to set up initial vars.

doc/RegisterC.3

@@ -87,8 +87,8 @@ for public variables.  Any body that starts with "\fB@\fR"
 is treated as the symbolic name for a C procedure.
 .PP
 Symbolic names are established by registering procedures via
-\fBItcl_RegisterObjC()\fR or \fBItcl_RegisterObjC2()\fR or
-\fBItcl_RegisterC()\fR.  This is usually done in the \fBTcl_AppInit()\fR
+\fBItcl_RegisterObjC2()\fR (or \fBItcl_RegisterObjC()\fR or
+\fBItcl_RegisterC()\fR).  This is usually done in the \fBTcl_AppInit()\fR
 procedure, which is automatically called when the interpreter starts up.
 In the following example, the procedure \fCMy_FooObjCmd()\fR is registered
 with the symbolic name "foo".  This procedure can be referenced in
@@ -102,7 +102,7 @@ Tcl_AppInit(interp)
         return TCL_ERROR;
     }
 
-    if (Itcl_RegisterObjC(interp, "foo", My_FooObjCmd) != TCL_OK) {
+    if (Itcl_RegisterObjC2(interp, "foo", My_FooObjCmd) != TCL_OK) {
         return TCL_ERROR;
     }
 }

doc/body.n

@@ -55,7 +55,7 @@ to represent each argument.  This is the usual behavior for
 a Tcl-style proc.
 .PP
 Symbolic names for C procedures are established by registering
-procedures via \fBItcl_RegisterObjC()\fR.  This is usually done
+procedures via \fBItcl_RegisterObjC2()\fR.  This is usually done
 in the \fBTcl_AppInit()\fR procedure, which is automatically called
 when the interpreter starts up.  In the following example,
 the procedure \fCMy_FooObjCmd()\fR is registered with the
@@ -70,7 +70,7 @@ Tcl_AppInit(interp)
         return TCL_ERROR;
     }
 
-    if (Itcl_RegisterObjC(interp, "foo", My_FooObjCmd) != TCL_OK) {
+    if (Itcl_RegisterObjC2(interp, "foo", My_FooObjCmd) != TCL_OK) {
         return TCL_ERROR;
     }
 }

doc/class.n

@@ -504,7 +504,7 @@ for public variables.  Any body that starts with "\fB@\fR"
 is treated as the symbolic name for a C procedure.
 .PP
 Symbolic names are established by registering procedures via
-\fBItcl_RegisterObjC()\fR.  This is usually done in the \fBTcl_AppInit()\fR
+\fBItcl_RegisterObjC2()\fR.  This is usually done in the \fBTcl_AppInit()\fR
 procedure, which is automatically called when the interpreter starts up.
 In the following example, the procedure \fCMy_FooObjCmd()\fR is registered
 with the symbolic name "foo".  This procedure can be referenced in
@@ -519,7 +519,7 @@ Tcl_AppInit(interp)
         return TCL_ERROR;
     }
 
-    if (Itcl_RegisterObjC(interp, "foo", My_FooObjCmd) != TCL_OK) {
+    if (Itcl_RegisterObjC2(interp, "foo", My_FooObjCmd) != TCL_OK) {
         return TCL_ERROR;
     }
 }

doc/configbody.n

@@ -46,7 +46,7 @@ as the symbolic name for a C procedure.  Otherwise, it is
 treated as a Tcl command script.
 .PP
 Symbolic names for C procedures are established by registering
-procedures via \fBItcl_RegisterObjC()\fR.  This is usually done
+procedures via \fBItcl_RegisterObjC2()\fR.  This is usually done
 in the \fBTcl_AppInit()\fR procedure, which is automatically called
 when the interpreter starts up.  In the following example,
 the procedure \fCMy_FooObjCmd()\fR is registered with the
@@ -61,7 +61,7 @@ Tcl_AppInit(interp)
         return TCL_ERROR;
     }
 
-    if (Itcl_RegisterObjC(interp, "foo", My_FooObjCmd) != TCL_OK) {
+    if (Itcl_RegisterObjC2(interp, "foo", My_FooObjCmd) != TCL_OK) {
         return TCL_ERROR;
     }
 }

doc/itclextendedclass.n

@@ -508,7 +508,7 @@ for public variables.  Any body that starts with "\fB@\fR"
 is treated as the symbolic name for a C procedure.
 .PP
 Symbolic names are established by registering procedures via
-\fBItcl_RegisterObjC()\fR.  This is usually done in the \fBTcl_AppInit()\fR
+\fBItcl_RegisterObjC2()\fR.  This is usually done in the \fBTcl_AppInit()\fR
 procedure, which is automatically called when the interpreter starts up.
 In the following example, the procedure \fCMy_FooObjCmd()\fR is registered
 with the symbolic name "foo".  This procedure can be referenced in
@@ -523,7 +523,7 @@ Tcl_AppInit(interp)
         return TCL_ERROR;
     }
 
-    if (Itcl_RegisterObjC(interp, "foo", My_FooObjCmd) != TCL_OK) {
+    if (Itcl_RegisterObjC2(interp, "foo", My_FooObjCmd) != TCL_OK) {
         return TCL_ERROR;
     }
 }

doc/itclwidget.n

@@ -510,7 +510,7 @@ for public variables.  Any body that starts with "\fB@\fR"
 is treated as the symbolic name for a C procedure.
 .PP
 Symbolic names are established by registering procedures via
-\fBItcl_RegisterObjC()\fR.  This is usually done in the \fBTcl_AppInit()\fR
+\fBItcl_RegisterObjC2()\fR.  This is usually done in the \fBTcl_AppInit()\fR
 procedure, which is automatically called when the interpreter starts up.
 In the following example, the procedure \fCMy_FooObjCmd()\fR is registered
 with the symbolic name "foo".  This procedure can be referenced in
@@ -525,7 +525,7 @@ Tcl_AppInit(interp)
         return TCL_ERROR;
     }
 
-    if (Itcl_RegisterObjC(interp, "foo", My_FooObjCmd) != TCL_OK) {
+    if (Itcl_RegisterObjC2(interp, "foo", My_FooObjCmd) != TCL_OK) {
         return TCL_ERROR;
     }
 }

generic/itcl.h

@@ -69,23 +69,13 @@
 extern "C" {
 #endif
 
-#ifndef TCL_ALPHA_RELEASE
-#   define TCL_ALPHA_RELEASE    0
-#endif
-#ifndef TCL_BETA_RELEASE
-#   define TCL_BETA_RELEASE     1
-#endif
-#ifndef TCL_FINAL_RELEASE
-#   define TCL_FINAL_RELEASE    2
-#endif
-
 #define ITCL_MAJOR_VERSION	4
-#define ITCL_MINOR_VERSION	3
-#define ITCL_RELEASE_LEVEL      TCL_FINAL_RELEASE
-#define ITCL_RELEASE_SERIAL     4
+#define ITCL_MINOR_VERSION	4
+#define ITCL_RELEASE_LEVEL      TCL_ALPHA_RELEASE
+#define ITCL_RELEASE_SERIAL     0
 
-#define ITCL_VERSION            "4.3"
-#define ITCL_PATCH_LEVEL        "4.3.4"
+#define ITCL_VERSION            "4.4"
+#define ITCL_PATCH_LEVEL        "4.4a0"
 
 
 /*