Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 826 → Rev 827

/programs/develop/tinypad/trunk/history.txt
8,6 → 8,7
- show "save file" dialog for new files or files from Tinypad's home folder
- line is redrawn after lining up a single char and then deleting it
(pressing Del twice) [#1]
- update tab/window title and highlighting mode after file save
new features:
- prompt to save modified file before closing (+fixes)
- button to close current tab (+fixes)
/programs/develop/tinypad/trunk/tinypad.asm
2,9 → 2,9
; project name: TINYPAD
; compiler: flat assembler 1.67.21
; memory to compile: 3.0/9.0 MBytes (without/with size optimizations)
; version: 4.0.5
; last update: 2007-09-18 (Sep 18, 2007)
; minimal kernel: revision #270 (svn://kolibrios.org/kernel/trunk)
; version: SVN (4.0.5)
; last update: 2008-07-18 (Jul 18, 2008)
; minimal kernel: revision #823 (svn://kolibrios.org/kernel/trunk)
;-----------------------------------------------------------------------------
; originally by: Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
; maintained by: Mike Semenyako >> mike.dld@gmail.com
34,7 → 34,7
 
header '01',1,@CODE,TINYPAD_END,STATIC_MEM_END,MAIN_STACK,@PARAMS,self_path
 
APP_VERSION equ '4.0.5'
APP_VERSION equ 'SVN (4.0.5)'
 
TRUE = 1
FALSE = 0
449,6 → 449,8
section @DATA ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;-----------------------------------------------------------------------------
 
;include_debug_strings
 
include 'data/tp-idata.inc'
 
;-----------------------------------------------------------------------------
/programs/develop/tinypad/trunk/tp-files.asm
50,6 → 50,8
jnz .exit.2
 
.exit:
mov ebp,cur_editor
call update_tab_filename
mov [cur_editor.Modified],0
clc
ret
204,23 → 206,7
@@: inc [do_not_draw]
call create_tab
dec [do_not_draw]
.lp1: push ecx esi edi
mov esi,tb_opensave.text
lea edi,[ebp+TABITEM.Editor.FilePath]
movzx ecx,[tb_opensave.length]
cld
rep movsb
mov byte[edi],0
lea edi,[ebp+TABITEM.Editor.FilePath]
movzx ecx,[tb_opensave.length]
inc ecx
@@: dec ecx
jz @f
cmp byte[edi+ecx-1],'/'
jne @b
@@: mov [ebp+TABITEM.Editor.FileName],ecx
call flush_cur_tab
pop edi esi ecx
.lp1: call update_tab_filename
call load_from_memory
stdcall mem.Free,[f_info70+16]
 
232,23 → 218,7
mov [cur_editor.SelStart.X],eax
mov [cur_editor.SelStart.Y],eax
mov [cur_editor.Modified],al
mov [cur_editor.AsmMode],al
 
lea ebx,[cur_editor.FilePath]
mov eax,ebx
call strlen
mov ecx,dword[ebx+eax-3]
or ecx,0x202020
cmp ecx,'asm'
jne @f
inc [cur_editor.AsmMode]
jmp .nocol
@@: cmp ecx,'inc'
jne .nocol
inc [cur_editor.AsmMode]
.nocol:
call update_caption
 
clc
ret
endp
335,3 → 305,45
rep stosb
jmp .next_char
endp
 
;-----------------------------------------------------------------------------
proc update_tab_filename ;////////////////////////////////////////////////////
;-----------------------------------------------------------------------------
; EBP = TABITEM*
;-----------------------------------------------------------------------------
push ecx esi edi
inc [do_not_draw]
mov esi,tb_opensave.text
lea edi,[ebp+TABITEM.Editor.FilePath]
movzx ecx,[tb_opensave.length]
cld
rep movsb
mov byte[edi],0
lea edi,[ebp+TABITEM.Editor.FilePath]
movzx ecx,[tb_opensave.length]
inc ecx
@@: dec ecx
jz @f
cmp byte[edi+ecx-1],'/'
jne @b
@@: mov [ebp+TABITEM.Editor.FileName],ecx
call flush_cur_tab
call update_caption
dec [do_not_draw]
 
mov [cur_editor.AsmMode],0
movzx ecx,[tb_opensave.length]
mov ecx,dword[ecx+tb_opensave.text-3]
or ecx,0x202020
cmp ecx,'asm'
jne @f
inc [cur_editor.AsmMode]
jmp .exit
@@: cmp ecx,'inc'
jne .exit
inc [cur_editor.AsmMode]
 
.exit:
pop edi esi ecx
ret
endp