#---------- main progrm ----------
-proc main/test {} {
+proc main/default {} {
+ puts stderr "Do not run this program directly."
+ exit 12
+
global glyphsdone unk_l unk_r unk_contexts
set glyphsdone {
draw_glyphsdone
startup_cursor
}
-proc done/test {} {
+proc done/default {} {
}
proc required {} {
proc debug {m} { }
-set mainkind test
+set mainkind default
foreach arg $argv {
switch -exact -- $arg {
{--debug} { proc debug {m} { puts stderr "SHOW-THING $m" } }