#!/usr/bin/perl -w
use strict;

package i_observation;
######################delete block ##########################

use Wx 0.15 qw[:allclasses];
use strict;
use warnings;
use Wx qw[:everything];
use Wx::Event qw( EVT_MENU );
use base qw(Wx::Frame);
use threads ();										# Used for multi-tasking ffmpeg
use Threads;										# Used in Timer to determine state of tasks

use base qw(Wx::Panel Class::Accessor::Fast);
__PACKAGE__->mk_ro_accessors( qw(html_help chm_help comboctrl) );


   
use Language::Prolog::Yaswi qw(:load :run :query);
use Language::Prolog::Types::overload;
use Language::Prolog::Sugar
	functors => {location_organ => 'location_organ',
		    location_segment => 'location_segment',
		    listsegments => 'listsegments',
		    listwalls => 'listwalls',
		    diagnosis => 'diagnosis' },
	chains => { orn => ';',
		    andn => ',',
		    add => '+' },
	vars => [qw (X Y Z)];
swi_init(qw(-nosignals -g true));

sub new{
.
.
.
#  other routines in the package
.
.
.
sub set_location_list{
	
.
.
.
.

	my @files = (t("/home/steve/Documents/i_prolog.pl"));
	swi_consult @files;
      

.
.
.
}