File ldvd-port_to_gtk2.patch of Package ldvd

File ldvd-port_to_gtk2.patch of Package ldvd (Revision 2)

Currently displaying revision 2 , Show latest

--- 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);
     }
   }