Subversion Repositories Kolibri OS

Rev

Rev 2439 | Rev 2987 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2434 Serge 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;                                                              ;;
2465 Serge 3
;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
2434 Serge 4
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
5
;; Distributed under terms of the GNU General Public License    ;;
6
;;                                                              ;;
7
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8
 
9
$Revision: 2465 $
10
 
11
;==============================================================================
12
;///// public functions ///////////////////////////////////////////////////////
13
;==============================================================================
14
 
15
window.BORDER_SIZE = 5
16
 
17
macro FuncTable name, table_name, [label]
18
{
19
  common
20
    align 4
21
    \label name#.#table_name dword
22
  forward
23
    dd name#.#label
24
  common
25
    name#.sizeof.#table_name = $ - name#.#table_name
26
}
27
 
28
uglobal
29
  common_colours rd 32
30
  draw_limits    RECT
31
endg
32
 
33
align 4
34
;------------------------------------------------------------------------------
35
syscall_draw_window: ;///// system function 0 /////////////////////////////////
36
;------------------------------------------------------------------------------
37
;? 
38
;------------------------------------------------------------------------------
39
        mov     eax, edx
40
        shr     eax, 24
41
        and     al, 0x0f
42
        cmp     al, 5
43
        jae     .exit
44
 
45
        push    eax
46
        call    window._.sys_set_window
47
        pop     eax
48
 
49
        or      al, al
50
        jnz     @f
51
 
52
        ; type I - original style
53
        call    drawwindow_I
54
        jmp     window._.draw_window_caption.2
2439 Serge 55
;--------------------------------------
56
align 4
57
@@:
2434 Serge 58
        dec     al
59
        jnz     @f
60
 
61
        ; type II - only reserve area, no draw
2439 Serge 62
;        call    sys_window_mouse
2465 Serge 63
;        call    [draw_pointer]
64
        call    __sys_draw_pointer
2434 Serge 65
        jmp     .exit
2439 Serge 66
;--------------------------------------
67
align 4
68
@@:
2434 Serge 69
        dec     al
70
        jnz     @f
71
 
72
        ; type III  - new style
73
        call    drawwindow_III
74
        jmp     window._.draw_window_caption.2
75
 
76
        ; type IV & V - skinned window (resizable & not)
2439 Serge 77
;--------------------------------------
78
align 4
79
@@:
2434 Serge 80
        mov     eax, [TASK_COUNT]
81
        movzx   eax, word[WIN_POS + eax * 2]
82
        cmp     eax, [CURRENT_TASK]
83
        setz    al
84
        movzx   eax, al
85
        push    eax
86
        call    drawwindow_IV
87
        jmp     window._.draw_window_caption.2
2439 Serge 88
;--------------------------------------
89
align 4
90
.exit:
2434 Serge 91
        ret
2439 Serge 92
;------------------------------------------------------------------------------
2434 Serge 93
align 4
94
;------------------------------------------------------------------------------
95
syscall_display_settings: ;///// system function 48 ///////////////////////////
96
;------------------------------------------------------------------------------
97
;; Redraw screen:
98
;< ebx = 0
99
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
100
;; Set button style:
101
;< ebx = 1
102
;< ecx = 0 (flat) or 1 (with gradient)
103
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
104
;; Set system color palette:
105
;< ebx = 2
106
;< ecx = pointer to color table
107
;< edx = size of color table
108
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
109
;; Get system color palette:
110
;< ebx = 3
111
;< ecx = pointer to color table buffer
112
;< edx = size of color table buffer
113
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
114
;; Get skinned caption height:
115
;< ebx = 4
116
;> eax = height in pixels
117
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
118
;; Get screen working area:
119
;< ebx = 5
120
;> eax = pack[16(left), 16(right)]
121
;> ebx = pack[16(top), 16(bottom)]
122
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
123
;; Set screen working area:
124
;< ebx = 6
125
;< ecx = pack[16(left), 16(right)]
126
;< edx = pack[16(top), 16(bottom)]
127
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
128
;; Get skin margins:
129
;< ebx = 7
130
;> eax = pack[16(left), 16(right)]
131
;> ebx = pack[16(top), 16(bottom)]
132
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
133
;; Set skin:
134
;< ebx = 8
135
;< ecx = pointer to FileInfoBlock struct
136
;> eax = FS error code
137
;------------------------------------------------------------------------------
138
        cmp     ebx, .sizeof.ftable / 4
139
        ja      @f
140
        jmp     [.ftable + ebx * 4]
2439 Serge 141
;--------------------------------------
142
align 4
143
@@:
2434 Serge 144
        ret
2439 Serge 145
;------------------------------------------------------------------------------
2434 Serge 146
align 4
147
syscall_display_settings.00:
148
        xor     eax, eax
149
        inc     ebx
150
        cmp     [windowtypechanged], ebx
151
        jne     .exit
152
        mov     [windowtypechanged], eax
153
 
154
        jmp     syscall_display_settings._.redraw_whole_screen
2439 Serge 155
;--------------------------------------
156
align 4
157
.exit:
2434 Serge 158
        ret
2439 Serge 159
;------------------------------------------------------------------------------
2434 Serge 160
align 4
161
syscall_display_settings.01:
162
        and     ecx, 1
163
        cmp     ecx, [buttontype]
164
        je      .exit
165
        mov     [buttontype], ecx
166
        mov     [windowtypechanged], ebx
2439 Serge 167
;--------------------------------------
168
align 4
2434 Serge 169
  .exit:
170
        ret
2439 Serge 171
;------------------------------------------------------------------------------
2434 Serge 172
align 4
173
syscall_display_settings.02:
174
        dec     ebx
175
        mov     esi, ecx
176
        and     edx, 127
177
        mov     edi, common_colours
178
        mov     ecx, edx
179
        rep movsb
180
        mov     [windowtypechanged], ebx
181
        ret
2439 Serge 182
;------------------------------------------------------------------------------
2434 Serge 183
align 4
184
syscall_display_settings.03:
185
        mov     edi, ecx
186
        and     edx, 127
187
        mov     esi, common_colours
188
        mov     ecx, edx
189
        rep movsb
190
        ret
2439 Serge 191
;------------------------------------------------------------------------------
2434 Serge 192
align 4
193
syscall_display_settings.04:
194
        mov     eax, [_skinh]
195
        mov     [esp + 32], eax
196
        ret
2439 Serge 197
;------------------------------------------------------------------------------
2434 Serge 198
align 4
199
syscall_display_settings.05:
200
        mov     eax, [screen_workarea.left - 2]
201
        mov     ax, word[screen_workarea.right]
202
        mov     [esp + 32], eax
203
        mov     eax, [screen_workarea.top - 2]
204
        mov     ax, word[screen_workarea.bottom]
205
        mov     [esp + 20], eax
206
        ret
2439 Serge 207
;------------------------------------------------------------------------------
2434 Serge 208
align 4
209
syscall_display_settings.06:
210
        xor     esi, esi
211
 
212
        mov     edi, [Screen_Max_X]
213
        mov     eax, ecx
214
        movsx   ebx, ax
215
        sar     eax, 16
216
        cmp     eax, ebx
217
        jge     .check_horizontal
218
        inc     esi
219
        or      eax, eax
220
        jge     @f
221
        xor     eax, eax
2439 Serge 222
;--------------------------------------
223
align 4
224
@@:
2434 Serge 225
        mov     [screen_workarea.left], eax
226
        cmp     ebx, edi
227
        jle     @f
228
        mov     ebx, edi
2439 Serge 229
;--------------------------------------
230
align 4
231
@@:
2434 Serge 232
        mov     [screen_workarea.right], ebx
2439 Serge 233
;--------------------------------------
234
align 4
235
.check_horizontal:
2434 Serge 236
        mov     edi, [Screen_Max_Y]
237
        mov     eax, edx
238
        movsx   ebx, ax
239
        sar     eax, 16
240
        cmp     eax, ebx
241
        jge     .check_if_redraw_needed
242
        inc     esi
243
        or      eax, eax
244
        jge     @f
245
        xor     eax, eax
2439 Serge 246
;--------------------------------------
247
align 4
248
@@:
2434 Serge 249
        mov     [screen_workarea.top], eax
250
        cmp     ebx, edi
251
        jle     @f
252
        mov     ebx, edi
2439 Serge 253
;--------------------------------------
254
align 4
255
@@:
2434 Serge 256
        mov     [screen_workarea.bottom], ebx
2439 Serge 257
;--------------------------------------
258
align 4
259
.check_if_redraw_needed:
2434 Serge 260
        or      esi, esi
261
        jz      .exit
262
 
263
        call    repos_windows
264
        jmp     syscall_display_settings._.calculate_whole_screen
2439 Serge 265
;--------------------------------------
266
align 4
267
.exit:
2434 Serge 268
        ret
2439 Serge 269
;------------------------------------------------------------------------------
2434 Serge 270
align 4
271
syscall_display_settings.07:
272
        mov     eax, [_skinmargins + 0]
273
        mov     [esp + 32], eax
274
        mov     eax, [_skinmargins + 4]
275
        mov     [esp + 20], eax
276
        ret
2439 Serge 277
;------------------------------------------------------------------------------
2434 Serge 278
align 4
279
syscall_display_settings.08:
280
        mov     ebx, ecx
281
        call    read_skin_file
282
        mov     [esp + 32], eax
283
        test    eax, eax
284
        jnz     .exit
285
 
286
        call    syscall_display_settings._.calculate_whole_screen
287
        jmp     syscall_display_settings._.redraw_whole_screen
2439 Serge 288
;--------------------------------------
289
align 4
290
.exit:
2434 Serge 291
        ret
2439 Serge 292
;------------------------------------------------------------------------------
293
align 4
2434 Serge 294
syscall_display_settings._.calculate_whole_screen:
295
        xor     eax, eax
296
        xor     ebx, ebx
297
        mov     ecx, [Screen_Max_X]
298
        mov     edx, [Screen_Max_Y]
299
        jmp     calculatescreen
2439 Serge 300
;------------------------------------------------------------------------------
301
align 4
2434 Serge 302
syscall_display_settings._.redraw_whole_screen:
303
        xor     eax, eax
304
        mov     [draw_limits.left], eax
305
        mov     [draw_limits.top], eax
306
        mov     eax, [Screen_Max_X]
307
        mov     [draw_limits.right], eax
308
        mov     eax, [Screen_Max_Y]
309
        mov     [draw_limits.bottom], eax
310
        mov     eax, window_data
311
        jmp     redrawscreen
2439 Serge 312
;------------------------------------------------------------------------------
2434 Serge 313
align 4
314
;------------------------------------------------------------------------------
315
syscall_set_window_shape: ;///// system function 50 ///////////////////////////
316
;------------------------------------------------------------------------------
317
;; Set window shape address:
318
;> ebx = 0
319
;> ecx = shape data address
320
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
321
;; Set window shape scale:
322
;> ebx = 1
323
;> ecx = scale power (resulting scale is 2^ebx)
324
;------------------------------------------------------------------------------
325
        mov     edi, [current_slot]
326
 
327
        test    ebx, ebx
328
        jne     .shape_scale
329
        mov     [edi + APPDATA.wnd_shape], ecx
