Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Graphische Oberflächen
[thread]5305[/thread]

Nochmal Subwidget

Leser: 1


<< >> 6 Einträge, 1 Seite
pktm
 2007-03-13 18:24
#46264 #46264
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
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
#46265 #46265
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
#46266 #46266
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
1: $widget->children()
2: $child->parent()
pktm
 2007-03-14 01:49
#46267 #46267
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
[quote=ptk,13.03.2007, 23:38]1: $widget->children()
2: $child->parent()[/quote]
Probier mal folgenden Code:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/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
#46268 #46268
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
#46269 #46269
User since
2005-03-11
25 Artikel
BenutzerIn
[default_avatar]
Oder so ?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/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();
<< >> 6 Einträge, 1 Seite



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