From: numa <numa@numa-ubuntu-vm.(none)>
Date: Fri, 28 Aug 2009 12:08:41 +0000 (+0200)
Subject: malo objasnjenje string range <string> 0 0
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=80097b655220cb18060570ac1ad7bdc4499216e6;p=imunes.git

malo objasnjenje string range <string> 0 0
(cherry picked from commit 01e20630943f90142ceeea3676709e7834b84161)

Signed-off-by: Josip Rodin <joy@CNZGRIJRL.carpriv.carnet.hr>
---

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} {