Subversion Repositories Kolibri OS

Rev

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

Rev 1368 Rev 1369
Line 4... Line 4...
4 
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
 4 
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
5 
;; Distributed under terms of the GNU General Public License    ;;
 5 
;; Distributed under terms of the GNU General Public License    ;;
6 
;;                                                              ;;
 6 
;;                                                              ;;
7 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 7 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 8... Line 8...
8 
 
 8 
 
Line 9... Line 9...
9 
$Revision: 1368 $
 9 
$Revision: 1369 $
10 
 
 10 
 
11 
 
 11 
 
Line 244... Line 244...
244 
align 4
 244 
align 4
245 
;------------------------------------------------------------------------------
 245 
;------------------------------------------------------------------------------
246 
syscall_set_window_shape: ;///// system function 50 ///////////////////////////
 246 
syscall_set_window_shape: ;///// system function 50 ///////////////////////////
247 
;------------------------------------------------------------------------------
 247 
;------------------------------------------------------------------------------
248 
;; Set window shape address:
 248 
;; Set window shape address:
249 
;> eax = 0
 249 
;> ebx = 0
250 
;> ebx = shape data address
 250 
;> ecx = shape data address
251 
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 251 
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
252 
;; Set window shape scale:
 252 
;; Set window shape scale:
253 
;> eax = 1
 253 
;> ebx = 1
254 
;> ebx = scale power (resulting scale is 2^ebx)
 254 
;> ecx = scale power (resulting scale is 2^ebx)
255 
;------------------------------------------------------------------------------
 255 
;------------------------------------------------------------------------------
256 
        mov     edi, [current_slot]
 256 
        mov     edi, [current_slot]
Line 257... Line 257...
257 
 
 257 
 
258 
        test    eax, eax
 258 
        test    ebx, ebx
259 
        jne     .shape_scale
 259 
        jne     .shape_scale
Line 260... Line 260...
260 
        mov     [edi + APPDATA.wnd_shape], ebx
 260 
        mov     [edi + APPDATA.wnd_shape], ecx
261 
 
 261 
 
262 
  .shape_scale:
 262 
  .shape_scale:
263 
        dec     eax
 263 
        dec     ebx
Line 264... Line 264...
264 
        jnz     .exit
 264 
        jnz     .exit
265 
        mov     [edi + APPDATA.wnd_shape_scale], ebx
 265 
        mov     [edi + APPDATA.wnd_shape_scale], ecx
Line 266... Line 266...
266 
 
 266