Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [3611643fff]: Support TclOO in autoload mechanism. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f031beec9a8d39926039f7a37edf2893 |
| User & Date: | dkf 2013-08-03 15:27:40 |
Context
|
2013-08-05
| ||
| 22:00 | Mark unixforkevent-1.1 nonPortable, until proven on more platforms. Make sure that when testing for... check-in: 4e3f024bd7 user: jan.nijtmans tags: trunk | |
| 16:37 | merge trunk check-in: dd155eb7e2 user: dgp tags: dgp-refactor | |
| 14:47 | merge trunk check-in: cb1d262fa1 user: dgp tags: dkf-command-type | |
|
2013-08-03
| ||
| 15:27 | [3611643fff]: Support TclOO in autoload mechanism. check-in: f031beec9a user: dkf tags: trunk | |
|
2013-08-02
| ||
| 20:19 | Deal with the elaborate rip-apart-a-metaclass case as well. check-in: 04e4971bde user: dkf tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2013-08-02 Donal Fellows <[email protected]> * 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 <[email protected]> | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2013-08-03 Donal Fellows <[email protected]> * library/auto.tcl: [Patch 3611643]: Allow TclOO classes to be found by the autoloading mechanism. 2013-08-02 Donal Fellows <[email protected]> * 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 <[email protected]> |
| ︙ | ︙ |
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
|