quakeforge/ruamoko/qwaq/ui/view.r
Bill Currie 535a2363bb [ruamoko] Create a va_copy for progs
In testing variable fw/precision in PR_Sprintf, I got a nasty reminder
of the limitations of the current progs ABI: passing @args to another QC
function does not work because the args list gets trampled but the
called function's locals. Thus, the need for a va_copy. It's not quite
the same as C's as it returns the destination args instead of copying
like memcpy, but it does copy the list from the source args to a
temporary buffer that is freed when the calling function returns.
2020-04-01 19:48:05 +09:00

415 lines
6.4 KiB
R

#include "ui/curses.h"
#include "ui/listener.h"
#include "ui/group.h"
#include "ui/scrollbar.h"
#include "ui/view.h"
@implementation View
+(View *)viewWithRect:(Rect)rect
{
return [[[self alloc] initWithRect:rect] autorelease];
}
+(View *)viewWithRect:(Rect)rect options:(int)options
{
return [[[self alloc] initWithRect:rect options:options] autorelease];
}
static void view_init(View *self)
{
self.onReceiveFocus = [[ListenerGroup listener] retain];
self.onReleaseFocus = [[ListenerGroup listener] retain];
self.onEvent = [[ListenerGroup listener] retain];
self.onViewScrolled = [[ListenerGroup listener] retain];
}
-init
{
if (!(self = [super init])) {
return nil;
}
view_init (self);
return self;
}
-initWithRect: (Rect) rect
{
if (!(self = [super init])) {
return nil;
}
view_init (self);
self.rect = rect;
self.absRect = rect;
return self;
}
-initWithRect: (Rect) rect options:(int)options
{
if (!(self = [super init])) {
return nil;
}
view_init (self);
self.rect = rect;
self.absRect = rect;
self.options = options;
return self;
}
- (void) dealloc
{
[onReceiveFocus release];
[onReleaseFocus release];
[onEvent release];
[onViewScrolled release];
[super dealloc];
}
-(id<TextContext>)context
{
return textContext;
}
-setContext: (id<TextContext>) context
{
textContext = context;
return self;
}
- (int) options
{
return options;
}
- (int) state
{
return state;
}
-(void)onScrollBarModified:(id)sender
{
if (sender == vScrollBar) {
scroll.y = [sender index];
} else if (sender == hScrollBar) {
scroll.x = [sender index];
}
[onViewScrolled respond:self];
}
static void
setScrollBar (View *self, ScrollBar **sb, ScrollBar *scrollbar)
{
SEL sel = @selector(onScrollBarModified:);
[scrollbar retain];
[[*sb onScrollBarModified] removeListener:self :sel];
[*sb release];
*sb = scrollbar;
[[*sb onScrollBarModified] addListener:self :sel];
}
-setVerticalScrollBar:(ScrollBar *)scrollbar
{
setScrollBar (self, &vScrollBar, scrollbar);
return self;
}
-setHorizontalScrollBar:(ScrollBar *)scrollbar
{
setScrollBar (self, &hScrollBar, scrollbar);
return self;
}
static void
updateScreenCursor (View *view)
{
// XXX this does not work
/* while ((view.state & sfInFocus) && view.owner) {
View *owner = (View *) view.owner;
if (view.cursor.x >= 0 && view.cursor.x < view.xlen
&& view.cursor.y >= 0 && view.cursor.y < view.ylen) {
owner.cursor.x = view.cursor.x + view.xpos;
owner.cursor.y = view.cursor.y + view.ypos;
owner.cursorState = view.cursorState;
} else {
owner.cursorState = 0;
}
view = owner;
}
if (view.state & sfInFocus) {
if (view.cursor.x >= 0 && view.cursor.x < view.xlen
&& view.cursor.y >= 0 && view.cursor.y < view.ylen) {
curs_set (view.cursorState);
move(view.cursor.x, view.cursor.y);
} else {
curs_set (0);
}
}*/
}
-draw
{
state |= sfDrawn;
updateScreenCursor (self);
return self;
}
-hide
{
if (state & sfDrawn) {
state &= ~sfDrawn;
updateScreenCursor (self);
}
return self;
}
-redraw
{
if ((state & sfDrawn) && !(options & ofDontDraw)) {
[self draw];
[owner redraw];
}
return self;
}
-setOwner: (Group *) owner
{
self.owner = owner;
return self;
}
-setGrowMode: (int) mode
{
growMode = mode;
return self;
}
- (Rect) rect
{
return rect;
}
-(Point)origin
{
return pos;
}
-(Extent)size
{
return size;
}
-(int) containsPoint: (Point) point
{
return rectContainsPoint (rect, point);
}
-(void) grabMouse
{
[owner grabMouse];
}
-(void) releaseMouse
{
[owner releaseMouse];
}
- (void) forward: (SEL) sel : (@va_list) args
{
if (!textContext) {
return;
}
if (!__obj_responds_to (textContext, sel)) {
[self error: "no implementation for %s", sel_get_name (sel)];
}
obj_msg_sendv (textContext, sel, args);
}
- (void) refresh
{
if (__obj_responds_to (textContext, @selector(refresh))) {
[(id)textContext refresh];
}
}
- (void) mvprintf: (Point) pos, string fmt, ...
{
pos.x += xpos;
pos.y += ypos;
[textContext mvvprintf: pos, fmt, va_copy (@args)];
}
- (void) mvvprintf: (Point) pos, string fmt, @va_list args
{
pos.x += xpos;
pos.y += ypos;
[textContext mvvprintf: pos, fmt, args];
}
- (void) mvaddch: (Point) pos, int ch
{
pos.x += xpos;
pos.y += ypos;
[textContext mvaddch: pos, ch];
}
- (void) mvaddstr: (Point) pos, string str
{
pos.x += xpos;
pos.y += ypos;
[textContext mvaddstr: pos, str];
}
-clear
{
[textContext clearReact:rect];
return self;
}
-move: (Point) delta
{
xpos += delta.x;
ypos += delta.y;
if (xpos + xlen < 1) {
xpos = 1 - xlen;
}
if (ypos < 0) {
ypos = 0;
}
if (owner) {
Extent s = [owner size];
if (xpos > s.width - 1) {
xpos = s.width - 1;
}
if (ypos > s.height - 1) {
ypos = s.height - 1;
}
}
return self;
}
-resize: (Extent) delta
{
xlen += delta.width;
ylen += delta.height;
if (xlen < 1) {
xlen = 1;
}
if (ylen < 1) {
ylen = 1;
}
return self;
}
-move:(Point)dpos andResize:(Extent)dsize
{
[self move: dpos];
[self resize: dsize];
return self;
}
-moveTo:(Point)pos
{
self.pos = pos;
return self;
}
-resizeTo:(Extent)size
{
self.size = size;
return self;
}
-grow: (Extent) delta
{
Point dpos = {};
Extent dsize = {};
if (growMode & gfGrowLoX) {
dpos.x += delta.width;
dsize.width -= delta.width;
}
if (growMode & gfGrowHiX) {
dsize.width += delta.width;
}
if (growMode & gfGrowLoY) {
dpos.y += delta.height;
dsize.height -= delta.height;
}
if (growMode & gfGrowHiY) {
dsize.height += delta.height;
}
int save_state = state;
state &= ~sfDrawn;
[self move: dpos andResize: dsize];
state = save_state;
[self redraw];
return self;
}
-(ListenerGroup *) onReceiveFocus
{
return onReceiveFocus;
}
-(ListenerGroup *) onReleaseFocus
{
return onReleaseFocus;
}
-(ListenerGroup *)onEvent
{
return onEvent;
}
-(ListenerGroup *) onViewScrolled
{
return onViewScrolled;
}
-handleEvent: (qwaq_event_t *) event
{
// give any listeners a chance to override or extend event handling
[onEvent respond:self withObject:event];
if (event.what & (qe_mousedown | qe_mouseclick)
&& options & ofCanFocus && !(state & (sfDisabled | sfInFocus))) {
[owner selectView: self];
if (!(options & ofFirstClick)) {
event.what = qe_none;
}
}
return self;
}
-takeFocus
{
state |= sfInFocus;
[onReceiveFocus respond:self];
return self;
}
-loseFocus
{
state &= ~sfInFocus;
[onReleaseFocus respond:self];
return self;
}
-raise
{
return self;
}
- (void) onMouseEnter: (Point) pos
{
}
- (void) onMouseLeave: (Point) pos
{
}
@end