Open in Tk: Wie kann man im TK etwas öffnen? (Graphische Oberflächen)

[thread]5206[/thread]

Open in Tk: Wie kann man im TK etwas öffnen?

lichtkind

2006-06-09 09:57

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

durch hinschreiben :) . wenn du in einem neuen fenster es ausgeben willst, schätz ich muss du dort befehl eintragen um neues fensert zu öffnen und dem das ergebnis deines befehls geben. (ka von Tk)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

2006-06-09 13:46

User since
2003-08-04
12208 Artikel
Admin1

was hat das denn mit CGI zu tun? gehört in graphische oberflächen. *verschieb*

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Gast Gast

2006-06-09 09:23

Wie kann man eigentlich im TK etwas ausgeben bzw. eine Nachricht(sowie in Javascript),bsp.:

Code: (dl )

use strict;
use Tk;

........
$.. = $x->Label(-command=> sub { [HIER MEIN BEFEHL] })

Wie kann ich dort wo "HIER MEIN BEFEHL" steht,einen Befehl zum öffnen einer Datei bzw. in einem neuen Fenster eine neue Nachricht ausgeben?

Gruß adlerr

ptk

2006-06-09 10:24

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Label kennt kein -command, nur Button.

Gast Gast

2006-06-09 15:30

[quote=ptk,09.06.2006, 08:24]Label kennt kein -command, nur Button.[/quote]
Da war doch dieser Code:

Code: (dl )

my $Hallo = $frame ->Button(-text=> 'Klick mich!', -command=> sub { print $nw; })->pack();

nur habe ich mich geirrt.
Nur warum geht das nicht?

renee

2006-06-09 15:42

User since
2003-08-04
14371 Artikel
ModeratorIn

Was geht nicht?? Irgendwelche Fehlermeldungen?

Das hier sollte gehen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();
my $button = $mw->Button(-text => 'open a file', -command => \&open_file)->pack();

MainLoop;

sub open_file{
  my $file = $mw->getOpenFile();
  print $file if(defined $file);
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Gast Gast

2006-06-09 22:05

[quote=renee,09.06.2006, 13:42]Was geht nicht?? Irgendwelche Fehlermeldungen?

Das hier sollte gehen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();
my $button = $mw->Button(-text => 'open a file', -command => \&open_file)->pack();

MainLoop;

sub open_file{
  my $file = $mw->getOpenFile();
  print $file if(defined $file);
}

[/quote]
Ich habe diesen Script ausprobiert,nur meinte ich,dass sich ein neues TK Fenster öffnet.
So :

Code: (dl )

my $ddd = MainWindow->new();

aus diesem Code wollte ich noch ein zweites MainWindow öffnen,sobald man auf irgendwas bestimmtes klickt.

Gruß Adlerr

ptk

2006-06-09 23:30

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Wenn du ein neues Fenster öffnen willst, dann benutz lieber ein Toplevel anstelle eines neuen MainWindows.

View all threads created 2006-06-09 09:57.