| Sysop: | Amessyroom |
|---|---|
| Location: | Fayetteville, NC |
| Users: | 43 |
| Nodes: | 6 (0 / 6) |
| Uptime: | 107:39:47 |
| Calls: | 290 |
| Files: | 905 |
| Messages: | 76,679 |
other stuff
# OLD
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
# want to have
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls }
ONE simple FLAG erase a lot of code.
aotto1968 <aotto1968@t-online.de> wrote:
It is preferable to start a new thread for a new topic.
other stuff
# OLD
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
# want to have
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls
}
ONE simple FLAG erase a lot of code.
Write up a TIP, and supply an implementation, and the maintainers just
might add your feature.
On Thu, 2 Jan 2025 21:39:32 -0000 (UTC)
Rich <rich@example.invalid> wrote:
aotto1968 <aotto1968@t-online.de> wrote:
It is preferable to start a new thread for a new topic.
other stuff
# OLD
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
# want to have
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls
}
ONE simple FLAG erase a lot of code.
Write up a TIP, and supply an implementation, and the maintainers just
might add your feature.
Or simply use
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {$cls in [set $my(__CLASS__)::__SUPER__SORTED__]}
}