proc Tab if @hwnd=0 then exit proc if @StyleNo=1 then @@JumpMacro(@@MacroDirectory$+"\TReturn.mac,C_Return") elseif @StyleNo=3 then @UndoBlock=1 @Redraw=0 @MoveLeftChar dim r r=@Code @MoveRightChar dim x x=@BytePosCr if r<>9 and r<>32 and r<>-224 then @CharCompletionMacro doevents if @BytePosCr=x then @CharTab @UndoBlock=0 else @UndoBlock=1 if @Select then @BlockDelete @CharTab @UndoBlock=0 end if end proc