David Walser <[EMAIL PROTECTED]> writes:
> > david faure has begun to do some work in that area (in kde's cvs)
> > but the road is long before having interactive::qt;
> >
> > and at that moment, we'll have to check either to use
> > interactive::qt or interactive::gtk :-)
> >
> > the real problem will be that some tools directly use my_gtk...
>
> Is that part of perl-MDK-Common?
urpmf is your friend, little jedi :-) :
tv@vador ~ $ urpmf my_gtk.pm
drakxtools:/usr/lib/libDrakX/my_gtk.pm
> Guess you'll have to abstract my_gtk too. I'm assuming they use
> my_gtk for things that appear only in the gtk version(s) and not the
> newt version(s) :o)
yes, there's a few gtk only tools (logdrake, ...); and there's the mcc
which provides a short interactive ui and the full blessed my_gtk/ugtk
ui.
ugtk offers nice wrapper on top of perl_gtk, thus enabling powerful
creation of ui. mcc example:
my $window = new Gtk::Window -toplevel,
$window->add(
gtkpack_(new Gtk::VBox(0, 0),
0, my $title_w = get_main_menu($window),
0, my $fixed_title = gtkset_usize(new Gtk::Fixed, 400, 55),
0, new Gtk::HSeparator,
1, gtkpack_(new Gtk::HBox(0, 0),
0, my $fixed_left = new Gtk::Fixed,
1, gtkpack_(my $right_box = new Gtk::VBox(0, 0),
1, gtkpack_($emb_box = new Gtk::VBox(0, 0),
1, $emb_wait = gtkpack_(new Gtk::VBox(0, 0),
1, new Gtk::HBox(0, 0),
0, gtkpack_(new Gtk::HBox(0, 0),
1, new Gtk::VBox(0, 0),
0,
gtkadd(gtkset_shadow_type(new Gtk::Frame, 'etched_out'),
gtkpng_('hourglass'),
),
1, new Gtk::VBox(0, 0),
),
0, new Gtk::Label(_("Please
wait...")),
1, new Gtk::HBox(0, 0),
0,
gtkadd(gtkset_layout(gtkset_border_width(new Gtk::HButtonBox, 10), 'end'),
gtksignal_connect(new
Gtk::Button(_("Cancel")), clicked => sub { kill('USR1', $$) }),
)
)
),
1, new Gtk::Widget ('Gtk::Notebook',show_border => 0,
show_tabs => 0),
)
)
)
);
my_gtk offer high level functions (windows, ...) mainly used by interactive::gtk
