nilix/xrxs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

only update scrollbar position if it will actually be drawn

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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

8
uxn-client/xrxs.tal
View file

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