2nd post of the night!

Hello again.

 

Thanks for the response to the timing question, and also thanks for Breve
itself (it's a lifesaver for my thesis!). 

 

I have another question: have you tested using
disable-freed-instance-protection in windows for the newest version of
breve? 

 

It crashes immediately whenever I call it on the controller (whether within
the control class or outside of it). I know that it crashes immediately when
it reaches the disable call, because I surrounded it by print calls and it
reaches the preceding one but not that the latter. 

 

I also added the disable-freed-instance-protection call to
swarmevolve-1.0.tz, and it also crashed upon reaching the statement. 

 

Any help would be greatly appreciated!!

Travis 

 

Here's how I'm using it:

 

@use Movie.

@use Control.

@use Mobile.

@use Stationary.

@use File.

 

@include "definitions.tz".

@include "OrganizationEvolutionRegime.tz".

 

Controller Pursuit.

 

Control : Pursuit {

 

      + variables:

            myOrganizationEvolutionRegime (object).

            myOut (object).

            #mov (object).

            

      + to init:

            floor (object).

            

            if DEBUG_VERBOSITY > 4: print "Pursuit.init enter".

            

            self disable-draw-every-frame.

            

            self disable-freed-instance-protection. #######################

            

            floor = new Stationary.

            

            myOut = new File.

            myOut open-for-writing with-file "RoleRegime Out.txt".

            

            self enable-lighting.

            

            floor register with-shape (new PolygonDisk init-with radius
WORLD_AXIS_LENGTH sides 99 height 2 )  at-location (0, -5, 0).

            #     mov = new Movie.

            #     mov record to "prey-evolve.mov".

 

            

            

            myOrganizationEvolutionRegime = new OrganizationEvolutionRegime.

            myOrganizationEvolutionRegime set-myout to myOut.

            myOrganizationEvolutionRegime create-population.

            

            

            if DEBUG_VERBOSITY > 4: print "Pursuit.init exit".

            

      + to destroy:

            if DEBUG_VERBOSITY > 4: print "Pursuit.destroy enter".

            

            if myOrganizationEvolutionRegime: free
myOrganizationEvolutionRegime.

            myOut close.

            free myOut.

            super destroy.

            

            if DEBUG_VERBOSITY > 4: print "Pursuit.destroy exit".

 

}

_______________________________________________
breve mailing list
[email protected]
http://lists.spiderland.org/mailman/listinfo/breve