From 2b8ed29ac81065d904984b57963b0bf9eddb9177 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Feb 2003 19:59:44 +0000 Subject: fix tree in newt (now handles default selected entry, and disallow using non-leaves) --- perl-install/Newt/Newt.xs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'perl-install/Newt/Newt.xs') diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs index 22a6a79ae..46da0b5fd 100644 --- a/perl-install/Newt/Newt.xs +++ b/perl-install/Newt/Newt.xs @@ -232,7 +232,7 @@ int newtTreeAdd(co,text,data,parents) Newt::Component co; const char * text; - SV * data; + int data; SV * parents; CODE: { @@ -242,7 +242,7 @@ newtTreeAdd(co,text,data,parents) for (i = 0; i <= av_len(av); i++) l[i] = SvIV(*av_fetch(av, i, 0)); l[i++] = NEWT_ARG_APPEND; l[i] = NEWT_ARG_LAST; - RETVAL = newtCheckboxTreeAddArray(co, text, SvREFCNT_inc(data), 0, l); + RETVAL = newtCheckboxTreeAddArray(co, text, (void *) data, 0, l); } OUTPUT: RETVAL @@ -250,9 +250,9 @@ newtTreeAdd(co,text,data,parents) void newtTreeSetCurrent(co, data) Newt::Component co; - SV * data; + int data; CODE: - newtCheckboxTreeSetCurrent(co, data); + newtCheckboxTreeSetCurrent(co, (void *) data); void newtTreeSetWidth(co,width) @@ -261,11 +261,11 @@ newtTreeSetWidth(co,width) CODE: newtCheckboxTreeSetWidth(co, width); -SV * +int newtTreeGetCurrent(co) Newt::Component co; CODE: - RETVAL = SvREFCNT_inc(newtCheckboxTreeGetCurrent(co)); + RETVAL = (int) newtCheckboxTreeGetCurrent(co); OUTPUT: RETVAL @@ -308,7 +308,7 @@ newtReflowText(text,width,flexDown,flexUp,actualWidth,actualHeight) Newt::Component newtForm(vertBar,help,flags) Newt::Component vertBar; - const char * help; + char * help; int flags; void -- cgit v1.2.1