Packman Build Service PMBS

Changes of Revision 2

ldvd.changes Added

@@ -0,0 +1,45 @@
+-------------------------------------------------------------------
+Sun Apr  3 01:24:46 UTC 2011 - pascal.bleser@opensuse.org
+
+- port to Gtk2, hopefully fixes BNC#684732
+
+-------------------------------------------------------------------
+Thu Sep 10 00:00:00 UTC 2009 - Manfred.Tremmel@iiv.de
+
+- cleanups where rpmlint wasn't so happy
+
+-------------------------------------------------------------------
+Fri Mar 24 00:00:00 UTC 2006 - Manfred.Tremmel@iiv.de
+
+- patch for reading the language files from the right place
+
+-------------------------------------------------------------------
+Thu Mar 23 00:00:00 UTC 2006 - Manfred.Tremmel@iiv.de
+
+- update to 2.0.2
+
+-------------------------------------------------------------------
+Wed Mar 22 00:00:00 UTC 2006 - Manfred.Tremmel@iiv.de
+
+- patches for libdvdread 0.9.5
+
+-------------------------------------------------------------------
+Tue Oct 11 00:00:00 UTC 2005 - Manfred.Tremmel@iiv.de
+
+- added a patch to solve buffer overflow in SUSE 10.0
+
+-------------------------------------------------------------------
+Mon Jul 18 00:00:00 UTC 2005 - Manfred.Tremmel@iiv.de
+
+- update to 2.0.1
+
+-------------------------------------------------------------------
+Tue Jun 28 00:00:00 UTC 2005 - Manfred.Tremmel@iiv.de
+
+- first Packman build
+
+-------------------------------------------------------------------
+Thu Jan  6 00:00:00 UTC 2005 - rainer@links2linux.de
+
+- Initial build.
+

ldvd.spec Changed

@@ -1,32 +1,24 @@
-# Packmangroup: Multimedia
-# Packmanpackagename: ldvd
-# Packman: Manfred Tremmel
-# Packmandepends: transcode dvdauthor mjpegtools libdvdread
-# Packmanpackagedesc: <p>Video-DVD backup tool with GUI</p>
-# Packmanpackagedesc_de: <p>Video-DVD Backup Programm mit grafischer Oberfl&auml;che</p>
-
+# vim: set ts=4 sw=4 et:
 %define name      ldvd
 %define version   2.0.2
 %define release   1.pm.1
 
 Name:           ldvd
 Summary:        Video-DVD backup tool with GUI
-Summary(de):    Video-DVD Backup Programm mit grafischer Oberfläche
-License:        GPL
+License:        GNU General Public License version 2 or later (GPLv2 or later)
 Group:          Productivity/Multimedia/Video/Editors and Convertors
-URL:            http://ldvd.sourceforge.net/?page=download
+URL:            http://ldvd.sourceforge.net/
 Version:        2.0.2
-Release:        2
-
+Release:        3
 Source0:        ldvd-2.0.2.tar.bz2
 Source1:        ldvd.desktop
-
 Patch0:         ldvd-ls-sprint-nullbyte.diff
 Patch1:         ldvd-lang.diff
+Patch2:         ldvd-port_to_gtk2.patch
 Vendor:         Packman
 BuildRoot:      %{_tmppath}/%{name}-root
 Requires:       perl
-Requires:       perl-Gtk-Perl
+Requires:       perl-Gtk2
 Requires:       transcode >= 0.6.14
 Requires:       dvdauthor
 Requires:       mkisofs >= 1.15
@@ -34,18 +26,23 @@
 Requires:       mjpegtools >= 1.6.2
 Requires:       libdvdread >= 0.9.5
 BuildRequires:  libdvdread-devel >= 0.9.5
+BuildRequires:  perl-Gtk2
+BuildRequires:  transcode >= 0.6.14
+BuildRequires:  dvdauthor
+BuildRequires:  mkisofs >= 1.15
+BuildRequires:  dvd+rw-tools
+BuildRequires:  mjpegtools >= 1.6.2
+BuildRequires:  libdvdread >= 0.9.5
 BuildRequires:  update-desktop-files
 
 %description
 A tool to make backups from a Video-DVD with GUI.
 
-%description -l de
-Ein Programm zur Erstellung von Backups einer Video-DVD grafischer Oberfläche.
-
 %prep
 %setup -q
 %patch0
 %patch1
+%patch2
 
 %build
 export CFLAGS="$RPM_OPT_FLAGS"
@@ -59,7 +56,7 @@
 %suse_update_desktop_file -i %{name}        AudioVideo AudioVideoEditing
 
 %clean
-[ "%{buildroot}" != "/" ] && %{__rm} -rf %{buildroot}
+%{?buildroot:%__rm -rf "%{buildroot}"}
 
 %files
 %defattr(-, root, root)
@@ -70,19 +67,3 @@
 %config(noreplace) %{_sysconfdir}/%{name}.conf
 
 %changelog
