From 01e20630943f90142ceeea3676709e7834b84161 Mon Sep 17 00:00:00 2001
From: numa <numa@numa-ubuntu-vm.(none)>
Date: Fri, 28 Aug 2009 14:08:41 +0200
Subject: [PATCH] malo objasnjenje string range <string> 0 0

---
 cfgparse.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cfgparse.tcl b/cfgparse.tcl
index 23edd77..bf6ac96 100755
--- 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} {
-- 
2.39.5