Building a editor , because we all need this

Hey Everybody , I feel like we need and or Deserve a build in editor inside of Cadence . 

So here is my code so far and it collapses the procedures . Feel free to use this as a starting point . My goal is to execute the code . Highlighting would be nice . Autocompletion would be probably not be possible . But try it out everyone and see what you think . 

package require Tk

proc LaunchWindow {} {
set w .myWin
catch {destroy $w}
toplevel $w
wm withdraw .
wm title $w "Text Box with Scrollbar"

label $w.label -text "Enter your text below:"

frame $w.textFrame

text $w.textbox -width 50 -height 10 -wrap word -yscrollcommand "$w.scroll set"

scrollbar $w.scroll -orient vertical -command "$w.textbox yview"

pack $w.textbox -side left -fill both -expand 1
pack $w.scroll -side right -fill y
pack $w.label -padx 10 -pady 5
pack $w.textFrame -padx 10 -pady 5 -fill both -expand 1

# Button to print text
button $w.button -text "Execute" -command {
puts [.myWin.textbox get 1.0 end]
}
pack $w.button -padx 10 -pady 5

# Define a tag that hides text
$w.textbox tag configure hidden -elide true

# Button to hide all blocks enclosed in { ... }
button $w.hideBlocksButton -text "Hide Code Blocks" -command {
set text [.myWin.textbox get 1.0 end]
set startIdx 0
set braceLevel 0
set blockStart ""

# Scan character by character
for {set i 0} {$i < [string length $text]} {incr i} {
set char [string index $text $i]
set idx [.myWin.textbox index "1.0 + $i chars"]

if {$char eq "\{"} {
if {$braceLevel == 0} {
set blockStart $idx
}
incr braceLevel
} elseif {$char eq "\}"} {
if {$braceLevel > 0} {
incr braceLevel -1
if {$braceLevel == 0} {

set nextCharIndex [expr {$i + 1}]
set blockEnd [.myWin.textbox index "1.0 + $nextCharIndex chars"]

.myWin.textbox tag add hidden $blockStart $blockEnd
}
}
}
}
}
pack $w.hideBlocksButton -padx 10 -pady 5

# Button to restore all blocks enclosed in { ... }
button $w.restoreBlocksButton -text "Restore Code Blocks" -command {
set text [.myWin.textbox get 1.0 end]
set startIdx 0
set braceLevel 0
set blockStart ""

# Scan character by character
for {set i 0} {$i < [string length $text]} {incr i} {
set char [string index $text $i]
set idx [.myWin.textbox index "1.0 + $i chars"]

if {$char eq "\{"} {
if {$braceLevel == 0} {
set blockStart $idx
}
incr braceLevel
} elseif {$char eq "\}"} {
if {$braceLevel > 0} {
incr braceLevel -1
if {$braceLevel == 0} {

set nextCharIndex [expr {$i + 1}]
set blockEnd [.myWin.textbox index "1.0 + $nextCharIndex chars"]

.myWin.textbox tag remove hidden $blockStart $blockEnd
}
}
}
}
}
pack $w.restoreBlocksButton -padx 10 -pady 5

}

LaunchWindow