mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-09-07 20:54:27 +00:00
1 line
94 KiB
Plaintext
1 line
94 KiB
Plaintext
|
\\ *** Screen-Editor *** 10aug86we Dieses File enth<74>lt den volksFORTH - Editor. Er basiert auf dem Editor im F83 von Laxen/Perry, besitzt aber erheblich erweiterte Funktionen (Zeichen- und Zeilenstack) und ist ein vollst<73>ndig in GEM integrierter Fullscreen-Editor. Obwohl die Steuerung mit Maus und Menuzeile erfolgt, k<>nnen ihn die 'Profis' auch vollst<73>ndig <20>ber Controltasten bedienen, Die Dauerhilfe-Funktion macht eine Funktionsbeschreibung <20>ber- fl<66>ssig. Solange im HILFE-Menu Dauerhilfe gew<65>hlt ist, erscheintvor der Ausf<73>hrumg jeder Editor-Funktion ein erl<72>uternder Text mit der M<>glichkeit zum Abbruch. Dies gilt jedoch nicht, wenn die Funktion per Tastendruck aufgerufen wurde. \ Load Screen for the Editor cas20130105 Onlyforth GEM also include ediicon.fb | Variable (dx 2 (dx ! | Variable (dy 4 (dy ! | : dx (dx @ ; | : dy (dy @ ; \needs -text .( strings needed !!) abort \needs file? .( Filesystem needed !!) abort include gem\supergem.fb include gem\gemdefs.fb include edwindow.fb Forth definitions 1 $2C +thru \ Editor Variable 10sep86we Variable 'scr 1 'scr ! Variable 'r# 'r# off Variable 'edifile ?head @ 1 ?head ! Variable changed Variable edistate Variable edifile Variable ycur \ Edi move cursor with position-checking or cyclic 30aug86we : c ( n -- ) \ checks the cursor position r# @ + dup 0 b/blk uwithin 0= abort" Border!" r# ! ; \ : c ( n -- ) \ moves cyclic thru the screen \ r# @ + b/blk mod r# ! ;
|