#!/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" -> dos | mac | ! unix; dos "dos" -> "-dos "; mac "mac" -> "-mac "; unix "unix" -> "-unix "; buttons :horizontal -> @action(boxshade)="OK" @close="Cancel" @preview(start,"Lucidatypewriter",300,200,"Close")="Preview";