Changeset 847 in ProjectBuilder for projects

Timestamp:

Sep 8, 2009, 1:52:47 AM (16 years ago)

Author:

Bruno Cornec

Message:

Improved presentation

File:

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

projects/CDDBeditor/bin/CDDBeditor

@@ -18 +18 @@
 use Mail::Sendmail;
 use POSIX  qw(strftime :sys_wait_h);
-use Newt qw(NEWT_FLAG_WRAP NEWT_ENTRY_SCROLL NEWT_ANCHOR_LEFT :entry :textbox :macros);
+use Newt qw(NEWT_FLAG_WRAP NEWT_ENTRY_SCROLL NEWT_ANCHOR_LEFT NEWT_ANCHOR_RIGHT :entry :textbox :macros);
 use lib qw (lib);
 use locale;
@@ -142 +142 @@
 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 $empty_label = Newt::Label("      ");
+#my $data_label = Newt::Label("Data: ");
+#my $raw_label = Newt::Label("Raw: ");
 my $title_label = Newt::Label("Title: ");
 my $year_label = Newt::Label("Year: ");
@@ -152 +153 @@
 my $tr_track_label = Newt::Label("Track");
 my $tr_frames_label = Newt::Label("Frames");
-my $tno_label = Newt::Label("Track #:");
+my $tno_label = Newt::Label("Track #: ");
 my $tr_title_label = Newt::Label("Title");
 my $tr_author_label = Newt::Label("Author");
@@ -212 +213 @@
 
 my $ce_panel = Newt::Panel(2, 20, "CDDBeditor Configuration");
-my $flage = NEWT_ANCHOR_LEFT;
-$ce_panel->Add(0, 0, $host_label);
+my $flage = NEWT_ANCHOR_RIGHT;
+$ce_panel->Add(0, 0, $host_label,$flage);
+$flage = NEWT_ANCHOR_LEFT;
 $ce_panel->Add(1, 0, $host_entry, $flage);
-$ce_panel->Add(0, 1, $port_label);
+$flage = NEWT_ANCHOR_RIGHT;
+$ce_panel->Add(0, 1, $port_label,$flage);
+$flage = NEWT_ANCHOR_LEFT;
 $ce_panel->Add(1, 1, $port_entry, $flage);
-$ce_panel->Add(0, 2, $mode_label);
+$flage = NEWT_ANCHOR_RIGHT;
+$ce_panel->Add(0, 2, $mode_label,$flage);
+$flage = NEWT_ANCHOR_LEFT;
 $ce_panel->Add(1, 2, $mode_group, $flage);
-$ce_panel->Add(0, 3, $proxy_label);
+$flage = NEWT_ANCHOR_RIGHT;
+$ce_panel->Add(0, 3, $proxy_label,$flage);
+$flage = NEWT_ANCHOR_LEFT;
 $ce_panel->Add(1, 3, $proxy_entry, $flage);
-$ce_panel->Add(0, 4, $dev_label);
+$flage = NEWT_ANCHOR_RIGHT;
+$ce_panel->Add(0, 4, $dev_label,$flage);
+$flage = NEWT_ANCHOR_LEFT;
 $ce_panel->Add(1, 4, $dev_entry, $flage);
-$ce_panel->Add(0, 5, $user_label);
+$flage = NEWT_ANCHOR_RIGHT;
+$ce_panel->Add(0, 5, $user_label,$flage);
+$flage = NEWT_ANCHOR_LEFT;
 $ce_panel->Add(1, 5, $user_group, $flage);
-$ce_panel->Add(0, 6, $next_button);
-$ce_panel->Add(1, 6, $quit_button);
+$ce_panel->Add(0, 6, $empty_label);
+$ce_panel->Add(0, 7, $next_button);
+$ce_panel->Add(1, 7, $quit_button);
 
 Newt::Refresh();
