quakeforge/ruamoko/qwaq/ui/button.r
Bill Currie 6ff5b5c101 [qwaq] Clean up the qwaq directory
Things were getting rather cluttered with everything being qwaq-* and
all in one directory. Now most have lost the qwaq- prefix and have been
moved into subdirectories (non-recursive make).
2020-03-30 02:34:08 +09:00

152 lines
2.7 KiB
R

#include "ui/button.h"
#include "ui/listener.h"
@implementation Button
-initWithPos: (Point) pos releasedIcon: (DrawBuffer *) released
pressedIcon: (DrawBuffer *) pressed
{
Extent size = mergeExtents ([released size], [pressed size]);
if (!(self = [super initWithRect: {pos, size}])) {
return nil;
}
icon[0] = released;
icon[1] = pressed;
onPress = [[ListenerGroup alloc] init];
onRelease = [[ListenerGroup alloc] init];
onClick = [[ListenerGroup alloc] init];
onDrag = [[ListenerGroup alloc] init];
onAuto = [[ListenerGroup alloc] init];
onHover = [[ListenerGroup alloc] init];
return self;
}
-initWithRect: (Rect) rect
{
if (!(self = [super initWithRect: rect])) {
return nil;
}
icon[0] = nil;
icon[1] = nil;
onPress = [[ListenerGroup alloc] init];
onRelease = [[ListenerGroup alloc] init];
onClick = [[ListenerGroup alloc] init];
onDrag = [[ListenerGroup alloc] init];
onAuto = [[ListenerGroup alloc] init];
onHover = [[ListenerGroup alloc] init];
return self;
}
-draw
{
[super draw];
if (icon[pressed]) {
[textContext blitFromBuffer: icon[pressed]
to: pos
from: [icon[pressed] rect]];
}
return self;
}
-handleEvent: (qwaq_event_t *) event
{
ListenerGroup *action = nil;
[super handleEvent: event];
if (event.what & qe_mouse) {
switch ((qwaq_mouse_event) (event.what & qe_mouse)) {
case qe_mousedown:
pressed = 1;
click = 0;
dragBase = {event.mouse.x, event.mouse.y};
action = onPress;
[self grabMouse];
[self redraw];
break;
case qe_mouseup:
pressed = 0;
click = 0;
action = onRelease;
[self releaseMouse];
if ([self containsPoint: {event.mouse.x, event.mouse.y}]) {
[onClick respond: self];
}
[self redraw];
break;
case qe_mouseclick:
action = onClick;
click = event.mouse.click;
break;
case qe_mousemove:
click = 0;
if (pressed) {
dragPos = {event.mouse.x, event.mouse.y};
action = onDrag;
}
break;
case qe_mouseauto:
if (pressed
&& [self containsPoint: {event.mouse.x, event.mouse.y}]) {
click = 0;
action = onAuto;
}
break;
}
if (action) {
[action respond: self];
}
}
return self;
}
-(ListenerGroup *) onPress
{
return onPress;
}
-(ListenerGroup *) onRelease
{
return onRelease;
}
-(ListenerGroup *) onClick
{
return onClick;
}
-(ListenerGroup *) onDrag
{
return onDrag;
}
-(ListenerGroup *) onAuto
{
return onAuto;
}
-(ListenerGroup *) onHover
{
return onHover;
}
- (int) click
{
return click;
}
- (Point) delta
{
return {dragPos.x - dragBase.x, dragPos.y - dragBase.y};
}
-move:(Point) delta
{
Point pos = self.pos;
[super move:delta];
dragBase.x += self.pos.x - pos.x;
dragBase.y += self.pos.y - pos.y;
return self;
}
@end