summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/Newt/Newt.xs68
-rw-r--r--perl-install/interactive/newt.pm12
2 files changed, 38 insertions, 42 deletions
diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs
index 6ffdb1e63..0b1a757ff 100644
--- a/perl-install/Newt/Newt.xs
+++ b/perl-install/Newt/Newt.xs
@@ -115,28 +115,30 @@ addCallback(co, callback)
newtComponentAddCallback(co, componentCallback, callback);
Newt::Component
-newtCompactButton(left,top,text)
- int left;
- int top;
+newtCompactButton(text)
const char * text;
+ CODE:
+ RETVAL = newtCompactButton(-1, -1, text);
+ OUTPUT:
+ RETVAL
Newt::Component
-newtButton(left,top,text)
- int left;
- int top;
+newtButton(text)
const char * text;
+ CODE:
+ RETVAL = newtButton(-1, -1, text);
+ OUTPUT:
+ RETVAL
Newt::Component
-newtCheckbox(left,top,text,defValue,seq)
- int left;
- int top;
+newtCheckbox(text,defValue,seq)
const char * text;
char *defValue;
const char * seq;
- CODE:
- RETVAL = newtCheckbox(left, top, text, defValue[0], seq, NULL);
- OUTPUT:
- RETVAL
+ CODE:
+ RETVAL = newtCheckbox(-1, -1, text, defValue[0], seq, NULL);
+ OUTPUT:
+ RETVAL
int
newtCheckboxGetValue(co)
@@ -150,10 +152,12 @@ newtCheckboxSetValue(co, value)
newtCheckboxSetValue(co, value[0]);
Newt::Component
-newtLabel(left,top,text)
- int left;
- int top;
+newtLabel(text)
const char * text;
+CODE:
+ RETVAL = newtLabel(-1, -1, text);
+OUTPUT:
+ RETVAL
void
newtLabelSetText(co,text)
@@ -161,12 +165,14 @@ newtLabelSetText(co,text)
const char * text;
Newt::Component
-newtVerticalScrollbar(left,top,height,normalColorset,thumbColorset)
- int left;
- int top;
+newtVerticalScrollbar(height,normalColorset,thumbColorset)
int height;
int normalColorset;
int thumbColorset;
+CODE:
+ RETVAL = newtVerticalScrollbar(-1, -1, height,normalColorset,thumbColorset);
+OUTPUT:
+ RETVAL
void
newtScrollbarSet(co,where,total)
@@ -175,11 +181,13 @@ newtScrollbarSet(co,where,total)
int total;
Newt::Component
-newtListbox(left,top,height,flags)
- int left;
- int top;
+newtListbox(height,flags)
int height;
int flags;
+CODE:
+ RETVAL = newtListbox(-1, -1, height, flags);
+OUTPUT:
+ RETVAL
SV *
newtListboxGetCurrent(co)
@@ -211,16 +219,6 @@ OUTPUT:
RETVAL
Newt::Component
-newtTextboxReflowed(left,top,text,width,flexDown,flexUp,flags)
- int left;
- int top;
- char * text;
- int width;
- int flexDown;
- int flexUp;
- int flags;
-
-Newt::Component
newtTextbox(left,top,width,height,flags)
int left;
int top;
@@ -307,16 +305,14 @@ newtDrawForm(form)
Newt::Component form;
Newt::Component
-newtEntry(left,top,initialValue,width,flag)
- int left;
- int top;
+newtEntry(initialValue,width,flag)
const char * initialValue;
int width;
int flag;
CODE:
{
char *result;
- RETVAL = newtEntry(left,top,initialValue,width,&result,flag);
+ RETVAL = newtEntry(-1, -1, initialValue,width,&result,flag);
}
OUTPUT:
RETVAL
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index fba57874c..58d03d251 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -129,18 +129,18 @@ sub ask_fromW_real {
my ($w, $real_w, $set, $get, $expand, $size);
if ($e->{type} eq 'bool') {
- $w = Newt::Component::Checkbox(-1, -1, $e->{text} || '', checkval(${$e->{val}}), " *");
+ $w = Newt::Component::Checkbox($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, simplify_string(may_apply($e->{format}, ${$e->{val}})));
+ $w = Newt::Component::Button(simplify_string(may_apply($e->{format}, ${$e->{val}})));
} elsif ($e->{type} =~ /list/) {
my ($h) = @$l == 1 && $height > 30 ? 10 : 5;
my $scroll = @{$e->{list}} > $h ? 1 << 2 : 0;
$has_scroll = 1;
$size = min(int @{$e->{list}}, $h);
- $w = Newt::Component::Listbox(-1, -1, $size, $scroll); #- NEWT_FLAG_SCROLL
+ $w = Newt::Component::Listbox($size, $scroll); #- NEWT_FLAG_SCROLL
my @l = map {
my $t = simplify_string(may_apply($e->{format}, $_), $width - 10);
@@ -157,7 +157,7 @@ sub ask_fromW_real {
} @{$e->{list}};
};
} else {
- $w = Newt::Component::Entry(-1, -1, '', 20, ($e->{hidden} && 1 << 11) | (1 << 2));
+ $w = Newt::Component::Entry('', 20, ($e->{hidden} && 1 << 11) | (1 << 2));
$get = sub { $w->EntryGetValue };
$set = sub { $w->EntrySet($_[0], 1) };
}
@@ -177,7 +177,7 @@ sub ask_fromW_real {
my $grid = Newt::Grid::CreateGrid(3, max(1, int @$l));
each_index {
- $grid->GridSetField(0, $::i, 1, ${Newt::Component::Label(-1, -1, $_->{e}{label})}, 0, 0, 1, 0, 1, 0);
+ $grid->GridSetField(0, $::i, 1, ${Newt::Component::Label($_->{e}{label})}, 0, 0, 1, 0, 1, 0);
$grid->GridSetField(1, $::i, 1, ${$_->{real_w}}, 0, 0, 0, 0, 1, 0);
} @widgets;
@@ -192,7 +192,7 @@ sub ask_fromW_real {
$grid->GridPlace(1, 1); #- Uh?? otherwise the size allocated is bad
$has_scroll = 1;
- my $scroll = Newt::Component::VerticalScrollbar(-1, -1, $height, 9, 10); # 9=NEWT_COLORSET_CHECKBOX, 10=NEWT_COLORSET_ACTCHECKBOX
+ my $scroll = Newt::Component::VerticalScrollbar($height, 9, 10); # 9=NEWT_COLORSET_CHECKBOX, 10=NEWT_COLORSET_ACTCHECKBOX
my $subf = $scroll->Form('', 0);
$subf->FormSetHeight($height);
$subf->FormAddGrid($grid, 0);