From f76765cb13c86f07c65a728fee9653c804f1e6bf Mon Sep 17 00:00:00 2001 From: burniouf Date: Fri, 2 Feb 2024 19:12:51 +0100 Subject: [PATCH] LIBTUI:Better LBOX / RADIO controls --- .Floppies/A2OSX.BUILD.po | Bin 33553920 -> 33553920 bytes BIN/TUITEST.S.txt | 48 ++++++++++++++++++++------------------- LIB/LIBTUI.S.LBOX.txt | 36 ++++++++++++++++++++++++----- LIB/LIBTUI.S.OBJ.txt | 43 ++++++++++++++++++++--------------- LIB/LIBTUI.S.RADIO.txt | 27 ++++------------------ 5 files changed, 85 insertions(+), 69 deletions(-) diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index d4b8bc64aaea7f2f671610568ea49d1b5f27fe07..20c69e45d7f4a75f85c3e1ab1905cef6022c3bd0 100644 GIT binary patch delta 357029 zcmeI&iGNhp*}(BLgvm@YBxKKI0Vg|2V8{driB=_(05cd!AYqfBi4X+KW{4K6ZI~8< zbp@$h(#1w!V+BPMRDwHdOTjM2`nG*v^{orq)@u8v?c3$;qVIF=y~!l{{s}+*+|10m z=bq(z&pG#;bJ_FHPp0mXV_>gyaL0nt54O zA6AXbKUI3Fv})%1S$77yW?29Kw)D533c0V;`u|{H^jouk;{U7V_w3orXNN0FW;gq9 zt+=(~&I%plPw?Wm8N0nPqvBto;(+`en*C$BY^$6dcUeV-{O*@SUv*pc zBh^FIs^+R{rH-$v9!~31M^8>7+&sL?f#+}=h+*L*(+QbjvI#-t#A!GGB;NrRaVX!dxQJxdRA|~D|qag z%|nSTu3Tq9!h0$XV@5=T})tT2>30$NTcs(FzeSb0DTJQ2-8ku93?!=Oj%wt0EyRyCo zZzl{peedf+O6m1^$>@FiGE+$c#}a9{!j;u6zpZDx4?;mz4cKRG6a>kIa`91I@oUwQUm&@5|Z--3g|v$q@!_BD#v z&EnNy{npiY81G%-T7QYucurrvw7G<1zMYjLB|=p2^6>wdZEEAPjg7v=l{!3L!ef1r z!k34Cf6K5-DyQ3=?<%AFN>{hzFUBWVx)!Aqu5;i{yV zhF=fuYj<7Zn198IH_ycn7xx9FBOLSPmk+EnzaEtKQ-5u+FX7eTfdX9*=_Pxz&v}L` z_34o+{#|M)*P9t7_~Og^ zLw7Cd5BE6^E*aXg!S$HKvDBE>;hK>y-FhJD$QEZ`tmHrGVDL95Lc<>#+d5noj{h?5 z>2NjoY;yH%a-ZB3*HB@O@k33APpBT0^AIa1_E zl_O1#bU8BQ$dtn?N0uDfa^%R7E5|fBrps}G96mYnupFG#6&T0q;TULf;6mAGMu2Jgm>(gV^597?I%rhUKpLdOpX0&_CI+B93&CpXH zpMS1CSdo)5^m9+yqmRu`->Q1A+0_}**ZZ40x^}K=?^Mohs#oP~SG`*|-ViCU68A4$ z<*y6XE?c~?UZw9a4xTPcYuTxKH*DRY+}En!&aPc5p-cH|jIA5nBLx-8eVyvv)v-Z& zu9v`?!}`4Q3zBT=Zsnh2Y}mFlQc&k_ZmO+Ys602Q-mA8EMEo@>=SJhh=gYDkH<=k! zeaX(?%XS8Pl)ri`gNS|dE7nQ(S5?{R;#n$hud(xVna{D$Od_twij}+Hc;s|h&eEGz zZ&&+n<-NtKc4Kgfe{n}w!?xmZW^1Q)5#kAZ@qSZc;(3NoCim z6}9!@M*oWIw%UZ-kY9xkt%>rg4DpmS2BX3Q4 znxj$Q+thib)n8#<=bx{f%~I-=mNC@e$`FoGbRu%Rt_iC%O zNo$qAa22n1^S9eq z&rzNY7M=9!%nsdqZ34^0>S-Dr2LJAL-XyvA>}2cv|-j%0J)AKd{fdm8oB} z3O8eCb65L@&zH`;L3wUey_YntY!20`3>iU2TYY_J`xpGd9UE^@Q@c%oh;@mIkLY2= z9LemlBw_FPk!+telDTClNz~(*d%x8zif=Z4v8KG}>aSTn)GK4hXkHV>6d6d&F{N60 zWf&P3Wvp4aWem~zCmht3*&Qh;nNgyW4^6l|&Bj~rm1iVQxm!{*hmi`EZdf))Ovy>P zy~f~L=?&koL8T=pd}}npbtTFzLx?#fe@6y`io-iM?^NzSt3xH-YZa^^=&#cQQS!e{ zR8`6MO9^GrwmPb`)G7U=xdc?=cdgiZL~m5xNe@m;%z0GzzhicslC~0+^w7i@iN~V} zgw>QsBx&7@0&`T_fRr_G*nFsrJ}**FNZ6di8gjI}36JXpG+b#(n{uC2y*sz=R8xi| zAwBd2DpkUhqcPT(D9_W9LgisSvL`(=u_(#UMT=rSosyoP7{U93H9Ws)_NCI7tefxt zzUtlBv0J&%*q=YJKhIj9*)JR2>&mm5ex&=4&e!u}DO<<25r4Hxe&thHro5_K`S|*| ze`+P;dCgXzui}5ETdlEte@2?II1t<4(^}rsI)f8!c|EOFJ+1S5TC00nYkFEQ>}kEIr}c9^trz#SUeeQgX;15dp4Qr))?iO--O1Ma zm=^cL-9`5m`sy6U3%>~ZjQD~2DegRsy*0?0;j6(ia>tuPU-GE;N2VP+#UQv3?aB?m;uD8H4r3#?SxiN;ZzY z9-M0INLu1bmBhS~*g*Wg_jO_Xx-fBX1ZTOAn#oF@&koj?96B+Q>e1&jyi{-l& znl0blA?tgt4n02_ck>Kc9QEBj`1*)b)~X8}{qK&LaRpk1PPMK`%*nYJ+Fkg~*czi&$1RNh9P?N7x9vL4HsF09HCxl4Z zQwAo4Na0fkCxl4pb51yVjVp)h(=+px=P@}OYK~OMMBs6UIj1as!uZNieNo&=>u1T3 zF)&nLTzSg+dBKwo^HFHQ-C;VlcC4!jY+KQ>F<)goW#=YgCr{O%d3F9h7sy;ZKYhU` z=dWtfJ4es?N@Nz_vaq?u+6YoAc6Gi}{YR`BO?_f+7saIR|JTee+TcR@+kREY*8S%B=x^;`lHr(^K5v!BWV2NY0#qQe<&@yL=U{XB6ZFF@Un1=e??2PN|Gs&p6hJ3)+{P+nLP(fZBpan z-C;gqms?NRk`=~+XM;uEX)+i3bb3yi8mWYpcA|AHYgD>Sg!G^(sWsQFSSAyiEnO;Y z&1WyokeQJk(dqzJ%ys`y%=J2Ex0$BZH>{{KgZgxNGTWkwHiVZg4A}YWdDN#UGGsz! z=U-=bI4jYOpN*NhNykhz^S9fW758c*kn2q?-7=Pto*r7KuK8>-rCW_FzZ;s7WG?CC z7MQhGMLUe-53;k3w(7o!y>Y zRwlA!OO=J5InR>?;);dM;mc(~cfFj|3%Y3tE?K8CUZ6YtRI)B zO8t^Novpc}q}g1%N>Y>+pqXN&a?0c_MrH0XzWksxz=-j}zVy^hGH+9|05q4Onfu1( z!RDHEVclhdtUNM(Gn1I3(r=atVncnce{sa}*NfgMGL5scs8CK>9;zgn&zaS?;8osj z7J%>1Vdtc@+s%xNWkRRicUl=cWfrGW4@&M8=7eSQ=!JJ#7asVlzVMKFVWO-Cm0RX= zy1C~X#<8QJoWdh^396N|S57C(M9!SY2JKsr{Y_b6>~QB~WM#^{&OEhR>R>fYU5CPN z+c~`ubYGTsk0keL+CFott5@G*vs?xpl_pa^UGMRCAkm)wS$Dqhek;}6Ple)YWZI`Z z57-kH86jorr{|Qh56X;Lr5qh?JksNDF?;ect63F3WE?scDu{VlYA}2{IKy$=O7ow` zLUBcUzGpRu!~wfMn@!GhVr(Lx^_cO_@la+=?&He1_^D9Vq{1i0sv4Ij^Sp^rr);Qf zuT1+asL1%SQ58OAT|WF)I4<=WJ=-@+`>a*kY0nw|dMK3JEmOZsn%6eh)iyLlWJ8;5>w5t#dM*@4-1XS{m#s{pG0GUf#^$$np&fU9O zCI2KEP+74zq%vfRX}9=s`DYFr2X`c8On=pmy|z{*%S6-ilFTY9=c;wD85bW9UGDgI z%d6?b@Z|E~j@`=hv$2~t^%wR{vxXJVf7(gZs;t-bUGrwYF`B5{1S|iREnQnXRNUOn4A6fXHt;mUe|TIRN*_(8<~54>_)z4-N@qib%QiJh|&07 zIA>AHuSPQoN9I+Sn!k>Q1ompp-$VlhZ?#JLAR163nA3i1OnWqx>-f;P@X^q;tdH!o zt0%TF@9&JAkA^ZGzt?`{F{<#t?SeiUic21`I==f4RxwNdX#DokP;tYbq8V9*OZlH@ zNWd&z)}O~`H}2`3_?KwZ3RU#ivD_vbBkzP`lm9k$znuRoEi>!y#=(J*x9T6!tL!ZQ z84U?knjrs*hE&cI5bwvvTLYoY{7>xg)!|6hyuA%F!%S3;v6d)>a2T)tGCVD@MenaE z=Ojn3^2Rufx2082%9(6jJ{ZcL<&+CXyI6BqXWh;llrvT$dRz{xQ_2R1+n$BR8TSr` ziY|+f=3y7v6AcN>)kRL65)G+P-h}9{@sEV8L?ih`$XhbiKD}__6Cp7vdRc`kOg1ZH zG<_hLDGqbscBk4C!Zc&=iBR!|^yme4$ugoLfhx0Pnb8ng!F!{>q-5p;LuF;zfx1Q6 zPklWlS6SIIOWpH>V0uzwPV_o)&b5lx_*lqQJk2pWm^!D6W6}iq5q8@mSH+~sTH4Y4goQbo>s+Kid zB$l5EW;9kruahuvnAG z>PruWiI+s z*}Zh^eobw(ifKO^bC-`^6WMGR{HvRr+B-Y8cd3*WqvvFVo^OuO&Cw9Er0FfufH~Iv ztWy~)qk&S|y4q#2bqgDmca^bpNN(xs=vgV{nrJDftsN_6@;Zk#;~T}yYt`|xjUBH9 zoq3-1V-cNK2=de`t=M**irTEWdN!S&dX+<_u;%P>EUgXJc|CtFb8ggqu0!`Za~p1x zqj%@#c9nefrwUNG*}6ziz0$VGHHp{QF|0ZH=f}zyo4-}k*xIh#+w|v76}R0Sqh$Ep zVYSj(JB^P{g=QvSYmZ%>R`9f4M(LBG+$mjBJG~zzbN1_vzS$@9#VrauwVp0V!W{$o{igXM2g~`LcaUwVtmBa%W{2FMXJp5i4(LviCWR zd;Lqijvga$TY7qG@_xBL z+S$2fd)KC9m1s<$KN6*H?zKt3VUfmv(;=O8;j((={+1Pz`E7?~a)-ZGwpF%nxvJ~B zEwZ0+kHcOL-{lWBM*_M+j&?ma4A*gTkM-$ z6kD{rXiw3ZqMymX1?echzPP`*r})X@M~Yu4{!#I(#Y#Qw^&QXh-FHN`r3PYd?=EW7 zn^u!$V`|{f``-1%B8AN`E@K6=rWm%6{83(fzh(t>!-c zIb(j=l4)_zTR$&2ZLBX_GTrflaZ}ln9LI~sk+LOunJ+o?1FO!#$Ip1>_ zk$Fq9y1#E-={X~5*RNc(U-!f6 z3YGSqwXxuTrJ` z#NKMv>pnYP;w!osGD_Uxmv`#!VI%o);^qftE=dXM*BbhDsJw|;xNF1G_T6igTNd-? zYlH8|G+y87D&>@SH_9!mck|8FefA!NtlX9Ne&gDu@&>uzd_~bMt9AX(+bK(Rl`8A> zDszw?d;Okr>@#m0e7 zM`|-H)_g;F!Ya#Sc3I?ojq*NW?G5RMKjDR$yuLB_17sgWR`$v(t9iX$X2%d524XLIV8N1>A;)hrKXD8teK~uCzX%|J00IagfB*srAbHwFkvxCvq+1VOnIZ>=@t zDR>w0QVyxDMq5-+G=WO=@q$>jVy#bXf7L$T6)&|HfAM)9YcIAw-#Og)8KlKOTz$DA3eOuhX&=a0wC3Hh>bFH0(t4>{T2Z%VqhDaj!z zK~kcmF_N5;k_MWRTpcMHfAg!2)6#tEU#C<+*D>&XhO73hg86=B{#RTODcD>5KgEp| zH&%R9F@4G_Q@=OklB)A&W*cRVuBlz&DVwJJb?VbIo~wFr=C!jvD*31+Z;EH?^l+%^ z%c_$z-=FnZ*<)qlDa)tc5bm68{r`uuKYSzS-ZJa|o5I7N76woMzgfPQPivf37b={# zFnCSqn$Qg)U1CpH=xV#@BWA|JV22b~7`#IMhC?^X-y_prl+!MfqoYm>dF6YrBz@NR zs_(9Tp!)ObmTILA&#xZL>Qx65?i~uWIQmj=idEm-P`xKw{n`9#f7>f^)O|QweeYl7 zpuep*v45a-f$Ogcj&qF#O|DkQBIDjB*MGYks$Y2Pwzm$)j2|s_6=%e%4>wfrs@q+^ zcHY|gZBO+ZgNt3u+?SYTp4wcWj_rJRV8II4RgRK%Qx7U> z+T8xgP|}&VMjF>mm2Wluk>0tBBSY@~NS@9!K0D8KhT|n8b)_pmW98JL#FqyD+B>#C za_FU(0xON#D_ws(|3o;DI=wG1kQLhL4#<~P)B943mxhu8%gP&l;l>X_2UT@jAiJVB z8h9djuL?X@Ih1>H<=_|ZtsF``v~%b{ba(54*zP5PSAu=-w+)wVu*x1aZdv6jbG%|a zzRESh^GT)D@kyoBanyK!m1ulo{B@OUQkPuf-~DaXZ3n;aw<@0^?~TYG^FVK-^i59bjoli#;W`oc zAT*M7Zaiy&b#A_#7C134e5B!I>X5s4uCC>(=~iuZA?dYn{5JgiK}Vjx{z5tM=klHD z`r@@#1!w6BejApffzOQ(&vymSxoW!Ex+4ukIfr^1rF`$)_fiL)fsb?}rStq_G9tvDiIW$Qu zie4K0UvrwQUAT5pAX2IGQzSnr&|Un};Ab}sx}+C+8U@Zbc3t4=a(r%#X>-kUy&3v^#^N^D6vt8H>NZzy&e6)D{FCPoez`LzARoQ*F;(h3YCPQL`tBI%<}_n!yK9O2 z`su|>GZGs=7`UO`HODb-{gJm$rVN($Mr0x%3KUlKwHR+)=sLqCjMCDe@wI%($=0*K z?POpuMNfP^dCUo9RIhQBd56*mon{*k2FzCfec;A5uA>e|n{iHuYx3mNZmywR^Y%*k zIJV!v!P%SiYGiN1t&!g!i4OkGxT?byk{Nus!_|`BAIb3O1~k7ln0W8X>TA}yu36_k zwl29bWG==7P5YAfC&&UFPQCU|`;#T5Nb*P;D@o_2NlKTLA;~LgoTN-iS(1E`vL)q6 z@=MBGiWiV>1U{ z^OQewG-3Qk<)%i-tD@`6{1tWI2c>Fw7$8eeyV(KQRD8g z+SM2dwsdS;bZMt@{y^&V?=$XctjKW~CSCG=s}p%YG~PL{!k^^6Q#bP1v*mMlW_*=w z4(ZeXIyL6v*`bWgfu=}BpJyO_Va4Z;+e69e$C@f0bSz0PP{FWx$^aFwTc@0b($$nA z6|6KiY`#)u7VGAhQsuqS8cAzf zRhB8wTI;;vEamKwYm8f`uWv3IktMCNW+>l9M*Fggtl)a9_q&vPgVoWDOY~&5Ctl+` z<=JSrrb_uXTUXs;-YXMjt&&NivbT-Yts!EYH+O80D&KZ<#DhERv!^T1rIvv#LOGY~ z70zyu#cAI5R~YxquE?4sOVowi+qtdZccTi5{@&AyjLZ}Fz1Gc| z`V-w5Sr#Wvo}|17PV;F|zWa>+t1Gfn@0a?_Wi+IG2QA%0rfx$1gGR;*xw#&)k>$on zeR#Oam6MeF5&OZ>FRNc@-`4e8mHUWwe`XxDnkMURtzLD#kDl(TyvMBhKQej84h&x< ztkNF0O6w=#BGr}gAE#I5d_v#OPugWBwM|kPPn}*O?RdO`m>Tv?M| zUe%Cw?N=)+Bu$YtRZ>vWG)W;zVM&#erc0V3sY=pJNwXwXOPVd|Oi5=+`Zq~uOPV9; z97%H})kum+svY=hWu2?lDDJDvbQcB8SHVK#oW8n=j@8BmeRX-pvxAPzgojoed;03; zja^-GZ(5+%;Xm-kh9+a$_=bGrtG>DtEio z>s*;~s$Wj+OWFO=L-IK&pN-@3MDt>KN94*|kJRY{u_JQe zR;$qNBXwoQwlYWNYF$URt}k%lWBoaxKW80yPk%0z&sJ`pd~!#v&-ps{)NtALljUWt z_m2KIhMe+(JlApHgCVy*mL#PPuQnzgty?VD-gdNZiIMVl$94%Zy0&b-$P6^hvmP8>WR{ur(CDmcGwbl^ ztl2s%>*3K^;gFg4$Z2_If3o^c%aabBEhqP%mT7ir!V#T!-mt}t?v3p`I=i=Q?$9;6 zk2=iAw)AJlcLwT8k{`9cPC8~hFi=-oK45(a^8-J>(p zuKnlr^^)dEnm_Q*>!T-f9o0s`3$cj_1!o$^e-aHi&NANnNwl!$Y}IJKc32I$E?8G1 zOVsd)tAaWDa80CM{KF6Imf8|X|&ie*I55kskFwpUjGv@-g+^1hNIT_ z$BVHE2_<#L@1=~tUh2|e!lH9;($!cW)x>$mO($a$vQp-&9-S?*QPhr!V#eo>Oz}CF z#FVeWnEP@pD`rPrwJj2a$6ABUtt~1;qAne7uD9NzRPrJ_@XB1QMwQ!RzI8NPHBV|W z<~|iE>B?%=%k7TtQRS3#iC+69=rSv5^CwCO-i-YHZPP=WJ9OQlF;j$r)EpY zWfyEU4Xu(o?)t_>vdsW&v010ZZ56%X+eLHQq~6*ty^-rbuY^ z%|kgCjnrb#JL`h$jc~p{v+UxLqk2@VLzjHJmatj)8m#5RZhQza(m)YT}ym-oc zXY4$AJH1?v>bKLd@?AO7KywImY@|FoptIudtgGasJb*`CQ)ON)k4!7blR8^!mP(CX zc8!(Fxl{GzsT>LK>=Dy#t!tcbmdpBg&#>)Gs*$MsrCGVsv!wvw~TjQV#Zni)IU&NdV zS$oV2mr59@+}g-6M@tl6Q_ z)M*kA#)r6AqQW_HH`dlPHp*>jobhR1s&Vz9X!7iz%4Ixem}qSp+-HS%N%u?ms>VGq zJZ0pzzQMd*4_cF{_>l3;p=eR!gQ~|Ed?qs4@sQQ?KfV)7o^)86V@-lI9WCmWz?^8F z{*kCUS7JtE=;sk%LjF->>x0qpj-T0dCnCw?j@jiR_KA4|#)$``{>0qJlyTR)u^h+a zR^h>SW67CM=s??S+mlw?COl=7JrvD9_i3r6WkrkGXNjg4bZk`!>`EBXC>GDb1SgTe$LqYP}Dc^1v|tFDX#>Fx?jU@_bT_K^k?x45#Kzo z#E9mrLnPK6-nBfeyuTcsu|hIlj%Uo6v1^&~O87W@N@ZwQRAs+nOgtR*IsVhQbxTHe zK!Qi}@QNDcebxTFOll8R&QL3VEf=2he5A~HFQX#Gxa)AV#PJ(Tr|FNeF;gR3u23F{ zFYN(If6X2cYn|{&glWI$dJe^9HfN2ca2*fj^;Yv8#P7}i`rv!${M564~=&pj+WGaG+axpyDDUAeH_mT@6uYI z#4`kEnacQmJY%+CP59J^Jrd1d{D*k9+!)ppZts_MEB_zuqsydIqn@VzKiT>9dX2CS z=rtnvXN$Ewq4+baA74EZP4@nO>o#@|S-qI_xslx$EiL))_@%90jQgK>PT1^5?*AI? zeNlh<7x4ojRq_|B?md5qC1-iQ92q6&UuE{?{>_?F*|Yv0KgX{AAMu=UrK$8)Jg2fs zl>Glx#+Lr5uPF0h_7RyeGplwrc5GH@U&jkeBb4##JFy9=t$G7bIUSB3&FZTzY~T5@i(U4h&S zcFR-ZIpG<)y8r7aQ*#jTUv4#II%dp){T&_loFdPm1S+XYZ=*+`e&Yi^`fD&y~KI z4_JShou>y|LJrw<*5Rc}E032AsiF$`WF93W-po+ zKT#&0tc2r2@f^E(;doAXmest)DyuS{E6p>XasKH>>Z8$|^cnF((wZuJpdXDoOJ@p` z%9-Vmr{HkJq!;+z=A)t7o|m(Y?>-tWX*@Gt%PhU7c+ZMw$o(2sD6O610}V zw6o)7r3rJ)CM4Buyh!=aG18AkbIRw+sCjGb!5t1@oDs?O)Y|9Ps0nqB^8JQ)Aey_O zK3<_Uj^26koLT1WJwKjN8T0^{)H1*sOtugtY#*qOIe4g*C&h1uL!lWk`b80?(?Eg3j}WJAJiP z+U{A&1y)&!ij#er?GAJMUV@X6x-PViOCX$7wnpE2YxS*X?s0WEdbX}_SKf8sxPI|P z);T(u%33eyq;0TESh4lRBh5=HyhQ5QDEsOg^}kzH@+Na>l2voFH9MznF>YL)S#hR& ztG#Azv+^fw*OOY`2DjP4to2x4AGvg$^6Zd4>pdU|$uBjw-8L?>ApP=@uIZO0&lPqF z39+w~78ZU-x2d4$yYhM5RSpTE%|Ow9S@V3)E?up1y5v=4YPNCpmt%7i^L9Cmdx8yq z$8IBhlh2psy++1rbjXx{ox|AnU^I7(|9V*g`d*3nx^C1I=3cbkFP0U+ck^(|h9f7v z*}BJ`12xKhi$k_muT=iMj-EAJN6xf1cIDRz&#lrp>-{7B_V~<^O-kP#x;b{Vw`1$} z4VydHc~#oJ(+0zc4@S{`+qlOvPWhoWu3uQE+;>_zIX^NsKM~E&`?14*kG(AzY3U9t z_g&WU^X@k8dLp_!y{Ok=z5um!ws&5-V~;UyFyb3`k5#7lUdM0*b?nKgJE3ct{1i3U zrBrnw7C2S>QSq{p3rY@@94&dalH0v`nWJ_|$&`aTW(v7qn6Kz(7~yMgx$``!plE9(1g z;QFGz!GOEuz=tE-RHruRk9wb~uj%B@L6;ouo4@nZlg|t$1yu3g_u5WAI~eG_wf~L5 z)B__MXM0b!Szo5ed3&F1JNevT!p=ueo*3-6Hn{Xwm;QPEzz2Fm?_jU~D_eNp}ykZAtUBtOFaLTAUrbeU}K z7Zc5&Og$$Pt=pzbrTtQ}te@ZXFK;i)0X@ZLsN`1?tzX_!1{3AS3H_T``m2fhchKS2 zg!Er0>PPsJ;qRW`$jRnrvGV>l@$_HTJg>9C?B z^C7+`SR-3wwd*_9T++RuLpH>ovPw;S+F{%^qhUhAafk8LjE3BV!e@*hls6RQoN!oM zLDq@gi_Vpw`o=%&FuJQ6a?5{io$Pr|T2QxS!GaYk<$3wIs983O#=hXFlRcT%n&wvJ z|AmoJ(U8;iqQiVY?wisuZlY|M%UiX*VeZlI)_R<0D(77i zZu{>xwk?pKhkMN}`9=3wTk=kMjaHdI(Z3|=i8S&v{kQ|)+Fh47XT5pvx!PUSHB hSCRN + >PUSHBI S.OBJ.pSTATUS + >PUSHW.G LBOX1.Var + >LIBCALL hLIBTUI,LIBTUI.SetProp bra CS.RUN.LOOP .8 cmp #EV.QUIT @@ -181,7 +182,7 @@ CS.SCRN.Init >PUSHB hCTX hParent >PUSHB hSCRN >PUSHBI S.OBJ.pSTATUS - >PUSHW L.SCRN.Status + >PUSHW L.LBOX1.List >LIBCALL hLIBTUI,LIBTUI.SetProp .9 rts @@ -413,33 +414,34 @@ LIBTUI .AZ "libtui" hLIBTUI .BS 1 *-------------------------------------- SCRN.Title .AZ "Window: X1=%d,Y1=%d, W=%d,H=%d, X2=%d,Y2=%d, iX=%d,iY=%d, iW=%d,iH=%d" -SCRN.Status .AZ "Status bar..." *-------------------------------------- TBOX1.Title .AZ "Text Box Title" TBOX1.Status .AZ "Text Box Status" *-------------------------------------- -LBOX1.List .CS "Item 1\r" - .CS "Item 2\r" - .CS "Item 3\r" - .CS "Item 4\r" - .CS "Item 5\r" - .CS "Item 6 very long line\r" - .CS "Item 7\r" - .CS "Item 8\r" - .CS "Item 9\r" - .CS "Item 10\r" - .CS "Item 11\r" - .CS "Item 12\r" - .CS "Item 13\r" - .CZ "Item 14 last one\r" +LBOX1.List .CZ "Item 1" + .CZ "Item 2" + .CZ "Item 3" + .CZ "Item 4" + .CZ "Item 5" + .CZ "Item 6 very long line" + .CZ "Item 7" + .CZ "Item 8" + .CZ "Item 9" + .CZ "Item 10" + .CZ "Item 11" + .CZ "Item 12" + .CZ "Item 13" + .CZ "Item 14 last one" + .HS 00 *-------------------------------------- LABEL.Label .AZ "This is a label." *-------------------------------------- TLINE.Default .AZ "This is a Line." *-------------------------------------- -RADIO1.List .CS "\e[91mRed\r" - .CS "\e[92mGreen\r" - .CZ "\e[96mBlue\r" +RADIO1.List .CZ "\e[91mRed" + .CZ "\e[92mGreen" + .CZ "\e[96mBlue" + .HS 00 *-------------------------------------- CBOX1.Label .AZ "Check Me" *-------------------------------------- @@ -456,7 +458,7 @@ SCRN.TitleBuf .BS 80 TLINE.Buf .BS 65 CBOX1.Var .BS 1 RADIO1.Var .BS 1 -LBOX1.Var .BS 1 +LBOX1.Var .BS 2 TBOX1.hBuf .BS 1 DS.END .ED *-------------------------------------- diff --git a/LIB/LIBTUI.S.LBOX.txt b/LIB/LIBTUI.S.LBOX.txt index 63f861dc..aee12de5 100644 --- a/LIB/LIBTUI.S.LBOX.txt +++ b/LIB/LIBTUI.S.LBOX.txt @@ -105,10 +105,17 @@ LBOX.Run ldy #S.OBJ.S bcs .99 + jsr LBOX.SetpVar + ldy #S.LBOX.EV.CHANGED lda (ZPObjPtr),y -* clc + clc rts + + +.9 lda #0 + sec +.99 rts .3 cmp #C.SPACE bne .9 @@ -121,10 +128,6 @@ LBOX.Run ldy #S.OBJ.S .8 lda #0 clc rts - -.9 lda #0 - sec -.99 rts *-------------------------------------- LBOX.Draw ldy #S.LBOX.VScroll lda (ZPObjPtr),y @@ -153,9 +156,11 @@ LBOX.Draw ldy #S.LBOX.VScroll jsr LB.Ptr1OutEscMaxX txa - beq .8 bne .6 + clc + rts + .5 ldy #S.OBJ.InnerW lda (ZPObjPtr),y tax @@ -169,6 +174,25 @@ LBOX.Draw ldy #S.LBOX.VScroll .8 clc rts *-------------------------------------- +LBOX.SetpVar ldy #S.LBOX.Idx + lda (ZPObjPtr),y + tax + + jsr OBJ.GetLineXAtY + bcs .8 + + jsr OBJ.GetpVarPtr2 + + lda ZPPtr1 + sta (ZPPtr2) + lda ZPPtr1+1 + ldy #1 + sta (ZPPtr2),y + +.8 clc + +LBOX.SetpVar.9 rts +*-------------------------------------- MAN SAVE usr/src/lib/libtui.s.lbox LOAD usr/src/lib/libtui.s diff --git a/LIB/LIBTUI.S.OBJ.txt b/LIB/LIBTUI.S.OBJ.txt index 16a160f7..041f5680 100644 --- a/LIB/LIBTUI.S.OBJ.txt +++ b/LIB/LIBTUI.S.OBJ.txt @@ -961,24 +961,7 @@ OBJ.GetLineXAtY jsr OBJ.GetpBufPtr1 .2 inc TempI - ldy #$ff - -.4 iny - lda (ZPPtr1),y - clc - beq .5 - - cmp #C.CR - bne .4 - -* sec - -.5 tya - adc ZPPtr1 - sta ZPPtr1 - bcc .1 - - inc ZPPtr1+1 + jsr OBJ.NextLinePtr1 bra .1 .8 clc @@ -987,6 +970,30 @@ OBJ.GetLineXAtY jsr OBJ.GetpBufPtr1 .9 sec rts *-------------------------------------- +OBJ.NextLinePtr1 + ldy #$ff + +.1 iny + lda (ZPPtr1),y + bne .1 + + tya + beq .9 Empty Line + + sec + adc ZPPtr1 + sta ZPPtr1 + bcc .8 + + inc ZPPtr1+1 + + clc + +.8 rts + +.9 sec + rts +*-------------------------------------- MAN SAVE usr/src/lib/libtui.s.obj LOAD usr/src/lib/libtui.s diff --git a/LIB/LIBTUI.S.RADIO.txt b/LIB/LIBTUI.S.RADIO.txt index 6f3ee8f5..6b86a612 100644 --- a/LIB/LIBTUI.S.RADIO.txt +++ b/LIB/LIBTUI.S.RADIO.txt @@ -30,29 +30,11 @@ RADIO.New lda #S.OBJ.T.RADIO ldx #0 -.1 ldy #$ff - -.2 iny - lda (ZPPtr1),y - clc - beq .20 - - cmp #C.CR - bne .2 +.1 jsr OBJ.NextLinePtr1 + bcs .5 empty line -* sec - -.20 tya - beq .5 empty line - - adc ZPPtr1 - sta ZPPtr1 - bcc .3 - - inc ZPPtr1+1 - -.3 tya - clc + tya +* clc adc #5 room for " ( ) " ldy #S.OBJ.W cmp (ZPObjPtr),y @@ -192,6 +174,7 @@ RADIO.Draw lda (pStack) Relative Y bra .13 .11 lda #C.SPACE + .13 jsr LB.COut ldx #')'