Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Correction to the new test suite helper procedures. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | customDataTypes |
| Files: | files | file ages | folders |
| SHA1: |
fd2ed795c186858f2fc5e4d0a1da8234 |
| User & Date: | mistachkin 2016-06-19 20:17:10.249 |
Context
|
2016-06-19
| ||
| 20:28 | When invoking a data reader callback, pass in the method name that was responsible for invoking it. check-in: 5bead76447 user: mistachkin tags: customDataTypes | |
| 20:17 | Correction to the new test suite helper procedures. check-in: fd2ed795c1 user: mistachkin tags: customDataTypes | |
| 08:22 | Add some procedures to the test suite infrastructure. check-in: d593d900ac user: mistachkin tags: customDataTypes | |
Changes
Changes to lib/System.Data.SQLite/common.eagle.
| ︙ | ︙ | |||
1828 1829 1830 1831 1832 1833 1834 |
}
}
proc getProperties { object varName } {
upvar 1 $varName properties
set count 0
| > | > > > > | 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 |
}
}
proc getProperties { object varName } {
upvar 1 $varName properties
set count 0
set names [object members \
-membertypes Property -nameonly $object]
eval lappend names [object members \
-membertypes Field -nameonly $object]
foreach name $names {
if {[catch {
object invoke -objectflags +NoDispose $object $name
} value] == 0} then {
if {[isObjectHandle $value]} then {
set error null; object invoke -flags +NonPublic \
|
| ︙ | ︙ | |||
1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 |
set value [lindex [lindex $properties(objects) 0] end]
set properties(objects) [lrange $properties(objects) 1 end]
}
if {[info exists properties(seenObjects)]} then {
foreach value $properties(seenObjects) {
catch {object dispose $value}
}
unset properties(seenObjects)
}
}
| > | 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 |
set value [lindex [lindex $properties(objects) 0] end]
set properties(objects) [lrange $properties(objects) 1 end]
}
if {[info exists properties(seenObjects)]} then {
foreach value $properties(seenObjects) {
if {$value eq $object} continue
catch {object dispose $value}
}
unset properties(seenObjects)
}
}
|
| ︙ | ︙ |