Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Curses problem

by Sec (Scribe)
on Dec 27, 2008 at 10:23 UTC ( #732771=perlquestion: print w/ replies, xml ) Need Help??
Sec has asked for the wisdom of the Perl Monks concerning the following question:

This might be a problem with my understanding with Curses more than with perl, but please help me out. I'm using Curses.pm which works quite well except when I try to create a curses "window". Example code:
use Curses; initscr; $w=newwin(1,1,40,40); $w->addstr(20,20,"Hello"); $w->refresh; refresh; endwin;
outputs nothing, not using a window works fine:
use Curses; initscr; $w=newwin(1,1,40,40); addstr(20,20,"Hello"); refresh; endwin;

Comment on Curses problem
Select or Download Code
Re: Curses problem
by spadacciniweb (Deacon) on Dec 27, 2008 at 11:40 UTC
    I have changed your code:
    use Curses; initscr; $win = new Curses; $win->addstr(20, 20, 'Hello'); $win->refresh; while (1) {}; endwin;

    Update: from here I read:
    Window newWin( Int lines, Int cols, Int beginy, Int beginx ) ... lines Number of lines in window cols Number of columns in window beginy Position of top of window beginx Position of left of window
    so the correct form (with function newwin) is:
    use Curses; initscr; $win = new Curses; $win = newwin(40,40,1,1); $win->addstr(20, 20, 'Hello'); $win->refresh; while (1) {}; endwin;

    Update II: FunkyMonk has just responded before my Update:

    (($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print
Re: Curses problem
by FunkyMonk (Canon) on Dec 27, 2008 at 11:46 UTC
    I'm never played with Curses before, but it's been on my todo list for years...

    $w=newwin(1,1,40,40);
    You've got your arguments to newwin incorrect.
    $ man newwin ... WINDOW *newwin(int nlines, int ncols, int begin_y, int begin_x);

    use Curses; initscr; my $w = newwin(40,40,1,1); $w->addstr(20,20,"Hello"); $w->refresh; endwin; <>;

    Works for me.

    Update: Fixed borked link


    Unless I state otherwise, all my code runs with strict and warnings
      Duh! Thanks! Works now.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://732771]
Approved by Corion
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2014-12-26 01:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (163 votes), past polls