#!/bin/sh
#  -*- tcl -*-        \
exec tcl "$0" "$@"

set lay "."

# Tests with Title & Subtitle

for {set i 8} {$i<60} {incr i} {
  set cdn laytestTS$i
  set title ""
  for {set j 1} {$j<=$i} {incr j} {
     append title "x"
  }

  set f [open "~/.tkcdlayout/config" w]
  puts $f "cdn=$cdn"
  puts $f "lay=$lay"
  puts $f "mid=$lay/$cdn.x"
  puts $f "Title=$title"
  puts $f "subtitle=$title"
  puts $f "Warn=no"
  puts $f "layout_type=btas"
  puts $f "page=back"
  close $f
 
  exec >@stdout 2>@stderr "TestLayoutTS"
}