Nochmal Subwidget (Graphische Oberflächen)

[thread]5305[/thread]

Nochmal Subwidget

Leser: 1

pktm

2007-03-13 18:24

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich habe da ein Widget:
my $scrframe = $mw->Scrolled('Frame', -scrollbars => 'se',);

Die 2 Dinge die ich brauche:
1. Wie komme ich an alle Kinder des Frames?
2. daher: Wie komme ich da jetzt an das Frame?

Ich habe es jetzt mit Subwidget('frame') versucht, das liefert nichts zurück (wirklich nichts, print Dumper $scrframe liefert NICHTS, nicht einmal ein $VAR1 = undef; oder so).
Entsprechend funktioniert natürlich auch $scrframe->Subwidget('frame')->children() nicht.

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

GoodFella

2007-03-13 21:59

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

Subwidget setzt voraus, dass die Unterwidgets advertised sind.

Suchst du vielleicht das hier?

http://search.cpan.org/~srezic/Tk-WidgetDump-1.29/lib/Tk/WidgetDump.pm

Ich erinnere mich, ich hatte damals mal Probleme mit der Installation, es _geht_ aber, weil ich dann doch hinbekommen habe ^^

ptk

2007-03-14 00:38

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

1: $widget->children()
2: $child->parent()

pktm

2007-03-14 01:49

User since
2003-08-07
2921 Artikel
BenutzerIn

[quote=ptk,13.03.2007, 23:38]1: $widget->children()
2: $child->parent()[/quote]
Probier mal folgenden Code:

Code: (dl )

#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use Perl6::Say;
use Tk;
use Tk::Pane;

my $mw = Tk::MainWindow->new();

my $sf = $mw->Scrolled(
    'Frame',
    -scrollbars => 'se',
    -bg => 'green',
)->pack();

my $wasmussichhiereinsetzen = 'frame'; # ???
say ref $sf->Subwidget($wasmussichhiereinsetzen);

$mw->MainLoop();

Ich bekomme das Frame nicht.
Eventuell stehe ich ja auch mit dem Namen auf der Leitung.
Tk::Frame, Tk::Pane, Frame, Pane, .frame und frame bringen kein Ergebnis.

http://www.intergastro-service.de (mein erstes CMS :) )

renee

2007-03-14 08:55

User since
2003-08-04
14371 Artikel
ModeratorIn

Schonmal

Code: (dl )

$sf->children();

versucht?

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/

Arkhen2

2007-03-14 09:50

User since
2005-03-11
25 Artikel
BenutzerIn
[default_avatar]

Oder so ?

Code: (dl )

#!/Perl/bin/perl
use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use Tk;
use Tk::Pane;

my $mw = Tk::MainWindow->new();

my $sf = $mw->Scrolled(
   'Frame',
   -scrollbars => 'se',
   -bg => 'green',
)->pack();

my $lb = $sf->Label(-text=>'Text')->pack();

for($sf->{'SubWidget'}{'scrolled'}->packSlaves){
    $_->configure(-text=>'neu');  
}

$mw->MainLoop();

View all threads created 2007-03-13 18:24.