drakx - Mageia Installer and base platform for many utilities

diff options

author	Wanderlei Antonio Cavassin <cavassin@mandriva.com.br>	2008-07-22 18:21:17 +0000
committer	Wanderlei Antonio Cavassin <cavassin@mandriva.com.br>	2008-07-22 18:21:17 +0000
commit	fa4a0ea3b345dcce8055c78a4f77dfa4c4c18677 (patch)
tree	7dc2e0bedb37279c8531f44606a5ff4feb1d54bc /docs/object_class.fig
parent	0f4862acd43f477fd00bdd3d616deac66e3b61cb (diff)
download	drakx-fa4a0ea3b345dcce8055c78a4f77dfa4c4c18677.tar drakx-fa4a0ea3b345dcce8055c78a4f77dfa4c4c18677.tar.gz drakx-fa4a0ea3b345dcce8055c78a4f77dfa4c4c18677.tar.bz2 drakx-fa4a0ea3b345dcce8055c78a4f77dfa4c4c18677.tar.xz drakx-fa4a0ea3b345dcce8055c78a4f77dfa4c4c18677.zip

new translations

Diffstat (limited to 'docs/object_class.fig')

0 files changed, 0 insertions, 0 deletions

package interactive_newt; # $Id$ use diagnostics; use strict; use vars qw(@ISA); @ISA = qw(interactive); use interactive; use common qw(:common :functional); use log; use Newt::Newt; #- !! provides Newt and not Newt::Newt my ($width, $height) = (80, 25); my @wait_messages; sub new() { Newt::Init; Newt::Cls; Newt::SetSuspendCallback; ($width, $height) = Newt::GetScreenSize; open STDERR,">/dev/null" if $::isStandalone; bless {}, $_[0]; } sub enter_console { Newt::Suspend } sub leave_console { Newt::Resume } sub suspend { Newt::Suspend } sub resume { Newt::Resume } sub end() { Newt::Finished } sub exit() { end; exit($_[1]) } END { end() } sub myTextbox { my $allow_scroll = shift; my $width = $width - 9; my @l = map { /(.{1,$width})/g } map { split "\n" } @_; my $h = min($height - 13, int @l); my $flag = 1 << 6; if ($h < @l) { if ($allow_scroll) { $flag |= 1 << 2; #- NEWT_FLAG_SCROLL } else { # remove the text, no other way! @l = @l[0 .. $h-1]; } } my $mess = Newt::Component::Textbox(1, 0, my $w = max(map { length } @l) + 1, $h, $flag); $mess->TextboxSetText(join("\n", @_)); $mess, $w + 1, $h; } sub separator { my $blank = Newt::Component::Form(\undef, '', 0); $blank->FormSetWidth ($_[0]); $blank->FormSetHeight($_[1]); $blank; } sub checkval { $_[0] && $_[0] ne ' ' ? '*' : ' ' } sub ask_from_entries_refW { my ($o, $common, $l, $l2) = @_; my $ignore; #-to handle recursivity my $old_focus = -2; #-the widgets my (@widgets, $total_size); my $set_all = sub { $ignore = 1; $_->{set}->(${$_->{e}{val}}) foreach @widgets; # $_->{w}->set_sensitive(!$_->{e}{disabled}()) foreach @widgets; $ignore = 0; }; my $get_all = sub { ${$_->{e}{val}} = $_->{get}->() foreach @widgets; }; my $create_widget = sub { my ($e, $ind) = @_; $e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/; #- combo doesn't exist, fallback to a sensible default $e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo'; my $changed = sub { return if $ignore; return $old_focus++ if $old_focus == -2; #- handle special first case $get_all->(); #- TODO: this is very rough :( $common->{callbacks}{$old_focus == $ind ? 'changed' : 'focus_out'}->($ind); $set_all->(); $old_focus = $ind; }; my ($w, $real_w, $set, $get, $expand, $size); if ($e->{type} eq 'bool') { $w = Newt::Component::Checkbox(-1, -1, $e->{text} || '', checkval(${$e->{val}}), " *"); $set = sub { $w->CheckboxSetValue(checkval($_[0])) }; $get = sub { $w->CheckboxGetValue == ord '*' }; } elsif ($e->{type} eq 'button') { $w = Newt::Component::Button(-1, -1, may_apply($e->{format}, ${$e->{val}})); } elsif ($e->{type} =~ /list/) { my ($h, $wi) = (@$l == 1 && $height > 30 ? 10 : 5, 20); my $scroll = @{$e->{list}} > $h ? 1 << 2 : 0; $size = min(int @{$e->{list}}, $h); $w = Newt::Component::Listbox(-1, -1, $h, $scroll); #- NEWT_FLAG_SCROLL foreach (@{$e->{list}}) { my $t = may_apply($e->{format}, $_); $w->ListboxAddEntry($t, $_); $wi = max($wi, length $t); } $w->ListboxSetWidth(min($wi + 3, $width - 7)); # 3 added for the scrollbar (?) $get = sub { $w->ListboxGetCurrent }; $set = sub { my ($val) = @_; map_index { $w->ListboxSetCurrent($::i) if $val eq $_; } @{$e->{list}}; }; } else { $w = Newt::Component::Entry(-1, -1, '', 20, ($e->{hidden} && 1 << 11) | 1 << 2); $get = sub { $w->EntryGetValue }; $set = sub { $w->EntrySet($_[0], 1) }; } $total_size += $size || 1; #- !! callbacks must be kept otherwise perl will free them !! #- (better handling of addCallback needed) { e => $e, w => $w, real_w => $real_w || $w, expand => $expand, callback => $changed, get => $get || sub { ${$e->{val}} }, set => $set || sub {} }; }; @widgets = map_index { $create_widget->($_, $::i) } @$l; $_->{w}->addCallback($_->{callback}) foreach @widgets; $set_all->(); my $grid = Newt::Grid::CreateGrid(3, max(1, int @$l)); map_index { $grid->GridSetField(0, $::i, 1, ${Newt::Component::Label(-1, -1, $_->{e}{label})}, 0, 0, 1, 0, 1, 0); $grid->GridSetField(1, $::i, 1, ${$_->{real_w}}, 0, 0, 0, 0, 1, 0); } @widgets; my $listg = do { my $height = 18; #- use a scrolled window if there is a lot of checkboxes (aka ask_many_from_list) #- !! works badly together with list's :-( if ((grep { $_->{type} eq 'bool' } @$l) > 6 && $total_size > $height) { $grid->GridPlace(1, 1); #- Uh?? otherwise the size allocated is bad my $scroll = Newt::Component::VerticalScrollbar(-1, -1, $height, 9, 10); my $subf = $scroll->Form('', 0); $subf->FormSetHeight($height); $subf->FormAddGrid($grid, 0); Newt::Grid::HCloseStacked($subf, separator(1, $height), $scroll); } else { $grid; } }; my ($buttons, $ok, $cancel) = Newt::Grid::ButtonBar($common->{ok} || _("Ok"), if_($common->{cancel}, $common->{cancel})); my $form = Newt::Component::Form(\undef, '', 0); my $window = Newt::Grid::GridBasicWindow(first(myTextbox(@widgets == 0, @{$common->{messages}})), $listg, $buttons); $window->GridWrappedWindow($common->{title} || ''); $form->FormAddGrid($window, 1); my $check = sub { my ($f) = @_; $get_all->(); my ($error, $focus) = $f->(); if ($error) { $set_all->(); } !$error; }; my $canceled; do { my $r = $form->RunForm; foreach (@widgets) { if ($$r == ${$_->{w}}) { $form->FormDestroy; Newt::PopWindow; $_->{e}{clicked}(); return ask_from_entries_refW($o, $common, $l, $l2); } } $canceled = $cancel && $$r == $$cancel; } until ($check->($common->{callbacks}{$canceled ? 'canceled' : 'complete'})); $form->FormDestroy; Newt::PopWindow; !$canceled; } sub waitbox { my ($title, $messages) = @_; my ($t, $w, $h) = myTextbox(1, @$messages); my $f = Newt::Component::Form(\undef, '', 0); Newt::CenteredWindow($w, $h, $title); $f->FormAddComponent($t); $f->DrawForm; Newt::Refresh; $f->FormDestroy; push @wait_messages, $f; $f; } sub wait_messageW { my ($o, $title, $messages) = @_; { form => waitbox($title, $messages), title => $title }; } sub wait_message_nextW { my ($o, $messages, $w) = @_; $o->wait_message_endW($w); $o->wait_messageW($w->{title}, $messages); } sub wait_message_endW { my ($o, $w) = @_; my $wait = pop @wait_messages; # log::l("interactive_newt does not handle none stacked wait-messages") if $w->{form} != $wait; Newt::PopWindow; } sub kill { } 1;


context:
space:
mode: