summaryrefslogtreecommitdiffstats
path: root/perl-install/Newt
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-30 01:30:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-30 01:30:42 +0000
commit97075e53a49f0b999a86c775b256c629a75520dd (patch)
tree9fc265f173109622fde98cca32bf31899981cb3a /perl-install/Newt
parent612847f81d74f641b49aa93b88b567318ba0fcfa (diff)
downloaddrakx-97075e53a49f0b999a86c775b256c629a75520dd.tar
drakx-97075e53a49f0b999a86c775b256c629a75520dd.tar.gz
drakx-97075e53a49f0b999a86c775b256c629a75520dd.tar.bz2
drakx-97075e53a49f0b999a86c775b256c629a75520dd.tar.xz
drakx-97075e53a49f0b999a86c775b256c629a75520dd.zip
basic treelist handling (it leaks memory, but who cares, compared to gtk :)
Diffstat (limited to 'perl-install/Newt')
-rw-r--r--perl-install/Newt/Newt.xs52
1 files changed, 52 insertions, 0 deletions
diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs
index 0121452db..22a6a79ae 100644
--- a/perl-install/Newt/Newt.xs
+++ b/perl-install/Newt/Newt.xs
@@ -218,6 +218,58 @@ CODE:
OUTPUT:
RETVAL
+
+Newt::Component
+newtTree(height,want_scroll)
+ int height;
+ int want_scroll;
+ CODE:
+ RETVAL = newtCheckboxTree(-1,-1,height, (want_scroll ? NEWT_FLAG_SCROLL : 0) | NEWT_CHECKBOXTREE_HIDE_BOX);
+ OUTPUT:
+ RETVAL
+
+int
+newtTreeAdd(co,text,data,parents)
+ Newt::Component co;
+ const char * text;
+ SV * data;
+ SV * parents;
+ CODE:
+ {
+ int l[10];
+ int i;
+ AV *av = (AV*) SvRV(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);
+ }
+ OUTPUT:
+ RETVAL
+
+void
+newtTreeSetCurrent(co, data)
+ Newt::Component co;
+ SV * data;
+ CODE:
+ newtCheckboxTreeSetCurrent(co, data);
+
+void
+newtTreeSetWidth(co,width)
+ Newt::Component co;
+ int width;
+ CODE:
+ newtCheckboxTreeSetWidth(co, width);
+
+SV *
+newtTreeGetCurrent(co)
+ Newt::Component co;
+CODE:
+ RETVAL = SvREFCNT_inc(newtCheckboxTreeGetCurrent(co));
+OUTPUT:
+ RETVAL
+
+
Newt::Component
newtTextbox(left,top,width,height,want_scroll)
int left;