2439 Serge 330
;--------------------------------------
331
align 4
332
.shape_scale:
2434 Serge 333
        dec     ebx
334
        jnz     .exit
335
        mov     [edi + APPDATA.wnd_shape_scale], ecx
2439 Serge 336
;--------------------------------------
337
align 4
338
.exit:
2434 Serge 339
        ret
2439 Serge 340
;------------------------------------------------------------------------------
2434 Serge 341
align 4
342
;------------------------------------------------------------------------------
343
syscall_move_window: ;///// system function 67 ////////////////////////////////
344
;------------------------------------------------------------------------------
345
;? 
346
;------------------------------------------------------------------------------
347
        mov     edi, [CURRENT_TASK]
348
        shl     edi, 5
349
        add     edi, window_data
350
 
351
        test    [edi + WDATA.fl_wdrawn], 1
352
        jz      .exit
353
 
354
        test    [edi + WDATA.fl_wstate], WSTATE_MAXIMIZED
355
        jnz     .exit
356
 
357
        cmp     ebx, -1
358
        jne     @f
359
        mov     ebx, [edi + WDATA.box.left]
2439 Serge 360
;--------------------------------------
361
align 4
362
@@:
2434 Serge 363
        cmp     ecx, -1
364
        jne     @f
365
        mov     ecx, [edi + WDATA.box.top]
2439 Serge 366
;--------------------------------------
367
align 4
368
@@:
2434 Serge 369
        cmp     edx, -1
370
        jne     @f
371
        mov     edx, [edi + WDATA.box.width]
2439 Serge 372
;--------------------------------------
373
align 4
374
@@:
2434 Serge 375
        cmp     esi, -1
376
        jne     @f
377
        mov     esi, [edi + WDATA.box.height]
2439 Serge 378
;--------------------------------------
379
align 4
380
@@:
2434 Serge 381
        push    esi edx ecx ebx
382
        mov     eax, esp
383
        mov     bl, [edi + WDATA.fl_wstate]
384
        call    window._.set_window_box
385
        add     esp, sizeof.BOX
386
 
387
        ; NOTE: do we really need this? to be reworked
388
;       mov     byte[DONT_DRAW_MOUSE], 0 ; mouse pointer
389
;       mov     byte[MOUSE_BACKGROUND], 0 ; no mouse under
390
;       mov     byte[MOUSE_DOWN], 0 ; react to mouse up/down
391
 
392
        ; NOTE: do we really need this? to be reworked
393
;       call    [draw_pointer]
2439 Serge 394
;--------------------------------------
395
align 4
396
.exit:
2434 Serge 397
        ret
2439 Serge 398
;------------------------------------------------------------------------------
2434 Serge 399
align 4
400
;------------------------------------------------------------------------------
401
syscall_window_settings: ;///// system function 71 /////////////////////////////
402
;------------------------------------------------------------------------------
403
;? 
404
;------------------------------------------------------------------------------
405
        dec     ebx     ; subfunction #1 - set window caption
406
        jnz     .exit_fail
407
 
408
        ; NOTE: only window owner thread can set its caption,
409
        ;       so there's no parameter for PID/TID
410
 
411
        mov     edi, [CURRENT_TASK]
412
        shl     edi, 5
413
 
414
        mov     [edi * 8 + SLOT_BASE + APPDATA.wnd_caption], ecx
415
        or      [edi + window_data + WDATA.fl_wstyle], WSTYLE_HASCAPTION
416
 
417
        call    window._.draw_window_caption
418
 
419
        xor     eax, eax ; eax = 0 (success)
420
        ret
421
 
422
;  .get_window_caption:
423
;        dec     eax     ; subfunction #2 - get window caption
424
;        jnz     .exit_fail
425
 
426
        ; not implemented yet
2439 Serge 427
;--------------------------------------
428
align 4
429
.exit_fail:
2434 Serge 430
        xor     eax, eax
431
        inc     eax     ; eax = 1 (fail)
432
        ret
2439 Serge 433
;------------------------------------------------------------------------------
2434 Serge 434
align 4
435
;------------------------------------------------------------------------------
436
set_window_defaults: ;/////////////////////////////////////////////////////////
437
;------------------------------------------------------------------------------
438
;? 
439
;------------------------------------------------------------------------------
440
        mov     byte [window_data + 0x20 + WDATA.cl_titlebar + 3], 1 ; desktop is not movable
441
        push    eax ecx
442
        xor     eax, eax
443
        mov     ecx, WIN_STACK
2439 Serge 444
;--------------------------------------
445
align 4
446
@@:
2434 Serge 447
        inc     eax
448
        add     ecx, 2
449
        ; process no
450
        mov     [ecx + 0x000], ax
451
        ; positions in stack
452
        mov     [ecx + 0x400], ax
453
        cmp     ecx, WIN_POS - 2
454
        jne     @b
455
        pop     ecx eax
456
        ret
2439 Serge 457
;------------------------------------------------------------------------------
2434 Serge 458
align 4
459
;------------------------------------------------------------------------------
460
calculatescreen: ;/////////////////////////////////////////////////////////////
461
;------------------------------------------------------------------------------
462
;? Scan all windows from bottom to top, calling `setscreen` for each one
463
;? intersecting given screen area
464
;------------------------------------------------------------------------------
465
;> eax = left
466
;> ebx = top
467
;> ecx = right
468
;> edx = bottom
469
;------------------------------------------------------------------------------
470
        push    esi
471
        pushfd
472
        cli
473
 
474
        mov     esi, 1
475
        call    window._.set_screen
476
 
477
        push    ebp
478
 
479
        mov     ebp, [TASK_COUNT]
480
        cmp     ebp, 1
481
        jbe     .exit
482
 
483
        push    edx ecx ebx eax
2439 Serge 484
;--------------------------------------
485
align 4
486
.next_window:
2434 Serge 487
        movzx   edi, word[WIN_POS + esi * 2]
488
        shl     edi, 5
489
 
490
        cmp     [CURRENT_TASK + edi + TASKDATA.state], TSTATE_FREE
491
        je      .skip_window
492
 
493
        add     edi, window_data
