Tk Library Source Code

View Ticket
Login
Ticket UUID: 97e01ab619b8480b109233a1d50ed3b40acd8c1b
Title: widgetPlusDemo.tcl crashes on startup
Type: Bug Version: current
Submitter: anonymous Created on: 2018-06-09 19:52:33
Subsystem: Examples Assigned To: aku
Priority: 5 Medium Severity: Minor
Status: Closed Last Modified: 2024-06-01 14:12:33
Resolution: Works For Me Closed By: aku
    Closed on: 2024-06-01 14:12:33
Description:
./widgetPlusDemo.tcl                                                                                     
list doesn't contain element 1
    while executing
"lreplace $My(,list) $My(,pointer) end $new"
    (procedure "::widgetPlus::WidgetPlusPrivateCore::Snit_methodPush" line 8)
    invoked from within
"$self Push $new"
    (procedure "::widgetPlus::WidgetPlusPrivateCore::Snit_methodinsert" line 18)
    invoked from within
"$w insert end {Initial Text}"
    (procedure "CreateWidget" line 20)
    invoked from within
"CreateWidget $w.g.e"
    (procedure "CreateDemo" line 27)
    invoked from within
"CreateDemo .wpdemo"
    (file "./widgetPlusDemo.tcl" line 102)
User Comments: aku added on 2024-06-01 14:12:33:

Thank you for your patience.

I am unable to reproduce the crash using the current head, i.e. commit [954034e7bd].

Platform is linux. Tcl 8.6.12.

Can you confirm/refute ?