006
28.01.2006, 20:10 Uhr
J-jayz-Z
Perl Crack ala Carte
(Operator)
|
Ich will einfach nur eine feste Größe des Hauptfensters setzen.
Aber die Widgets innerhalb werden nur angeziegt, wenn ich es etwas größer ziehe.
Na ja, Code wäre etwas "übertrieben". Es sind schon fast 800 Zeilen.
Aber ich bastel mal was, wo es auch passiert:
| C++: |
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
class bar extends JFrame implements ActionListener {
public static void main(String[] args) {
bar mw = new bar();
}
bar() {
super("Nix gehd ... :(");
addWindowListener( new WindowClosingAdapter( true ) );
setLocation( 100, 100 );
setSize( 200, 200 );
setVisible( true );
Container cp = getContentPane();
cp.setLayout( new GridLayout( 2, 2 ) );
cp.add( new JLabel("foo") );
}
public void actionPerformed( ActionEvent event ) { }
}
class WindowClosingAdapter extends WindowAdapter {
private boolean exitSystem;
public WindowClosingAdapter(boolean exitSystem) {
this.exitSystem = exitSystem;
}
public WindowClosingAdapter() {
this(false);
}
public void windowClosing(WindowEvent event) {
event.getWindow().setVisible(false);
event.getWindow().dispose();
if (exitSystem)
System.exit(0);
}
}
|
--
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="66756e2d736f66742e6465"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"' |
