Subversion Repositories Kolibri OS

Rev

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

Rev 1379 Rev 1391
Line 11... Line 11...
11
;; maintain and compile with an automated SETUP program         ;;
11
;; maintain and compile with an automated SETUP program         ;;
12
;; in the future.                                               ;;
12
;; in the future.                                               ;;
13
;;                                                              ;;
13
;;                                                              ;;
14
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 15... Line 15...
15
 
15
 
Line 16... Line 16...
16
$Revision: 1379 $
16
$Revision: 1391 $
17
 
17
 
18
 
18
 
Line 39... Line 39...
39
;struc dt [a] { common . dt a
39
;struc dt [a] { common . dt a
40
;  if ~used .
40
;  if ~used .
41
;    display 'not used dt: ',`.,13,10
41
;    display 'not used dt: ',`.,13,10
42
;  end if }
42
;  end if }
Line -... Line 43...
-
 
43
 
-
 
44
struc POINT {
-
 
45
  .x dd ?
-
 
46
  .y dd ?
-
 
47
  .sizeof:
-
 
48
}
-
 
49
virtual at 0
-
 
50
 POINT POINT
-
 
51
end virtual
43
 
52
 
44
struc RECT {
53
struc RECT {
45
  .left   dd ?
54
  .left   dd ?
46
  .top    dd ?
55
  .top    dd ?
47
  .right  dd ?
56
  .right  dd ?
-
 
57
  .bottom dd ?
48
  .bottom dd ?
58
  .sizeof:
49
}
59
}
50
virtual at 0
60
virtual at 0
51
 RECT RECT
61
 RECT RECT
Line 52... Line 62...
52
end virtual
62
end virtual
53
 
63
 
54
struc BOX {
64
struc BOX {
55
  .left   dd ?
65
  .left   dd ?
56
  .top    dd ?
66
  .top    dd ?
-
 
67
  .width  dd ?
57
  .width  dd ?
68
  .height dd ?
58
  .height dd ?
69
  .sizeof:
59
}
70
}
60
virtual at 0
71
virtual at 0