Rev 1677 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1677 | Rev 2061 | ||
|---|---|---|---|
| Line 17... | Line 17... | ||
| 17 | 17 | ||
| 18 | .redraw: |
18 | .redraw: |
| 19 | call Set_geometry |
19 | call Set_geometry |
| 20 | mcall 12,1 |
20 | mcall 12,1 |
| - | 21 | mcall 0, , ,[window_style], ,window_title |
|
| - | 22 | test [proc_info.wnd_state], 0x04 ; is rolled up? |
|
| Line 21... | Line 23... | ||
| 21 | mcall 0, , ,[window_style], ,window_title |
23 | jnz @f |
| 22 | 24 | ||
| 23 | call Draw_decorations |
25 | call Draw_decorations |
| 24 | call Draw_first_menu_picture |
26 | call Draw_first_menu_picture |
| 25 | call Draw_menu_strings |
27 | call Draw_menu_strings |
| 26 | call Draw_buttons |
28 | call Draw_buttons |
| 27 | - | ||
| 28 | mcall 12,2 |
29 | @@: |
| 29 | 30 | mcall 12,2 |
|
| 30 | .still: |
31 | .still: |
| 31 | mcall 10 ; wait for event |
32 | mcall 10 ; wait for event |
| 32 | ; ok, what an event? |
33 | ; ok, what an event? |