Update rules.vc. Version -> 4.3.2

README

@@ -1,6 +1,6 @@
 README: Itcl
 
-This is the 4.3.1 source distribution of Itcl, an object oriented
+This is the 4.3.2 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.1.
+# Generated by GNU Autoconf 2.72 for itcl 4.3.2.
 #
 #
 # 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.1'
-PACKAGE_STRING='itcl 4.3.1'
+PACKAGE_VERSION='4.3.2'
+PACKAGE_STRING='itcl 4.3.2'
 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.1 to adapt to many kinds of systems.
+'configure' configures itcl 4.3.2 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.1:";;
+     short | recursive ) echo "Configuration of itcl 4.3.2:";;
    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.1
+itcl configure 4.3.2
 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.1, which was
+It was created by itcl $as_me 4.3.2, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   $ $0$ac_configure_args_raw
@@ -10066,7 +10066,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.1, which was
+This file was extended by itcl $as_me 4.3.2, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -10121,7 +10121,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.1
+itcl config.status 4.3.2
 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.1])
+AC_INIT([itcl],[4.3.2])
 
 #--------------------------------------------------------------------
 # Call TEA_INIT as the first TEA_ macro to set up initial vars.

itclWidget/Makefile.in

@@ -397,7 +397,7 @@ install-lib-binaries: binaries
 		lib=`basename $$p|sed -e 's/.[^.]*$$//'`.lib; \
 		if test -f $$lib; then \
 		    echo " $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib"; \
-	            $(INSTALL_DATA) $$lib "$(DESTDIR)$(pkglibdir)/$$lib"; \
+		    $(INSTALL_DATA) $$lib "$(DESTDIR)$(pkglibdir)/$$lib"; \
 		fi; \
 	    fi; \
 	  fi; \

itclWidget/configure

@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.72 for itclwidget 4.3.1.
+# Generated by GNU Autoconf 2.72 for itclwidget 4.3.2.
 #
 #
 # Copyright (C) 1992-1996, 1998-2017, 2020-2023 Free Software Foundation,
@@ -601,8 +601,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='itclwidget'
 PACKAGE_TARNAME='itclwidget'
-PACKAGE_VERSION='4.3.1'
-PACKAGE_STRING='itclwidget 4.3.1'
+PACKAGE_VERSION='4.3.2'
+PACKAGE_STRING='itclwidget 4.3.2'
 PACKAGE_BUGREPORT=''
 PACKAGE_URL=''
 
@@ -1351,7 +1351,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 itclwidget 4.3.1 to adapt to many kinds of systems.
+'configure' configures itclwidget 4.3.2 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1413,7 +1413,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of itclwidget 4.3.1:";;
+     short | recursive ) echo "Configuration of itclwidget 4.3.2:";;
    esac
   cat <<\_ACEOF
 
@@ -1519,7 +1519,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-itclwidget configure 4.3.1
+itclwidget configure 4.3.2
 generated by GNU Autoconf 2.72
 
 Copyright (C) 2023 Free Software Foundation, Inc.
@@ -1826,7 +1826,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 itclwidget $as_me 4.3.1, which was
+It was created by itclwidget $as_me 4.3.2, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   $ $0$ac_configure_args_raw
@@ -2693,8 +2693,8 @@ fi
 CONFIG_CLEAN_FILES=
 if test ! -d $srcdir/tclconfig ; then
     if test -d $srcdir/../tclconfig ; then
-        $LN_S $srcdir/../tclconfig tclconfig
-        CONFIG_CLEAN_FILES=tclconfig
+	$LN_S $srcdir/../tclconfig tclconfig
+	CONFIG_CLEAN_FILES=tclconfig
     fi
 fi
 
@@ -5981,14 +5981,14 @@ printf "%s\n" "$ac_cv_c_bigendian" >&6; }
 
 
     vars="
-                itclWidgetBase.c
-	        itclWidgetBuiltin.c
-                itclWidgetCmd.c
-                itclWidgetInfo.c
-                itclWidgetObject.c
-	        itclWidgetParse.c
-                itclWidgetStubInit.c
-                "
+		itclWidgetBase.c
+		itclWidgetBuiltin.c
+		itclWidgetCmd.c
+		itclWidgetInfo.c
+		itclWidgetObject.c
+		itclWidgetParse.c
+		itclWidgetStubInit.c
+		"
     for i in $vars; do
 	case $i in
 	    \$*)
@@ -6024,7 +6024,7 @@ printf "%s\n" "$ac_cv_c_bigendian" >&6; }
 
 
     vars="
-                generic/itclWidgetInt.h
+		generic/itclWidgetInt.h
 		"
     for i in $vars; do
 	# check for existence, be strict because it is installed
@@ -10607,7 +10607,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 itclwidget $as_me 4.3.1, which was
+This file was extended by itclwidget $as_me 4.3.2, which was
 generated by GNU Autoconf 2.72.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -10662,7 +10662,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="\\
-itclwidget config.status 4.3.1
+itclwidget config.status 4.3.2
 configured by $0, generated by GNU Autoconf 2.72,
   with options \\"\$ac_cs_config\\"
 

itclWidget/configure.ac

@@ -10,7 +10,7 @@
 # so you can encode the package version directly into the source files.
 #-----------------------------------------------------------------------
 
-AC_INIT([itclwidget],[4.3.1])
+AC_INIT([itclwidget],[4.3.2])
 
 #--------------------------------------------------------------------
 # Call TEA_INIT as the first TEA_ macro to set up initial vars.
@@ -24,8 +24,8 @@ AC_PROG_LN_S
 CONFIG_CLEAN_FILES=
 if test ! -d $srcdir/tclconfig ; then
     if test -d $srcdir/../tclconfig ; then
