2 |
|
|
3 |
start "boxshade" -> boxshade buttons; |
start "boxshade" -> boxshade buttons; |
4 |
|
|
5 |
boxshade -> "boxshade " input_name " " opts; |
boxshade -> "boxshade " input_name " " output_name " " opts; |
6 |
opts:framed :horizontal -> input_opts output_opts ; |
opts:framed :horizontal -> input_opts output_opts ; |
7 |
|
|
8 |
input_name "Alignment file" -> "-in="@string; |
input_name "Alignment file" -> "-in="@infile; |
9 |
|
output_name "Output shaded file" -> "-out="@outfile; |
10 |
|
|
11 |
input_opts "Input Options" -> thr " " in_types; |
input_opts "Input Options" -> thr " " in_types; |
12 |
|
|
13 |
thr "Similarity threshold" -> "-thr="@float="0.5"; |
thr "Similarity threshold (0-1.0)" -> "-thr="@float="0.5"; |
14 |
|
|
15 |
in_types "Input file type" -> MSF | ! CLUSTAL | MALIGNED | ESEE | PHYLIP; |
in_types "Input file type" -> MSF | ! CLUSTAL | MALIGNED | ESEE | PHYLIP; |
16 |
MSF "MSF" -> "-type=MSF "; |
MSF "MSF" -> "-type=MSF "; |
20 |
PHYLIP "PHYLIP" -> "-type=PHYLIP "; |
PHYLIP "PHYLIP" -> "-type=PHYLIP "; |
21 |
|
|
22 |
|
|
23 |
output_opts "Output options" -> numdef split ruler cons endings; |
output_opts:horizontal "Output options" -> "-dev="out_type minor_out_opts; |
24 |
|
minor_out_opts -> numdef split ruler cons "-"endings; |
25 |
|
|
26 |
|
out_type :double "Output file type" -> PS | EPS | HPGL | ! RTF | ANSI | VT100 | ReGIS1 | ReGIS2 | LJ250 | ASCII | FIG | PICT | HTML; |
27 |
|
PS "Postscript" -> "1 "; |
28 |
|
EPS "Encapsulated Postscript" -> "2 "; |
29 |
|
HPGL "HPGL" -> "3 "; |
30 |
|
RTF "RTF( Rich Text Format)" -> "4 "; |
31 |
|
ANSI "ANSI-screen (PC-version)" -> "6 "; |
32 |
|
VT100 "VT100-screen (DEC-version)" -> "7 "; |
33 |
|
ReGIS1 "ReGIS-screen (25 lines each)" -> "8 "; |
34 |
|
ReGIS2 "ReGIS-file (without breaks)" -> "9 "; |
35 |
|
LJ250 "LJ250-printer file" -> "a "; |
36 |
|
ASCII "ASCII file" -> "b "; |
37 |
|
FIG "FIG file (for XFIG)" -> "c "; |
38 |
|
PICT "PICT file" -> "d "; |
39 |
|
HTML "HTML file" -> "e "; |
40 |
|
|
41 |
numdef "use default numbering" -> "-numdef " | @; |
numdef "use default numbering" -> "-numdef " | @; |
42 |
split "split pages into files" -> "-split " | @; |
split "split pages into files" -> "-split " | !@; |
43 |
ruler "print ruler" -> "-ruler " | @; |
ruler "print ruler" -> "-ruler " | @; |
44 |
cons "create consensus line" -> "-cons " | @; |
cons "create consensus line" -> "-cons " | @; |
45 |
|
|
46 |
endings "Output line endings" -> dos | mac | ! unix; |
endings "Output line endings" -> @list("dos", "mac", "unix")=3; |
|
dos "dos" -> "-dos "; |
|
|
mac "mac" -> "-mac "; |
|
|
unix "unix" -> "-unix "; |
|
47 |
|
|
48 |
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"; |