Subversion Repositories Kolibri OS

; KolibriOS Team 2005-2015

org 0x0      ;  ¤à¥á æ¨ï á ­ã«ï

dd 0x01 	 ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)

dd START	 ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë

dd IM_END	 ; à §¬¥à ¯à®£à ¬¬ë

dd I_END	 ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨

dd stacktop	 ;  ¤à¥á ¢¥à設ë á⥪ 

dd 0x0		 ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢

dd cur_dir_path

include '../../../macros.inc'

include '../../../proc32.inc'

include '../../../dll.inc'

include '../../../develop/libraries/box_lib/load_lib.mac'

include '../../../develop/libraries/box_lib/trunk/box_lib.mac'

{

	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color

}

{

	DrawBar x,y,w,1,color

	DrawBar x,y+h,w,1

	DrawBar x,y,1,h

	DrawBar x+w,y,1,h+1

}

START:

	inc	eax

	test	eax,eax

	jz	close

call	[init_checkbox2]

	mov   [autosave],eax

	dec   eax

	jnz   @f

	bts   dword [check1.flags],1

@@:

	mcall	40,0x80000027

redraw:

    call draw_window

still:

    mov  al,10

    mcall				     ;wait here for event

    dec  eax

    jz	 redraw

    dec  eax

    jz	 key

    dec  eax

    jz	 button

    call [check_box_mouse2]

    bt	 dword [check1.flags],1

    jnc  @f

    mov  [autosave],1

    jmp  still

@@:

    mov  [autosave],0

    jmp  still

    mov  al,2

    mcall				     ;eax=2 - get key code

    mov  al,ah

     cmp  al,13

     je   restart

     cmp  al,19

     je   checkbox

     cmp  al,180

     je   restart_kernel

     cmp  al,181

     je   power_off

     cmp  al,27

     jne   still

    mcall -1

    mcall 17				     ;eax=17 - get pressed button id

    xchg al,ah

    dec  eax

    jz	 close

    dec  eax

    jz	 restart_kernel

    dec  eax

    jz	 restart

    dec  eax

    jnz  checkbox

    push 2

    jmp  mcall_and_close

    push 3

    jmp  mcall_and_close

    push 4

if fade=1

 ; === FADE IN ===

    mov eax, color1

  @@:

    mov ebx, [eax + 32]

    mov [eax], ebx

    add eax, 4

    cmp eax, color21

    jne @b

end if

    cmp  [autosave],1

    jne   no_save

    mov   al,4

    mcall   ,<50,120> ,0x800000cc,label7	;eax=4 - write text

end if

    test  eax,eax

    js	  no_save

    mov   ecx,eax

    mcall 18,21

    mov   ecx,eax

@@:

    push ecx

    mcall 23,100

    dec   eax

    jnz   no_red

    call draw_window

no_red:

    pop   ecx

    mcall 9,proc_info

    cmp   [proc_info+50],9

    je	  no_save

    jmp   @b

no_save:

    pop  ecx

  mcall 18,9

ret

    btc   dword [check1.flags],1

    jc	  .1

    mov   [autosave],1

    jmp   .draw

.1:

    mov   [autosave],0

.draw:

    push  dword check1

    call  [check_box_draw2]

    jmp    still

    mcall 12,1

    mcall				     ;eax=14 - get screen max x & max y

    movzx ecx,ax

    shr   eax,17

    shl   eax,16

    lea   ebx,[eax-165 shl 16+332]

    shr   ecx,1

    shl   ecx,16

    lea   ecx,[ecx-70 shl 16+132]

	mov edx, 0x01000000

	mcall ;define and draw window

    mov   al,13

    mcall   ,<1,331>,<1,1>,[color2]

	mcall   ,<1,1>,<1,131>

    mcall   ,<2,330>,<2,130>, [color3]

    mcall   ,<16,144> ,<16,36>,4,[color4]     ;eax=8 - draw buttons

    mcall   ,<170,144>,       ,2,[color5]

    mcall   ,	      ,<62,36>,1,[color6]

    mcall   ,<16,144> ,       ,3,[color7]

    mcall   ,<28,19> ,[color8],label2	     ;eax=4 - write text

    mcall   ,<28,65> ,	      ,label3

    mcall   ,<64,40> ,[color9],label5

    mcall   ,<64,86> ,	     ,label6

    call  [check_box_draw2]

    mcall   ,2

    ret

;---------------------------------------------------------------------

;data

include 'data.inc'

;---------------------------------------------------------------------

IM_END:

;---------------------------------------------------------------------

align 4

;---------------------------------------------------------------------

cur_dir_path:

	rb 4096

;---------------------------------------------------------------------

library_path:

	rb 4096

;---------------------------------------------------------------------

align 32

	rb 4096

stacktop:

I_END:	; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë