--- M6502/Screen.pm	2007/07/31 13:56:50	55
+++ M6502/Screen.pm	2007/07/31 15:03:23	56
@@ -11,8 +11,8 @@
 
 use Carp qw/confess/;
 
-use base qw(Class::Accessor);
-#__PACKAGE__->mk_accessors(qw(debug scale show_mem trace app));
+use base qw(Class::Accessor Prefs);
+__PACKAGE__->mk_accessors(qw(app));
 
 =head1 NAME
 
@@ -29,6 +29,8 @@
 sub open_screen {
 	my $self = shift;
 
+	$self->prefs;
+
 	if ( ! $self->scale ) {
 		$self->scale( 1 );
 		warn "using default unscaled display\n";