#!/bin/sh
#\
exec tclsh $0 "$@"

set files [glob *.style]

puts "#include \"wmmacros\""

puts "Style MENU"
foreach i $files {
	set name [string range $i 0 [expr [string last .style $i] - 1]]
	puts "\t\"$name\"\t\tSETSTYLE \"$i\""
}

puts "Style END"
