mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-27 23:51:19 +00:00
1 line
18 KiB
Plaintext
1 line
18 KiB
Plaintext
|
\\ *** EDWINDOW.SCR *** 14sep86we Dieses File enth<74>lt das Editorfenster. Es kann als Beispiel f<>r die Programmierung eines eigenen Fensters benutzt werden. \ Window-Handling Loadscreen 30oct86we Onlyforth Gem also definitions 1 7 +thru \ VDI-Functions for window 24aug86we : bar ( x1 y1 x2 y2 -- ) ptsin 4 array! 1 function ! &11 2 0 VDI ; : swr_mode ( mode -- ) intin ! &32 0 1 VDI ; : sf_interior ( style -- ) intin ! &23 0 1 VDI ; : sf_style ( styleindex -- ) intin ! &24 0 1 VDI ; : sf_color ( color -- ) intin ! &25 0 1 VDI ; : sf_perimeter ( pervis -- ) intin ! &104 0 1 VDI ; : fbox ( x1 y1 x2 y2 -- ) 1 swr_mode 1 sf_interior 0 sf_color 0 sf_perimeter bar ; \ save and restore the screen 10sep86we ?head @ 1 ?head ! Create memMFDB2 7 , 0 , &640 , &400 , &40 , 0 , 1 , 0 , 0 , 0 , memMFDB2 scr>mem scr>mem2 ( Xleft Ytop Width Heigth -- ) memMFDB2 mem>scr mem2>scr ( Xleft Ytop Width Heigth -- ) : save_screen 0 0 cwidth &80 * cheight &25 * scr>mem2 ; : restore_screen 0 0 cwidth &80 * cheight &25 * mem2>scr ;
|