494
        test    [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
495
        jnz     .skip_window
496
 
497
        mov     eax, [edi + WDATA.box.left]
498
        cmp     eax, [esp + RECT.right]
499
        jg      .skip_window
500
        mov     ebx, [edi + WDATA.box.top]
501
        cmp     ebx, [esp + RECT.bottom]
502
        jg      .skip_window
503
        mov     ecx, [edi + WDATA.box.width]
504
        add     ecx, eax
505
        cmp     ecx, [esp + RECT.left]
506
        jl      .skip_window
507
        mov     edx, [edi + WDATA.box.height]
508
        add     edx, ebx
509
        cmp     edx, [esp + RECT.top]
510
        jl      .skip_window
511
 
512
        cmp     eax, [esp + RECT.left]
513
        jae     @f
514
        mov     eax, [esp + RECT.left]
2439 Serge 515
;--------------------------------------
516
align 4
517
@@:
2434 Serge 518
        cmp     ebx, [esp + RECT.top]
519
        jae     @f
520
        mov     ebx, [esp + RECT.top]
2439 Serge 521
;--------------------------------------
522
align 4
523
@@:
2434 Serge 524
        cmp     ecx, [esp + RECT.right]
525
        jbe     @f
526
        mov     ecx, [esp + RECT.right]
2439 Serge 527
;--------------------------------------
528
align 4
529
@@:
2434 Serge 530
        cmp     edx, [esp + RECT.bottom]
531
        jbe     @f
532
        mov     edx, [esp + RECT.bottom]
2439 Serge 533
;--------------------------------------
534
align 4
535
@@:
2434 Serge 536
        push    esi
537
        movzx   esi, word[WIN_POS + esi * 2]
538
        call    window._.set_screen
539
        pop     esi
2439 Serge 540
;--------------------------------------
541
align 4
542
.skip_window:
2434 Serge 543
        inc     esi
544
        dec     ebp
545
        jnz     .next_window
546
 
547
        pop     eax ebx ecx edx
2439 Serge 548
;--------------------------------------
549
align 4
550
.exit:
2434 Serge 551
        pop     ebp
552
        inc     [_display.mask_seqno]
553
        popfd
554
        pop     esi
555
        ret
2439 Serge 556
;------------------------------------------------------------------------------
2434 Serge 557
align 4
558
;------------------------------------------------------------------------------
559
repos_windows: ;///////////////////////////////////////////////////////////////
560
;------------------------------------------------------------------------------
561
;? 
562
;------------------------------------------------------------------------------
563
        mov     ecx, [TASK_COUNT]
564
        mov     edi, window_data + sizeof.WDATA * 2
565
        call    force_redraw_background
566
        dec     ecx
567
        jle     .exit
2439 Serge 568
;--------------------------------------
569
align 4
570
.next_window:
2434 Serge 571
        mov     [edi + WDATA.fl_redraw], 1
572
        test    [edi + WDATA.fl_wstate], WSTATE_MAXIMIZED
573
        jnz     .fix_maximized
574
 
575
        mov     eax, [edi + WDATA.box.left]
576
        add     eax, [edi + WDATA.box.width]
577
        mov     ebx, [Screen_Max_X]
578
        cmp     eax, ebx
579
        jle     .fix_vertical
580
        mov     eax, [edi + WDATA.box.width]
581
        sub     eax, ebx
582
        jle     @f
583
        mov     [edi + WDATA.box.width], ebx
2439 Serge 584
;--------------------------------------
585
align 4
586
@@:
2434 Serge 587
        sub     ebx, [edi + WDATA.box.width]
588
        mov     [edi + WDATA.box.left], ebx
2439 Serge 589
;--------------------------------------
590
align 4
591
.fix_vertical:
2434 Serge 592
        mov     eax, [edi + WDATA.box.top]
593
        add     eax, [edi + WDATA.box.height]
594
        mov     ebx, [Screen_Max_Y]
595
        cmp     eax, ebx
596
        jle     .fix_client_box
597
        mov     eax, [edi + WDATA.box.height]
598
        sub     eax, ebx
599
        jle     @f
600
        mov     [edi + WDATA.box.height], ebx
2439 Serge 601
;--------------------------------------
602
align 4
603
@@:
2434 Serge 604
        sub     ebx, [edi + WDATA.box.height]
605
        mov     [edi + WDATA.box.top], ebx
2439 Serge 606
;--------------------------------------
607
align 4
608
.fix_client_box:
609
        call    window._.set_window_clientbox
610
        add     edi, sizeof.WDATA
611
        loop    .next_window
612
;--------------------------------------
613
align 4
614
.exit:
615
        ret
616
;--------------------------------------
617
align 4
618
.fix_maximized:
2434 Serge 619
        mov     eax, [screen_workarea.left]
620
        mov     [edi + WDATA.box.left], eax
621
        sub     eax, [screen_workarea.right]
622
        neg     eax
623
        mov     [edi + WDATA.box.width], eax
624
        mov     eax, [screen_workarea.top]
625
        mov     [edi + WDATA.box.top], eax
626
        test    [edi + WDATA.fl_wstate], WSTATE_ROLLEDUP
627
        jnz     .fix_client_box
628
        sub     eax, [screen_workarea.bottom]
629
        neg     eax
630
        mov     [edi + WDATA.box.height], eax
2439 Serge 631
        jmp     .fix_client_box
2434 Serge 632
;------------------------------------------------------------------------------
2439 Serge 633
;align 4
2434 Serge 634
;------------------------------------------------------------------------------
2439 Serge 635
;sys_window_mouse: ;////////////////////////////////////////////////////////////
636
;------------------------------------------------------------------------------
2434 Serge 637
;? 
638
;------------------------------------------------------------------------------
639
        ; NOTE: commented out since doesn't provide necessary functionality
640
        ;       anyway, to be reworked
641
;       push    eax
642
;
643
;       mov     eax, [timer_ticks]
644
;       cmp     [new_window_starting], eax
645
;       jb      .exit
646
;
647
;       mov     byte[MOUSE_BACKGROUND], 0
648
;       mov     byte[DONT_DRAW_MOUSE], 0
649
;
650
;       mov     [new_window_starting], eax
651
;
652
; .exit:
653
;       pop     eax
2439 Serge 654
;        ret
655
;------------------------------------------------------------------------------
2434 Serge 656
align 4
657
;------------------------------------------------------------------------------
658
draw_rectangle: ;//////////////////////////////////////////////////////////////
659
;------------------------------------------------------------------------------
660
;> eax = pack[16(left), 16(right)]
661
;> ebx = pack[16(top), 16(bottom)]
662
;> esi = color
663
;       ?? RR GG BB    ; 0x01000000 negation
664
;                      ; 0x02000000 used for draw_rectangle without top line
665
;                      ;           for example drawwindow_III and drawwindow_IV
666
;------------------------------------------------------------------------------
667
        push    eax ebx ecx edi
668
 
669
        xor     edi, edi
2439 Serge 670
;--------------------------------------
671
align 4
672
.flags_set:
2434 Serge 673
        push    ebx
674
 
675
        ; set line color
676
        mov     ecx, esi
677
        ; draw top border
678
        rol     ebx, 16
679
        push    ebx
680
        rol     ebx, 16
681
        pop     bx
682
        test    ecx, 1 shl 25
683
        jnz     @f
684
        sub     ecx, 1 shl 25
2465 Serge 685
;        call    [draw_line]
686
        call    __sys_draw_line
2439 Serge 687
;--------------------------------------
688
align 4
2434 Serge 689
@@:
690
        ; draw bottom border
691
        mov     ebx, [esp - 2]
692
        pop     bx
2465 Serge 693
;        call    [draw_line]
694
        call    __sys_draw_line
2434 Serge 695
 
696
        pop     ebx
697
        add     ebx, 1 * 65536 - 1
698
 
699
        ; draw left border
700
        rol     eax, 16
701
        push    eax
702
        rol     eax, 16
703
        pop     ax
2465 Serge 704
;        call    [draw_line]
705
        call    __sys_draw_line
2434 Serge 706
 
707
        ; draw right border
708
        mov     eax, [esp - 2]
709
        pop     ax
2465 Serge 710
;        call    [draw_line]
711
        call    __sys_draw_line
2434 Serge 712
 
713
        pop     edi ecx ebx eax
714
        ret
2439 Serge 715
;--------------------------------------
716
align 4
717
.forced:
2434 Serge 718
        push    eax ebx ecx edi
719
        xor     edi, edi
720
        inc     edi
721
        jmp     .flags_set
2439 Serge 722
;------------------------------------------------------------------------------
2434 Serge 723
align 4
724
;------------------------------------------------------------------------------
725
drawwindow_I_caption: ;////////////////////////////////////////////////////////
726
;------------------------------------------------------------------------------
727
;? 
728
;------------------------------------------------------------------------------
729
        push    [edx + WDATA.cl_titlebar]
730
        mov     esi, edx
731
 
732
        mov     edx, [esi + WDATA.box.top]
733
        mov     eax, edx
734
        lea     ebx, [edx + 21]
735
        inc     edx
736
        add     eax, [esi + WDATA.box.height]
737
 
738
        cmp     ebx, eax
739
        jbe     @f
740
        mov     ebx, eax
2439 Serge 741
;--------------------------------------
742
align 4
743
@@:
2434 Serge 744
        push    ebx
745
 
746
        xor     edi, edi
2439 Serge 747
;--------------------------------------
748
align 4
749
.next_line:
2434 Serge 750
        mov     ebx, edx
751
        shl     ebx, 16
752
        add     ebx, edx
753
        mov     eax, [esi + WDATA.box.left]
754
        inc     eax
755
        shl     eax, 16
756
        add     eax, [esi + WDATA.box.left]
757
        add     eax, [esi + WDATA.box.width]
758
        dec     eax
759
        mov     ecx, [esi + WDATA.cl_titlebar]
760
        test    ecx, 0x80000000
761
        jz      @f
762
        sub     ecx, 0x00040404
763
        mov     [esi + WDATA.cl_titlebar], ecx
2439 Serge 764
;--------------------------------------
765
align 4
766
@@:
2434 Serge 767
        and     ecx, 0x00ffffff
2465 Serge 768
;        call    [draw_line]
769
        call    __sys_draw_line
2434 Serge 770
        inc     edx
771
        cmp     edx, [esp]
772
        jb      .next_line
773
 
774
        add     esp, 4
775
        pop     [esi + WDATA.cl_titlebar]
776
        ret
2439 Serge 777
;------------------------------------------------------------------------------
2434 Serge 778
align 4
779
;------------------------------------------------------------------------------
780
drawwindow_I: ;////////////////////////////////////////////////////////////////
781
;------------------------------------------------------------------------------
782
;? 
783
;------------------------------------------------------------------------------
784
        pushad
785
 
786
        ; window border
787
 
788
        mov     eax, [edx + WDATA.box.left - 2]
789
        mov     ax, word[edx + WDATA.box.left]
790
        add     ax, word[edx + WDATA.box.width]
791
        mov     ebx, [edx + WDATA.box.top - 2]
792
        mov     bx, word[edx + WDATA.box.top]
793
        add     bx, word[edx + WDATA.box.height]
794
 
795
        mov     esi, [edx + WDATA.cl_frames]
796
        call    draw_rectangle
797
 
798
        ; window caption
799
 
800
        call    drawwindow_I_caption
801
 
802
        ; window client area
803
 
804
        ; do we need to draw it?
805
        mov     edi, [esi + WDATA.cl_workarea]
806
        test    edi, 0x40000000
807
        jnz     .exit
808
 
809
        ; does client area have a positive size on screen?
810
        mov     edx, [esi + WDATA.box.top]
811
        add     edx, 21 + 5
812
        mov     ebx, [esi + WDATA.box.top]
813
        add     ebx, [esi + WDATA.box.height]
814
        cmp     edx, ebx
815
        jg      .exit
816
 
817
        ; okay, let's draw it
818
        mov     eax, 1
819
        mov     ebx, 21
820
        mov     ecx, [esi + WDATA.box.width]
821
        mov     edx, [esi + WDATA.box.height]
2465 Serge 822
;        call    [drawbar]
823
        call    vesa20_drawbar
2439 Serge 824
;--------------------------------------
825
align 4
826
.exit:
2434 Serge 827
        popad
828
        ret
2439 Serge 829
;------------------------------------------------------------------------------
2434 Serge 830
align 4
831
;------------------------------------------------------------------------------
832
drawwindow_III_caption: ;/////////////////////////////////////////////////////
833
;------------------------------------------------------------------------------
834
;? 
835
;------------------------------------------------------------------------------
836
        mov     ecx, [edx + WDATA.cl_titlebar]
837
        push    ecx
838
        mov     esi, edx
839
        mov     edx, [esi + WDATA.box.top]
840
        add     edx, 4
841
        mov     ebx, [esi + WDATA.box.top]
842
        add     ebx, 20
843
        mov     eax, [esi + WDATA.box.top]
844
        add     eax, [esi + WDATA.box.height]
845
 
846
        cmp     ebx, eax
847
        jb      @f
848
        mov     ebx, eax
2439 Serge 849
;--------------------------------------
850
align 4
851
@@:
2434 Serge 852
        push    ebx
853
 
854
        xor     edi, edi
2439 Serge 855
;--------------------------------------
856
align 4
857
.next_line:
2434 Serge 858
        mov     ebx, edx
859
        shl     ebx, 16
860
        add     ebx, edx
861
        mov     eax, [esi + WDATA.box.left]
862
        shl     eax, 16
863
        add     eax, [esi + WDATA.box.left]
864
        add     eax, [esi + WDATA.box.width]
865
        add     eax, 4 * 65536 - 4
866
        mov     ecx, [esi + WDATA.cl_titlebar]
867
        test    ecx, 0x40000000
868
        jz      @f
869
        add     ecx, 0x00040404
2439 Serge 870
;--------------------------------------
871
align 4
872
@@:
2434 Serge 873
        test    ecx, 0x80000000
874
        jz      @f
875
        sub     ecx, 0x00040404
2439 Serge 876
;--------------------------------------
877
align 4
878
@@:
2434 Serge 879
        mov     [esi + WDATA.cl_titlebar], ecx
880
        and     ecx, 0x00ffffff
2465 Serge 881
;        call    [draw_line]
882
        call    __sys_draw_line
2434 Serge 883
        inc     edx
884
        cmp     edx, [esp]
885
        jb      .next_line
886
 
887
        add     esp, 4
888
        pop     [esi + WDATA.cl_titlebar]
889
        ret
2439 Serge 890
;------------------------------------------------------------------------------
2434 Serge 891
align 4
892
;------------------------------------------------------------------------------
893
drawwindow_III: ;//////////////////////////////////////////////////////////////
894
;------------------------------------------------------------------------------
895
;? 
896
;------------------------------------------------------------------------------
897
        pushad
898
 
899
        ; window border
900
 
901
        mov     eax, [edx + WDATA.box.left - 2]
902
        mov     ax, word[edx + WDATA.box.left]
903
        add     ax, word[edx + WDATA.box.width]
904
        mov     ebx, [edx + WDATA.box.top - 2]
905
        mov     bx, word[edx + WDATA.box.top]
906
        add     bx, word[edx + WDATA.box.height]
907
 
908
        mov     esi, [edx + WDATA.cl_frames]
909
        shr     esi, 1
910
        and     esi, 0x007f7f7f
911
        call    draw_rectangle
912
 
913
        push    esi
914
        mov     ecx, 3
915
        mov     esi, [edx + WDATA.cl_frames]
2439 Serge 916
;--------------------------------------
917
align 4
918
.next_frame:
2434 Serge 919
        add     eax, 1 * 65536 - 1
2465 Serge 920
        add     ebx, 1 * 65536 - 1
2434 Serge 921
        call    draw_rectangle
922
        dec     ecx
923
        jnz     .next_frame
924
 
925
        pop     esi
926
        add     eax, 1 * 65536 - 1
2465 Serge 927
        add     ebx, 1 * 65536 - 1
2434 Serge 928
        call    draw_rectangle
929
 
930
        ; window caption
931
 
932
        call    drawwindow_III_caption
933
 
934
        ; window client area
935
 
936
        ; do we need to draw it?
937
        mov     edi, [esi + WDATA.cl_workarea]
938
        test    edi, 0x40000000
939
        jnz     .exit
940
 
941
        ; does client area have a positive size on screen?
942
        mov     edx, [esi + WDATA.box.top]
943
        add     edx, 21 + 5
944
        mov     ebx, [esi + WDATA.box.top]
945
        add     ebx, [esi + WDATA.box.height]
946
        cmp     edx, ebx
947
        jg      .exit
948
 
949
        ; okay, let's draw it
950
        mov     eax, 5
951
        mov     ebx, 20
952
        mov     ecx, [esi + WDATA.box.width]
953
        mov     edx, [esi + WDATA.box.height]
954
        sub     ecx, 4
955
        sub     edx, 4
2465 Serge 956
;        call    [drawbar]
957
        call    vesa20_drawbar
2439 Serge 958
;--------------------------------------
959
align 4
960
.exit:
2434 Serge 961
        popad
962
        ret
2439 Serge 963
;------------------------------------------------------------------------------
2434 Serge 964
align 4
965
;------------------------------------------------------------------------------
966
waredraw: ;////////////////////////////////////////////////////////////////////
967
;------------------------------------------------------------------------------
968
;? Activate window, redrawing if necessary
969
;------------------------------------------------------------------------------
970
        push    -1
971
        mov     eax, [TASK_COUNT]
972
        lea     eax, [WIN_POS + eax * 2]
973
        cmp     eax, esi
974
        pop     eax
975
        je      .exit
976
 
977
        ; is it overlapped by another window now?
978
        push    ecx
979
        call    window._.check_window_draw
980
        test    ecx, ecx
981
        pop     ecx
982
        jz      .do_not_draw
983
 
984
        ; yes it is, activate and update screen buffer
985
        mov     byte[MOUSE_DOWN], 1
986
        call    window._.window_activate
987
 
988
        pushad
989
        mov     edi, [TASK_COUNT]
990
        movzx   esi, word[WIN_POS + edi * 2]
991
        shl     esi, 5
992
        add     esi, window_data
993
 
994
        mov     eax, [esi + WDATA.box.left]
995
        mov     ebx, [esi + WDATA.box.top]
996
        mov     ecx, [esi + WDATA.box.width]
997
        mov     edx, [esi + WDATA.box.height]
998
 
999
        add     ecx, eax
1000
        add     edx, ebx
1001
 
1002
        mov     edi, [TASK_COUNT]
1003
        movzx   esi, word[WIN_POS + edi * 2]
1004
        call    window._.set_screen
1005
        inc     [_display.mask_seqno]
1006
        popad
1007
 
1008
        ; tell application to redraw itself
1009
        mov     [edi + WDATA.fl_redraw], 1
1010
        xor     eax, eax
1011
        jmp     .exit
2439 Serge 1012
;--------------------------------------
1013
align 4
1014
.do_not_draw:
2434 Serge 1015
        ; no it's not, just activate the window
1016
        call    window._.window_activate
1017
        xor     eax, eax
1018
        mov     byte[MOUSE_BACKGROUND], al
1019
        mov     byte[DONT_DRAW_MOUSE], al
2439 Serge 1020
;--------------------------------------
1021
align 4
1022
.exit:
2434 Serge 1023
        mov     byte[MOUSE_DOWN], 0
1024
        inc     eax
1025
        ret
2439 Serge 1026
;------------------------------------------------------------------------------
2434 Serge 1027
align 4
1028
;------------------------------------------------------------------------------
1029
minimize_window: ;/////////////////////////////////////////////////////////////
1030
;------------------------------------------------------------------------------
1031
;> eax = window number on screen
1032
;------------------------------------------------------------------------------
1033
;# corrupts [dl*]
1034
;------------------------------------------------------------------------------
1035
        push    edi
1036
        pushfd
1037
        cli
1038
 
1039
        ; is it already minimized?
1040
        movzx   edi, word[WIN_POS + eax * 2]
1041
        shl     edi, 5
1042
        add     edi, window_data
1043
        test    [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
1044
        jnz     .exit
1045
 
1046
        push    eax ebx ecx edx esi
1047
 
1048
        ; no it's not, let's do that
1049
        or      [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
1050
        mov     eax, [edi + WDATA.box.left]
1051
        mov     [draw_limits.left], eax
1052
        mov     ecx, eax
1053
        add     ecx, [edi + WDATA.box.width]
1054
        mov     [draw_limits.right], ecx
1055
        mov     ebx, [edi + WDATA.box.top]
1056
        mov     [draw_limits.top], ebx
1057
        mov     edx, ebx
1058
        add     edx, [edi + WDATA.box.height]
1059
        mov     [draw_limits.bottom], edx
1060
        call    calculatescreen
1061
        xor     esi, esi
1062
        xor     eax, eax
1063
        call    redrawscreen
1064
 
1065
        pop     esi edx ecx ebx eax
2439 Serge 1066
;--------------------------------------
1067
align 4
1068
.exit:
2434 Serge 1069
        popfd
1070
        pop     edi
1071
        ret
2439 Serge 1072
;------------------------------------------------------------------------------
2434 Serge 1073
align 4
1074
;------------------------------------------------------------------------------
1075
restore_minimized_window: ;////////////////////////////////////////////////////
1076
;------------------------------------------------------------------------------
1077
;> eax = window number on screen
1078
;------------------------------------------------------------------------------
1079
;# corrupts [dl*]
1080
;------------------------------------------------------------------------------
1081
        pushad
1082
        pushfd
1083
        cli
1084
 
1085
        ; is it already restored?
1086
        movzx   esi, word[WIN_POS + eax * 2]
1087
        mov     edi, esi
1088
        shl     edi, 5
1089
        add     edi, window_data
1090
        test    [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
1091
        jz      .exit
1092
 
1093
        ; no it's not, let's do that
1094
        mov     [edi + WDATA.fl_redraw], 1
1095
        and     [edi + WDATA.fl_wstate], not WSTATE_MINIMIZED
1096
        mov     ebp, window._.set_screen
1097
        cmp     eax, [TASK_COUNT]
1098
        jz      @f
1099
        mov     ebp, calculatescreen
2439 Serge 1100
;--------------------------------------
1101
align 4
1102
@@:
2434 Serge 1103
        mov     eax, [edi + WDATA.box.left]
1104
        mov     ebx, [edi + WDATA.box.top]
1105
        mov     ecx, [edi + WDATA.box.width]
1106
        mov     edx, [edi + WDATA.box.height]
1107
        add     ecx, eax
1108
        add     edx, ebx
1109
        call    ebp
1110
        inc     [_display.mask_seqno]
1111
        mov     byte[MOUSE_BACKGROUND], 0
2439 Serge 1112
;--------------------------------------
1113
align 4
1114
.exit:
2434 Serge 1115
        popfd
1116
        popad
1117
        ret
2439 Serge 1118
;------------------------------------------------------------------------------
2434 Serge 1119
align 4
1120
; TODO: remove this proc
1121
;------------------------------------------------------------------------------
1122
window_check_events: ;/////////////////////////////////////////////////////////
1123
;------------------------------------------------------------------------------
1124
;? 
1125
;------------------------------------------------------------------------------
1126
        ; do we have window minimize/restore request?
1127
        cmp     [window_minimize], 0
1128
        je      .exit
1129
 
1130
        ; okay, minimize or restore top-most window and exit
1131
        mov     eax, [TASK_COUNT]
1132
        mov     bl, 0
1133
        xchg    [window_minimize], bl
1134
        dec     bl
1135
        jnz     @f
1136
        call    minimize_window
1137
        jmp     .exit
2439 Serge 1138
;--------------------------------------
1139
align 4
1140
@@:
2434 Serge 1141
        call    restore_minimized_window
2439 Serge 1142
;--------------------------------------
1143
align 4
1144
.exit:
2434 Serge 1145
        ret
2439 Serge 1146
;------------------------------------------------------------------------------
2434 Serge 1147
align 4
1148
;------------------------------------------------------------------------------
1149
sys_window_maximize_handler: ;/////////////////////////////////////////////////
1150
;------------------------------------------------------------------------------
1151
;? 
1152
;------------------------------------------------------------------------------
1153
;> esi = process slot
1154
;------------------------------------------------------------------------------
1155
        mov     edi, esi
1156
        shl     edi, 5
1157
        add     edi, window_data
1158
 
1159
        ; can window change its height?
1160
        ; only types 2 and 3 can be resized
1161
        mov     dl, [edi + WDATA.fl_wstyle]
1162
        test    dl, 2
1163
        jz      .exit
1164
 
1165
        ; toggle normal/maximized window state
1166
        mov     bl, [edi + WDATA.fl_wstate]
1167
        xor     bl, WSTATE_MAXIMIZED
1168
 
1169
        ; calculate and set appropriate window bounds
1170
        test    bl, WSTATE_MAXIMIZED
1171
        jz      .restore_size
1172
 
1173
        mov     eax, [screen_workarea.left]
1174
        mov     ecx, [screen_workarea.top]
1175
        push    [screen_workarea.bottom] \
1176
                [screen_workarea.right] \
1177
                ecx \
1178
                eax
1179
        sub     [esp + BOX.width], eax
1180
        sub     [esp + BOX.height], ecx
1181
        mov     eax, esp
1182
        jmp     .set_box
2439 Serge 1183
;--------------------------------------
1184
align 4
1185
.restore_size:
2434 Serge 1186
        mov     eax, esi
1187
        shl     eax, 8
1188
        add     eax, SLOT_BASE + APPDATA.saved_box
1189
        push    [eax + BOX.height] \
1190
                [eax + BOX.width] \
1191
                [eax + BOX.top] \
1192
                [eax + BOX.left]
1193
        mov     eax, esp
2439 Serge 1194
;--------------------------------------
1195
align 4
1196
.set_box:
2434 Serge 1197
        test    bl, WSTATE_ROLLEDUP
1198
        jz      @f
1199
 
1200
        xchg    eax, ecx
1201
        call    window._.get_rolledup_height
1202
        mov     [ecx + BOX.height], eax
1203
        xchg    eax, ecx
2439 Serge 1204
;--------------------------------------
1205
align 4
1206
@@:
2434 Serge 1207
        call    window._.set_window_box
1208
        add     esp, sizeof.BOX
2439 Serge 1209
;--------------------------------------
1210
align 4
1211
.exit:
2434 Serge 1212
        inc     [_display.mask_seqno]
1213
        ret
2439 Serge 1214
;------------------------------------------------------------------------------
2434 Serge 1215
align 4
1216
;------------------------------------------------------------------------------
1217
sys_window_rollup_handler: ;///////////////////////////////////////////////////
1218
;------------------------------------------------------------------------------
1219
;? 
1220
;------------------------------------------------------------------------------
1221
;> esi = process slot
1222
;------------------------------------------------------------------------------
1223
        mov     edx, esi
1224
        shl     edx, 8
1225
        add     edx, SLOT_BASE
1226
 
1227
        ; toggle normal/rolled up window state
1228
        mov     bl, [edi + WDATA.fl_wstate]
1229
        xor     bl, WSTATE_ROLLEDUP
1230
 
1231
        ; calculate and set appropriate window bounds
1232
        test    bl, WSTATE_ROLLEDUP
1233
        jz      .restore_size
1234
 
1235
        call    window._.get_rolledup_height
1236
        push    eax \
1237
                [edi + WDATA.box.width] \
1238
                [edi + WDATA.box.top] \
1239
                [edi + WDATA.box.left]
1240
        mov     eax, esp
1241
        jmp     .set_box
2439 Serge 1242
;--------------------------------------
1243
align 4
1244
.restore_size:
2434 Serge 1245
        test    bl, WSTATE_MAXIMIZED
1246
        jnz     @f
1247
        add     esp, -sizeof.BOX
1248
        lea     eax, [edx + APPDATA.saved_box]
1249
        jmp     .set_box
2439 Serge 1250
;--------------------------------------
1251
align 4
1252
@@:
2434 Serge 1253
        mov     eax, [screen_workarea.top]
1254
        push    [screen_workarea.bottom] \
1255
                [edi + WDATA.box.width] \
1256
                eax \
1257
                [edi + WDATA.box.left]
1258
        sub     [esp + BOX.height], eax
1259
        mov     eax, esp
2439 Serge 1260
;--------------------------------------
1261
align 4
1262
.set_box:
2434 Serge 1263
        call    window._.set_window_box
1264
        add     esp, sizeof.BOX
1265
        ret
2439 Serge 1266
;------------------------------------------------------------------------------
2434 Serge 1267
align 4
1268
;------------------------------------------------------------------------------
1269
sys_window_start_moving_handler: ;/////////////////////////////////////////////
1270
;------------------------------------------------------------------------------
1271
;? 
1272
;------------------------------------------------------------------------------
1273
;> eax = old (original) window box
1274
;> esi = process slot
1275
;------------------------------------------------------------------------------
1276
        mov     edi, eax
1277
        call    window._.draw_negative_box
1278
        ret
2439 Serge 1279
;------------------------------------------------------------------------------
2434 Serge 1280
align 4
1281
;------------------------------------------------------------------------------
1282
sys_window_end_moving_handler: ;///////////////////////////////////////////////
1283
;------------------------------------------------------------------------------
1284
;? 
1285
;------------------------------------------------------------------------------
1286
;> eax = old (original) window box
1287
;> ebx = new (final) window box
1288
;> esi = process slot
1289
;------------------------------------------------------------------------------
1290
        mov     edi, ebx
1291
        call    window._.end_moving__box
1292
 
1293
        mov     edi, esi
1294
        shl     edi, 5
1295
        add     edi, window_data
1296
 
1297
        mov     eax, ebx
1298
        mov     bl, [edi + WDATA.fl_wstate]
1299
        call    window._.set_window_box
1300
        ret
2439 Serge 1301
;------------------------------------------------------------------------------
2434 Serge 1302
align 4
1303
;------------------------------------------------------------------------------
1304
sys_window_moving_handler: ;///////////////////////////////////////////////////
1305
;------------------------------------------------------------------------------
1306
;? 
1307
;------------------------------------------------------------------------------
1308
;> eax = old (from previous call) window box
1309
;> ebx = new (current) window box
1310
;> esi = process_slot
1311
;------------------------------------------------------------------------------
1312
        mov     edi, eax
1313
        call    window._.draw_negative_box
1314
        mov     edi, ebx
1315
        call    window._.draw_negative_box
1316
        ret
1317
;==============================================================================
1318
;///// private functions //////////////////////////////////////////////////////
1319
;==============================================================================
1320
 
1321
iglobal
1322
  FuncTable syscall_display_settings, ftable, \
1323
    00, 01, 02, 03, 04, 05, 06, 07, 08
1324
 
1325
  align 4
1326
  window_topleft dd \
1327
    1, 21, \ ;type 0
1328
    0,  0, \ ;type 1
1329
    5, 20, \ ;type 2
1330
    5,  ?, \ ;type 3 {set by skin}
1331
    5,  ?    ;type 4 {set by skin}
1332
endg
1333
 
1334
;uglobal
1335
  ; NOTE: commented out since doesn't provide necessary functionality anyway,
1336
  ;       to be reworked
1337
; new_window_starting       dd ?
1338
;endg
2439 Serge 1339
;------------------------------------------------------------------------------
2434 Serge 1340
align 4
1341
;------------------------------------------------------------------------------
1342
window._.invalidate_screen: ;//////////////////////////////////////////////////
1343
;------------------------------------------------------------------------------
1344
;? 
1345
;------------------------------------------------------------------------------
1346
;> eax = old (original) window box
1347
;> ebx = new (final) window box
1348
;> edi = pointer to WDATA struct
1349
;------------------------------------------------------------------------------
1350
        push    eax ebx
1351
 
1352
        ; TODO: do we really need `draw_limits`?
1353
        ; Yes, they are used by background drawing code.
1354
        mov     ecx, [eax + BOX.left]
1355
        mov     edx, [ebx + BOX.left]
1356
        cmp     ecx, edx
1357
        jle     @f
1358
        mov     ecx, edx
2439 Serge 1359
;--------------------------------------
1360
align 4
1361
@@:
2434 Serge 1362
        mov     [draw_limits.left], ecx
1363
        mov     ecx, [eax + BOX.left]
1364
        add     ecx, [eax + BOX.width]
1365
        add     edx, [ebx + BOX.width]
1366
        cmp     ecx, edx
1367
        jae     @f
1368
        mov     ecx, edx
2439 Serge 1369
;--------------------------------------
1370
align 4
1371
@@:
2434 Serge 1372
        mov     [draw_limits.right], ecx
1373
        mov     ecx, [eax + BOX.top]
1374
        mov     edx, [ebx + BOX.top]
1375
        cmp     ecx, edx
1376
        jle     @f
1377
        mov     ecx, edx
2439 Serge 1378
;--------------------------------------
1379
align 4
1380
@@:
2434 Serge 1381
        mov     [draw_limits.top], ecx
1382
        mov     ecx, [eax + BOX.top]
1383
        add     ecx, [eax + BOX.height]
1384
        add     edx, [ebx + BOX.height]
1385
        cmp     ecx, edx
1386
        jae     @f
1387
        mov     ecx, edx
2439 Serge 1388
;--------------------------------------
1389
align 4
1390
@@:
2434 Serge 1391
        mov     [draw_limits.bottom], ecx
1392
        ; recalculate screen buffer at old position
1393
        push    ebx
1394
        mov     edx, [eax + BOX.height]
1395
        mov     ecx, [eax + BOX.width]
1396
        mov     ebx, [eax + BOX.top]
1397
        mov     eax, [eax + BOX.left]
1398
        add     ecx, eax
1399
        add     edx, ebx
1400
        call    calculatescreen
1401
        pop     eax
1402
        ; recalculate screen buffer at new position
1403
        mov     edx, [eax + BOX.height]
1404
        mov     ecx, [eax + BOX.width]
1405
        mov     ebx, [eax + BOX.top]
1406
        mov     eax, [eax + BOX.left]
1407
        add     ecx, eax
1408
        add     edx, ebx
1409
        call    calculatescreen
1410
 
1411
        mov     eax, edi
1412
        call    redrawscreen
1413
 
1414
        ; tell window to redraw itself
1415
        mov     [edi + WDATA.fl_redraw], 1
1416
 
1417
        pop     ebx eax
1418
        ret
2439 Serge 1419
;------------------------------------------------------------------------------
2434 Serge 1420
align 4
1421
;------------------------------------------------------------------------------
1422
window._.set_window_box: ;/////////////////////////////////////////////////////
1423
;------------------------------------------------------------------------------
1424
;? 
1425
;------------------------------------------------------------------------------
1426
;> eax = pointer to BOX struct
1427
;> bl = new window state flags
1428
;> edi = pointer to WDATA struct
1429
;------------------------------------------------------------------------------
1430
        push    eax ebx esi
1431
 
1432
; don't do anything if the new box is identical to the old
1433
        cmp     bl, [edi + WDATA.fl_wstate]
1434
        jnz     @f
1435
        mov     esi, eax
1436
        push    edi
1437
if WDATA.box
1438
        add     edi, WDATA.box
1439
end if
1440
        mov     ecx, 4
1441
        repz cmpsd
1442
        pop     edi
1443
        jz      .exit
2439 Serge 1444
;--------------------------------------
1445
align 4
2434 Serge 1446
@@:
1447
        add     esp, -sizeof.BOX
1448
        mov     ebx, esp
1449
if WDATA.box
1450
        lea     esi, [edi + WDATA.box]
1451
else
1452
        mov     esi, edi ; optimization for WDATA.box = 0
1453
end if
1454
        xchg    eax, esi
1455
        mov     ecx, sizeof.BOX
1456
        call    memmove
1457
        xchg    eax, esi
1458
        xchg    ebx, esi
1459
        call    memmove
1460
        mov     eax, ebx
1461
        mov     ebx, esi
1462
 
1463
        call    window._.check_window_position
1464
        call    window._.set_window_clientbox
1465
        call    window._.invalidate_screen
1466
 
1467
        add     esp, sizeof.BOX
1468
 
1469
        mov     cl, [esp + 4]
1470
        mov     ch, cl
1471
        xchg    cl, [edi + WDATA.fl_wstate]
1472
 
1473
        or      cl, ch
1474
        test    cl, WSTATE_MAXIMIZED
1475
        jnz     .exit
1476
 
1477
        mov     eax, edi
1478
        sub     eax, window_data
1479
        shl     eax, 3
1480
        add     eax, SLOT_BASE
1481
 
1482
        lea     ebx, [edi + WDATA.box]
1483
        xchg    esp, ebx
1484
 
1485
        pop     [eax + APPDATA.saved_box.left] \
1486
                [eax + APPDATA.saved_box.top] \
1487
                [eax + APPDATA.saved_box.width] \
1488
                edx
1489
 
1490
        xchg    esp, ebx
1491
 
1492
        test    ch, WSTATE_ROLLEDUP
1493
        jnz     .exit
1494
 
1495
        mov     [eax + APPDATA.saved_box.height], edx
2439 Serge 1496
;--------------------------------------
1497
align 4
1498
.exit:
2434 Serge 1499
        pop     esi ebx eax
1500
        ret
2439 Serge 1501
;------------------------------------------------------------------------------
2434 Serge 1502
align 4
1503
;------------------------------------------------------------------------------
1504
window._.set_window_clientbox: ;///////////////////////////////////////////////
1505
;------------------------------------------------------------------------------
1506
;? 
1507
;------------------------------------------------------------------------------
1508
;> edi = pointer to WDATA struct
1509
;------------------------------------------------------------------------------
1510
        push    eax ecx edi
1511
 
1512
        mov     eax, [_skinh]
1513
        mov     [window_topleft + 8 * 3 + 4], eax
1514
        mov     [window_topleft + 8 * 4 + 4], eax
1515
 
1516
        mov     ecx, edi
1517
        sub     edi, window_data
1518
        shl     edi, 3
1519
        test    [ecx + WDATA.fl_wstyle], WSTYLE_CLIENTRELATIVE
1520
        jz      .whole_window
1521
 
1522
        movzx   eax, [ecx + WDATA.fl_wstyle]
1523
        and     eax, 0x0F
1524
        mov     eax, [eax * 8 + window_topleft + 0]
1525
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.left], eax
1526
        shl     eax, 1
1527
        neg     eax
1528
        add     eax, [ecx + WDATA.box.width]
1529
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.width], eax
1530
 
1531
        movzx   eax, [ecx + WDATA.fl_wstyle]
1532
        and     eax, 0x0F
1533
        push    [eax * 8 + window_topleft + 0]
1534
        mov     eax, [eax * 8 + window_topleft + 4]
1535
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.top], eax
1536
        neg     eax
1537
        sub     eax, [esp]
1538
        add     eax, [ecx + WDATA.box.height]
1539
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.height], eax
1540
        add     esp, 4
