malo objasnjenje string range <string> 0 0

diff --git a/cfgparse.tcl b/cfgparse.tcl
index 23edd77deabb41339e2f3c7a01a3309094a1bcaf..bf6ac96142d4d797b57022b957904176c0020a7c 100755 (executable)
--- a/cfgparse.tcl
+++ b/cfgparse.tcl
@@ -561,6 +561,7 @@ proc newObjectId { type } {
     upvar 0 ::cf::[set ::curcfg]::canvas_list canvas_list
     global cfg_list
 
+# vadi prvo slovo iz typea
     set mark [string range [set type] 0 0]
     set id 0
     while {[lsearch [set [set type]_list] "$mark$id"]  != -1} {