--- random/boxshade.kaptn	2007/06/07 16:13:48	1.2
+++ random/boxshade.kaptn	2007/07/25 13:44:48	1.3
@@ -2,15 +2,15 @@
 
 start "boxshade" -> boxshade buttons;
 
-boxshade -> "boxshade " input_name " " opts;
+boxshade -> "boxshade " input_name " " output_name " " opts;
 opts:framed :horizontal -> input_opts output_opts ;
 
-input_name "Alignment file" -> "-in="@string;
-
+input_name "Alignment file" -> "-in="@infile;
+output_name "Output shaded file" -> "-out="@outfile;
 
 input_opts "Input Options" -> thr " " in_types;
 
-thr "Similarity threshold" -> "-thr="@float="0.5";
+thr "Similarity threshold (0-1.0)" -> "-thr="@float="0.5";
 
 in_types "Input file type" -> MSF | ! CLUSTAL | MALIGNED | ESEE | PHYLIP;
 MSF "MSF" -> "-type=MSF ";
@@ -20,16 +20,29 @@
 PHYLIP "PHYLIP" -> "-type=PHYLIP ";
 
 
-output_opts "Output options" -> numdef split ruler cons endings;
+output_opts:horizontal "Output options" -> "-dev="out_type minor_out_opts;
+minor_out_opts -> numdef split ruler cons "-"endings;
+
+out_type :double "Output file type" -> PS | EPS | HPGL | ! RTF | ANSI | VT100 | ReGIS1 | ReGIS2 | LJ250 | ASCII | FIG | PICT | HTML;
+PS "Postscript" -> "1 ";
+EPS "Encapsulated Postscript" -> "2 ";
+HPGL "HPGL" -> "3 ";
+RTF "RTF( Rich Text Format)" -> "4 ";
+ANSI "ANSI-screen (PC-version)" -> "6 ";
+VT100 "VT100-screen (DEC-version)" -> "7 ";
+ReGIS1 "ReGIS-screen (25 lines each)" -> "8 ";
+ReGIS2 "ReGIS-file (without breaks)" -> "9 ";
+LJ250 "LJ250-printer file" -> "a ";
+ASCII "ASCII file" -> "b ";
+FIG "FIG file (for XFIG)" -> "c ";
+PICT "PICT file" -> "d ";
+HTML "HTML file" -> "e ";
 
 numdef "use default numbering" -> "-numdef " | @;
-split "split pages into files" -> "-split " | @;
+split "split pages into files" -> "-split " | !@;
 ruler "print ruler" -> "-ruler " | @;
 cons "create consensus line" -> "-cons " | @;
 
-endings "Output line endings" ->  dos | mac | ! unix;
-dos "dos" -> "-dos ";
-mac "mac" -> "-mac ";
-unix "unix" -> "-unix ";
+endings "Output line endings" ->  @list("dos", "mac", "unix")=3;
 
-buttons :horizontal -> @action(boxshade)="OK" @close="Cancel" @preview(start,"Lucidatypewriter",300,200,"Close")="Preview";
+buttons :horizontal -> @action(boxshade)="Run boxshade" @close="Cancel" @preview(start,"Lucidatypewriter",400,100,"Close")="Preview";