1541
        jmp     .exit
2439 Serge 1542
;--------------------------------------
1543
align 4
1544
.whole_window:
2434 Serge 1545
        xor     eax, eax
1546
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.left], eax
1547
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.top], eax
1548
        mov     eax, [ecx + WDATA.box.width]
1549
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.width], eax
1550
        mov     eax, [ecx + WDATA.box.height]
1551
        mov     [edi + SLOT_BASE + APPDATA.wnd_clientbox.height], eax
2439 Serge 1552
;--------------------------------------
1553
align 4
1554
.exit:
2434 Serge 1555
        pop     edi ecx eax
1556
        ret
2439 Serge 1557
;------------------------------------------------------------------------------
2434 Serge 1558
align 4
1559
;------------------------------------------------------------------------------
1560
window._.sys_set_window: ;/////////////////////////////////////////////////////
1561
;------------------------------------------------------------------------------
1562
;? 
1563
;------------------------------------------------------------------------------
1564
;< edx = pointer to WDATA struct
1565
;------------------------------------------------------------------------------
1566
        mov     eax, [CURRENT_TASK]
1567
        shl     eax, 5
1568
        add     eax, window_data
1569
 
1570
        ; save window colors
1571
        mov     [eax + WDATA.cl_workarea], edx
1572
        mov     [eax + WDATA.cl_titlebar], esi
