package Goe;


sub start
{
use Goe::CodeModel;
use Goe::Browser;

my $c = new Goe::CodeModel;

$c->loadDir('.');

use Gtk;

init Gtk;

my $browser = new Goe::Browser($c);

main Gtk;
}

# This is Goe, a smalltalk-like system for perl
# Currently mostly proof-of-concpet
# Though this is looking to be pretty good proof!
# Copyright (C) 2001 Brock Wilcox
# Released under the terms of the GNU GPL
# See www.gnu.org for details

1;