| 1 |
nieder |
1.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 |
nieder |
1.2 |
in_types "Input file type" -> MSF | ! CLUSTAL | MALIGNED | ESEE | PHYLIP;
|
| 16 |
nieder |
1.1 |
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 |
nieder |
1.2 |
endings "Output line endings" -> dos | mac | ! unix;
|
| 31 |
|
|
dos "dos" -> "-dos ";
|
| 32 |
|
|
mac "mac" -> "-mac ";
|
| 33 |
nieder |
1.1 |
unix "unix" -> "-unix ";
|
| 34 |
|
|
|
| 35 |
|
|
buttons :horizontal -> @action(boxshade)="OK" @close="Cancel" @preview(start,"Lucidatypewriter",300,200,"Close")="Preview";
|
Parent Directory
| 
Revision Log