Projects
Multimedia
ldvd
ldvd-port_to_gtk2.patch
Sign Up
Log In
Username
Password
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File ldvd-port_to_gtk2.patch of Package ldvd
--- 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); } }
Locations
Projects
Search
Status Monitor
Help
Open Build Service
OBS Manuals
API Documentation
OBS Portal
Reporting a Bug
Contact
Mailing List
Forums
Chat (IRC)
Twitter
Open Build Service (OBS)
is an
openSUSE project
.