@@ -264 +277 @@
     # Modify enconding of some fields
     $ce_cd{artist} = decode("iso8859-1",$ce_cd{artist});
-    $ce_cd{title} = decode("iso8859-1",$ce_cd{artist});
+    $ce_cd{title} = decode("iso8859-1",$ce_cd{title});
 
     # Third panel to display CD Infos
@@ -277 +290 @@
     my $category_entry = Newt::Entry($width, $flag, $ce_cd{cat});
     my $genre_entry = Newt::Entry($width, $flag, $ce_cd{genre});
-    my $data_entry = Newt::Entry($width, $flag, Dumper(@{$ce_cd{data}}));
-    my $raw_entry = Newt::Entry($width, $flag, Dumper(@{$ce_cd{raw}}));
+    #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 = 5;
@@ -285 +298 @@
     # Build interface
     $ce_panel = Newt::Panel(3, $ce_sh, "CDDB Info");
-    $ce_panel->Add(0, 0, $artist_label);
+    $flage = NEWT_ANCHOR_RIGHT;
+    $ce_panel->Add(0, 0, $artist_label,$flage);
+    $flage = NEWT_ANCHOR_LEFT;
     $ce_panel->Add(1, 0, $artist_entry, $flage);
-    $ce_panel->Add(0, 1, $title_label);
+    $flage = NEWT_ANCHOR_RIGHT;
+    $ce_panel->Add(0, 1, $title_label,$flage);
+    $flage = NEWT_ANCHOR_LEFT;
     $ce_panel->Add(1, 1, $title_entry, $flage);
-    $ce_panel->Add(0, 2, $year_label);
+    $flage = NEWT_ANCHOR_RIGHT;
+    $ce_panel->Add(0, 2, $year_label,$flage);
+    $flage = NEWT_ANCHOR_LEFT;
     $ce_panel->Add(1, 2, $year_entry, $flage);
-    $ce_panel->Add(0, 3, $category_label);
+    $flage = NEWT_ANCHOR_RIGHT;
+    $ce_panel->Add(0, 3, $category_label,$flage);
+    $flage = NEWT_ANCHOR_LEFT;
     $ce_panel->Add(1, 3, $category_entry, $flage);
-    $ce_panel->Add(0, 4, $genre_label);
+    $flage = NEWT_ANCHOR_RIGHT;
+    $ce_panel->Add(0, 4, $genre_label,$flage);
+    $flage = NEWT_ANCHOR_LEFT;
     $ce_panel->Add(1, 4, $genre_entry, $flage);
-    $ce_panel->Add(0, 5, $data_label);
-    $ce_panel->Add(1, 5, $data_entry, $flage);
-    $ce_panel->Add(0, 6, $raw_label);
-    $ce_panel->Add(1, 6, $raw_entry, $flage);
-    $ce_panel->Add(0, 7, $tno_label);
-    $ce_panel->Add(1, 7, $tno_entry, $flage);
+    $flage = NEWT_ANCHOR_RIGHT;
+    $ce_panel->Add(0, 5, $tno_label,$flage);
+    $flage = NEWT_ANCHOR_LEFT;
+    $ce_panel->Add(1, 5, $tno_entry, $flage);
+    #$ce_panel->Add(0, 5, $data_label);
+    #$ce_panel->Add(1, 5, $data_entry, $flage);
+    #$ce_panel->Add(0, 6, $raw_label);
+    #$ce_panel->Add(1, 6, $raw_entry, $flage);
     #$ce_panel->Add(0, 5, $info_label);
     #$ce_panel->Add(1, 5, $info_entry, $flage);
@@ -327 +352 @@
         $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);
+    $ce_panel->Add(0, 8+$n, $empty_label);
+
+    $ce_panel->Add(0, 8+$n+1, $send_button);
+    $ce_panel->Add(1, 8+$n+1, $reload_button);
+    $ce_panel->Add(2, 8+$n+1, $quit_button);
     
     Newt::Cls();