home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / hl10osrc.lzh / Lib / ScrollPrompt.cc < prev    next >
Text File  |  1994-04-23  |  1KB  |  45 lines
  1. /* -*- Mode: C -*- */
  2. /* ScrollPrompt.cc - Scroll with prompt
  3.  * Created by Robert Heller on Fri Dec 13 23:20:49 1991
  4.  *
  5.  * ------------------------------------------------------------------
  6.  * Home Libarian by Deepwoods Software
  7.  * Common Class library implementation code
  8.  * ------------------------------------------------------------------
  9.  * Modification History:
  10.  * ------------------------------------------------------------------
  11.  * Contents:
  12.  * ------------------------------------------------------------------
  13.  * 
  14.  * 
  15.  * Copyright (c) 1991,1992 by Robert heller (D/B/A Deepwoods Software)
  16.  *        All Rights Reserved
  17.  * 
  18.  */
  19.  
  20. #ifdef MESSYDOS
  21. #include <scrpmt.h>
  22. #else
  23. #include <ScrollPrompt.h>
  24. #endif
  25.  
  26. int ScrollPrompt::Scroll(const char* scrolltext,const char* prompt,char* answer,int answersize)
  27. {
  28.     int c = (Terminal::term->colms - strlen(Title)) >> 1;
  29.     Terminal::term->Clear();
  30.     Terminal::term->RevsPen();
  31.     Terminal::term->PutStrAt(1,c,Title);
  32.     Terminal::term->PlainPen();
  33.     const char* p = scrolltext;
  34.     while (p != 0) {
  35.         p = Terminal::term->PutStrInBox(ScrollRow,ScrollCol,
  36.                         ScrollWidth,ScrollHeight,p);
  37.         if (p == 0) break;
  38.         int nchars = Terminal::term->PromptLine(PromptRow,0,prompt,answer,answersize);
  39.         if (nchars != 0) return(nchars);
  40.     }
  41.     return(Terminal::term->PromptLine(PromptRow,0,prompt,answer,answersize));
  42. }
  43.  
  44.  
  45.