1573
        mov     [eax + WDATA.cl_frames], edi
1574
 
1575
        mov     edi, eax
1576
 
1577
        ; was it already defined before?
1578
        test    [edi + WDATA.fl_wdrawn], 1
1579
        jnz     .set_client_box
1580
        or      [edi + WDATA.fl_wdrawn], 1
1581
 
1582
        ; NOTE: commented out since doesn't provide necessary functionality
1583
        ;       anyway, to be reworked
1584
;       mov     eax, [timer_ticks] ; [0xfdf0]
1585
;       add     eax, 100
1586
;       mov     [new_window_starting], eax
1587
 
1588
        ; no it wasn't, performing initial window definition
1589
        movzx   eax, bx
1590
        mov     [edi + WDATA.box.width], eax
1591
        movzx   eax, cx
1592
        mov     [edi + WDATA.box.height], eax
1593
        sar     ebx, 16
1594
        sar     ecx, 16
1595
        mov     [edi + WDATA.box.left], ebx
1596
        mov     [edi + WDATA.box.top], ecx
1597
 
1598
        call    window._.check_window_position
1599
 
1600
        push    ecx edi
1601
 
1602
        mov     cl, [edi + WDATA.fl_wstyle]
1603
        mov     eax, [edi + WDATA.cl_frames]
