Optionmenu aussehen und zugriff? (Graphische Oberflächen)

master

2005-09-23 16:47

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

1. Wie greiffe ich auf den aktuellen Wert der Dropdown bzw. des Optionmenus zu?

Code: (dl )

1
2

print $dropdown->get(-variable); #geht nicht
print $dropdown->variable;   #geht nicht

2. Wie kann ich das ausehen vom Optionmenu auf den windows-style setzen

3. welchen TK-Editor(perl) würdet ihr mir empfehlen?
benutze grad zooz und bin vom TikiArtist(mist) bischen enttäuscht

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

renee

2005-09-23 17:03

User since
2003-08-04
14371 Artikel
ModeratorIn

Du solltest besser CPAN:

Tk::BrowseEntry benutzen, aber für Dein 1. Problem:

Code: (dl )

    use Optionmenu;

my $selected;

    $opt = $w->Optionmenu(
                        -options => [$val1,$val2,$val3],
                        -command => sub{ print $selected,"\n"},
                        -variable => \$selected,
                        );

print "Ausgewählt: $selected\n";

zu den anderen Sachen kann ich Dir nix sagen. Ich benutze nur einen normalen Texteditor zum Programmieren (auch für Tk)...

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/

master

2005-09-23 17:40

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Ok, hat geklappt...

Kennst Du ev. auch eine art Inputbox?
Wie messagebox, nur Benutzer soll einen Text eingeben können, welcher dann zurück geliefert wird.
Also neues Fenster?

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

Crian

2005-09-23 17:48

User since
2003-08-04
5871 Artikel
ModeratorIn

1. rtfm (Du wirst ja wissen, was genau Du da verwendest -> perldoc)
2. keine Ahnung, wie sehen denn Optionenmenüs unter Windows aus?
3. Vim\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

master

2005-09-23 18:04

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

1. renee hat mir da bereits weiter geholfen
2. Beim InternetExplorer hat es eine Leiste "Adresse" bei der man die URL eingeben kann.. dies ist eine Dropdown..
naja eine Kombination aus Dropdown und Eingabefeld
3. Vim ist leider kein grafischer Editor für Perl TK.. :-(

Stehe bischen unter Druck...
das Zooz ist ganz gut.. aber Tk::BrowseEntry müsste ich wieder manuell einfügen :-(

@renee hast du ev. irgendwo ein kleinen Beispielcode für das modul(Tk::BrowseEntry )?

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

renee

2005-09-23 19:11

User since
2003-08-04
14371 Artikel
ModeratorIn

bei

Tk::BrowseEntry ist das ein Eingabefeld mit Dropdown kombiniert.

Was meinst Du mit "manuell einfügen"??

Code kommt gleich...

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/

renee

2005-09-23 19:18

User since
2003-08-04
14371 Artikel
ModeratorIn

Hier ein Beispielcode:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;

my $mw = tkinit;
my $var;
my $browse = $mw->BrowseEntry(
                               -variable => \$var,
                               -command  => sub{print "gewaehlt: $var\n"},
                             )->pack();

for(qw/master renee crian ptk relais/){
  $browse->insert('end',$_);
}

MainLoop;

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/

Crian

2005-09-23 19:27

User since
2003-08-04
5871 Artikel
ModeratorIn

[quote=master,23.09.2005, 16:04]2. Beim InternetExplorer hat es eine Leiste "Adresse" bei der man die URL eingeben kann.. dies ist eine Dropdown..
naja eine Kombination aus Dropdown und Eingabefeld
3. Vim ist leider kein grafischer Editor für Perl TK.. :-([/quote]
Internet Explorer? Igitt ... aber ich weiß was Du meinst. Das ist aber kein Optionenmenü :)

Ok, Du suchst einen Klicki-Bunti-Oberflächenbaukasten? Da kenn ich leider keinen. Allerdings seh ich für Perl/Tk nicht so richtig den Sinn (im Gegensatz zu C++/MVC z.B.).

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2005-09-24 16:15

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=Crian,23.09.2005, 17:27]Internet Explorer? Igitt ... aber ich weiß was Du meinst. Das ist aber kein Optionenmenü :)[/quote]
Das ist ein BrowseEntry ;)

Auf dem letzten Perl-Workshop hat Bernd Dulfer "RIPS" vorgestellt, mit dem man so Oberflächen zusammenklicken können soll. Ich weiß allerdings nicht, wie weit er mit dem Projekt ist...

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/

J-jayz-Z

2005-09-25 17:16

User since
2005-04-13
625 Artikel
BenutzerIn

[quote=master,23.09.2005, 16:04]3. Vim ist leider kein grafischer Editor für Perl TK.. :-([/quote]
Es gibt eine GUI für VIM. heißt gVim

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de