On 5 Jul 2005 at 20:23, Dilwyn Jones wrote:
(...)
> If I can think of a way to ensure that the program does not try to use
> wm_ink and wm_paper when using mode 4 menus I'll use this approach,
> which is probably the best.
>
> MWINDOW #0,1!\0 : REMark \0 is needed as a dummy extra parameter for
> QLiberator
> IF WMAN_VER$ >= '2.00' THEN
> WM_INK #0,$0210 : REMark info window foreground
> ELSE
> INK #0,0 : REMark for non-wman2 systems
> END IF
>
> Rather than checking wman version number it might be better (or an
> alternative at least) to check for the existence of the wm_ink or
> wm_paper keywords with something like IF EXISTS('WM_INK') THEN or IF
> CHECK('WM_INK') THEN
>
> Right, plenty of ideas for me to think about! Thank you everyone.
>
Ok, so you want to use different colours, depending on whether the systemuses
wman 2 or not.
Perhaps:
is_new%=EXISTS ("WM_INK")
(or any similar check)
(...)
WINK #channel%, whatever%
(...)
:
def proc WINK (mychan%,myink%)
if is_new%
WM_INK #mychan%,myink%
else
INK #mychan%,myink%
endif
end def WINK
:
Wolfgang
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
