Changeset 1744 in ProjectBuilder for projects/CDDBeditor

Timestamp:

Apr 13, 2013, 4:53:17 PM (11 years ago)

Author:

Bruno Cornec

Message:

• Adds an eject button at end to avoid switching window just for that.

File:

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

projects/CDDBeditor/devel/CDDBeditor/bin/CDDBeditor

@@ -497 +497 @@
         $flag = NEWT_FLAG_WRAP|NEWT_ENTRY_SCROLL;
         $track_entry[$n] = Newt::Entry($width, $flag, $ce_cd->{track}[$n]);
-        $ce_panel->Add(0, 9+$n, $track_label);
+        $flage = NEWT_ANCHOR_RIGHT;
+        $ce_panel->Add(0, 9+$n, $track_label,$flage);
+        $flage = NEWT_ANCHOR_LEFT;
         $ce_panel->Add(1, 9+$n, $track_entry[$n], $flage);
         $ce_panel->Add(2, 9+$n, $dur_label, $flage);
@@ -504 +506 @@
     $ce_panel->Add(0, 9+$n, $empty_label);
 
-    $ce_panel->Add(0, 9+$n+1, $send_button);
-    $ce_panel->Add(1, 9+$n+1, $reload_button);
-    $ce_panel->Add(2, 9+$n+1, $quit_button);
+    my $eject_button = Newt::Button("Eject");
+    $eject_button->Tag("Eject");
+    my $ce_panel_button = Newt::Panel(4, $width);
+    $flage = NEWT_ANCHOR_LEFT;
+    $ce_panel_button->Add(0, 1, $send_button,$flage, 3, 0, 3, 0);
+    $ce_panel_button->Add(1, 1, $reload_button, $flage, 3, 0, 3, 0);
+    $flage = NEWT_ANCHOR_RIGHT;
+    $ce_panel_button->Add(2, 1, $quit_button, $flage, 3, 0, 3, 0);
+    $ce_panel_button->Add(3, 1, $eject_button,$flage, 3, 0, 3, 0);
+    $ce_panel->Add(0, 9+$n+1, $empty_label);
+    $ce_panel->Add(1, 9+$n+1, $ce_panel_button);
     
     Newt::Cls();
@@ -527 +537 @@
     Newt::Cls();
     cddbe_exit(0) if ($data->Tag() eq "Quit");
+    system("eject ".$ce_config{"CD_DEVICE"}) if ($data->Tag() eq "Eject");
 
     pb_log(1,"Before sending\n");