home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
APPS
/
hl10osrc.zoo
/
Lib
/
ScrollPrompt.cc
< prev
next >
Wrap
Text File
|
2009-11-06
|
1KB
|
45 lines
/* -*- Mode: C -*- */
/* ScrollPrompt.cc - Scroll with prompt
* Created by Robert Heller on Fri Dec 13 23:20:49 1991
*
* ------------------------------------------------------------------
* Home Libarian by Deepwoods Software
* Common Class library implementation code
* ------------------------------------------------------------------
* Modification History:
* ------------------------------------------------------------------
* Contents:
* ------------------------------------------------------------------
*
*
* Copyright (c) 1991,1992 by Robert heller (D/B/A Deepwoods Software)
* All Rights Reserved
*
*/
#ifdef MESSYDOS
#include <scrpmt.h>
#else
#include <ScrollPrompt.h>
#endif
int ScrollPrompt::Scroll(const char* scrolltext,const char* prompt,char* answer,int answersize)
{
int c = (Terminal::term->colms - strlen(Title)) >> 1;
Terminal::term->Clear();
Terminal::term->RevsPen();
Terminal::term->PutStrAt(1,c,Title);
Terminal::term->PlainPen();
const char* p = scrolltext;
while (p != 0) {
p = Terminal::term->PutStrInBox(ScrollRow,ScrollCol,
ScrollWidth,ScrollHeight,p);
if (p == 0) break;
int nchars = Terminal::term->PromptLine(PromptRow,0,prompt,answer,answersize);
if (nchars != 0) return(nchars);
}
return(Terminal::term->PromptLine(PromptRow,0,prompt,answer,answersize));
}