TaoLib

Check-in [c831ca1a54]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Pulling fix from fsar
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c831ca1a541de4a291b928e62feb4f1e07cf83e3
User & Date: hypnotoad 2019-01-08 00:35:16
Context
2019-01-08
00:38
Pulling changes from tcl-8-6-9 and closing that branch check-in: 186d9e47dc user: hypnotoad tags: trunk
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: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/taotk/core/baseclass.tcl.

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
  #    the <Destroy> we are seeing is intended for us.
  ###
  method Hull_Destroy {} {
    ###
    # Destroy our Tk representation
    ###
    my variable tkalias
    if {[info exists tkalias]} {
      set alias $tkalias
    } else {
      set alias {}
    }
    if {$alias ne {}} {
      my Hull_Unbind $alias
    }
    catch {my action destroy}

    # Destroy an alias we may have created
    if { $alias ne {} && [winfo exists $alias] } {
      catch {rename [namespace current]::tkwidget {}}
    } else {
      set hull [my organ hull]
      if { $hull ne "."} {
        catch {::destroy $hull}
      }
    }

    ###
    # Clean up children
    ###
    foreach subobj [info command [self]/*] {
      catch {$subobj destroy}
    }
    foreach subobj [info command [self].*] {
      if {[winfo exists $subobj]} continue
      catch {$subobj destroy}
    }







  }

  ###
  # topic: 180536da1664900f26270fd54346f984bf070e44
  # description:
  #    A private method that catches tk events and ensures
  #    the <Destroy> we are seeing is intended for us.







|
|
|
|
|
|
|
|
|
|
|
|
<
<
<
<
<
<












>
>
>
>
>
>
>







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.