if 0 {
<<TOC>>
----

**Introduction**
[Author] 2015-05-13: 
This is a template for a wiki-page 
with a new tcl/tk-program <<br>>...bla..blah... <<br>> ...

With ideas and code from the following pages:
   * http://wiki.tcl.tk/41210%|%ClockDemo%|% ([MiHa]) - bla blah
   * ...

}
----
**Program 1**
======tcl
 # NewProgram001.tcl - Author - 2015-05-13
 # http://wiki.tcl.tk/41162

 # http://ideone.com/ElpkSm
  puts "Demo:"
  set i 0
  foreach s { foo bar grill }  { incr i; puts "$i $s" }
 ### EOF ###
======

----
**Output**
======none
Demo:
1 foo
2 bar
3 grill
======

----
**Remarks**
This is the Alpha-version, there ''will'' be bugs,
so use with caution <<br>>
...

----
'''See also:'''
   * http://wiki.tcl.tk/41210%|%ClockDemo%|%
   * ...

   
<<categories>> Example | GUI