| 29,7 → 29,97 |
|---|
| |
| ends fix } struct_helper name@struct |
| |
| ;// mike.dld, 2006-29-01 [ |
| |
| ; macros definition |
| macro diff16 title,l1,l2 |
| { |
| local s,d |
| s = l2-l1 |
| display title,': 0x' |
| repeat 8 |
| d = 48 + s shr ((8-%) shl 2) and $0F |
| if d > 57 |
| d = d + 65-57-1 |
| end if |
| display d |
| end repeat |
| display 13,10 |
| } |
| |
| struc db [a] { common . db a |
| if ~used . |
| display 'not used db: ',`.,13,10 |
| end if } |
| struc dw [a] { common . dw a |
| if ~used . |
| display 'not used dw: ',`.,13,10 |
| end if } |
| struc dd [a] { common . dd a |
| if ~used . |
| display 'not used dd: ',`.,13,10 |
| end if } |
| struc dp [a] { common . dp a |
| if ~used . |
| display 'not used dp: ',`.,13,10 |
| end if } |
| struc dq [a] { common . dq a |
| if ~used . |
| display 'not used dq: ',`.,13,10 |
| end if } |
| struc dt [a] { common . dt a |
| if ~used . |
| display 'not used dt: ',`.,13,10 |
| end if } |
| |
| ; constants definition |
| WSTATE_NORMAL = 00000000b |
| WSTATE_MAXIMIZED = 00000001b |
| WSTATE_MINIMIZED = 00000010b |
| WSTATE_ROLLEDUP = 00000100b |
| |
| ; structures definition |
| struc WDATA { |
| .left dd ? |
| .top dd ? |
| .width dd ? |
| .height dd ? |
| .cl_workarea dd ? |
| .cl_titlebar dd ? |
| .cl_frames dd ? |
| .reserved db ? |
| .fl_wstate db ? |
| .fl_wdrawn db ? |
| .fl_redraw db ? |
| } |
| virtual at 0 |
| WDATA WDATA |
| end virtual |
| label WDATA.fl_wstyle byte at 0x13 ; WDATA.cl_workarea+3 |
| |
| struc RECT { |
| .left dd ? |
| .top dd ? |
| .right dd ? |
| .bottom dd ? |
| } |
| virtual at 0 |
| RECT RECT |
| end virtual |
| |
| struc BOX { |
| .left dd ? |
| .top dd ? |
| .width dd ? |
| .height dd ? |
| } |
| virtual at 0 |
| BOX BOX |
| end virtual |
| |
| ;// mike.dld, 2006-29-01 ] |
| |
| |
| ; Core functions |
| include "core/sync.inc" |
| include "core/sys32.inc" ; process management |