OpenEuphoria

Re: [OT] Cheers to Harringey Council!

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Apr 28, 2006
• 454 views

On Tue, 25 Apr 2006 14:27:54 -0700, don cole <guest at RapidEuphoria.com>
wrote:

>While you where gone I got the tabs on the bottom of your Edita.
I've added a suggestion to have an option for TCS_BOTTOM on the tab
control, but I've also added one to keep the keep the tab bar full
width when the File Panel is visible, so it is not quite as trivial as
it might seem, but it should be doable.
>
>Now I'm working on making the active one white.
You can easily make the text white by adding code to setSaveIcon
(~line 1045 of edita.exw):

if c = currfile then
            colour = #FFFFFF    -- white
        elsif actionsave[c]=actionptr[c] then	-- was 'if'

and calling it from changeTo (~line 1240 of edita.exw)

integer prevfile

    savecursel()				-- existing code
    prevfile = currfile
    currfile = i				-- existing code
    if prevfile then
        setSaveIcon(prevfile)
    end if
    setSaveIcon(currfile)
    restcursel()				-- existing code

Regards,
Pete