Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch fsar-8-6-9 Excluding Merge-Ins
This is equivalent to a diff from 300e317280 to e6f4b39754
|
2019-11-16
| ||
| 20:41 | Appliying cherry-picked patch from trunk check-in: e8971ee37b user: seandeelywoods tags: fsar | |
|
2019-01-08
| ||
| 00:35 | Pulling fix from fsar check-in: c831ca1a54 user: hypnotoad tags: trunk | |
| 00:28 | Pulling in fix for Tcl/Tk 8.6.9 Leaf check-in: e6f4b39754 user: hypnotoad tags: fsar-8-6-9 | |
|
2018-12-12
| ||
| 16:34 | Pulling changes from fsar branch check-in: f86ea7b2dc user: hypnotoad tags: core-8-6-8, trunk | |
|
2018-12-11
| ||
| 23:01 | New build of tool check-in: 300e317280 user: hypnotoad tags: fsar | |
|
2018-12-05
| ||
| 15:23 | Adding a snapshot of every tcllib module tool and tao depend on check-in: 06416af04b user: hypnotoad tags: fsar | |
Changes to modules/taotk/core/baseclass.tcl.
| ︙ | ︙ | |||
143 144 145 146 147 148 149 150 |
# the <Destroy> we are seeing is intended for us.
###
method Hull_Destroy {} {
###
# Destroy our Tk representation
###
my variable tkalias
if {[info exists tkalias]} {
| > | < < | | < | < < < < | < < | > > > > > > > > > | 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 |
# the <Destroy> we are seeing is intended for us.
###
method Hull_Destroy {} {
###
# Destroy our Tk representation
###
my variable tkalias
set tkWidget {}
if {[info exists tkalias]} {
set tkWidget $tkalias
}
if {$tkWidget eq {}} {
set tkWidget [my widget hull]
}
if {$tkWidget eq {}} {
set tkWidget [my organ hull]
}
if {$tkWidget ne {}} {
my Hull_Unbind $tkWidget
}
###
# Clean up children
###
foreach subobj [info command [self]/*] {
catch {$subobj destroy}
}
foreach subobj [info command [self].*] {
if {[winfo exists $subobj]} continue
catch {$subobj destroy}
}
catch {my action destroy}
# Destroy an alias we may have created
if { $tkWidget ni {. {}} && [winfo exists $tkWidget] } {
::destroy $tkWidget
}
}
###
# topic: 180536da1664900f26270fd54346f984bf070e44
# description:
# A private method that catches tk events and ensures
# the <Destroy> we are seeing is intended for us.
|
| ︙ | ︙ |