46 lines
1.3 KiB
Common Lisp
46 lines
1.3 KiB
Common Lisp
|
NAME lcdview
|
||
|
|
|
||
|
|
INCLUDE p_std.h
|
||
|
|
INCLUDE p_object.h
|
||
|
|
INCLUDE olib.g
|
||
|
|
INCLUDE hwim.g
|
||
|
|
INCLUDE hwimman.g
|
||
|
|
INCLUDE edwin.g
|
||
|
|
|
||
|
|
CLASS lcdview win
|
||
|
|
Command Processor client window
|
||
|
|
{
|
||
|
|
REPLACE wn_init Initialise client window
|
||
|
|
REPLACE wn_draw
|
||
|
|
REPLACE wn_key
|
||
|
|
CONSTANTS
|
||
|
|
{
|
||
|
|
LCD_STAT_INVERSE 0x0001 Set if video reversed
|
||
|
|
}
|
||
|
|
TYPES
|
||
|
|
{
|
||
|
|
typedef struct
|
||
|
|
{
|
||
|
|
UWORD textfont; text font ID
|
||
|
|
UBYTE numwidth; max font numeric_width
|
||
|
|
UBYTE textheight; text font height
|
||
|
|
UBYTE textascent; text font ascent
|
||
|
|
UBYTE lineheight; max font height plus 1/2 pixels
|
||
|
|
UBYTE lineascent; max font ascent plus 1/2 pixels
|
||
|
|
UBYTE scrlines; lines on screen
|
||
|
|
INT scrwidth; screen width
|
||
|
|
} LCD_DISP_INFO; display line info.
|
||
|
|
}
|
||
|
|
PROPERTY
|
||
|
|
{
|
||
|
|
UWORD status; flags
|
||
|
|
BYTE letter; for random letters on screen
|
||
|
|
UBYTE offset; to top of grey pattern
|
||
|
|
P_EXTENT extent; view extent
|
||
|
|
VOID (*funct)(VOID *self); pattern function
|
||
|
|
LCD_DISP_INFO dinfo; output display info (based on current font)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|