only update scrollbar position if it will actually be drawn

This commit is contained in:
Iris Lightshard 2021-10-12 01:03:51 -06:00
parent 7137262fd6
commit b43ed9766a
Signed by: Iris Lightshard
GPG key ID: 3B7FBC22144E6398
2 changed files with 11 additions and 8 deletions

11
uxn-client/uxn-xrxs.sh Normal file → Executable file
View file

@ -1,8 +1,11 @@
#!/bin/sh
ADDR=localhost
PORT=2650
ADDR=209.141.55.64
PORT=5460
9pfuse 'tcp!${ADDR}!${PORT}' ./n/ &
9pfuse "tcp!${ADDR}!${PORT}" ./n/ & sleep 1
uxnemu ./xrxs.rom
echo "logout" >> ./n/ctl
if [ -e ./n/ctl ]; then
echo "logout" >> ./n/ctl
fi
fusermount -u ./n

View file

@ -626,16 +626,16 @@ BRK
.ncarts LDZ .list-height LDZ LTH ,&no-scroll-up JCN
.list-top LDZ #00 EQU ,&no-scroll-up JCN
.list-top LDZ #01 SUB .list-top STZ
;update-sb-pos JSR2
&no-scroll-up
;update-sb-pos JSR2
RTN
@try-scroll-down-mouse ( -> )
.ncarts LDZ .list-height LDZ LTH ,&no-scroll-down JCN
.list-top LDZ .list-height LDZ ADD .ncarts LDZ #01 ADD EQU ,&no-scroll-down JCN
.list-top LDZ INC .list-top STZ
;update-sb-pos JSR2
&no-scroll-down
;update-sb-pos JSR2
RTN
@ -644,8 +644,8 @@ RTN
DUP .list-top LDZ NEQ ,&no-scroll-up JCN
.list-top LDZ #00 EQU ,&no-scroll-up JCN
.list-top LDZ #01 SUB .list-top STZ
;update-sb-pos JSR2
&no-scroll-up
;update-sb-pos JSR2
RTN
@try-scroll-down ( -> )
@ -653,8 +653,8 @@ RTN
DUP .list-top LDZ .list-height LDZ ADD #01 SUB NEQ ,&no-scroll-down JCN
.list-top LDZ .list-height LDZ ADD .ncarts LDZ #01 ADD EQU ,&no-scroll-down JCN
.list-top LDZ INC .list-top STZ
;update-sb-pos JSR2
&no-scroll-down
;update-sb-pos JSR2
RTN
@update-sb-pos ( -> )