tscrolling - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit fa009f9d7217bd577248e53ff5aba2e8b1e0c4b2
DIR parent 038aa0220a3333ee49b19dcca9d084499d5a75e6
HTML Author: rsc <devnull@localhost>
Date: Fri, 11 Jun 2004 04:13:24 +0000
scrolling
Diffstat:
M src/libdraw/mkfile | 1 +
A src/libdraw/scroll.c | 29 +++++++++++++++++++++++++++++
2 files changed, 30 insertions(+), 0 deletions(-)
---
DIR diff --git a/src/libdraw/mkfile b/src/libdraw/mkfile
t@@ -42,6 +42,7 @@ OFILES=\
rectclip.$O\
replclipr.$O\
rgb.$O\
+ scroll.$O\
string.$O\
stringbg.$O\
stringsubfont.$O\
DIR diff --git a/src/libdraw/scroll.c b/src/libdraw/scroll.c
t@@ -0,0 +1,29 @@
+#include <u.h>
+#include <libc.h>
+#include <draw.h>
+
+int
+mousescrollsize(int maxlines)
+{
+ static int lines, pcnt;
+ char *mss;
+
+ if(lines == 0 && pcnt == 0){
+ mss = getenv("mousescrollsize");
+ if(mss){
+ if(strchr(mss, '%') != nil)
+ pcnt = atof(mss);
+ else
+ lines = atoi(mss);
+ free(mss);
+ }
+ if(lines == 0 && pcnt == 0)
+ lines = 1;
+ if(pcnt>=100)
+ pcnt = 100;
+ }
+
+ if(lines)
+ return lines;
+ return pcnt * maxlines/100.0;
+}