[futurebasic] Re: [FB] Selection Demo

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : September 2001 : Group Archive : Group : All Groups

From: Alain Pastor <apastor@...>
Date: Sat, 29 Sep 2001 09:50:57 +0200
Robert Covington wrote:
> 
> Greetings EarthlingsS As part of our continued seeding of the human fe, we
> mean species, we have selected you, you have been selected, to receive this
> demo of an unnatural selection. 
<snip>

Yo Robert,
Very cool demo, but for some reason it didn't always work correctly
on my machine (sometimes it worked and sometimes not). In case
someone is having the same trouble, I managed to get a better
reaction with the following changes in the main program:

on dialog fn doDialog
on mouse  fn doMouse

cls
FN FillWindow

do
  handleevents
until gFBQuit

and adding the mouse handler:

local fn doMouse
  long if window(_outputWnd) = 1
    cls : fn FillWindow
    fn SeedFillToAnts( mouse(_horz), mouse (_vert) )
  end if
end fn

-- 

Cheers

Alain

-----------------------------------------------------
FB^3 in Europe:  http://euro.futurebasic.com/
FB II Pouch:     http://www.pixmix.com/FB/outils.html
-----------------------------------------------------