OpenEuphoria

Re: [OT] Cheers to Harringey Council!

• Posted by Al Getz <Xaxo at aol.com> Apr 28, 2006
• 428 views

Hi Pete,

I guess you got your computer working ok again...that's great!

Take care,
Al

Pete Lomax wrote:
> 
> 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):
> }}}
<eucode>
>         if c = currfile then
>             colour = #FFFFFF    -- white
>         elsif actionsave[c]=actionptr[c] then	-- was 'if'
> </eucode>
{{{

> and calling it from changeTo (~line 1240 of edita.exw)
> }}}
<eucode>
> integer prevfile
> 
>     savecursel()				-- existing code
>     prevfile = currfile
>     currfile = i				-- existing code
>     if prevfile then
>         setSaveIcon(prevfile)
>     end if
>     setSaveIcon(currfile)
>     restcursel()				-- existing code
> </eucode>
{{{

> 
> Regards,
> Pete
> 
> 


Take care,
Al

And, good luck with your Euphoria programming!

My bumper sticker: "I brake for LED's"

 From "Black Knight":
"I can live with losing the good fight,
 but i can not live without fighting it".
"Well on second thought, maybe not."