Subversion Repositories Kolibri OS

Rev

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

Rev 2584 Rev 2616
Line 1... Line 1...
1 
;*****************************************************************************
 1 
;*****************************************************************************
2 
; KFM - Kolibri File Manager
 2 
; KFM - Kolibri File Manager
3 
; Copyright (c) 2006 - 2010, Marat Zakiyanov aka Mario79, aka Mario
 3 
; Copyright (c) 2006 - 2012, Marat Zakiyanov aka Mario79, aka Mario
4 
; All rights reserved.
 4 
; All rights reserved.
5 
;
 5 
;
6 
; Redistribution and use in source and binary forms, with or without
 6 
; Redistribution and use in source and binary forms, with or without
7 
; modification, are permitted provided that the following conditions are met:
 7 
; modification, are permitted provided that the following conditions are met:
8 
;        * Redistributions of source code must retain the above copyright
 8 
;        * Redistributions of source code must retain the above copyright
Line 23... Line 23...
23 
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 23 
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
24 
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 24 
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 25 
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
26 
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 26 
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 
;*****************************************************************************
 27 
;*****************************************************************************
28 
; KFM v0.47d 07.04.2012
 28 
; KFM v0.47e 16.04.2012
29 
;---------------------------------------------------------------------
 29 
;---------------------------------------------------------------------
30 
use32
 30 
use32
31 
org	0x0
 31 
org	0x0
Line 32... Line 32...
32 
 
 32 
 
Line 120... Line 120...
120 
red_1:
 120 
red_1:
121 
    call  draw_window
 121 
    call  draw_window
122 
;---------------------------------------------------------------------
 122 
;---------------------------------------------------------------------
123 
still:
 123 
still:
124 
    mcall 10
 124 
    mcall 10
- 
 
 125 
 
- 
 
 126 
    call  check_active_process_for_clear_all_flags
- 
 
 127 
 
125 
    cmp   eax,1
 128 
    cmp   eax,1
126 
    je	  red
 129 
    je	  red
127 
    cmp   eax,2
 130 
    cmp   eax,2
128 
    je	  key
 131 
    je	  key
129 
    cmp   eax,3
 132 
    cmp   eax,3
130 
    je	  button
 133 
    je	  button
131 
    cmp   eax,6
 134 
    cmp   eax,6
132 
    je	  mouse
 135 
    je	  mouse
133 
    jmp   still
 136 
    jmp   still
134 
;---------------------------------------------------------------------
 137 
;---------------------------------------------------------------------
- 
 
 138 
check_active_process_for_clear_all_flags:
- 
 
 139 
	push	eax
- 
 
 140 
	mcall	18,7
- 
 
 141 
	cmp	[active_process],eax
- 
 
 142 
	je	.exit
- 
 
 143
- 
 
 144 
	xor	eax,eax
- 
 
 145 
	cmp	[shift_flag],al
- 
 
 146 
	jne	.clear_all_flags
- 
 
 147
- 
 
 148 
	cmp	[ctrl_flag],al
- 
 
 149 
	jne	.clear_all_flags
- 
 
 150
- 
 
 151 
	cmp	[ctrl_flag],al
- 
 
 152 
	je	.exit
- 
 
 153 
;--------------------------------------
- 
 
 154 
.clear_all_flags:
- 
 
 155 
	mov	[shift_flag],al
- 
 
 156 
	mov	[ctrl_flag],al
- 
 
 157 
	mov	[alt_flag],al
- 
 
 158 
	call	erase_fbutton
- 
 
 159 
	call	draw_fbutton
- 
 
 160 
;--------------------------------------
- 
 
 161 
.exit:
- 
 
 162 
	pop	eax
- 
 
 163 
	ret
- 
 
 164 
;---------------------------------------------------------------------
135 
get_window_param:
 165 
get_window_param:
136 
    mcall 9, procinfo, -1
 166 
    mcall 9, procinfo, -1
137 
    mov   eax,[ebx+46]
 167 
    mov   eax,[ebx+46]
138 
    mov   [window_high],eax
 168 
    mov   [window_high],eax
139 
    mov   eax,[ebx+42]
 169 
    mov   eax,[ebx+42]