Subversion Repositories Kolibri OS

Rev

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

Rev 7161 Rev 7162
Line 520... Line 520...
520 
	jmp	.l1
 520 
	jmp	.l1
521 
       @@:
 521 
       @@:
522 
	mov	ebx,[strings]
 522 
	mov	ebx,[strings]
523 
	m2m	[errmess0], dword [ebx]
 523 
	m2m	[errmess0], dword [ebx]
524 
       .l1:
 524 
       .l1:
525 
	mcall	51,1,threadSayErr,stackDlg
 - 
 
526 
	popad
 - 
 
527 
	mov	eax,1
 - 
 
528 
	ret
 - 
 
529 
endp
 - 
 
Line 530... Line -...
530 
 
 - 
 
531 
proc SimpleSayErr str:dword
 - 
 
532 
	pushad
 525 
 
533 
	m2m	[errmess0],[str]
 526 
	m2m	[fsRunNotifyOK.param],[errmess0]
- 
 
 527 
	mcall	70,fsRunNotifyOK
534 
	mcall	51,1,threadSayErr,stackDlg
 528 
 
- 
 
 529 
	popad
535 
	popad
 530 
	mov	eax,1
536 
	ret
 531 
	ret
Line 537... Line -...
537 
endp
 - 
 
538 
 
 - 
 
539 
 
 - 
 
540 
proc threadSayErr
 - 
 
541 
	mcall	40, 111b+0C000000h
 - 
 
542 
.wm_redraw:
 - 
 
543 
	mcall 12, 1
 - 
 
544 
	mcall 48, 3, sc, sizeof.system_colors
 - 
 
545 
	mov   edx, [sc.work]
 - 
 
546 
	or	  edx, 0x33000000
 - 
 
547 
	mcall 0, <220,WIN_W>, <220,110>, , , title
 - 
 
548 
 
 - 
 
549 
	mov	ecx,[sc.work_text]
 - 
 
550 
	or	ecx,90000000h
 - 
 
551 
	mov	edx,[errmess0]
 - 
 
552 
	mcall 4, <15,11>
 - 
 
553 
 
 - 
 
554 
	mcall 8, <105,100>,<45,25>,1,[sc.work_button]
 - 
 
555 
	mov	ecx,[sc.work_button_text]
 - 
 
556 
	or	ecx,90000000h
 - 
 
557 
	mcall 4, <147,51>, , strOk
 - 
 
558 
 
 - 
 
559 
	mcall 12, 2
 - 
 
560 
 
 - 
 
561 
.still:
 - 
 
562 
	mcall	10
 - 
 
563 
	cmp	eax, 1
 - 
 
564 
	je	.wm_redraw
 - 
 
565 
	cmp	eax, 2
 - 
 
566 
	je	.wm_key
 - 
 
567 
	cmp	eax, 3
 - 
 
568 
	je	.wm_button
 - 
 
569 
	jmp	.still
 - 
 
570 
 
 - 
 
571 
.wm_button:
 - 
 
572 
	mcall	17
 - 
 
573 
 
 - 
 
574 
	cmp	ah, 1
 - 
 
575 
	je	.exit
 - 
 
576 
	jmp	.still
 - 
 
577 
 
 - 
 
578 
.wm_key:
 - 
 
579 
	mcall	2
 - 
 
580 
	jmp	.still
 - 
 
581 
.exit:
 - 
 
582 
	mcall	-1
 - 
 
583 
endp
 532 
endp
584 
 
 533 
 
585 
;-------------------------------------------------------------------------------
 534 
;-------------------------------------------------------------------------------
586 
;-------------------------------------------------------------------------------
 535 
;-------------------------------------------------------------------------------
587 
;-------------------------------------------------------------------------------
 536 
;-------------------------------------------------------------------------------
Line 728... Line 677...
728 
 
 677 
 
729 
bWinChild db 0	;1 - ¤®ç¥à­¥¥ ®ª­® ¥áâì, £« ¢­®¥ ®ª­® ­¥ ¤®«¦­® ॠ£¨à®¢ âì
 678 
bWinChild db 0	;1 - ¤®ç¥à­¥¥ ®ª­® ¥áâì, £« ¢­®¥ ®ª­® ­¥ ¤®«¦­® ॠ£¨à®¢ âì
Line 730... Line 679...
730 
redInput  db 0	;1 - ¯®¤á¢¥â¨âì ªà á­ë¬ ­ ¤¯¨áì
 679 
redInput  db 0	;1 - ¯®¤á¢¥â¨âì ªà á­ë¬ ­ ¤¯¨áì
731 
 
 680 
 
732 
if lang eq ru
 681 
if lang eq ru
733 
 title db 'uNZ v0.11 -  á¯ ª®¢é¨ª Zip ¨ 7z',0
 682 
 title db 'uNZ v0.12 -  á¯ ª®¢é¨ª Zip ¨ 7z',0
734 
 strGo db ' á¯ ª®¢ âì',0
 683 
 strGo db ' á¯ ª®¢ âì',0
735 
 strInp db  '    €à娢',0
 684 
 strInp db  '    €à娢',0
736 
 strPath db 'ˆ§¢«¥çì ¢',0
 685 
 strPath db 'ˆ§¢«¥çì ¢',0
Line 742... Line 691...
742 
 strUnpackOk  db "'“ᯥ譮 à á¯ ª®¢ ­®' -O",0
 691 
 strUnpackOk  db "'“ᯥ譮 à á¯ ª®¢ ­®' -O",0
743 
 strUnpackFault  db "'Žè¨¡ª  à á¯ ª®¢ª¨' -E",0
 692 
 strUnpackFault  db "'Žè¨¡ª  à á¯ ª®¢ª¨' -E",0
744 
 strNotSupport db "'¥¯®¤¤¥à¦¨¢ ¥¬ë© ä®à¬ â  à娢 ' -E",0
 693 
 strNotSupport db "'¥¯®¤¤¥à¦¨¢ ¥¬ë© ä®à¬ â  à娢 ' -E",0
745 
 strNotFound db "'” ©« ­¥ ­ ©¤¥­' -E",0
 694 
 strNotFound db "'” ©« ­¥ ­ ©¤¥­' -E",0
746 
else
 695 
else
747 
 title db 'uNZ v0.11 - Unarchiver of Zip and 7z',0
 696 
 title db 'uNZ v0.12 - Unarchiver of Zip and 7z',0
748 
 strGo db   'Unpack',0
 697 
 strGo db   'Unpack',0
749 
 strInp db  'Archive',0
 698 
 strInp db  'Archive',0
750 
 strPath db 'Extract to',0
 699 
 strPath db 'Extract to',0
751 
 strError db 'Error',0
 700 
 strError db 'Error',0
752 
 strErrorExc db 'Unrecognized error',0
 701 
 strErrorExc db 'Unrecognized error',0