Check-in [f031beec9a]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
SHA1 Hash:f031beec9a8d39926039f7a37edf289315a8b414
Date: 2013-08-03 15:27:40
User: dkf
Comment:[3611643fff]: Support TclOO in autoload mechanism.
Tags And Properties
Context
2013-08-05
22:00
[4e3f024bd7] Mark unixforkevent-1.1 nonPortable, until proven on more platforms. Make sure that when testing for... (user: jan.nijtmans, tags: trunk)
16:37
[dd155eb7e2] merge trunk (user: dgp, tags: dgp-refactor)
14:47
[cb1d262fa1] merge trunk (user: dgp, tags: dkf-command-type)
2013-08-03
15:27
[f031beec9a] [3611643fff]: Support TclOO in autoload mechanism. (user: dkf, tags: trunk)
2013-08-02
20:19
[04e4971bde] Deal with the elaborate rip-apart-a-metaclass case as well. (user: dkf, tags: trunk)
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





2013-08-02  Donal Fellows  <dkf@users.sf.net>

	* generic/tclOODefineCmds.c (ClassSuperSet): Bug [9d61624b3d]: Stop
	crashes when emptying the superclass slot, even when doing elaborate
	things with metaclasses.

2013-08-01  Harald Oehlmann  <oehhar@users.sf.net>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2013-08-03  Donal Fellows  <dkf@users.sf.net>

	* library/auto.tcl: [Patch 3611643]: Allow TclOO classes to be found
	by the autoloading mechanism.

2013-08-02  Donal Fellows  <dkf@users.sf.net>

	* generic/tclOODefineCmds.c (ClassSuperSet): Bug [9d61624b3d]: Stop
	crashes when emptying the superclass slot, even when doing elaborate
	things with metaclasses.

2013-08-01  Harald Oehlmann  <oehhar@users.sf.net>

Changes to library/auto.tcl.

612
613
614
615
616
617
618
619














620
		set name ::[join [lreverse $contextStack] ::]
		# create artifical proc to force an entry in the tclIndex
		$parser eval [list ::proc $name {} {}]
	    }
	}
    }
}















return








>
>
>
>
>
>
>
>
>
>
>
>
>
>

612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
		set name ::[join [lreverse $contextStack] ::]
		# create artifical proc to force an entry in the tclIndex
		$parser eval [list ::proc $name {} {}]
	    }
	}
    }
}

# AUTO MKINDEX:  oo::class create name ?definition?
# Adds an entry to the auto index list for the given class name.
foreach cmd {oo::class class} {
    auto_mkindex_parser::command $cmd {ecmd name {body ""}} {
	if {$cmd eq "create"} {
	    variable index
	    variable scriptFile
	    append index [format "set %s \[list source \[%s]]\n" \
			      [list auto_index([fullname $name])] \
			      [list file join $dir {*}[file split $scriptFile]]]
	}
    }
}

return