Changeset 843 in ProjectBuilder for projects

Timestamp:

Sep 1, 2009, 3:04:48 AM (16 years ago)

Author:

Bruno Cornec

Message:

Add support for tracks + various fixes

File:

• projects/CDDBeditor/bin/CDDBeditor (modified) (6 diffs)

projects/CDDBeditor/bin/CDDBeditor

@@ -141 +141 @@
 my $ce_help = "(c) Bruno Cornec 2009 - All right reversed under the GPL v2";
 my $artist_label = Newt::Label("Artist: ");
+my $data_label = Newt::Label("Data: ");
+my $raw_label = Newt::Label("Raw: ");
 my $title_label = Newt::Label("Title: ");
 my $year_label = Newt::Label("Year: ");
@@ -148 +150 @@
 my $info_label = Newt::Label("Info: ");
 my $tr_track_label = Newt::Label("Track");
+my $tr_frames_label = Newt::Label("Frames");
+my $tno_label = Newt::Label("Track #:");
 my $tr_title_label = Newt::Label("Title");
 my $tr_author_label = Newt::Label("Author");
@@ -267 +271 @@
     my $category_entry = Newt::Entry($width, $flag, $ce_cd{cat});
     my $genre_entry = Newt::Entry($width, $flag, $ce_cd{genre});
-    $flag = NEWT_FLAG_WRAP;
-    my $height = 5;
-    my $info_entry = Newt::Textbox($width, $height, $flag, "Info");
+    my $data_entry = Newt::Entry($width, $flag, Dumper($ce_cd{data}));
+    my $raw_entry = Newt::Entry($width, $flag, Dumper($ce_cd{raw}));
+    my $tno_entry = Newt::Label($ce_cd{tno});
     $width = 4;
     $flag = 0;
@@ -275 +279 @@
     
     # Build interface
-    $ce_panel = Newt::Panel(3, 20, "CDDB Info");
+    $ce_panel = Newt::Panel(3, $ce_sh, "CDDB Info");
     $ce_panel->Add(0, 0, $artist_label);
     $ce_panel->Add(1, 0, $artist_entry);
@@ -286 +290 @@
     $ce_panel->Add(0, 4, $genre_label);
     $ce_panel->Add(1, 4, $genre_entry);
-    $ce_panel->Add(0, 5, $info_label);
-    $ce_panel->Add(1, 5, $info_entry);
-    $ce_panel->Add(0, 15, $send_button);
-    $ce_panel->Add(1, 15, $reload_button);
-    $ce_panel->Add(2, 15, $quit_button);
+    $ce_panel->Add(0, 5, $data_label);
+    $ce_panel->Add(1, 5, $data_entry);
+    $ce_panel->Add(0, 6, $raw_label);
+    $ce_panel->Add(1, 6, $raw_entry);
+    $ce_panel->Add(0, 7, $tno_label);
+    $ce_panel->Add(1, 7, $tno_entry);
+    #$ce_panel->Add(0, 5, $info_label);
+    #$ce_panel->Add(1, 5, $info_entry);
+
+    my $n=1;
+    $width = 40;
+    while ( $n <= $ce_cd{tno} ) {
+        last if ($n > $ce_sh - 8);
+        my $from=$ce_cd{frames}[$n-1];
+        my $to=$ce_cd{frames}[$n]-1;
+        my $dur=$to-$from;
+        my $min=int($dur/75/60);
+        my $sec=int($dur/75)-$min*60;
+        my $frm=($dur-$sec*75-$min*75*60)*100/75;
+        my $tr = sprintf "Track %2d:", $n;
+        my $track_label = Newt::Label($tr);
+        $tr = sprintf "%2d':%.2d", $min, $sec;
+        my $dur_label = Newt::Label($tr);
+        $flag = NEWT_FLAG_WRAP|NEWT_ENTRY_SCROLL;
+        my $track_entry = Newt::Entry($width, $flag, Dumper($ce_cd{track}));
+        $ce_panel->Add(0, 8+$n, $track_label);
+        $ce_panel->Add(1, 8+$n, $dur_label);
+        $ce_panel->Add(2, 8+$n, $track_entry);
+        $n++;
+    }
+
+    $ce_panel->Add(0, 8+$n, $send_button);
+    $ce_panel->Add(1, 8+$n, $reload_button);
+    $ce_panel->Add(2, 8+$n, $quit_button);
     
     # Build interface
     ($reason, $data) = $ce_panel->Run();
+
     $ce_cd{artist} = $artist_entry->Get();
     $ce_cd{title} = $title_entry->Get();
@@ -307 +341 @@
         $flag = NEWT_FLAG_WRAP;
         $width = 40;
-        $height = 25;
-        my $info_tb = Newt::Textbox($width, $height, $flag, Dumper(%ce_cd));
+        my $height = 25;
+        my $info_tb = Newt::Textbox($width, $height, $flag, Dumper(keys %ce_cd));
 
         Newt::DrawRootText(ce_center_string($ce_title), 1, $ce_title);