-        $LN_S $srcdir/../tclconfig tclconfig
-        CONFIG_CLEAN_FILES=tclconfig
+	$LN_S $srcdir/../tclconfig tclconfig
+	CONFIG_CLEAN_FILES=tclconfig
     fi
 fi
 AC_SUBST(CONFIG_CLEAN_FILES)
@@ -72,16 +72,16 @@ TEA_SETUP_COMPILER
 
 
 TEA_ADD_SOURCES([
-                itclWidgetBase.c
-	        itclWidgetBuiltin.c
-                itclWidgetCmd.c
-                itclWidgetInfo.c
-                itclWidgetObject.c
-	        itclWidgetParse.c
-                itclWidgetStubInit.c
-                ])
+		itclWidgetBase.c
+		itclWidgetBuiltin.c
+		itclWidgetCmd.c
+		itclWidgetInfo.c
+		itclWidgetObject.c
+		itclWidgetParse.c
+		itclWidgetStubInit.c
+		])
 TEA_ADD_HEADERS([
-                generic/itclWidgetInt.h
+		generic/itclWidgetInt.h
 		])
 TEA_ADD_INCLUDES([-I. -I\"`${CYGPATH} ${srcdir}/generic`\"])
 TEA_ADD_LIBS([])

releasenotes.txt

@@ -1,4 +1,4 @@
-This is the release 4.3.1 of Itcl.
+This is the release 4.3.2 of Itcl.
 
 It is intended to be script compatible with Itcl 4.0.* and Itcl 3.4.* .
 It very likely presents the same public C interface as Itcl 4.0.* .

tests-perf/itcl-basic.perf.tcl

@@ -56,41 +56,41 @@ proc test-var-create {{reptime {3000 10000}}} {
     _test_start $reptime
     foreach clsi {0 1 2} {
       if {$clsi} {
-        set inh ${ns}::timeClass[expr {$clsi-1}]
+	set inh ${ns}::timeClass[expr {$clsi-1}]
       } else {
-        set inh {}
+	set inh {}
       }
       set cls ${ns}::timeClass$clsi
       puts "== ${n}.$clsi) class : $cls == [expr {$inh ne "" ? "inherite $inh" : ""}]"
       if {[info command $cls] ne ""} {
-        itcl::delete class $cls
+	itcl::delete class $cls
       }
       itcl::class $cls [string map [list \$reptime [list $reptime] \$in_inh [list $inh] \$clsi $clsi] {
-        set j 0
-        set inh $in_inh
-        if {$inh ne ""} {
-          puts "% inherit $inh"
-          ::tclTestPerf::_test_iter 2 [timerate {
-            inherit $inh
-          } 1 1]
-        }
-        puts "% declare vars ..."
-        ::tclTestPerf::_test_iter 2 [timerate {
-          public variable pub[incr j] 0
-          protected variable pro$j 1
-          private variable pri$j 2
-          # 10K commons is too slow in Itcl original edition (time grows on each iter), so 1K enough:
-          if {$j <= 1000} {
-            public common com$j ""
-          }
-        } {*}$reptime]
-        public method getv {vn} {set $vn}
-        public method getpub1 {} {set pro1}
-        public method getpro1 {} {set pro1}
-        public method getpri1 {} {set pri1}
-        public method getunknown {} {catch {set novarinthisclass}}
-        # Itcl original edition may be too slow (time grows on each inheritance), so save real max-iters (<= 10K):
-        uplevel [list set j $j]
+	set j 0
+	set inh $in_inh
+	if {$inh ne ""} {
+	  puts "% inherit $inh"
+	  ::tclTestPerf::_test_iter 2 [timerate {
+	    inherit $inh
+	  } 1 1]
+	}
+	puts "% declare vars ..."
+	::tclTestPerf::_test_iter 2 [timerate {
+	  public variable pub[incr j] 0
+	  protected variable pro$j 1
+	  private variable pri$j 2
+	  # 10K commons is too slow in Itcl original edition (time grows on each iter), so 1K enough:
+	  if {$j <= 1000} {
+	    public common com$j ""
+	  }
+	} {*}$reptime]
+	public method getv {vn} {set $vn}
+	public method getpub1 {} {set pro1}
+	public method getpro1 {} {set pro1}
+	public method getpri1 {} {set pri1}
+	public method getunknown {} {catch {set novarinthisclass}}
+	# Itcl original edition may be too slow (time grows on each inheritance), so save real max-iters (<= 10K):
+	uplevel [list set j $j]
       }]
       set maxv($clsi,$ns) $j
     }

tests/all.tcl

@@ -15,7 +15,7 @@ if {[namespace which -command memory] ne "" && "-loadfile" ni $argv} {
     puts "Tests running in sub-interpreters of leaktest circuit"
     # -loadfile overwrites -load, so save it for helper in ::env(TESTFLAGS):
     if {![info exists ::env(TESTFLAGS)] && [llength $argv]} {
-        set ::env(TESTFLAGS) $argv
+	set ::env(TESTFLAGS) $argv
     }
     lappend argv -loadfile [file join [file dirname [info script]] helpers.tcl]
 }

tests/helpers.tcl

@@ -21,9 +21,9 @@ if {[namespace which -command memory] ne "" && (
   proc leaktest {script {iterations 3}} {
       set end [getbytes]
       for {set i 0} {$i < $iterations} {incr i} {
-          uplevel 1 $script
-          set tmp $end
-          set end [getbytes]
+	  uplevel 1 $script
+	  set tmp $end
+	  set end [getbytes]
       }
       return [expr {$end - $tmp}]
   }