summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk3.pm66
1 files changed, 0 insertions, 66 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index e136d6701..ec24d92bc 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -1283,72 +1283,6 @@ sub toggle_expansion {
}
}
-
-# With GTK+, for more GUIes coherency, GtkOptionMenu is recommended instead of a
-# combo if the user is selecting from a fixed set of options.
-#
-# That is, non-editable combo boxes are not encouraged. GtkOptionMenu is much
-# easier to use than GtkCombo as well. Use GtkCombo only when you need the
-# editable text entry.
-#
-# GtkOptionMenu is a much better-implemented widget and also the right UI for
-# noneditable sets of choices.)
-#
-# GtkCombo is deprecated in 2.4.x because it still uses deprecated
-# GtkList. GtkOption menu is deprecated in order to have an unified widget.
-#
-# GtkComBox widget replaces GtkOption menu whereas GtkComBoxEntry replaces GtkCombo.
-#
-#
-# This layer try to make OptionMenu and ComboBox look being api
-# compatible with Combo since its API is quite nice.
-
-package Gtk3::OptionMenu;
-use MDK::Common;
-
-# try to get combox <==> option menu mapping
-sub set_popdown_strings {
- my ($w, @strs) = @_;
- my $menu = Gtk3::Menu->new;
- # keep string list around for ->set_text compatibilty helper
- $w->{strings} = \@strs;
- #$w->set_menu((ugtk3::create_factory_menu($window, [ "File", (undef) x 3, '<Branch>' ], map { [ "File/" . $_, (undef) x 3, '<Item>' ] } @strs))[0]);
- $menu->append(ugtk3::gtkshow(Gtk3::MenuItem->new_with_label($_))) foreach @strs;
- $w->set_menu($menu);
- $w;
-}
-
-sub new_with_strings {
- my ($class, $strs, $o_val) = @_;
- my $w = $class->new;
- $w->set_popdown_strings(@$strs);
- $w->set_text($o_val) if $o_val;
- $w;
-}
-
-sub entry {
- my ($w) = @_;
- return $w;
-}
-
-sub get_text {
- my ($w) = @_;
- $w->get_history == -1 ? '' : $w->{strings}[$w->get_history];
-}
-
-sub set_text {
- my ($w, $val) = @_;
- each_index {
- if ($_ eq $val) {
- $w->set_history($::i);
- return;
- }
- } @{$w->{strings}};
-}
-
-
-
-
package Gtk3::ComboBox;
use MDK::Common;