Open main menu

CDOT Wiki β

Changes

OpText Test Programs - OOP344 20101

860 bytes added, 13:25, 21 March 2010
no edit summary
 
{{OOP344 Index}}
= BFrame R0.1 test main =
 
[[OpText Text Editor (AS2) - OOP344 20101]]
<big><pre>
# include "btext.h"
# include "bframe.h"
 
int main(int argc, char* argv[], char* env[]) {
int ro = 0;
int co = 0;
bool done = false;
int key = 0;
bio_init();
int rows = bio_rows();
int cols = bio_cols();
BFrame bframe(8, 30, 5, 10, true);
while(!done){
bio_clrscr();
bframe.draw(ro, co);
key = bio_getch();
switch(key){
case RIGHT_KEY:
if(co + 40 < cols)
co++;
break;
case LEFT_KEY:
if(co + 30 > 0)
co--;
break;
case DOWN_KEY:
if(ro + 13 < rows )
ro++;
break;
case UP_KEY:
if(ro + 8 > 0 )
ro--;
break;
case ESCAPE_KEY:
done = true;
break;
}
}
bio_end();
return 0;
}
 
</pre></big>
= OpText R0.3 test main =
 
[[OpText Text Editor (AS2) - OOP344 20101]]
<big><pre>
 
# include "btext.h"
# include "blabel.h"
# include "bform.h"
# include <string.h>
 
bool Yes(const char* message, BForm* owner){
int key;