# Dialog.pm
#
# Copyright (c) 2002 Cunningham & Cunningham, Inc.
# Released under the terms of the GNU General Public License version 2 or later.
#
# Perl translation by Dave W. Smith <dws@postcognitive.com>

package Dialog;

use lib qw(../../Fit);		#TBD development hack

use base qw(Fixture);
use strict;

sub new {
    my $pkg = shift;

    return bless { message => $_[0],
                   caller => $_[1],
                   @_ }, $pkg;
}

sub message {
    my $self = shift;

    return $self->{'message'}
}


sub ok {
    my $self = shift;
    if ( $self->{'message'} eq "load jamed" ) {
	MusicPlayer::stop();
    }
    $ActionFixture::actor = $self->{'caller'}
}

1;

=for Java
// Copyright (c) 2002 Cunningham & Cunningham, Inc.
// Read license.txt in this directory.

package eg.music;

import fit.*;

public class Dialog extends Fixture {
    String message;
    Fixture caller;

    Dialog (String message, Fixture caller) {
        this.message = message;
        this.caller = caller;
    }

    public String message() {
        return message;
    }

    public void ok () {
        if (message.equals("load jamed"))   {MusicPlayer.stop();}
        ActionFixture.actor = caller;
    }

}
=cut