1604
 
1605
        sub     edi, window_data
1606
        shl     edi, 3
1607
        add     edi, SLOT_BASE
1608
 
1609
        and     cl, 0x0F
1610
        cmp     cl, 3
1611
        je      @f
1612
        cmp     cl, 4
1613
        je      @f
1614
 
1615
        xor     eax, eax
2439 Serge 1616
;--------------------------------------
1617
align 4
1618
@@:
2434 Serge 1619
        mov     [edi + APPDATA.wnd_caption], eax
1620
 
1621
        mov     esi, [esp]
1622
        add     edi, APPDATA.saved_box
1623
        movsd
1624
        movsd
1625
        movsd
1626
        movsd
1627
 
1628
        pop     edi ecx
1629
 
1630
        mov     esi, [CURRENT_TASK]
1631
        movzx   esi, word[WIN_STACK + esi * 2]
1632
        lea     esi, [WIN_POS + esi * 2]
1633
        call    waredraw
1634
 
1635
        mov     eax, [edi + WDATA.box.left]
1636
        mov     ebx, [edi + WDATA.box.top]
1637
        mov     ecx, [edi + WDATA.box.width]
1638
        mov     edx, [edi + WDATA.box.height]
1639
        add     ecx, eax
1640
        add     edx, ebx
1641
        call    calculatescreen
1642
 
1643
        mov     byte[KEY_COUNT], 0           ; empty keyboard buffer
1644
        mov     byte[BTN_COUNT], 0           ; empty button buffer
2439 Serge 1645
;--------------------------------------
1646
align 4
1647
.set_client_box:
2434 Serge 1648
        ; update window client box coordinates
1649
        call    window._.set_window_clientbox
1650
 
1651
        ; reset window redraw flag and exit
1652
        mov     [edi + WDATA.fl_redraw], 0
1653
        mov     edx, edi
1654
        ret
2439 Serge 1655
;------------------------------------------------------------------------------
2434 Serge 1656
align 4
1657
;------------------------------------------------------------------------------
1658
window._.check_window_position: ;//////////////////////////////////////////////
1659
;------------------------------------------------------------------------------
1660
;? Check if window is inside screen area
1661
;------------------------------------------------------------------------------
1662
;> edi = pointer to WDATA
1663
;------------------------------------------------------------------------------
1664
        push    eax ebx ecx edx esi
1665
 
1666
        mov     eax, [edi + WDATA.box.left]
1667
        mov     ebx, [edi + WDATA.box.top]
1668
        mov     ecx, [edi + WDATA.box.width]
1669
        mov     edx, [edi + WDATA.box.height]
1670
 
1671
        mov     esi, [Screen_Max_X]
1672
        cmp     ecx, esi
1673
        ja      .fix_width_high
2439 Serge 1674
;--------------------------------------
1675
align 4
1676
.check_left:
2434 Serge 1677
        or      eax, eax
1678
        jl      .fix_left_low
1679
        add     eax, ecx
1680
        cmp     eax, esi
1681
        jg      .fix_left_high
2439 Serge 1682
;--------------------------------------
1683
align 4
1684
.check_height:
2434 Serge 1685
        mov     esi, [Screen_Max_Y]
1686
        cmp     edx, esi
1687
        ja      .fix_height_high
2439 Serge 1688
;--------------------------------------
1689
align 4
1690
.check_top:
2434 Serge 1691
        or      ebx, ebx
1692
        jl      .fix_top_low
1693
        add     ebx, edx
1694
        cmp     ebx, esi
1695
        jg      .fix_top_high
2439 Serge 1696
;--------------------------------------
1697
align 4
1698
.exit:
2434 Serge 1699
        pop     esi edx ecx ebx eax
1700
        ret
2439 Serge 1701
;--------------------------------------
1702
align 4
1703
.fix_width_high:
2434 Serge 1704
        mov     ecx, esi
1705
        mov     [edi + WDATA.box.width], esi
1706
        jmp     .check_left
2439 Serge 1707
;--------------------------------------
1708
align 4
1709
.fix_left_low:
2434 Serge 1710
        xor     eax, eax
1711
        mov     [edi + WDATA.box.left], eax
1712
        jmp     .check_height
2439 Serge 1713
;--------------------------------------
1714
align 4
1715
.fix_left_high:
2434 Serge 1716
        mov     eax, esi
1717
        sub     eax, ecx
1718
        mov     [edi + WDATA.box.left], eax
1719
        jmp     .check_height
2439 Serge 1720
;--------------------------------------
1721
align 4
1722
.fix_height_high:
2434 Serge 1723
        mov     edx, esi
1724
        mov     [edi + WDATA.box.height], esi
1725
        jmp     .check_top
2439 Serge 1726
;--------------------------------------
1727
align 4
1728
.fix_top_low:
2434 Serge 1729
        xor     ebx, ebx
1730
        mov     [edi + WDATA.box.top], ebx
1731
        jmp     .exit
2439 Serge 1732
;--------------------------------------
1733
align 4
1734
.fix_top_high:
2434 Serge 1735
        mov     ebx, esi
1736
        sub     ebx, edx
1737
        mov     [edi + WDATA.box.top], ebx
1738
        jmp     .exit
2439 Serge 1739
;------------------------------------------------------------------------------
2434 Serge 1740
align 4
1741
;------------------------------------------------------------------------------
1742
window._.get_titlebar_height: ;////////////////////////////////////////////////
1743
;------------------------------------------------------------------------------
1744
;? 
1745
;------------------------------------------------------------------------------
1746
;> edi = pointer to WDATA
1747
;------------------------------------------------------------------------------
1748
        mov     al, [edi + WDATA.fl_wstyle]
1749
        and     al, 0x0f
1750
        cmp     al, 0x03
1751
        jne     @f
1752
        mov     eax, [_skinh]
1753
        ret
2439 Serge 1754
;--------------------------------------
1755
align 4
1756
@@:
2434 Serge 1757
        mov     eax, 21
1758
        ret
2439 Serge 1759
;------------------------------------------------------------------------------
2434 Serge 1760
align 4
1761
;------------------------------------------------------------------------------
1762
window._.get_rolledup_height: ;////////////////////////////////////////////////
1763
;------------------------------------------------------------------------------
1764
;? 
1765
;------------------------------------------------------------------------------
1766
;> edi = pointer to WDATA
1767
;------------------------------------------------------------------------------
1768
        mov     al, [edi + WDATA.fl_wstyle]
1769
        and     al, 0x0f
1770
        cmp     al, 0x03
1771
        jb      @f
1772
        mov     eax, [_skinh]
1773
        add     eax, 3
1774
        ret
2439 Serge 1775
;--------------------------------------
1776
align 4
1777
@@:
2434 Serge 1778
        or      al, al
1779
        jnz     @f
1780
        mov     eax, 21
1781
        ret
2439 Serge 1782
;--------------------------------------
1783
align 4
1784
@@:
2434 Serge 1785
        mov     eax, 21 + 2
1786
        ret
2439 Serge 1787
;------------------------------------------------------------------------------
2434 Serge 1788
align 4
1789
;------------------------------------------------------------------------------
1790
window._.set_screen: ;/////////////////////////////////////////////////////////
1791
;------------------------------------------------------------------------------
1792
;? Reserve window area in screen buffer
1793
;------------------------------------------------------------------------------
1794
;> eax = left
1795
;> ebx = top
1796
;> ecx = right
1797
;> edx = bottom
1798
;> esi = process number
1799
;------------------------------------------------------------------------------
1800
virtual at esp
1801
  ff_x     dd ?
1802
  ff_y     dd ?
1803
  ff_width dd ?
1804
  ff_xsz   dd ?
1805
  ff_ysz   dd ?
1806
  ff_scale dd ?
1807
end virtual
1808
 
1809
        pushad
1810
 
1811
        cmp     esi, 1
1812
        jz      .check_for_shaped_window
1813
        mov     edi, esi
1814
        shl     edi, 5
