general/random/boxshade.kaptn

#!/sw/bin/kaptain

start "boxshade" -> boxshade buttons;

boxshade -> "boxshade " input_name " " opts;
opts:framed :horizontal -> input_opts output_opts ;

input_name "Alignment file" -> "-in="@string;


input_opts "Input Options" -> thr " " in_types;

thr "Similarity threshold" -> "-thr="@float="0.5";

in_types "Input file type" -> MSF | CLUSTAL | MALIGNED | ESEE | PHYLIP;
MSF "MSF" -> "-type=MSF ";
CLUSTAL "CLUSTAL" -> "-type=CLUSTAL ";
MALIGNED "MALIGNED" -> "-type=MALIGNED ";
ESEE "ESEE" -> "-type=ESEE ";
PHYLIP "PHYLIP" -> "-type=PHYLIP ";


output_opts "Output options" -> numdef split ruler cons endings;

numdef "use default numbering" -> "-numdef " | @;
split "split pages into files" -> "-split " | @;
ruler "print ruler" -> "-ruler " | @;
cons "create consensus line" -> "-cons " | @;

endings "Output line endings" ->  unix | mac | dos;
unix "unix" -> "-unix ";
mac "mac" -> "-mac ";
dos "dos" -> "-dos ";

buttons :horizontal -> @action(boxshade)="OK" @close="Cancel" @preview(start,"Lucidatypewriter",300,200,"Close")="Preview";
1	#!/sw/bin/kaptain
2
3	start "boxshade" -> boxshade buttons;
4
5	boxshade -> "boxshade " input_name " " opts;
6	opts:framed :horizontal -> input_opts output_opts ;
7
8	input_name "Alignment file" -> "-in="@string;
9
10
11	input_opts "Input Options" -> thr " " in_types;
12
13	thr "Similarity threshold" -> "-thr="@float="0.5";
14
15	in_types "Input file type" -> MSF \| CLUSTAL \| MALIGNED \| ESEE \| PHYLIP;
16	MSF "MSF" -> "-type=MSF ";
17	CLUSTAL "CLUSTAL" -> "-type=CLUSTAL ";
18	MALIGNED "MALIGNED" -> "-type=MALIGNED ";
19	ESEE "ESEE" -> "-type=ESEE ";
20	PHYLIP "PHYLIP" -> "-type=PHYLIP ";
21
22
23	output_opts "Output options" -> numdef split ruler cons endings;
24
25	numdef "use default numbering" -> "-numdef " \| @;
26	split "split pages into files" -> "-split " \| @;
27	ruler "print ruler" -> "-ruler " \| @;
28	cons "create consensus line" -> "-cons " \| @;
29
30	endings "Output line endings" -> unix \| mac \| dos;
31	unix "unix" -> "-unix ";
32	mac "mac" -> "-mac ";
33	dos "dos" -> "-dos ";
34
35	buttons :horizontal -> @action(boxshade)="OK" @close="Cancel" @preview(start,"Lucidatypewriter",300,200,"Close")="Preview";