Subversion Repositories Kolibri OS

Rev

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

Rev 475 Rev 485
Line 134... Line 134...
134 
;                 * quantity of PCI buses,
 134 
;                 * quantity of PCI buses,
135 
;                 * Vendor&Device ID for appropriate Device on Bus;
 135 
;                 * Vendor&Device ID for appropriate Device on Bus;
136 
;                 * detect Revision, Class and Subclass of Device,
 136 
;                 * detect Revision, Class and Subclass of Device,
137 
;                 * and make Description based on Class
 137 
;                 * and make Description based on Class
138 
;-------------------------------------------------------------
 138 
;-------------------------------------------------------------
139 
include	'macros.inc'
 139 
include	'..\..\..\macros.inc'
140 
MEOS_APP_START
 140 
MEOS_APP_START
141 
CODE
 141 
CODE
142 
	call draw_window
 142 
	call draw_window
Line 143... Line 143...
143 
 
 143 
 
Line 150... Line 150...
150 
	jz	button
 150 
	jz	button
151 
	jmp	still
 151 
	jmp	still
Line 152... Line 152...
152 
 
 152 
 
153 
red:					; redraw
 153 
red:					; redraw
154 
	mcall	9, Proc_Info, -1	; window redraw requested so get new window coordinates and size
 154 
	mcall	9, Proc_Info, -1	; window redraw requested so get new window coordinates and size
155 
	mov	eax, [Proc_Info.x_start]; store the window coordinates into the Form Structure
 155 
	mov	eax, [Proc_Info.box.left]; store the window coordinates into the Form Structure
156 
	mov	[Form + 2], ax		; x start position
 156 
	mov	[Form + 2], ax		; x start position
157 
	mov	eax, [Proc_Info.y_start];
 157 
	mov	eax, [Proc_Info.box.top];
158 
	mov	[Form + 6], ax		; ystart position
 158 
	mov	[Form + 6], ax		; ystart position
159 
	mov	eax, [Proc_Info.x_size]	;
 159 
	mov	eax, [Proc_Info.box.width]	;
160 
	mov	[Form], ax		; window width
 160 
	mov	[Form], ax		; window width
161 
	mov	eax, [Proc_Info.y_size]	;
 161 
	mov	eax, [Proc_Info.box.height]	;
162 
	mov	[Form + 4] ,ax		; window height
 162 
	mov	[Form + 4] ,ax		; window height
163 
	call	draw_window		; go redraw window now
 163 
	call	draw_window		; go redraw window now
Line 164... Line 164...
164 
	jmp	still
 164 
	jmp	still