1815
        cmp     [window_data + edi + WDATA.box.width], 0
1816
        jnz     .check_for_shaped_window
1817
        cmp     [window_data + edi + WDATA.box.height], 0
1818
        jz      .exit
2439 Serge 1819
;--------------------------------------
1820
align 4
1821
.check_for_shaped_window:
2434 Serge 1822
        mov     edi, esi
1823
        shl     edi, 8
1824
        add     edi, SLOT_BASE
1825
        cmp     [edi + APPDATA.wnd_shape], 0
1826
        jne     .shaped_window
1827
 
1828
        ; get x&y size
1829
        sub     ecx, eax
1830
        sub     edx, ebx
1831
        inc     ecx
1832
        inc     edx
1833
 
1834
        ; get WinMap start
1835
        push    esi
2465 Serge 1836
;        mov     edi, [Screen_Max_X]
1837
;        inc     edi
1838
;        mov     esi, edi
1839
        mov     esi, [Screen_Max_X]
1840
        inc     esi
1841
;        imul    edi, ebx
1842
        mov     edi, [d_width_calc_area + ebx*4]
1843
 
2434 Serge 1844
        add     edi, eax
1845
        add     edi, [_WinMapAddress]
1846
        pop     eax
1847
        mov     ah, al
1848
        push    ax
1849
        shl     eax, 16
1850
        pop     ax
2439 Serge 1851
;--------------------------------------
1852
align 4
1853
.next_line:
2434 Serge 1854
        push    ecx
1855
        shr     ecx, 2
1856
        rep stosd
1857
        mov     ecx, [esp]
1858
        and     ecx, 3
1859
        rep stosb
1860
        pop     ecx
1861
        add     edi, esi
1862
        sub     edi, ecx
1863
        dec     edx
1864
        jnz     .next_line
1865
 
1866
        jmp     .exit
2439 Serge 1867
;--------------------------------------
1868
align 4
1869
.shaped_window:
2434 Serge 1870
        ;  for (y=0; y <= x_size; y++)
1871
        ;      for (x=0; x <= x_size; x++)
1872
        ;          if (shape[coord(x,y,scale)]==1)
1873
        ;             set_pixel(x, y, process_number);
1874
 
1875
        sub     ecx, eax
1876
        sub     edx, ebx
1877
        inc     ecx
1878
        inc     edx
1879
 
1880
        push    [edi + APPDATA.wnd_shape_scale]  ; push scale first -> for loop
1881
 
1882
        ; get WinMap start  -> ebp
1883
        push    eax
2465 Serge 1884
;        mov     eax, [Screen_Max_X] ; screen_sx
1885
;        inc     eax
1886
;        imul    eax, ebx
1887
        mov     eax, [d_width_calc_area + ebx*4]
1888
 
2434 Serge 1889
        add     eax, [esp]
1890
        add     eax, [_WinMapAddress]
1891
        mov     ebp, eax
1892
 
1893
        mov     edi, [edi + APPDATA.wnd_shape]
1894
        pop     eax
1895
 
1896
        ; eax = x_start
1897
        ; ebx = y_start
1898
        ; ecx = x_size
1899
        ; edx = y_size
1900
        ; esi = process_number
1901
        ; edi = &shape
1902
        ;       [scale]
1903
        push    edx ecx ; for loop - x,y size
1904
 
1905
        mov     ecx, esi
1906
        shl     ecx, 5
1907
        mov     edx, [window_data + ecx + WDATA.box.top]
1908
        push    [window_data + ecx + WDATA.box.width]           ; for loop - width
1909
        mov     ecx, [window_data + ecx + WDATA.box.left]
1910
        sub     ebx, edx
1911
        sub     eax, ecx
1912
        push    ebx eax ; for loop - x,y
1913
 
1914
        add     [ff_xsz], eax
1915
        add     [ff_ysz], ebx
1916
 
1917
        mov     ebx, [ff_y]
2439 Serge 1918
;--------------------------------------
1919
align 4
1920
.ff_new_y:
2434 Serge 1921
        mov     edx, [ff_x]
2439 Serge 1922
;--------------------------------------
1923
align 4
1924
.ff_new_x:
2434 Serge 1925
        ; -- body --
1926
        mov     ecx, [ff_scale]
1927
        mov     eax, [ff_width]
1928
        inc     eax
1929
        shr     eax, cl
1930
        push    ebx edx
1931
        shr     ebx, cl
1932
        shr     edx, cl
1933
        imul    eax, ebx
1934
        add     eax, edx
1935
        pop     edx ebx
1936
        add     eax, edi
1937
        call    .read_byte
1938
        test    al, al
1939
        jz      @f
1940
        mov     eax, esi
1941
        mov     [ebp], al
1942
        ; -- end body --
2439 Serge 1943
;--------------------------------------
1944
align 4
1945
@@:
2434 Serge 1946
        inc     ebp
1947
        inc     edx
1948
        cmp     edx, [ff_xsz]
1949
        jb      .ff_new_x
1950
 
1951
        sub     ebp, [ff_xsz]
1952
        add     ebp, [ff_x]
1953
        add     ebp, [Screen_Max_X]  ; screen.x
1954
        inc     ebp
1955
        inc     ebx
1956
        cmp     ebx, [ff_ysz]
1957
        jb      .ff_new_y
1958
 
1959
        add     esp, 24
2439 Serge 1960
;--------------------------------------
1961
align 4
1962
.exit:
2434 Serge 1963
        popad
1964
        inc     [_display.mask_seqno]
1965
        ret
2439 Serge 1966
;--------------------------------------
1967
align 4
1968
.read_byte:
2434 Serge 1969
        ; eax - address
1970
        ; esi - slot
1971
        push    eax ecx edx esi
1972
        xchg    eax, esi
1973
        lea     ecx, [esp + 12]
1974
        mov     edx, 1
1975
        call    read_process_memory
1976
        pop     esi edx ecx eax
1977
        ret
2439 Serge 1978
;------------------------------------------------------------------------------
2434 Serge 1979
align 4
1980
;------------------------------------------------------------------------------
1981
window._.window_activate: ;////////////////////////////////////////////////////
1982
;------------------------------------------------------------------------------
1983
;? Activate window
1984
;------------------------------------------------------------------------------
1985
;> esi = pointer to WIN_POS+ window data
1986
;------------------------------------------------------------------------------
1987
        push    eax ebx
1988
 
1989
        ; if type of current active window is 3 or 4, it must be redrawn
1990
        mov     ebx, [TASK_COUNT]
1991
 
1992
;       DEBUGF  1, "K : TASK_COUNT (0x%x)\n", ebx
1993
 
1994
        movzx   ebx, word[WIN_POS + ebx * 2]
1995
        shl     ebx, 5
1996
        add     eax, window_data
1997
        mov     al, [window_data + ebx + WDATA.fl_wstyle]
1998
        and     al, 0x0f
1999
        cmp     al, 0x03
2000
        je      .set_window_redraw_flag
2001
        cmp     al, 0x04
2002
        jne     .move_others_down
2439 Serge 2003
;--------------------------------------
2004
align 4
2005
.set_window_redraw_flag:
2434 Serge 2006
        mov     [window_data + ebx + WDATA.fl_redraw], 1
2439 Serge 2007
;--------------------------------------
2008
align 4
2009
.move_others_down:
2434 Serge 2010
        ; ax <- process no
2011
        movzx   ebx, word[esi]
2012
        ; ax <- position in window stack
2013
        movzx   ebx, word[WIN_STACK + ebx * 2]
2014
 
2015
        ; drop others
2016
        xor     eax, eax
2439 Serge 2017
;--------------------------------------
2018
align 4
2019
.next_stack_window:
2434 Serge 2020
        cmp     eax, [TASK_COUNT]
2021
        jae     .move_self_up
2022
        inc     eax
2023
 
2024
;       push    ebx
2025
;       xor     ebx,ebx
2026
;       mov     bx,[WIN_STACK + eax * 2]
2027
;       DEBUGF  1, "K : DEC WIN_STACK (0x%x)\n",ebx
2028
;       pop     ebx
2029
 
2030
        cmp     [WIN_STACK + eax * 2], bx
2031
        jbe     .next_stack_window
2032
        dec     word[WIN_STACK + eax * 2]
2033
        jmp     .next_stack_window
2439 Serge 2034
;--------------------------------------
2035
align 4
2036
.move_self_up:
2434 Serge 2037
        movzx   ebx, word[esi]
2038
        ; number of processes
2039
        mov     ax, [TASK_COUNT]
2040
        ; this is the last (and the upper)
2041
        mov     [WIN_STACK + ebx * 2], ax
2042
 
2043
        ; update on screen - window stack
2044
        xor     eax, eax
2439 Serge 2045
;--------------------------------------
2046
align 4
2047
.next_window_pos:
2434 Serge 2048
        cmp     eax, [TASK_COUNT]
2049
        jae     .reset_vars
2050
        inc     eax
2051
        movzx   ebx, word[WIN_STACK + eax * 2]
2052
        mov     [WIN_POS + ebx * 2], ax
2053
        jmp     .next_window_pos
2439 Serge 2054
;--------------------------------------
2055
align 4
2056
.reset_vars:
2434 Serge 2057
        mov     byte[KEY_COUNT], 0
2058
        mov     byte[BTN_COUNT], 0
2059
        mov     word[MOUSE_SCROLL_H], 0
2060
        mov     word[MOUSE_SCROLL_V], 0
2061
 
2062
        pop     ebx eax
2063
        ret
2064
;------------------------------------------------------------------------------
2065
window._.window_deactivate: ;////////////////////////////////////////////////////
2066
;------------------------------------------------------------------------------
2067
;? Deactivate window
2068
;------------------------------------------------------------------------------
2069
;> esi = pointer to WIN_POS+ window data
2070
;------------------------------------------------------------------------------
2071
        push    eax ebx
2439 Serge 2072
;--------------------------------------
2073
align 4
2434 Serge 2074
.move_others_up:
2075
        ; ax <- process no
2076
        movzx   ebx, word[esi]
2077
        ; ax <- position in window stack
2078
        movzx   ebx, word[WIN_STACK + ebx * 2]
2079
        ; up others
2080
        xor     eax, eax
2439 Serge 2081
;--------------------------------------
2082
align 4
2434 Serge 2083
.next_stack_window:
2084
        cmp     eax, [TASK_COUNT]
2085
        jae     .move_self_down
2086
        inc     eax
2087
        cmp     [WIN_STACK + eax * 2], bx
2088
        jae     .next_stack_window
2089
        inc     word[WIN_STACK + eax * 2]
2090
        jmp     .next_stack_window
2439 Serge 2091
;--------------------------------------
2092
align 4
2434 Serge 2093
.move_self_down:
2094
        movzx   ebx, word[esi]
2095
        ; this is the last (and the low)
2096
        mov     [WIN_STACK + ebx * 2], word 1
2097
        ; update on screen - window stack
2098
        xor     eax, eax
2439 Serge 2099
;--------------------------------------
2100
align 4
2434 Serge 2101
.next_window_pos:
2102
        cmp     eax, [TASK_COUNT]
2103
        jae     .reset_vars
2104
        inc     eax
