I've tried a few things that unfortunately didn't turn out as expected.
I use the Reindent function every day. But I keep running into the same problems that I have to intervene manually.
And unfortunately I don't find my mistake.
Maybe someone can help.
I would be grateful for any help.
I use the Reindent function every day. But I keep running into the same problems that I have to intervene manually.
And unfortunately I don't find my mistake.
Maybe someone can help.
Code: Select all
proc test1 {} {
uplevel #0 {
set ::test 0
}
}
proc test2 {} {
if {$::test == 1} {
if {$::test1 == 0} {return}}
}
proc test3 {} {
global test2
if {$test2 == 0} {
set ::help_me 0
}
}
proc test4 {} {
global test1234
switch -- $test1234 {
1 {set returnvalue "" ; # any_comment }
2 {set returnvalue "" ; # any_comment }
10 {set returnvalue "" ; # any_comment }
110 {set returnvalue "" ; # any_comment }
}
}
set descr($id) {{Sets a new value for the subprogram output file's basename. The Output Basename control setting determines when this value is used.}}
set ui_parent($id) "@CUI_OutSubFileBase"
Code: Select all
This should be the result:
proc test1 {} {
uplevel #0 {
set ::test 0
}
}
proc test2 {} {
if {$::test == 1} {
if {$::test1 == 0} {return}
}
}
proc test3 {} {
global test2
if {$test2 == 0} {
set ::help_me 0
}
}
proc test4 {} {
global test1234
switch -- $test1234 {
1 {set returnvalue "" ; # any_comment }
2 {set returnvalue "" ; # any_comment }
10 {set returnvalue "" ; # any_comment }
110 {set returnvalue "" ; # any_comment }
}
}
Code: Select all
However but when i have this constellation in the Second line i get an Tab before "set ui_parent($id)" but it not should be there.
set descr($id) {{Sets a new value for the subprogram output file's basename. The Output Basename control setting determines when this value is used.}}
set ui_parent($id) "@CUI_OutSubFileBase"
- tcl_test.tcl (695 Bytes) 0
- A TCL test file
- tcl-tk.uew.zip (18.1 KiB) 0
- My settings for Reindent