programs/media/zsea/w_about.inc

   1 ;---------------------------------------------------------------------\r
   2 kabout:\r
   3         test    dword [status],4\r
   4         jnz     still\r
   5         or      dword [status],4\r
   6 \r
   7         call    get_memory_for_thread_stack\r
   8         mov     [thread_stack_3],eax\r
   9         mcall   51,1,thread3    ;thread_stack_3\r
  10         jmp     still\r
  11 ;---------------------------------------------------------------------\r
  12 thread3:          ; start of bgrd thread\r
  13         mcall   9, procinfo_threads, -1\r
  14         mov     eax,[ebx+30]\r
  15         mov     [PID3],eax\r
  16         mcall   40,0x7\r
  17 ;------------------------------\r
  18 .red:\r
  19         call    .draw_window\r
  20 ;------------------------------\r
  21 .still:\r
  22         mcall   10      ; wait here for event\r
  23         cmp     eax,1   ; redraw request ?\r
  24         je      .red\r
  25 \r
  26         cmp     eax,2   ; key in buffer ?\r
  27         je      .close   ;.key\r
  28 \r
  29         cmp     eax,3   ; button in buffer ?\r
  30         je      .button\r
  31 \r
  32         jmp     .still\r
  33 ;---------------------------------------------------------------------\r
  34 ;.key:\r
  35 ;       mcall\r
  36 ;       cmp     ah,27\r
  37 ;       je      .close\r
  38 ;       jmp     .still\r
  39 ;---------------------------------------------------------------------\r
  40 .button:                         ; button\r
  41         mcall   17              ; get id\r
  42         cmp     ah,1                    ; button id=1 ?\r
  43         je      .close\r
  44         \r
  45         cmp     ah,2\r
  46         jne     .still   ;noclose3\r
  47     \r
  48 .close:\r
  49         xor     dword [status],4\r
  50         xor     eax,eax\r
  51         mov     [PID3],eax\r
  52         mcall   68,13,[thread_stack_3]\r
  53         mcall   -1      ; close this program\r
  54 ;---------------------------------------------------------------------\r
  55 ;   *********************************************\r
  56 ;   *******  WINDOW DEFINITIONS AND DRAW ********\r
  57 ;   *********************************************\r
  58 .draw_window:\r
  59         mcall   12,1\r
  60         xor     eax,eax            ; function 0 : define and draw window\r
  61         xor     esi,esi\r
  62         mcall   ,<100,300>,<100,240>,0x13eeeeee,,labelt3\r
  63         mcall   8,<120,40>,<210,20>,2,0xdddddd\r
  64         add     ebx,15 shl 16\r
  65         shr     ecx,16\r
  66         mov     bx,cx\r
  67         add     ebx,6\r
  68         xor     ecx,ecx\r
  69         mcall   4,,,ok_btn,ok_btn.size\r
  70         mcall   ,<20,30>,0x80000000,Authors_text.1\r
  71         mcall   ,<30,45>, ,Authors_text.2\r
  72         mcall   ,<30,60>, ,Authors_text.3\r
  73         mcall   ,<60,70>, ,Authors_text.4\r
  74         mcall   ,<60,80>, ,Authors_text.5\r
  75         mcall   ,<60,90>, ,Authors_text.6\r
  76         mcall   ,<60,100>, ,Authors_text.7\r
  77         mcall   ,<30,115>, ,Authors_text.8\r
  78         mcall   ,<60,125>, ,Authors_text.9\r
  79         mcall   ,<60,135>, ,Authors_text.10\r
  80         mcall   ,<30,150>, ,Authors_text.11\r
  81         mcall   ,<60,160>, ,Authors_text.12\r
  82         mcall   ,<30,175>, ,Authors_text.13\r
  83         mcall   ,<60,185>, ,Authors_text.14\r
  84 ;       mcall   47,0x80000,[PID3],<200, 5>,0xffffff\r
  85         mcall   12,2\r
  86         ret\r
  87 ;---------------------------------------------------------------------\r