// Tastenbelegung fuer V.BAT (C) C.Z. 08.08.1994 // zum zwischenzeitlichen Kopieren nach UNIX 10.03.2000 // 06.01.2003 // // fuer SHARE muss das File dabei geschlossen werden ! // // + Erweiterung fuer Favorites-Liste // + Erweiterung fuer "Geaendert-Flag" // - Erweiterung fuer Favorites-Liste entfernt: ist jetzt in VEDIT selbst (Startup.vdm) // modified-Flag anders gelöst // if(OS_Type==1){ // Windows : urspr. Environment einlesen und aufbereiten File_Open("c:\tmp\v.env") it("@echo off") IN(1) while(!at_Eof){ it('set ') Line(1) } IN(1) it("cd ") RS(10,CUR_DIR) RI(10) IN(1) File_Save_As("c:\tmp\v-envset.bat",OK) BufQuit(MAINBUF) } else { File_Delete("c:\tmp\v-envset.bat", OK+NOERR) } Key_Add("Shft-F5",' [VISUAL EXIT] if(BN!=1){return} #102=CP Out_Reg(102) Name_Write(NOMSG+NOCR+EXTRA) Out_Reg(0) FileClose() VM(NOMSG) Sys("V-RCP",DOS+MAX+DELETE+OK+SUPPRESS) File_Open(@102) GP(#102) VM(8)',OK) RS(111,'if((BN==1) && Is_Altered_File){System("echo modified > C:\tmp\v-mod.flg",DOS+OK+SIMPLE+SUPPRESS)}') //RS(111,'if((BN==1) && Is_Altered_File){FS(NOMSG) BS(BF) IT("modified") FSA("C:\tmp\v-mod.flg",OK+NOMSG) BQ(MAINBUF)}') Config(F_E_F_MACRO,1)