--- examples/dia2code.kaptn.orig	Sat Nov 17 00:11:04 2001
+++ examples/dia2code.kaptn	Fri Dec 20 13:17:45 2002
@@ -1,17 +1,20 @@
-#!/usr/bin/kaptain
+#!%%PREFIX%%/bin/kaptain
 start "Dia2Code" -> dia2code buttons;
 dia2code :tabbed -> main about;
 
-main "Dia2Code" -> "dia2code" language outdir classlist mask noclobber " " diagramfile;
+main "Dia2Code" -> "dia2code" language outdir classlist mask noclobber licensefile " " diagramfile;
 
-language "Output Language" -> " -t " outlanguage;
-outlanguage :double :horizontal -> ada | c | ! cpp | java | python | sql ;
+language "Output Language" -> " -t " outlanguage ;
+outlanguage :double :horizontal -> ada | c | ! cpp | idl | java | php | python | shp | sql ;
 c "C" -> "c";
 cpp "C++" -> "cpp";
 java "Java" -> "java";
 ada "Ada" -> "ada";
 python "Python" -> "python";
 sql "SQL" -> "sql";
+shp "SHP" -> "shp";
+php "PHP" -> "php";
+idl "IDL" -> "idl";
 
 outdir "Output Dir" -> " -d " @directory=`pwd`;
 
@@ -22,10 +25,12 @@
 noclobber "Don't overwrite existing files" -> @ | " -nc";
 yesclobber -> "";
 
+licensefile "License File" -> @ | " -l " @infile("*");
+
 diagramfile "Diagram File" -> @infile("*.dia");
 
 buttons :horizontal -> @action(dia2code)="Go" @preview(dia2code)="Preview Command" @close="Quit" ; 
 
-about "About" -> @text("Kaptain grammar for Dia2Code\n\nVersion 1.0\n(c) 2001 Javier O'Hara\n<joh314@users.sourceforge.net>\n\nDia2Code homepage:\nhttp://dia2code.sourceforge.net");
+about "About" -> @text("Kaptain grammar for Dia2Code\n\nVersion 1.2\n(c) 2001 Javier O'Hara\n<joh314@users.sourceforge.net>\n\nDia2Code homepage:\nhttp://dia2code.sourceforge.net");
 
 classlist="" "Generates code only for the classes specified\nin this comma-separated list";