mk79 wrote:It's all been too long ago and the code is very very tough to read. But I don't think there is any provision in EasyPtr for you to get the standard menu handling without the arrows. You could try patching wwa_xoff/wwa_yoff to 0 in the working definition, it's used at some point to decide on whether to draw the arrows or now. No idea what other implications it might have...
I did a quick test with an SBasic version of SuQcess2. Setting the above mentioned wwa_x/yoff to zero after a MAWSETUP.
And indeed the arrows are not drawn and even after splitting the main AW into 4 sections none of them shows any arrows.
Bars are drawn both horizontal and vertical as expected.
Below I added the Proc I use to fix some values in the AW Working Definition.
Code: Select all
DEFine PROCedure ARROW_BAR (chn%)
REM >>>200 N: set menu arrow/bar colours
REM >>>203 +: colour globals moved to Init
LOCal apw%,ii%,wrkd,wndd,alst,appw,arrc%,barc%,bsec%,awbg%
arrc%= h223%: barc%= h221%: bsec%= h222%
wrkd= MWDEF(#chn%)
apw%= PEEK_W(wrkd +110) : REM >>> $6E how many appwndos?
REM:: apw%=0 : REM >>>T test: loop off
IF apw%
alst= PEEK_L(wrkd +112) : REM >>> $70 find app-work list
FOR ii% =0 TO apw% -1
appw= PEEK_L(alst +ii% *4) : REM >>> find each appwork defn
SELect ON ii%
=0 : apxs%= PEEK_W(appw): apys%= PEEK_W(appw +2) : REM >>> for testinfo
awbg%= h21B% : REM >>>203; set paper colour =available
=1 : IF chn% =kmain% : awbg%= h236% : REM >>>203; set paper colour =available (index)
END SELect
REM : POKE_W appw +14,awbg% : REM >>> $0E, set paper colour =available
POKE_W appw +12, h216% : REM >>> $0C,$216 set border colour
REM >>> 252 =m/c/chk. $216 wordt door MAWDRAW als QL kleur gezien, gel/grn/chk
POKE_W appw +64, arrc% : REM >>> $40, set pan arrow colour
POKE_W appw +66, barc% : REM >>> $42, set pan bar colour
POKE_W appw +68, bsec% : REM >>> $44, set pan section colour
POKE_W appw +94, arrc% : REM >>> $5E, set scroll arrow colour ($40+$1E)
POKE_W appw +96, barc% : REM >>> $60, set scroll bar colour
POKE_W appw +98, bsec% : REM >>> $62, set scroll section colour
:: POKE_W appw +148, 0 : REM >>> $94, set aw.offset
:: POKE_W appw +150, 0 : REM >>> $96, set aw.offset
REM : POKE_W appw +108, awbg% : REM >>> $68 +$04,set avail colour
END FOR ii%
END IF
END DEFine ARROW_BAR
::