index : forums	master
	The forums.mageia.org Website	Maat [maat]

aboutsummaryrefslogtreecommitdiffstats

log msg author committer range

path: root/phpBB/develop/migration_tips.php

diff options

context:	12345678910152025303540
space:	includeignore
mode:	unifiedssdiffstat only

author	Joas Schilling <nickvergessen@gmx.de>	2014-03-15 17:32:07 +0100
committer	Joas Schilling <nickvergessen@gmx.de>	2014-03-15 17:32:07 +0100
commit	9be5405e5bcce7fc3f7e51a6b2912d07ed652b2d (patch)
tree	9c18bd24951b490de91b55265775599756de0220 /phpBB/develop/migration_tips.php
parent	873b5686a1e361cded1c9310829035579168b227 (diff)
download	forums-9be5405e5bcce7fc3f7e51a6b2912d07ed652b2d.tar forums-9be5405e5bcce7fc3f7e51a6b2912d07ed652b2d.tar.gz forums-9be5405e5bcce7fc3f7e51a6b2912d07ed652b2d.tar.bz2 forums-9be5405e5bcce7fc3f7e51a6b2912d07ed652b2d.tar.xz forums-9be5405e5bcce7fc3f7e51a6b2912d07ed652b2d.zip

[prep-release-3.1.0-b1] Update build version to 3.1.0-b2-dev

Diffstat (limited to 'phpBB/develop/migration_tips.php')

0 files changed, 0 insertions, 0 deletions

generated by cgit v1.2.1 (git 2.21.0) at 2025-11-07 17:48:13 +0000

package interactive_newt;

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 = 80;
my $height = 25;
my @wait_messages;

sub new() {
    Newt::Init;
    Newt::Cls;
    Newt::SetSuspendCallback;
    open STDERR,">/dev/null" if $::isStandalone;
    bless {}, $_[0];
}

sub suspend { Newt::Suspend }
sub resume { Newt::Resume }
sub end() { Newt::Finished }
sub exit() { end; exit($_[0]) }
END { end() }

sub myTextbox {
    my @l = map { split "\n" } @_;
    my $mess = Newt::Component::Textbox(1, 0, my $w = max(map { length } @l) + 1, my $h = @l, 1 << 6);
    $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_listW {
    my ($o, $title_, $messages, $l, $def) = @_;
    my ($title, @okcancel) = ref $title_ ? @$title_ : ($title_, _("Ok"), _("Cancel"));

    my $mesg = join("\n", @$messages);
    my $len = 0; $len += length($_) foreach @$l;

    if (@$l == 1) {
	Newt::WinMessage($title, @$l, $mesg);
	$l->[0];
#- because newt will not try to remove window if bigger than screen !
    } elsif (@$l == 2 && $len < 64) {
	$l->[Newt::WinChoice($title, @$l, $mesg) - 1];