From 4fa70ada77a24c95a91dc0db291d2f82d61f0549 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 28 Jan 2003 13:34:20 +0000 Subject: cleanup use of flags --- perl-install/Newt/Newt.xs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install/Newt/Newt.xs') diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs index 0b1a757ff..0121452db 100644 --- a/perl-install/Newt/Newt.xs +++ b/perl-install/Newt/Newt.xs @@ -219,12 +219,16 @@ OUTPUT: RETVAL Newt::Component -newtTextbox(left,top,width,height,flags) +newtTextbox(left,top,width,height,want_scroll) int left; int top; int width; int height; - int flags; + int want_scroll; + CODE: + RETVAL = newtTextbox(left,top,width,height, (want_scroll ? NEWT_FLAG_SCROLL : 0) | NEWT_FLAG_WRAP); + OUTPUT: + RETVAL void newtTextboxSetText(co,text) -- cgit v1.2.1