#!/usr/bin/perl -w -- 
# generated by wxGlade 0.4.1 on Sun Oct  5 17:16:22 2008
# To get wxPerl visit http://wxPerl.sourceforge.net/

use Wx 0.15 qw[:allclasses];
use strict;

package MyFrame;

use Wx qw[:everything];
use base qw(Wx::Frame);
use strict;

sub new {
	my( $self, $parent, $id, $title, $pos, $size, $style, $name ) = @_;
	$parent = undef              unless defined $parent;
	$id     = -1                 unless defined $id;
	$title  = "blah"             unless defined $title;
	$pos    = wxDefaultPosition  unless defined $pos;
	$size   = wxDefaultSize      unless defined $size;
	$name   = ""                 unless defined $name;

# begin wxGlade: MyFrame::new

	$style = wxDEFAULT_FRAME_STYLE 
		unless defined $style;

	$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
	$self->{object_2} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_MULTILINE);
	$self->{object_3} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_MULTILINE);
	$self->{object_5} = Wx::StaticText->new($self, -1, "blah", wxDefaultPosition, wxDefaultSize, );
	$self->{object_6} = Wx::ComboBox->new($self, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_DROPDOWN);
	$self->{object_8} = Wx::Button->new($self, -1, "Button1");
	$self->{object_9} = Wx::Button->new($self, -1, "Button2");

	$self->__set_properties();
	$self->__do_layout();

# end wxGlade
	return $self;

}


sub __set_properties {
	my $self = shift;

# begin wxGlade: MyFrame::__set_properties

	$self->{object_6}->SetSelection(-1);

# end wxGlade
}

# ... continued






sub __do_layout {
	my $self = shift;

# begin wxGlade: MyFrame::__do_layout

	$self->{object_1} = Wx::BoxSizer->new(wxVERTICAL);
	$self->{object_4} = Wx::FlexGridSizer->new(2, 2, 0, 0);
	$self->{object_7} = Wx::BoxSizer->new(wxHORIZONTAL);
	$self->{object_1}->Add($self->{object_2}, 1, wxEXPAND, 0);
	$self->{object_1}->Add($self->{object_3}, 1, wxEXPAND, 0);
	$self->{object_4}->Add($self->{object_5}, 2, wxEXPAND, 0);
	$self->{object_4}->Add($self->{object_6}, 0, wxEXPAND, 0);
	$self->{object_4}->Add(165, 0, 1, wxEXPAND, 0);
	$self->{object_7}->Add($self->{object_8}, 1, 0, 0);
	$self->{object_7}->Add($self->{object_9}, 1, 0, 0);
	$self->{object_4}->Add($self->{object_7}, 0, wxEXPAND, 0);
	$self->{object_4}->AddGrowableCol(0);
	$self->{object_1}->Add($self->{object_4}, 0, wxEXPAND, 0);

	# XXX it doesn't pack correctly because wxglade is incorrect
	#$self->SetAutoLayout(1);
	$self->SetSizer($self->{object_1});
	#$self->{object_1}->Fit($self);
	$self->{object_1}->SetSizeHints($self);
	$self->Layout();

# end wxGlade
}

package MyApp;
use base 'Wx::App';
sub OnInit {
  my $self = shift;
  my $frame = MyFrame->new;
    $frame->Show(1);
}

package main;

my $app = MyApp->new;
$app->MainLoop;

1;

package FreeTUIT::Example::SimpleEditor;

use warnings;
use strict;
use Carp;

use base 'FreeTUIT::Wx::frame';

use File::Fu;

=head1 NAME

FreeTUIT::Example::SimpleEditor - edit and save ascii text

=cut

# we override finish() as an OnInit - probably shouldn't be this way
my $title;
sub finish {
  my $self = shift;

  $self->SUPER::finish(@_);

  $title = $self->GetTitle;
  $self->set_filename('');
  $self->text0->SetFocus;
} ######################################################################

# accessor and policy for managing the current File::Fu::File
sub filename {shift->{filename}}
sub set_filename {
  my $self = shift;
  my ($file) = @_;

  $self->{filename} = $file;

  my $name = $file ? $file->file : '*unnamed*';
  $self->SetTitle("$title - $name");
} ######################################################################

=head1 Menu Events

=head2 menu_file_new

  $frame->menu_file_new($evt);

=cut

sub menu_file_new {
  my $self = shift;

  # TODO prompt about saving
  $self->text0->SetValue('');
  $self->set_filename(undef);
} ######################################################################

=head2 menu_file_open

  $frame->menu_file_open($evt);

=cut

sub menu_file_open {
  my $self = shift;

  my $dialog = Wx::FileDialog->new($self,
    "Choose a file",

    "",
    "",
    "*.*",
    Wx::wxOPEN()|Wx::wxFILE_MUST_EXIST(),
  );
  my $ok = $dialog->ShowModal;
  return() unless($ok == Wx::wxID_OK());

  my $file = File::Fu->file($dialog->GetPath);
  my $text = $file->read;
  $self->text0->SetValue($text);
  $self->set_filename($file);
} ######################################################################

=head2 menu_file_save

  $frame->menu_file_save($evt);

=cut

sub menu_file_save {
  my $self = shift;

  unless($self->filename) {
    my $dialog = Wx::FileDialog->new($self,
      "Enter filename",
      '',
      '',
      '*.*',
      Wx::wxSAVE()|Wx::wxOVERWRITE_PROMPT()
    );
    my $ok = $dialog->ShowModal; # XXX a focus nit?
    return() unless($ok == Wx::wxID_OK());
    $self->set_filename(File::Fu->file($dialog->GetPath));
  }

  $self->filename->write($self->text0->GetValue);
} ######################################################################

=head2 menu_file_quit

  $frame->menu_file_quit($evt);

=cut

sub menu_file_quit {
  my $self = shift;
  $self->Close;
} ######################################################################

=head2 menu_help_about

  $frame->menu_help_about($evt);

=cut

sub menu_help_about {
  my $self = shift;
  my $dialog = Wx::MessageDialog->new($self,
    "This is $title - a silly little demo for FreeTUIT\n\n" .
    "If you are using this for serious editing, have fun!"
  );
  $dialog->ShowModal;
} ######################################################################

1;