home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / swindow.seq < prev    next >
Encoding:
Text File  |  1988-11-30  |  1.3 KB  |  33 lines
  1. \ SWINDOW.SEQ           A sample POPUP window           by Tom Zimmer
  2.  
  3. comment:
  4.  
  5.   This file contains an example of yow to make a popup window.  While it
  6. may seem complicated at first, we are really doing only a few simple things.
  7. We save the screen positon, turn off the cursor, and save the screen before
  8. drawing the box and writing into it. After the user views the box and
  9. presses a key, we restore the things we saved.  Actally pretty simple.
  10.  
  11. comment;
  12.  
  13. : popup ( --- )
  14.         #out @ #line @ 2>r      \ save cursor position for later
  15.         cursor-off              \ remove cursor from screen
  16.         savescr                 \ preserve current screen contents
  17.  
  18.         15 05 60 09 box&fill    \ DRAW THE BOX on the screen
  19.  
  20.                                 \ PUT SOME TEXT IN IT
  21.         ."        This is a sample POPUP window" bcr
  22.  
  23.                                 \ following line in reverse video
  24.    >rev ."    Screen attributes can be used as well    " >norm bcr
  25.  
  26.         ."  Press a key to restore the previous screen"
  27.  
  28.         key drop                \ wait for user to press a key
  29.         restscr                 \ restore previous screen
  30.         cursor-on               \ turn cursor back on
  31.         2r> at ;                \ restore cursor position
  32.  
  33.