qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-01-31 13:10:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

[qwaq] Get the scrollbar working nicely

Browse source
This commit is contained in:
Bill Currie 2020-03-30 23:42:06 +09:00
parent 655ec3e02b
commit af64e36653
4 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
ruamoko/qwaq/editor/editor.r
View file

@ -33,6 +33,7 @@
vScrollBar = scrollbar;
[vScrollBar setRange:line_count];
[vScrollBar setPageStep: ylen];
[[vScrollBar onScroll] addListener:self :@selector(onScroll:)];
return self;
}

1
ruamoko/qwaq/ui/button.r
View file

@ -117,6 +117,7 @@
if (action) {
[action respond: self];
}
event.what = qe_none;
}
return self;
}

2
ruamoko/qwaq/ui/scrollbar.h
View file

@ -12,7 +12,9 @@
{
int vertical;
int bgchar;
double mouseTime;
Point mouseStart;
Point tabStart;
DrawBuffer *buffer;
Button *backButton;
Button *forwardButton;

17
ruamoko/qwaq/ui/scrollbar.r
View file

@ -141,24 +141,24 @@ position_tab (ScrollBar *self)
}
if (index != oind) {
position_tab (self);
[onScroll respond:self];
position_tab (self);
}
return self;
}
static void
page (ScrollBar *self, Point pos)
page (ScrollBar *self, Point pos, Point thumb)
{
unsigned pageDir = 0;
if (self.vertical) {
if (pos.y < [self.thumbTab origin].y) {
if (pos.y < thumb.y) {
pageDir = 0;
} else {
pageDir = 1;
}
} else {
if (pos.x < [self.thumbTab origin].x) {
if (pos.x < thumb.x) {
pageDir = 0;
} else {
pageDir = 1;
@ -191,11 +191,16 @@ page (ScrollBar *self, Point pos)
[objects handleEvent: event];
if (event.what == qe_mousedown) {
[self grabMouse];
mouseTime = event.when;
mouseStart = {event.mouse.x, event.mouse.y};
page(self, mouseStart);
tabStart = [thumbTab origin];
page(self, mouseStart, tabStart);
event.what = qe_none;
} else if (event.what==qe_mouseauto) {
page(self, mouseStart);
if (event.when - mouseTime > 0.1) {
mouseTime = event.when;
page(self, mouseStart, tabStart);
}
event.what = qe_none;
} else if (event.what == qe_mouseup) {
[self releaseMouse];