Subversion Repositories Kolibri OS

Rev

Rev 297 | Rev 617 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 297 Rev 327
Line 534... Line 534...
534
func update_caption ;/////////////////////////////////////////////////////////
534
func update_caption ;/////////////////////////////////////////////////////////
535
;-----------------------------------------------------------------------------
535
;-----------------------------------------------------------------------------
536
	lea	esi,[cur_editor.FilePath]
536
	lea	esi,[cur_editor.FilePath]
537
	mov	edi,s_title
537
	mov	edi,s_title
Line -... Line 538...
-
 
538
 
538
 
539
	xor	ecx,ecx
539
    @@: lodsb
540
    @@: lodsb
540
	cmp	al,0
541
	cmp	al,0
541
	je	@f
542
	je	@f
-
 
543
	stosb
542
	stosb
544
	inc	ecx
543
	jmp	@b
545
	jmp	@b
-
 
546
    @@:
544
    @@:
547
	push	ecx
545
	mov	dword[edi],' - '
548
	mov	dword[edi],' - '
546
	add	edi,3
549
	add	edi,3
547
    @@: mov	esi,htext
550
	mov	esi,htext
548
	mov	ecx,htext.size
551
	mov	ecx,htext.size
549
	cld
552
	cld
Line 550... Line 553...
550
	rep	movsb
553
	rep	movsb
551
 
554
 
Line 552... Line 555...
552
	mov	al,0
555
	mov	al,0
Line -... Line 556...
-
 
556
	stosb
-
 
557
 
-
 
558
	mcall	71,1,s_title
-
 
559
 
-
 
560
	cmp	[do_not_draw],0
-
 
561
	jne	@f
-
 
562
	lea	esi,[cur_editor.FilePath]
-
 
563
	mov	edi,tb_opensave.text
-
 
564
	mov	ecx,[esp]
-
 
565
	cld
-
 
566
	rep	movsb
-
 
567
	pop	ecx
-
 
568
	mov	[tb_opensave.length],cl
553
	stosb
569
	clc
554
 
570
	ret
555
	mcall	71,1,s_title
571
    @@:
Line 556... Line 572...
556
 
572
	add	esp,4