From b8687904824bcc18f07e1140125f5218d04b08e0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 5 Nov 2002 13:20:15 +0000
Subject: - fix dialog boxes using a scrollbar - cleanup

---
 perl-install/Newt/Newt.xs | 50 +++++------------------------------------------
 1 file changed, 5 insertions(+), 45 deletions(-)

(limited to 'perl-install/Newt/Newt.xs')

diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs
index fba7c5455..6ffdb1e63 100644
--- a/perl-install/Newt/Newt.xs
+++ b/perl-install/Newt/Newt.xs
@@ -105,41 +105,6 @@ newtWinTernary(title,button1,button2,button3,message)
 	char * button3;
 	char * message;
 
-void
-newtWinMenu(title,text,suggestedWidth,flexDown,flexUp,maxListHeight,list,def,buttons, ...)
-	char * title;
-	char * text;
-	int suggestedWidth;
-	int flexDown;
-	int flexUp;
-	int maxListHeight;
-	char **list;
-	int def;
-	char *buttons;
-        PPCODE:
-	{
-	  int button;
-#define nb 8
-#define a(i) SvPV(ST(i + nb),PL_na)
-	  button = newtWinMenu(title, text, suggestedWidth, flexDown, flexUp, maxListHeight, list, &def,
-			       items > nb +  0 ? a( 0) : NULL,
-			       items > nb +  1 ? a( 1) : NULL,
-			       items > nb +  2 ? a( 2) : NULL,
-			       items > nb +  3 ? a( 3) : NULL,
-			       items > nb +  4 ? a( 4) : NULL,
-			       items > nb +  5 ? a( 5) : NULL,
-			       items > nb +  6 ? a( 6) : NULL,
-			       items > nb +  7 ? a( 7) : NULL,
-			       items > nb +  8 ? a( 8) : NULL,
-			       items > nb +  9 ? a( 9) : NULL,
-			       items > nb + 10 ? a(10) : NULL, 
-			       NULL);
-#undef a
-	  EXTEND(SP, 2);
- 	  PUSHs(sv_2mortal(newSViv(button)));
- 	  PUSHs(sv_2mortal(newSViv(def)));
-	}
-
 MODULE = Newt		PACKAGE = Newt::Component 	PREFIX = newt
 
 void
@@ -378,18 +343,13 @@ newtCreateGrid(cols,rows)
 	int rows;
 
 Newt::Grid
-HCloseStacked(first, ...)
-	Newt::Component first;
+HCloseStacked3(c1, c2, c3)
+	Newt::Component c1;
+	Newt::Component c2;
+	Newt::Component c3;
      CODE:
 	{
-	  int i;
-	  newtComponent *p = alloca(sizeof(newtComponent) * (2 * items + 1));
-	  for (i = 0; i < items; i++) {
-	    p[2 * i] = 1;
-	    p[2 * i + 1] = (newtComponent)SvIV((SV*)SvRV( ST(i) ));
-	  }
-	  p[2 * items] = NULL;
-          RETVAL = ((newtGrid (*)()) newtGridHCloseStacked)();
+	  RETVAL = newtGridHCloseStacked(NEWT_GRID_COMPONENT, c1, NEWT_GRID_COMPONENT, c2, NEWT_GRID_COMPONENT, c3);
 	}
 OUTPUT:
 RETVAL
-- 
cgit v1.2.1