Subversion Repositories Kolibri OS

Rev

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

Rev 33 Rev 41
Line 27... Line 27...
27 
   end virtual
 27 
   end virtual
28 
 }
 28 
 }
Line 29... Line 29...
29 
 
 29 
 
Line -... Line 30...
- 
 
 30 
ends fix } struct_helper name@struct
- 
 
 31 
 
- 
 
 32 
;// mike.dld, 2006-29-01 [
- 
 
 33 
 
- 
 
 34 
; macros definition
- 
 
 35 
macro diff16 title,l1,l2
- 
 
 36 
{
- 
 
 37 
  local s,d
- 
 
 38 
  s = l2-l1
- 
 
 39 
  display title,': 0x'
- 
 
 40 
  repeat 8
- 
 
 41 
    d = 48 + s shr ((8-%) shl 2) and $0F
- 
 
 42 
    if d > 57
- 
 
 43 
      d = d + 65-57-1
- 
 
 44 
    end if
- 
 
 45 
    display d
- 
 
 46 
  end repeat
- 
 
 47 
  display 13,10
- 
 
 48 
}
- 
 
 49 
 
- 
 
 50 
struc db [a] { common . db a
- 
 
 51 
  if ~used .
- 
 
 52 
    display 'not used db: ',`.,13,10
- 
 
 53 
  end if }
- 
 
 54 
struc dw [a] { common . dw a
- 
 
 55 
  if ~used .
- 
 
 56 
    display 'not used dw: ',`.,13,10
- 
 
 57 
  end if }
- 
 
 58 
struc dd [a] { common . dd a
- 
 
 59 
  if ~used .
- 
 
 60 
    display 'not used dd: ',`.,13,10
- 
 
 61 
  end if }
- 
 
 62 
struc dp [a] { common . dp a
- 
 
 63 
  if ~used .
- 
 
 64 
    display 'not used dp: ',`.,13,10
- 
 
 65 
  end if }
- 
 
 66 
struc dq [a] { common . dq a
- 
 
 67 
  if ~used .
- 
 
 68 
    display 'not used dq: ',`.,13,10
- 
 
 69 
  end if }
- 
 
 70 
struc dt [a] { common . dt a
- 
 
 71 
  if ~used .
- 
 
 72 
    display 'not used dt: ',`.,13,10
- 
 
 73 
  end if }
- 
 
 74 
 
- 
 
 75 
; constants definition
- 
 
 76 
WSTATE_NORMAL    = 00000000b
- 
 
 77 
WSTATE_MAXIMIZED = 00000001b
- 
 
 78 
WSTATE_MINIMIZED = 00000010b
- 
 
 79 
WSTATE_ROLLEDUP  = 00000100b
- 
 
 80 
 
- 
 
 81 
; structures definition
- 
 
 82 
struc WDATA {
- 
 
 83 
  .left        dd ?
- 
 
 84 
  .top         dd ?
- 
 
 85 
  .width       dd ?
- 
 
 86 
  .height      dd ?
- 
 
 87 
  .cl_workarea dd ?
- 
 
 88 
  .cl_titlebar dd ?
- 
 
 89 
  .cl_frames   dd ?
- 
 
 90 
  .reserved    db ?
- 
 
 91 
  .fl_wstate   db ?
- 
 
 92 
  .fl_wdrawn   db ?
- 
 
 93 
  .fl_redraw   db ?
- 
 
 94 
}
- 
 
 95 
virtual at 0
- 
 
 96 
 WDATA WDATA
- 
 
 97 
end virtual
- 
 
 98 
label WDATA.fl_wstyle byte at 0x13 ; WDATA.cl_workarea+3
- 
 
 99 
 
- 
 
 100 
struc RECT {
- 
 
 101 
  .left   dd ?
- 
 
 102 
  .top    dd ?
- 
 
 103 
  .right  dd ?
- 
 
 104 
  .bottom dd ?
- 
 
 105 
}
- 
 
 106 
virtual at 0
- 
 
 107 
 RECT RECT
- 
 
 108 
end virtual
- 
 
 109 
 
- 
 
 110 
struc BOX {
- 
 
 111 
  .left   dd ?
- 
 
 112 
  .top    dd ?
- 
 
 113 
  .width  dd ?
- 
 
 114 
  .height dd ?
- 
 
 115 
}
- 
 
 116 
virtual at 0
- 
 
 117 
 BOX BOX
- 
 
 118 
end virtual
- 
 
 119 
 
Line 30... Line 120...
30 
ends fix } struct_helper name@struct
 120 
;// mike.dld, 2006-29-01 ]
31 
 
 121 
 
32 
 
 122 
 
33 
; Core functions
 123 
; Core functions