only update scrollbar position if it will actually be drawn
This commit is contained in:
parent
7137262fd6
commit
b43ed9766a
2 changed files with 11 additions and 8 deletions
11
uxn-client/uxn-xrxs.sh
Normal file → Executable file
11
uxn-client/uxn-xrxs.sh
Normal file → Executable 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
|
||||
|
|
|
@ -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 ( -> )
|
||||
|
|
Loading…
Reference in a new issue