/[general]/random/tagtheora.kaptn
ViewVC logotype

Annotation of /random/tagtheora.kaptn

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations) (download)
Tue Apr 7 15:31:30 2009 UTC (15 years ago) by nieder
Branch: MAIN
Changes since 1.1: +1 -1 lines
allow spaces in filename

1 nieder 1.1 #!/sw/bin/kaptain
2    
3     start "tagtheora" -> command buttons;
4    
5     command -> "/usr/bin/env python tagtheora.py " options;
6    
7     options :framed -> tags " " inputfile;
8    
9 nieder 1.2 inputfile "File to tag:" -> " \"" @infile "\"";
10 nieder 1.1
11     tags :vertical :double -> title_tag artist_tag album_tag license_tag copyright_tag date_tag location_tag organization_tag comment_tag;
12    
13     title_tag "Title" -> " --title=\"" title_disp "\" " | !@ ;
14     title_disp -> @string="" ;
15    
16     artist_tag "Artist" -> " --artist=\"" artist_disp "\" " | !@ ;
17     artist_disp -> @string="" ;
18    
19     album_tag "Album" -> " --album=\"" album_disp "\" " | !@ ;
20     album_disp -> @string="" ;
21    
22     license_tag "License" -> " --license=\"" license_disp "\" " | !@ ;
23     license_disp -> @string="" ;
24    
25     copyright_tag "Copyright" -> " --copyright=\"" copyright_disp "\" " | !@ ;
26     copyright_disp -> @string="" ;
27    
28     date_tag "Date" -> " --date=\"" date_disp "\" " | !@ ;
29     date_disp -> @string="" ;
30    
31     location_tag "Location" -> " --location=\"" location_disp "\" " | !@ ;
32     location_disp -> @string="" ;
33    
34     organization_tag "Organization" -> " --organization=\"" organization_disp "\" " | !@ ;
35     organization_disp -> @string="" ;
36    
37     comment_tag "Comment" -> " --comment=\"" comment_disp "\" " | !@ ;
38     comment_disp -> @string="" ;
39    
40     buttons :horizontal -> @action(command)="Run tagtheora" @close="Close" @preview(start,"Lucidatypewriter",400,100,"Close Preview")="Preview";

  ViewVC Help
Powered by ViewVC 1.1.17