2105
        movzx   ebx, word[WIN_STACK + eax * 2]
2106
        mov     [WIN_POS + ebx * 2], ax
2107
        jmp     .next_window_pos
2439 Serge 2108
;--------------------------------------
2109
align 4
2434 Serge 2110
.reset_vars:
2111
        mov     byte[KEY_COUNT], 0
2112
        mov     byte[BTN_COUNT], 0
2113
        mov     word[MOUSE_SCROLL_H], 0
2114
        mov     word[MOUSE_SCROLL_V], 0
2115
        pop     ebx eax
2116
        ret
2117
;------------------------------------------------------------------------------
2118
align 4
2119
;------------------------------------------------------------------------------
2120
window._.check_window_draw: ;//////////////////////////////////////////////////
2121
;------------------------------------------------------------------------------
2122
;? Check if window is necessary to draw
2123
;------------------------------------------------------------------------------
2124
;> edi = pointer to WDATA
2125
;------------------------------------------------------------------------------
2126
        mov     cl, [edi + WDATA.fl_wstyle]
2127
        and     cl, 0x0f
2128
        cmp     cl, 3
2129
        je      .exit.redraw      ; window type 3
2130
        cmp     cl, 4
2131
        je      .exit.redraw      ; window type 4
2132
 
2133
        push    eax ebx edx esi
2134
 
2135
        mov     eax, edi
2136
        sub     eax, window_data
2137
        shr     eax, 5
2138
 
2139
        movzx   eax, word[WIN_STACK + eax * 2]  ; get value of the curr process
2140
        lea     esi, [WIN_POS + eax * 2]        ; get address of this process at 0xC400
2439 Serge 2141
;--------------------------------------
2142
align 4
2143
.next_window:
2434 Serge 2144
        add     esi, 2
2145
 
2146
        mov     eax, [TASK_COUNT]
2147
        lea     eax, word[WIN_POS + eax * 2] ; number of the upper window
2148
 
2149
        cmp     esi, eax
2150
        ja      .exit.no_redraw
2151
 
2152
        movzx   edx, word[esi]
2153
        shl     edx, 5
2154
        cmp     [CURRENT_TASK + edx + TASKDATA.state], TSTATE_FREE
2155
        je      .next_window
2156
 
2157
        mov     eax, [edi + WDATA.box.top]
2158
        mov     ebx, [edi + WDATA.box.height]
2159
        add     ebx, eax
2160
 
2161
        mov     ecx, [window_data + edx + WDATA.box.top]
2162
        cmp     ecx, ebx
2163
        jge     .next_window
2164
        add     ecx, [window_data + edx + WDATA.box.height]
2165
        cmp     eax, ecx
2166
        jge     .next_window
2167
 
2168
        mov     eax, [edi + WDATA.box.left]
2169
        mov     ebx, [edi + WDATA.box.width]
2170
        add     ebx, eax
2171
 
2172
        mov     ecx, [window_data + edx + WDATA.box.left]
2173
        cmp     ecx, ebx
2174
        jge     .next_window
2175
        add     ecx, [window_data + edx + WDATA.box.width]
2176
        cmp     eax, ecx
2177
        jge     .next_window
2178
 
2179
        pop     esi edx ebx eax
2439 Serge 2180
;--------------------------------------
2181
align 4
2182
.exit.redraw:
2434 Serge 2183
        xor     ecx, ecx
2184
        inc     ecx
2185
        ret
2439 Serge 2186
;--------------------------------------
2187
align 4
2188
.exit.no_redraw:
2434 Serge 2189
        pop     esi edx ebx eax
2190
        xor     ecx, ecx
2191
        ret
2439 Serge 2192
;------------------------------------------------------------------------------
2434 Serge 2193
align 4
2194
;------------------------------------------------------------------------------
2195
window._.draw_window_caption: ;////////////////////////////////////////////////
2196
;------------------------------------------------------------------------------
2197
;? 
2198
;------------------------------------------------------------------------------
2199
        xor     eax, eax
2200
        mov     edx, [TASK_COUNT]
2201
        movzx   edx, word[WIN_POS + edx * 2]
2202
        cmp     edx, [CURRENT_TASK]
2203
        jne     @f
2204
        inc     eax
2439 Serge 2205
;--------------------------------------
2206
align 4
2207
@@:
2434 Serge 2208
        mov     edx, [CURRENT_TASK]
2209
        shl     edx, 5
2210
        add     edx, window_data
2211
        movzx   ebx, [edx + WDATA.fl_wstyle]
2212
        and     bl, 0x0F
2213
        cmp     bl, 3
2214
        je      .draw_caption_style_3
2215
        cmp     bl, 4
2216
        je      .draw_caption_style_3
2217
 
2218
        jmp     .not_style_3
2439 Serge 2219
;--------------------------------------
2220
align 4
2221
.draw_caption_style_3:
2434 Serge 2222
        push    edx
2223
        call    drawwindow_IV_caption
2224
        add     esp, 4
2225
        jmp     .2
2439 Serge 2226
;--------------------------------------
2227
align 4
2228
.not_style_3:
2434 Serge 2229
        cmp     bl, 2
2230
        jne     .not_style_2
2231
 
2232
        call    drawwindow_III_caption
2233
        jmp     .2
2439 Serge 2234
;--------------------------------------
2235
align 4
2236
.not_style_2:
2434 Serge 2237
        cmp     bl, 0
2238
        jne     .2
2239
 
2240
        call    drawwindow_I_caption
2439 Serge 2241
;--------------------------------------
2242
align 4
2243
.2:
2434 Serge 2244
        mov     edi, [CURRENT_TASK]
2245
        shl     edi, 5
2246
        test    [edi + window_data + WDATA.fl_wstyle], WSTYLE_HASCAPTION
2247
        jz      .exit
2248
        mov     edx, [edi * 8 + SLOT_BASE + APPDATA.wnd_caption]
2249
        or      edx, edx
2250
        jz      .exit
2251
 
2252
        movzx   eax, [edi + window_data + WDATA.fl_wstyle]
2253
        and     al, 0x0F
2254
        cmp     al, 3
2255
        je      .skinned
2256
        cmp     al, 4
2257
        je      .skinned
2258
 
2259
        jmp     .not_skinned
2439 Serge 2260
;--------------------------------------
2261
align 4
2262
.skinned:
2434 Serge 2263
        mov     ebp, [edi + window_data + WDATA.box.left - 2]
2264
        mov     bp, word[edi + window_data + WDATA.box.top]
2265
        movzx   eax, word[edi + window_data + WDATA.box.width]
2266
        sub     ax, [_skinmargins.left]
2267
        sub     ax, [_skinmargins.right]
2268
        push    edx
2269
        cwde
2270
        cdq
2271
        mov     ebx, 6
2272
        idiv    ebx
2273
        pop     edx
2274
        or      eax, eax
2275
        js      .exit
2276
 
2277
        mov     esi, eax
2278
        mov     ebx, dword[_skinmargins.left - 2]
2279
        mov     bx, word[_skinh]
2280
        sub     bx, [_skinmargins.bottom]
2281
        sub     bx, [_skinmargins.top]
2282
        sar     bx, 1
2283
        adc     bx, 0
2284
        add     bx, [_skinmargins.top]
2285
        add     bx, -3
2286
        add     ebx, ebp
2287
        jmp     .dodraw
2439 Serge 2288
;--------------------------------------
2289
align 4
2290
.not_skinned:
2434 Serge 2291
        cmp     al, 1
2292
        je      .exit
2293
 
2294
        mov     ebp, [edi + window_data + WDATA.box.left - 2]
2295
        mov     bp, word[edi + window_data + WDATA.box.top]
2296
        movzx   eax, word[edi + window_data + WDATA.box.width]
2297
        sub     eax, 16
2298
        push    edx
2299
        cwde
2300
        cdq
2301
        mov     ebx, 6
2302
        idiv    ebx
2303
        pop     edx
2304
        or      eax, eax
2305
        js      .exit
2306
 
2307
        mov     esi, eax
2308
        mov     ebx, 0x00080007
2309
        add     ebx, ebp
2439 Serge 2310
;--------------------------------------
2311
align 4
2312
.dodraw:
2434 Serge 2313
        mov     ecx, [common_colours + 16]
2314
        or      ecx, 0x80000000
2315
        xor     edi, edi
2316
        call    dtext_asciiz_esi
2439 Serge 2317
;--------------------------------------
2318
align 4
2319
.exit:
2465 Serge 2320
;        call    [draw_pointer]
2321
        call    __sys_draw_pointer
2434 Serge 2322
        ret
2439 Serge 2323
;------------------------------------------------------------------------------
2434 Serge 2324
align 4
2325
;------------------------------------------------------------------------------
2326
window._.draw_negative_box: ;//////////////////////////////////////////////////
2327
;------------------------------------------------------------------------------
2328
;? Draw negative box
2329
;------------------------------------------------------------------------------
2330
;> edi = pointer to BOX struct
2331
;------------------------------------------------------------------------------
2332
        push    eax ebx esi
2333
        mov     esi, 0x01000000
2439 Serge 2334
;--------------------------------------
2335
align 4
2434 Serge 2336
.1:
2337
        mov     eax, [edi + BOX.left - 2]
2338
        mov     ax, word[edi + BOX.left]
2339
        add     ax, word[edi + BOX.width]
2340
        mov     ebx, [edi + BOX.top - 2]
2341
        mov     bx, word[edi + BOX.top]
2342
        add     bx, word[edi + BOX.height]
2343
        call    draw_rectangle.forced
2344
        pop     esi ebx eax
2345
        ret
2346
;------------------------------------------------------------------------------
2439 Serge 2347
align 4
2348
;------------------------------------------------------------------------------
2434 Serge 2349
window._.end_moving__box: ;//////////////////////////////////////////////////
2350
;------------------------------------------------------------------------------
2351
;? Draw positive box
2352
;------------------------------------------------------------------------------
2353
;> edi = pointer to BOX struct
2354
;------------------------------------------------------------------------------
2355
        push    eax ebx esi
2356
        xor     esi, esi
2357
        jmp     window._.draw_negative_box.1
2358
;------------------------------------------------------------------------------
2439 Serge 2359
align 4
2360
;------------------------------------------------------------------------------
2434 Serge 2361
window._.get_rect: ;/////////////////////////////////////////////////////
2362
;------------------------------------------------------------------------------
2363
;?   void __fastcall get_window_rect(struct RECT* rc);
2364
;------------------------------------------------------------------------------
2365
;> ecx = pointer to RECT
2366
;------------------------------------------------------------------------------
2367
        mov     eax, [TASK_BASE]
2368
 
2369
        mov     edx, [eax-twdw + WDATA.box.left]
2370
        mov     [ecx+RECT.left], edx
2371
 
2372
        add     edx, [eax-twdw + WDATA.box.width]
2373
        mov     [ecx+RECT.right], edx
2374
 
2375
        mov     edx, [eax-twdw + WDATA.box.top]
2376
        mov     [ecx+RECT.top], edx
2377
 
2378
        add     edx, [eax-twdw + WDATA.box.height]
2379
        mov     [ecx+RECT.bottom], edx
2380
        ret
2439 Serge 2381
;------------------------------------------------------------------------------