Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added comment to highlight a (minor) syntactic feature |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
3a4f7e4abc62183683d9bf8bf8a44df5 |
| User & Date: | dkf 2018-05-19 10:51:11 |
Context
|
2018-05-24
| ||
| 16:22 | Initiated TIP #509: Implement reentrant mutexes on all platforms check-in: f14eed0570 user: fbonnet tags: trunk | |
|
2018-05-19
| ||
| 10:51 | Added comment to highlight a (minor) syntactic feature check-in: 3a4f7e4abc user: dkf tags: trunk | |
| 10:49 | Untabify for consistent indentation check-in: 96cdaa7bf6 user: dkf tags: trunk, minor change | |
Changes
Changes to tip/500.md.
279 280 281 282 283 284 285 286 287 288 289 290 291 292 |
# Example
oo::class create LabelEqual {
constructor {label} {
set [my varname label] $label
}
private {
variable label
method getLabel {} {
return $label
}
}
method equals {other} {
expr {$label eq [$other getLabel]}
|
> |
279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 |
# Example
oo::class create LabelEqual {
constructor {label} {
set [my varname label] $label
}
private {
# Two private declarations in the same block
variable label
method getLabel {} {
return $label
}
}
method equals {other} {
expr {$label eq [$other getLabel]}
|