diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Newt/Newt.xs | 44 |
1 files changed, 32 insertions, 12 deletions
diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs index 0b34fab69..fba7c5455 100644 --- a/perl-install/Newt/Newt.xs +++ b/perl-install/Newt/Newt.xs @@ -216,9 +216,14 @@ newtListbox(left,top,height,flags) int height; int flags; -char * +SV * newtListboxGetCurrent(co) Newt::Component co; +CODE: + RETVAL = SvREFCNT_inc(newtListboxGetCurrent(co)); +OUTPUT: + RETVAL + void newtListboxSetCurrent(co,indice) @@ -231,11 +236,12 @@ newtListboxSetWidth(co,width) int width; int -newtListboxAddEntry(co,text) +newtListboxAddEntry(co,text,data) Newt::Component co; const char * text; + SV * data; CODE: - RETVAL = newtListboxAddEntry(co, text, text); + RETVAL = newtListboxAddEntry(co, text, data); OUTPUT: RETVAL @@ -310,6 +316,14 @@ newtFormAddComponent(form,co) Newt::Component co; void +newtFormAddGrid(form,grid,recurse) + Newt::Component form; + Newt::Grid grid; + int recurse; + CODE: + newtGridAddComponentsToForm(grid,form,recurse); + +void newtFormSetHeight(co,height) Newt::Component co; int height; @@ -415,22 +429,28 @@ newtGridFree(grid,recurse) int recurse; void -newtGridGetSize(grid,width,height) +newtGridPlace(grid,left,top) Newt::Grid grid; - int * width; - int * height; + int left; + int top; + +void +newtGridGetSize(grid) + Newt::Grid grid; + PPCODE: +{ + int width; + int height; + newtGridGetSize(grid, &width, &height); + PUSHs(sv_2mortal(newSViv(width))); + PUSHs(sv_2mortal(newSViv(height))); +} void newtGridWrappedWindow(grid,title) Newt::Grid grid; char * title; -void -newtGridAddComponentsToForm(grid,form,recurse) - Newt::Grid grid; - Newt::Component form; - int recurse; - Newt::Grid newtButtonBar(button1, ...) char * button1; |