-* Thu Sep 10 2009 Manfred Tremmel <Manfred.Tremmel@iiv.de> - 2.0.2-1.pm.1
-- cleanups where rpmlint wasn't so happy
-* Fri Mar 24 2006 Manfred Tremmel <Manfred.Tremmel@iiv.de>
-- patch for reading the language files from the right place
-* Thu Mar 23 2006 Manfred Tremmel <Manfred.Tremmel@iiv.de>
-- update to 2.0.2
-* Wed Mar 22 2006 Manfred Tremmel <Manfred.Tremmel@iiv.de>
-- patches for libdvdread 0.9.5
-* Tue Oct 11 2005 Manfred Tremmel <Manfred.Tremmel@iiv.de>
-- added a patch to solve buffer overflow in SUSE 10.0
-* Mon Jul 18 2005 Manfred Tremmel <Manfred.Tremmel@iiv.de>
-- update to 2.0.1
-* Tue Jun 28 2005 Manfred Tremmel <Manfred.Tremmel@iiv.de>
-- first Packman build
-* Thu Jan  6 2005  <rainer@links2linux.de> -
-- Initial build.

ldvd-port_to_gtk2.patch Added

@@ -0,0 +1,517 @@
+--- ldvd.orig	2006-03-01 16:29:55.000000000 +0100
++++ ldvd	2011-04-03 03:14:30.000000000 +0200
+@@ -29,7 +29,7 @@
+ 
+ $| = 1;
+ use strict;
+-use Gtk;
++use Gtk2;
+ use POSIX;
+ 
+ my $name = "LDVD";
+@@ -133,157 +133,150 @@
+ my $table_r = 6;
+ my $table_u = 13;
+ 
+-my @cdinfo_xpm = ('16 16 33 1', '  c black', '. c #723800', 'X c #603A1D', 'o c #583B29', 'O c #7E4915', '+ c #495F77', '@ c #0B4CB1', '# c #3069BA', '$ c #107AF5', '% c #48698F', '& c #238AFD', '* c #54A7FF', '= c #6BB5FC', '- c #4697EF', '; c #7DC3FF', ': c #946414', '> c #9F7549', ', c #AF831A', '< c #E3A910', '1 c #FDCF2B', '2 c #FFD41E', '3 c #FDF051', '4 c #FFF173', '5 c #F4D051', '6 c #C2A25C', '7 c #FDF48E', '8 c #F6E69E', '9 c gray100', '0 c #FFFEF2', 'q c #FFFCE5', 'w c #F6F2D0', 'e c #A1B2BF', 'r c None', 'rrrrrr...>:..rrr', 'rrrr..>878qw>.rr', 'rrr.:811580w7>.r', 'rr.>11,<667778.r', 'r.>1<,<:,<6447Or', 'r:52<<:r,<<447>r', '.612<<::<<5347.r', 'O522<85<<+###%or', ',31566<,#==**-@@', '633044<+==99*&$@', ',70875<#;==**&&@', 'O9w3q22#==q0=&&@', '.e38722#=*99*&$@', '..,w312+=*99*&$@', 'r.O....X#-**&$@@', 'rrrrrrrr@@@@@@@r');
+-
+-my @cdbuild_xpm = ("16 16 33 1", '  c black', '. c #5454AC', 'X c #5A5CB3', 'o c #6566B9', 'O c #7475BF', '+ c #7277CF', '@ c #7C82D9', '# c #8384CA', '$ c #9899D3', '% c #8B8CCF', '& c #8A91E5', '* c #8E96E9', '= c #9BA8FD', '- c #A6A8E1', '; c #A8B5FE', ': c #B4B4E1', '> c #B2BBFA', ', c #A2ACFF', '< c #A7A7D9', '1 c #BAC5FF', '2 c #C2C8F9', '3 c #C9D3FF', '4 c #D6DBFB', '5 c #C3C4ED', '6 c #DDE3FF', '7 c #E4EAFF', '8 c #E7EAFF', '9 c #ECF2FF', '0 c gray100', 'q c #FDFFFF', 'w c #FAFBFF', 'e c #F2F5FF', 'r c None', 'rrrrrrr...o..rrr', 'rrrrr..$5e0w:o.r', 'rrrrX#21370009or', 'rrr.$1=**-9000:.', 'rr.-2;+++1#e00w.', 'r.#62%+..&>7w00.', 'r.861=+.X,&4908.', '.$w71;7%==&46w5.', '.4094$91&+1167O.', '.00ww5@@*=;13>.r', '.w0000621;=;1X.r', '.40000631>;=o.rr', '.%ww0w762>=+.rrr', 'r.$w00963%..rrrr', 'r..O<-<@..:rrrrr', 'rrr.....:rrrrrrr');
+-
+-my @cdburn_xpm =('16 16 33 1', '  c black', '. c #6160AD', 'X c #7172B8', 'o c #6A5F99', 'O c #7B7EC7', '+ c #AE4900', '@ c #9C5435', '# c #EF7005', '$ c #DA610C', '% c #916462', '& c #8C7594', '* c #F59106', '= c #FCB103', '- c #FFAD2F', '; c #E19831', ': c #F8B653', '> c #DA9E58', ', c #FDC905', '< c #FFE421', '1 c #FDCE70', '2 c #FFDC59', '3 c #9092CF', '4 c #ACB6F7', '5 c #A2A5DF', '6 c #B9C3FB', '7 c #FFE68B', '8 c #C9D0FB', '9 c #FEFEFF', '0 c #F3F5FE', 'q c #E9EDFF', 'w c #E2DBE6', 'e c #BDA5B0', 'r c None', 'rrrrrrrrrrrrrrrr', 'rrrrrrrr.X353X.r', 'rr++r+=o58q099O.', 'r+*=rr,>4649990.', 'r*:r,*,2&O53q993', '+11r.;,;3..4809e', '#7:rO12>;+X46q95', '*7<%6;1-*&438q93', '=2=>w=1-:e53680X', '=2,=#-1-:%O4684.', '*<,,=1:1-e4448X.', '$<=,<7:-*84443.r', '===<21-*;8643.rr', ':,,<<1*#e865..rr', '$$#*-1#$06O..rrr', 'rr+$$$@o.o.rrrrr');
+-
+ # 1. Initialisieren von Gtk
+ 
+-init Gtk;
+-set_locale Gtk;
++Gtk2->init;
++set_locale Gtk2;
+ 
+ # 2. Create Widgets, set Attributes
+ # 2. a
+ 
+-my $window = new Gtk::Window( "toplevel" );
+-my $table = new Gtk::Table ($table_u, $table_r, TRUE);
+-
+-my $hseparator = new Gtk::HSeparator();
+-
+-my $menubar = new Gtk::MenuBar ();
+-my $datei_item = new Gtk::MenuItem ($LANG{'MENU_FILE'});
+-my $datei_menu = new Gtk::Menu ();
+-my $datei_beenden = new Gtk::MenuItem ($LANG{'MENU_FILE_EXIT'});
+-my $option_item = new Gtk::MenuItem ($LANG{'MENU_OPTIONS'});
+-  my $option_menu = new Gtk::Menu ();
+-my $option_settings = new Gtk::MenuItem ($LANG{'MENU_OPTIONS_SETTINGS'});
++my $window = new Gtk2::Window( "toplevel" );
++my $table = new Gtk2::Table ($table_u, $table_r, TRUE);
+ 
+-my $handlebox = new Gtk::HandleBox();
++my $hseparator = new Gtk2::HSeparator();
+ 
+-my $toolbar = new Gtk::Toolbar ('horizontal', 'both');
++my $menubar = new Gtk2::MenuBar ();
++my $datei_item = new Gtk2::MenuItem ($LANG{'MENU_FILE'});
++my $datei_menu = new Gtk2::Menu ();
++my $datei_beenden = new Gtk2::MenuItem ($LANG{'MENU_FILE_EXIT'});
++my $option_item = new Gtk2::MenuItem ($LANG{'MENU_OPTIONS'});
++  my $option_menu = new Gtk2::Menu ();
++my $option_settings = new Gtk2::MenuItem ($LANG{'MENU_OPTIONS_SETTINGS'});
++
++my $handlebox = new Gtk2::HandleBox();
++
++my $toolbar = new Gtk2::Toolbar();
++$toolbar->set_orientation('horizontal');
++$toolbar->set_style('both');
+ 
+ my $style = $window->get_style()->bg( 'normal' );
+ $window->realize;
+-my ( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d( $window->window, $style, @cdinfo_xpm );
+-my $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
++my $pixmapwid = Gtk2::Image->new_from_icon_name('go-jump', 'small-toolbar');
+ $pixmapwid->show();
+-my $menu_readdvd = Gtk::Toolbar::append_item ($toolbar, $LANG{'READ_DVD'}, $LANG{'READ_DVD_TOOLTIP'}, "privat", $pixmapwid);
++my $menu_readdvd = Gtk2::Toolbar::append_item ($toolbar, $LANG{'READ_DVD'}, $LANG{'READ_DVD_TOOLTIP'}, "privat", $pixmapwid);
+ 
+-( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d( $window->window, $style, @cdbuild_xpm );
+-$pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
++$pixmapwid = Gtk2::Image->new_from_icon_name('drive-cdrom', 'small-toolbar');
+ $pixmapwid->show();
+-my $menu_builddvd = Gtk::Toolbar::append_item ($toolbar, $LANG{'BUILD_DVD'}, $LANG{'BUILD_DVD_TOOLTIP'}, "privat", $pixmapwid);
++my $menu_builddvd = Gtk2::Toolbar::append_item ($toolbar, $LANG{'BUILD_DVD'}, $LANG{'BUILD_DVD_TOOLTIP'}, "privat", $pixmapwid);
+ 
+-( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d( $window->window, $style, @cdburn_xpm );
+-$pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
++$pixmapwid = Gtk2::Image->new_from_icon_name('media-cdrom', 'small-toolbar');
+ $pixmapwid->show();
+-my $menu_burndvd = Gtk::Toolbar::append_item ($toolbar, $LANG{'BURN_DVD'}, $LANG{'BURN_DVD_TOOLTIP'}, "privat", $pixmapwid);
++my $menu_burndvd = Gtk2::Toolbar::append_item ($toolbar, $LANG{'BURN_DVD'}, $LANG{'BURN_DVD_TOOLTIP'}, "privat", $pixmapwid);
+ 
+-my $align = new Gtk::Alignment( 0, 0, 1, 1);
+-my $adj = new Gtk::Adjustment( 0, 0, 1, 0, 0, 0 );
+-my $pbar = new_with_adjustment Gtk::ProgressBar( $adj );
+-
+-my $label_title = new Gtk::Label ($LANG{'TITLE'});
+-my $entry_title = new Gtk::Entry (32);
+-
+-my $paned = new Gtk::HPaned();
+-my $scrolled_l = new Gtk::ScrolledWindow( "", "" );
+-my $scrolled_r = new Gtk::ScrolledWindow( "", "" );
+-
+-my $list_l = new Gtk::List();
+-
+-my $vbox_r = new Gtk::VBox (FALSE, NO_PADDING);
+-my $label_topt = new Gtk::Label ($LANG{'TITLE_SELECT'} . ":");
+-
+-my $frame_audio = new Gtk::Frame ($LANG{'AUDIO_SELECT'});
+-my $hbox_a = new Gtk::HBox (FALSE, NO_PADDING);
+-my $opt_a_source = new Gtk::OptionMenu ();
+-my $opt_a_source_m = new Gtk::Menu ();
+-my $label_a = new Gtk::Label (' => ');
+-my $opt_a_target = new Gtk::OptionMenu ();
+-my $opt_a_target_m = new Gtk::Menu ();
+-
+-my $frame_sub = new Gtk::Frame ($LANG{'SUBTITLE_SELECT'});
+-my $hbox_s = new Gtk::HBox (FALSE, NO_PADDING);
+-my $opt_s_source = new Gtk::OptionMenu ();
+-my $opt_s_source_m = new Gtk::Menu ();
+-my $label_s = new Gtk::Label (' => ');
+-my $opt_s_target = new Gtk::OptionMenu ();
+-my $opt_s_target_m = new Gtk::Menu ();
++my $align = new Gtk2::Alignment( 0, 0, 1, 1);
++#my $adj = new Gtk2::Adjustment( 0, 0, 1, 0, 0, 0 );
++my $pbar = new Gtk2::ProgressBar(); #$adj
++
++my $label_title = new Gtk2::Label ($LANG{'TITLE'});
++my $entry_title = Gtk2::Entry->new_with_max_length(32);
++
++my $paned = new Gtk2::HPaned();
++my $scrolled_l = new Gtk2::ScrolledWindow(undef,undef);
++my $scrolled_r = new Gtk2::ScrolledWindow(undef,undef);
++
++my $list_l = new Gtk2::List();
++
++my $vbox_r = new Gtk2::VBox (FALSE, NO_PADDING);
++my $label_topt = new Gtk2::Label ($LANG{'TITLE_SELECT'} . ":");
++
++my $frame_audio = new Gtk2::Frame ($LANG{'AUDIO_SELECT'});
++my $hbox_a = new Gtk2::HBox (FALSE, NO_PADDING);
++my $opt_a_source = new Gtk2::OptionMenu ();
++my $opt_a_source_m = new Gtk2::Menu ();
++my $label_a = new Gtk2::Label (' => ');
++my $opt_a_target = new Gtk2::OptionMenu ();
++my $opt_a_target_m = new Gtk2::Menu ();
++
++my $frame_sub = new Gtk2::Frame ($LANG{'SUBTITLE_SELECT'});
++my $hbox_s = new Gtk2::HBox (FALSE, NO_PADDING);
++my $opt_s_source = new Gtk2::OptionMenu ();
++my $opt_s_source_m = new Gtk2::Menu ();
++my $label_s = new Gtk2::Label (' => ');
++my $opt_s_target = new Gtk2::OptionMenu ();
++my $opt_s_target_m = new Gtk2::Menu ();
+ 
+-my $button_rip_title_0 = new Gtk::Button ($LANG{'BUTTON_RIP_0'});
+-my $button_rip_title_1 = new Gtk::Button ($LANG{'BUTTON_RIP_1'});
++my $button_rip_title_0 = new Gtk2::Button ($LANG{'BUTTON_RIP_0'});
++my $button_rip_title_1 = new Gtk2::Button ($LANG{'BUTTON_RIP_1'});
+ 
+-my $statusbar = new Gtk::Statusbar();
++my $statusbar = new Gtk2::Statusbar();
+ 
+-my $timer = Gtk->timeout_add( 100, \&STATUS);
++my $timer = Glib::Timeout->add( 100, \&STATUS);
+ 
+ ### BurnWindow ###
+ 
+-my $br_window = new Gtk::Window -toplevel; $br_window->set_title ($LANG{'BR_TITLE'});
+-my $br_table = new Gtk::Table (4, 4, TRUE); ### (u, r, 1)
++my $br_window = new Gtk2::Window -toplevel; $br_window->set_title ($LANG{'BR_TITLE'});
++my $br_table = new Gtk2::Table (4, 4, TRUE); ### (u, r, 1)
+ $br_window->add ($br_table);
+ $br_table->show;
+ 
+-my $br_radio = new Gtk::RadioButton ($LANG{'BR_IMAGE'});
++my $br_radio = new Gtk2::RadioButton ($LANG{'BR_IMAGE'});
+ $br_radio->signal_connect ("clicked" => \&BR_MODE, 1);
+ $br_table->attach_defaults ($br_radio, 0, 1, 0, 1);
+ $br_radio->show;
+ 
+-$br_radio = new Gtk::RadioButton ($LANG{'BR_BURN'}, $br_radio);
++$br_radio = new Gtk2::RadioButton ($LANG{'BR_BURN'}, $br_radio);
+ $br_radio->signal_connect ("clicked" => \&BR_MODE, 2);
+ $br_table->attach_defaults ($br_radio, 1, 2, 0, 1);
+ $br_radio->show;
+ 
+-$br_radio = new Gtk::RadioButton ($LANG{'BR_BURN_I'}, $br_radio);
++$br_radio = new Gtk2::RadioButton ($LANG{'BR_BURN_I'}, $br_radio);
+ $br_radio->signal_connect ("clicked" => \&BR_MODE, 3);
+ $br_table->attach_defaults ($br_radio, 2, 4, 0, 1);
+ $br_radio->show;
+ 
+-my $br_label_image = new Gtk::Label ($LANG{'BR_IMAGE_FILE'});
++my $br_label_image = new Gtk2::Label ($LANG{'BR_IMAGE_FILE'});
+ $br_table->attach_defaults ($br_label_image, 0, 1, 1, 2);
+ $br_label_image->show;
+ 
+-my $br_entry = new Gtk::Entry ();
++my $br_entry = new Gtk2::Entry ();
+ $br_table->attach_defaults ($br_entry, 1, 3, 1, 2);
+ $br_entry->show;
+ 
+-my $br_button = new Gtk::Button ($LANG{'BR_SELECT'});
++my $br_button = new Gtk2::Button ($LANG{'BR_SELECT'});
+ $br_button->signal_connect ("clicked" => \&BR_SELECTION, 1);
+ $br_table->attach_defaults ($br_button, 3, 4, 1, 2);
+ $br_button->show;
+ 
+-my $file_dialog = new Gtk::FileSelection($name . " - " . $version);
++my $file_dialog = new Gtk2::FileSelection($name . " - " . $version);
+ $file_dialog->signal_connect("destroy" => \&BR_SELECTION, 0);
+ $file_dialog->ok_button->signal_connect("clicked" => \&BR_SELECT_IMAGE);
+ $file_dialog->cancel_button->signal_connect( "clicked" => \&BR_SELECTION, 0);
+ 
+-my $br_label_brenner = new Gtk::Label ($LANG{'BR_BURN_DEVICE'});
++my $br_label_brenner = new Gtk2::Label ($LANG{'BR_BURN_DEVICE'});
+ $br_table->attach_defaults ($br_label_brenner, 0, 1, 2, 3);
+ $br_label_brenner->show;
+ 
+-my $brenner_entry = new Gtk::Entry ();
++my $brenner_entry = new Gtk2::Entry ();
+ $brenner_entry->set_text ($SETTINGS{'DVD_BURN_DEVICE'});
+ $br_table->attach_defaults ($brenner_entry, 1, 3, 2, 3);
+ $brenner_entry->show;
+ 
+-my $br_dvd_compat = new Gtk::CheckButton ("-dvd-compat");
++my $br_dvd_compat = new Gtk2::CheckButton ("-dvd-compat");
+ $br_dvd_compat->signal_connect("clicked" => \&BR_COMPAT);
+ $br_table->attach_defaults ($br_dvd_compat, 3, 4, 2, 3);
+ $br_dvd_compat->show;
+ 
+-my $br_label_speed = new Gtk::Label ($LANG{'BR_SPEED'});
++my $br_label_speed = new Gtk2::Label ($LANG{'BR_SPEED'});
+ $br_table->attach_defaults ($br_label_speed, 0, 1, 3, 4);
+ $br_label_speed->show;
+ 
+-my $br_opt_speed = new Gtk::OptionMenu ();
++my $br_opt_speed = new Gtk2::OptionMenu ();
+ $br_table->attach_defaults ($br_opt_speed, 1, 2, 3, 4);
+-my $br_opt_menu = new Gtk::Menu ();
++my $br_opt_menu = new Gtk2::Menu ();
+ $br_opt_speed->set_menu ($br_opt_menu);
+ 
+-my $br_item = new Gtk::MenuItem ("auto");
++my $br_item = new Gtk2::MenuItem ("auto");
+ $br_item->signal_connect ('activate' => \&SET_BRUN_SPEED, 0);
+ $br_opt_menu->append ($br_item);
+ 
+@@ -292,18 +285,18 @@
+ $br_opt_speed->show;
+ 
+ for (my $n = 1; $n <= 16; $n *= 2)
+-{ $br_item = new Gtk::MenuItem ($n . "x");
++{ $br_item = new Gtk2::MenuItem ($n . "x");
+   $br_item->signal_connect ('activate' => \&SET_BRUN_SPEED, $n);
+   $br_opt_menu->append ($br_item);
+   $br_item->show;
+ }
+ 
+-my $br_burn = new Gtk::Button ($LANG{'BR_BURN'});
++my $br_burn = new Gtk2::Button ($LANG{'BR_BURN'});
+ $br_burn->signal_connect ('clicked' => \&BURN_DVD);
+ $br_table->attach_defaults ($br_burn, 2, 3, 3, 4);
+ $br_burn->show;
+ 
+-my $br_close = new Gtk::Button ($LANG{'BR_CLOSE'});
++my $br_close = new Gtk2::Button ($LANG{'BR_CLOSE'});
+ $br_close->signal_connect ('clicked' => sub {$br_window->hide});
+ $br_table->attach_defaults ($br_close, 3, 4, 3, 4);
+ $br_close->show;
+@@ -319,22 +312,22 @@
+ $br_opt_speed->set_sensitive(0);
+ 
+ ###### Settings #####
+-my $se_window = new Gtk::Window ("toplevel");
++my $se_window = new Gtk2::Window ("toplevel");
+ $se_window->set_title ($LANG{'SE_TITLE'});
+ 
+-my $se_table = new Gtk::Table (8, 4, TRUE);
++my $se_table = new Gtk2::Table (8, 4, TRUE);
+ $se_window->add ($se_table);
+ $se_table->show;
+ 
+-my $se_lang_label = new Gtk::Label ($LANG{'SE_LANG'});
++my $se_lang_label = new Gtk2::Label ($LANG{'SE_LANG'});
+ $se_table->attach_defaults ($se_lang_label, 0, 1, 0, 1);
+ $se_lang_label->show;
+ 
+-my $se_opt_lang = new Gtk::OptionMenu ();
++my $se_opt_lang = new Gtk2::OptionMenu ();
+ $se_table->attach_defaults ($se_opt_lang, 1, 4, 0, 1);
+ $se_opt_lang->show;
+ 
+-my $se_opt_menu = new Gtk::Menu ();
++my $se_opt_menu = new Gtk2::Menu ();
+ $se_opt_lang->set_menu ($se_opt_menu);
+ 
+ if (-d "/usr/share/$sh_name-$version")
+@@ -347,7 +340,7 @@
+   { my $file = $_;
+     if ($file =~ /\.lang$/)
+     { $file = $`;
+-      my $se_item = new Gtk::MenuItem ($file);
++      my $se_item = new Gtk2::MenuItem ($file);
+       $se_opt_menu->append ($se_item);
+       $se_item->signal_connect ('activate' => sub {$SETTINGS{'LANG'} = $file; });
+       $se_item->show;
+@@ -355,54 +348,54 @@
+   }
+ }
+ 
+-my $se_label_dvd = new Gtk::Label ($LANG{'SE_DVD'});
++my $se_label_dvd = new Gtk2::Label ($LANG{'SE_DVD'});
+ $se_table->attach_defaults ($se_label_dvd, 0, 1, 1, 2);
+ $se_label_dvd->show;
+ 
+-my $se_entry_dvd = new Gtk::Entry ();
++my $se_entry_dvd = new Gtk2::Entry ();
+ $se_table->attach_defaults ($se_entry_dvd, 1, 4, 1, 2);
+ $se_entry_dvd->set_text ($SETTINGS{'DVD_PATH'});
+ $se_entry_dvd->show;
+ 
+-my $se_label_dvd_device = new Gtk::Label ($LANG{'SE_DVD_BURN_DEVICE'});
++my $se_label_dvd_device = new Gtk2::Label ($LANG{'SE_DVD_BURN_DEVICE'});
+ $se_table->attach_defaults ($se_label_dvd_device, 0, 1, 2, 3);
+ $se_label_dvd_device->show;
+ 
+-my $se_entry_dvd_device = new Gtk::Entry ();
++my $se_entry_dvd_device = new Gtk2::Entry ();
+ $se_table->attach_defaults ($se_entry_dvd_device, 1, 4, 2, 3);
+ $se_entry_dvd_device->set_text ($SETTINGS{'DVD_BURN_DEVICE'});
+ $se_entry_dvd_device->show;
+ 
+-my $se_label_path = new Gtk::Label ($LANG{'SE_PATH'});
++my $se_label_path = new Gtk2::Label ($LANG{'SE_PATH'});
+ $se_table->attach_defaults ($se_label_path, 0, 1, 3, 4);
+ $se_label_path->show;
+ 
+-my $se_entry_path = new Gtk::Entry ();
++my $se_entry_path = new Gtk2::Entry ();
+ $se_table->attach_defaults ($se_entry_path, 1, 4, 3, 4);
+ $se_entry_path->set_text ($SETTINGS{'PATH'});
+ $se_entry_path->show;
+ 
+-my $se_label_size = new Gtk::Label ($LANG{'SE_DVD_SIZE'});
++my $se_label_size = new Gtk2::Label ($LANG{'SE_DVD_SIZE'});
+ $se_table->attach_defaults ($se_label_size, 0, 1, 4, 5);
+ $se_label_size->show;
+ 
+-my $se_entry_size = new Gtk::Entry ();
++my $se_entry_size = new Gtk2::Entry ();
+ $se_table->attach_defaults ($se_entry_size, 1, 4, 4, 5);
+ $se_entry_size->set_text ($SETTINGS{'DVD_SIZE'});
+ $se_entry_size->show;
+ 
+-my $se_label_nice = new Gtk::Label ($LANG{'SE_NICE'});
++my $se_label_nice = new Gtk2::Label ($LANG{'SE_NICE'});
+ $se_table->attach_defaults ($se_label_nice, 0, 1, 5, 6);
+ $se_label_nice->show;
+ 
+-my $se_adj_nice = new Gtk::Adjustment ($SETTINGS{'NICE'}, -20, 19, 1, 1, 0);
+-my $spin = new Gtk::SpinButton ($se_adj_nice, 0, 0);
++my $se_adj_nice = new Gtk2::Adjustment ($SETTINGS{'NICE'}, -20, 19, 1, 1, 0);
++my $spin = new Gtk2::SpinButton ($se_adj_nice, 0, 0);
+ $spin->set_wrap (TRUE);
+-$spin->set_shadow_type ('out');
++#$spin->set_shadow_type ('out');
+ $se_table->attach_defaults ($spin, 1, 4, 5, 6);
+ $spin->show;
+ 
+-my $se_testrip = new Gtk::CheckButton ($LANG{'SE_TEST_RIP'});
++my $se_testrip = new Gtk2::CheckButton ($LANG{'SE_TEST_RIP'});
+ if ($SETTINGS{'TEST_RIP'})
+ { $se_testrip->set_active(1);
+ }
+@@ -410,12 +403,12 @@
+ $se_table->attach_defaults ($se_testrip, 1, 2, 6, 7);
+ $se_testrip->show;
+ 
+-my $se_save = new Gtk::Button ($LANG{'SE_SAVE'});
++my $se_save = new Gtk2::Button ($LANG{'SE_SAVE'});
+ $se_save->signal_connect( "clicked" => \&SAVE_SETTINGS);
+ $se_table->attach_defaults ($se_save, 2, 3, 7, 8);
+ $se_save->show;
+ 
+-my $se_close = new Gtk::Button ($LANG{'SE_CLOSE'});
++my $se_close = new Gtk2::Button ($LANG{'SE_CLOSE'});
+ $se_close->signal_connect( "clicked" => sub {$se_window->hide;});
+ $se_table->attach_defaults ($se_close, 3, 4, 7, 8);
+ $se_close->show;
+@@ -424,13 +417,13 @@
+ # 2. b
+ 
+ $window->set_title ("$name $version");
+-$window->set_usize (500, 275);
++$window->set_size_request (500, 275);
+ 
+ $scrolled_l->set_policy('automatic', 'always');
+ $scrolled_r->set_policy('automatic', 'always');
+ 
+-$pbar->set_format_string( "%v MB " . $LANG{'PROGRESS_FROM'} . "  ~ %u MB (~ %p%%)" );
+-$pbar->set_show_text(1);
++#$pbar->set_format_string( "%v MB " . $LANG{'PROGRESS_FROM'} . "  ~ %u MB (~ %p%%)" );
++#$pbar->set_show_text(1);
+ 
+ # 3. Callbacks
+ 
+@@ -559,7 +552,7 @@
+ $table->show;
+ $window->show;
+ 
+-main Gtk;
++main Gtk2;
+ 
+ ###############################
+ 
+@@ -738,7 +731,7 @@
+   while ($loop < $length)
+   { $label = sprintf("%3d - ", $loop) . SEK_STD($title_length[$loop]);
+     
+-    $items[$loop] = new Gtk::ListItem($label);
++    $items[$loop] = new Gtk2::ListItem($label);
+     $items[$loop]->signal_connect ('select' => \&TITLE_SELECT, $loop);
+ 
+     $list_l->add($items[$loop]);
+@@ -767,11 +760,11 @@
+   my $loop = 1;
+ 
+   $opt_a_source->remove_menu ();
+-  $opt_a_source_m = new Gtk::Menu ();
++  $opt_a_source_m = new Gtk2::Menu ();
+   $opt_a_source->set_menu ($opt_a_source_m);
+ 
+   while ($loop < $length)
+-  { my $item = new Gtk::MenuItem ($loop . ": " . $audio[$loop]->{'LANG'} . " " . $audio[$loop]->{'FORMAT'} . " " 
++  { my $item = new Gtk2::MenuItem ($loop . ": " . $audio[$loop]->{'LANG'} . " " . $audio[$loop]->{'FORMAT'} . " " 
+      . ($audio[$loop]->{'FREQ'}/1000) . "kHz " . $audio[$loop]->{'CHANNELS'} . "Ch");
+     $opt_a_source_m->append ($item);
+     $item->signal_connect ('activate' => \&SET_AUDIO, $loop);
+@@ -783,7 +776,7 @@
+   ### Subtitle ###
+ 
+   $opt_s_source->remove_menu ();
+-  $opt_s_source_m = new Gtk::Menu ();
++  $opt_s_source_m = new Gtk2::Menu ();
+   $opt_s_source->set_menu ($opt_s_source_m);
+ 
+   if (defined @{$DVD_INFO{'SUBTITLE'}->[$akt_title]})
+@@ -793,7 +786,7 @@
+     $loop = 1;
+   
+     while ($loop < $length)
+-    { my $item = new Gtk::MenuItem ($loop . ": " . $subtitle[$loop]->{'LANG'} . " " . $subtitle[$loop]->{'CONTENT'});
++    { my $item = new Gtk2::MenuItem ($loop . ": " . $subtitle[$loop]->{'LANG'} . " " . $subtitle[$loop]->{'CONTENT'});
+       $opt_s_source_m->append ($item);
+       $item->signal_connect ('activate' => \&SET_SUB, $loop);
+       $item->show;
+@@ -825,16 +818,16 @@
+   my $loop = 1;
+ 
+   $opt_a_target->remove_menu ();
+-  $opt_a_target_m = new Gtk::Menu ();
++  $opt_a_target_m = new Gtk2::Menu ();
+   $opt_a_target->set_menu ($opt_a_target_m);
+ 
+-  $audio_items[0] = new Gtk::MenuItem ($LANG{'LABEL_A_TARGET_NONE'});
++  $audio_items[0] = new Gtk2::MenuItem ($LANG{'LABEL_A_TARGET_NONE'});
+   $opt_a_target_m->append ($audio_items[0]);
+   $audio_items[0]->signal_connect ('activate' => \&AUDIO_SELECT, 0);
+   $audio_items[0]->show;
+ 
+   while ($loop < $length)
+-  { $audio_items[$loop] = new Gtk::MenuItem ($LANG{'LABEL_A_TARGET'} . ": " . $loop);
++  { $audio_items[$loop] = new Gtk2::MenuItem ($LANG{'LABEL_A_TARGET'} . ": " . $loop);
+     $opt_a_target_m->append ($audio_items[$loop]);
+     $audio_items[$loop]->signal_connect ('activate' => \&AUDIO_SELECT, $loop);
+     $audio_items[$loop]->show;
+@@ -879,16 +872,16 @@
+   my $loop = 1;
+ 
+   $opt_s_target->remove_menu ();
+-  $opt_s_target_m = new Gtk::Menu ();
++  $opt_s_target_m = new Gtk2::Menu ();
+   $opt_s_target->set_menu ($opt_s_target_m);
+ 
+-  $sub_items[0] = new Gtk::MenuItem ($LANG{'LABEL_S_TARGET_NONE'});
++  $sub_items[0] = new Gtk2::MenuItem ($LANG{'LABEL_S_TARGET_NONE'});
+   $opt_s_target_m->append ($sub_items[0]);
+   $sub_items[0]->signal_connect ('activate' => \&SUB_SELECT, 0);
+   $sub_items[0]->show;
+ 
+   while ($loop < $length)
+-  { $sub_items[$loop] = new Gtk::MenuItem ($LANG{'LABEL_S_TARGET'} . ": " . $loop);
++  { $sub_items[$loop] = new Gtk2::MenuItem ($LANG{'LABEL_S_TARGET'} . ": " . $loop);
+     $opt_s_target_m->append ($sub_items[$loop]);
+     $sub_items[$loop]->signal_connect ('activate' => \&SUB_SELECT, $loop);
+     $sub_items[$loop]->show;
+@@ -1318,7 +1311,7 @@
+ 
+   print "\tThank you for using $name - $version\n"
+    . "\tCopyright by HdR <hdr1\@users.sourceforge.net>\n";
+-  Gtk->exit (0);
++  exit (0);
+ }
+ 
+ sub STD_SEK ($)
+@@ -1566,12 +1559,12 @@
+     { $toolbar->set_sensitive(1);
+ 
+       my $du = (DIR_SIZE($SETTINGS{'PATH'} . "/" . $DVD_INFO{'DISC_TITLE'}))/(1024*1024);
+-      $adj = $pbar->adjustment;
++      #$adj = $pbar->adjustment;
+       $pbar->configure($du, 0, $du);
+     }
+     else
+     { my $du = (DIR_SIZE($SETTINGS{'PATH'} . "/" . $DVD_INFO{'DISC_TITLE'}))/(1024*1024);
+-      $adj = $pbar->adjustment;
++        #$adj = $pbar->adjustment;
+       $pbar->set_value($du);
+     }
+   }