Thread OO-Button-Modul: für SDL (ab geht um OO) (37 answers)
Opened by master at 2006-03-31 19:08

master
 2006-04-03 12:45
#64258 #64258
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
Das  Problem ist, dass das Objekt irgendwie noch gar nicht existiert... :-(

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Aufruf:
    $SimpleButton = SimpleButton->new($id,$app,(65*$x),(25*$i),$img,$img2);


MODUL:

sub new {
    my $self = shift;

  $self->{ID} = shift;
  $self->{APP} = shift;
  $self->{X} = shift;
  $self->{Y} = shift;
  $self->{IMG} = shift;
  $self->{IMGHV} = shift;
  $self->{HV} = 0;
 
   my $Referenz = {};
   bless($Referenz,$self);



    print "  --  ",$self->{IMG}," ---";
    $self->draw($self->{IMG});

 
   return($Referenz);
}




sub draw
{
    my ($self, $img) = @_;
    print "IMG: $img";
}


Beide print-ausgaben sind leer.
(ob ich den Code nun mit shift, oder renee's vorschlage nutze :-( )\n\n

<!--EDIT|master|1144054030-->
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

View full thread OO-Button-Modul: für SDL (ab geht um OO)