OpenEuphoria

2. Re: [OT] Cheers to Harringey Council!

• Posted by Juergen Luethje <j.lue at gmx.de> Apr 25, 2006
• 431 views

Pete Lomax wrote:

> Hey! I'm back!
> 
> Two days ago I got a flyer from the council announcing a Community
> Bulky Items Collection for things which won't fit in a wheelie bin,
> including furniture, white goods (fridges and cookers), electrical
> goods, beds and mattresses, etc,etc,...  so I went on the prowl.
> 
> Success! 7 streets away someone threw out an old PC: 17" monitor,
> 75MHz Pentium, 128MB ram, 4G disk. After two trips and with some very
> sore arms (ever carried a 17" monitor 800 yards?), the removal of a
> few virus/trojan jobbies, re-installation of Windows along with my old
> network card, speakers and mouse, it works!! YEAH! Better off in my
> flat being used than a land fill, I say )
> 
> Pete
> PS Let me know if this comes out as html/wrong mime type or whatever.

Welcome home, Pete! 
I can say that this comes out perfectly on the EUforum web page when
displayed with Firefox 1.5, as well as on the EUforum RSS feed which
contains the complete messages.

Regards,
   Juergen

4. Re: [OT] Cheers to Harringey Council!

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Apr 28, 2006
• 453 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

6. Re: [OT] Cheers to Harringey Council!

• Posted by Al Getz <Xaxo at aol.com> Apr 28, 2006
• 427 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."

8. Re: [OT] Cheers to Harringey Council!

• Posted by don cole <doncole at pacbell.net> Apr 29, 2006
• 432 views

Pete Lomax wrote:
> 
> On Fri, 28 Apr 2006 01:35:51 -0700, don cole <guest at RapidEuphoria.com>
> wrote:
> 
> >I only changed one line (the create line to get 5he tabs on the bottom.
> >
> > TV = create(TabControl, "" , 0, Main,
> > 0,10,370,298,{{TCS_MULTILINE,TCS_BOTTOM},0}),
> 
> Surely you meant TC? TV is the file panel (Ctrl L), with Project,
> Directory, and Recovery tabs, which was always like that. Anyway, I
> want to make TCS_BOTTOM on TC an option, and move/keep TV (when
> visible) on the active tab, which might get tricky when there is no
> active tab. Not that this is high on my to-do list, you understand.
> 

Your right I copied the wrong line.

I think they both look good at the bottom.

> >I'm have trouble with your code like,
> >r_enableMenuToolBar has not been assigned a value.
> 
> Oops, my bad. I only tested it in debug mode, which avoids the load of
> previous files. The fix is fairly obvious. Initialise it like so:
> }}}
<eucode>
> global integer r_enableMenuToolBar      -- set by eamenus
> r_enableMenuToolBar = 0

eamenus.ew hasen't been included yet. Either it or setSaveIcon() have to be
 moved.;

> </eucode>
{{{

> and wrap the changes in ChangeTo like so:
> }}}
<eucode>
>     savecursel()			-- original code
>     if r_enableMenuToolBar then	-- (after eaini.e)

Same here eaini.e hasen't been included yet
Actually I don't know what you mean here.


>         prevfile = currfile
>         currfile = i
>         if prevfile then
>             setSaveIcon(prevfile)
>         end if
>         setSaveIcon(currfile)
>     else
>         currfile = i			-- original code
>     end if
>     restcursel()			-- original code
> </eucode>
{{{

> Also, after using it a bit, I changed setSaveIcon to:
> }}}
<eucode>
>         if actionsave[c]!=actionptr[c] then
>             colour = #0000FF    -- red
>         elsif c = currfile then
>             colour = #FFFFFF    -- white
>         else
>             colour = #000000    -- black
>         end if
> </eucode>
{{{

> otherwise you cannot tell if the current file is modified or not.
> 
> Regards,
> Pete
> 
> 


Don Cole