Subversion Repositories Kolibri OS

Rev

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

Rev 3630 Rev 7134
Line 140... Line 140...
140 
;                 * quantity of PCI buses,
 140 
;                 * quantity of PCI buses,
141 
;                 * Vendor&Device ID for appropriate Device on Bus;
 141 
;                 * Vendor&Device ID for appropriate Device on Bus;
142 
;                 * detect Revision, Class and Subclass of Device,
 142 
;                 * detect Revision, Class and Subclass of Device,
143 
;                 * and make Description based on Class
 143 
;                 * and make Description based on Class
144 
;-------------------------------------------------------------
 144 
;-------------------------------------------------------------
145 
include 'lang.inc'
 - 
 
146 
include	'macros.inc'
 145 
include	'macros.inc'
147 
MEOS_APP_START
 146 
MEOS_APP_START
148 
CODE
 147 
CODE
149 
	call draw_window
 148 
	call draw_window
Line 157... Line 156...
157 
	jz	button
 156 
	jz	button
158 
	jmp	still
 157 
	jmp	still
Line 159... Line 158...
159 
 
 158 
 
160 
red:					; redraw
 159 
red:					; redraw
161 
	mcall	9, Proc_Info, -1	; window redraw requested so get new window coordinates and size
 160 
	mcall	9, Proc_Info, -1	; window redraw requested so get new window coordinates and size
162 
	mov	eax, [Proc_Info.x_start]; store the window coordinates into the Form Structure
 161 
	mov	eax, [Proc_Info.box.left]; store the window coordinates into the Form Structure
163 
	mov	[Form + 2], ax		; x start position
 162 
	mov	[Form + 2], ax		; x start position
164 
	mov	eax, [Proc_Info.y_start];
 163 
	mov	eax, [Proc_Info.box.top];
165 
	mov	[Form + 6], ax		; ystart position
 164 
	mov	[Form + 6], ax		; ystart position
166 
	mov	eax, [Proc_Info.x_size]	;
 165 
	mov	eax, [Proc_Info.box.width];
167 
	mov	[Form], ax		; window width
 166 
	mov	[Form], ax		; window width
168 
	mov	eax, [Proc_Info.y_size]	;
 167 
	mov	eax, [Proc_Info.box.height];
169 
	mov	[Form + 4] ,ax		; window height
 168 
	mov	[Form + 4] ,ax		; window height
170 
	call	draw_window		; go redraw window now
 169 
	call	draw_window		; go redraw window now
Line 171... Line 170...
171 
	jmp	still
 170 
	jmp	still