Changeset 887 in ProjectBuilder

Timestamp:

Oct 26, 2009, 10:45:22 AM (15 years ago)

Author:

Bruno Cornec

Message:

Calculate width in function of screen size

File:

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

projects/CDDBeditor/devel/CDDBeditor/bin/CDDBeditor

@@ -203 +203 @@
 
 my $flag = NEWT_ENTRY_SCROLL;
-my $width = 40;
+# Need 23 char for track and time
+my $width = $ce_sl - 23;
+# Othe fields are limited to 5
+my $width2 = 5;
 my $host_entry = Newt::Entry($width, $flag, $ce_config{"CDDB_HOST"});
-$width = 5;
-my $port_entry = Newt::Entry($width, $flag, $ce_config{"CDDB_PORT"});
+my $port_entry = Newt::Entry($width2, $flag, $ce_config{"CDDB_PORT"});
 my $mode_group;
 my $proxy_entry = undef;
 $mode_group = Newt::HRadiogroup($ce_cddb_mode{"0"}, $ce_cddb_mode{"1"});
 if ($ce_config{"CDDB_MODE"} eq "http" ) {
-    $width = 40;
     $proxy_entry = Newt::Entry($width, $flag, $ce_config{"HTTP_PROXY"});
 }
-$width = 40;
 my $dev_entry = Newt::Entry($width, $flag, $ce_config{"CD_DEVICE"});
 my $user_group;
@@ -304 +304 @@
     if ($firsttime == 1) {
         my %ce_cd = get_cddb(\%ce_config);
-        $ce_cd = \%ce_cd;
+        $ce_cd = \%ce_cd if (defined %ce_cd);
     }
     $firsttime = 0;
@@ -381 +381 @@
     # Components
     $flag = NEWT_ENTRY_SCROLL;
-    $width = 40;
     $artist_entry = Newt::Entry($width, $flag, $ce_cd->{artist});
     $title_entry = Newt::Entry($width, $flag, $ce_cd->{title});
@@ -389 +388 @@
     $genre_entry = Newt::Entry($width, $flag, $ce_cd->{genre});
     $tno_entry = Newt::Label($ce_cd->{tno}."   -   ".$id_label.$ce_cd->{id}."   -   ".$rev_label.$ce_cd->{revision});
-    $width = 5;
-    $year_entry = Newt::Entry($width, $flag, $ce_cd->{year});
+    $year_entry = Newt::Entry($width2, $flag, $ce_cd->{year});
     
     # Build interface
@@ -420 +418 @@
 
     my $n=0;
-    $width = 40;
     while ( $n < $ce_cd->{tno} ) {
         last if ($n > $ce_sh - 9);
@@ -471 +468 @@
     if ($data->Tag() eq "Send") {
         $flag = NEWT_FLAG_WRAP;
-        $width = 40;
         my $height = 10;