Rev 6190 | Rev 6642 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6190 | Rev 6215 | ||
---|---|---|---|
Line 20... | Line 20... | ||
20 | include '../../../proc32.inc' |
20 | include '../../../proc32.inc' |
21 | include '../../../dll.inc' |
21 | include '../../../dll.inc' |
22 | include '../../../develop/libraries/box_lib/load_lib.mac' |
22 | include '../../../develop/libraries/box_lib/load_lib.mac' |
23 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
23 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
24 | 24 | include '../../../gui_patterns.inc' |
|
- | 25 | ||
Line 25... | Line 26... | ||
25 | @use_library |
26 | @use_library |
Line 26... | Line -... | ||
26 | - | ||
27 | macro DrawBar x, y, width, height, color |
- | |
28 | { |
- | |
29 | mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color |
- | |
30 | } |
- | |
31 | - | ||
32 | macro DrawRectangle x, y, w, h, color |
- | |
33 | { |
- | |
34 | DrawBar x,y,w,1,color |
- | |
35 | DrawBar x,y+h,w,1 |
- | |
36 | DrawBar x,y,1,h |
- | |
37 | DrawBar x+w,y,1,h+1 |
- | |
38 | } |
- | |
Line 39... | Line 27... | ||
39 | 27 | ||
40 | 28 |