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

inputbox?



<< >> 6 Einträge, 1 Seite
master
 2005-09-29 17:01
#44704 #44704
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
ich brauche dringend einen Code für eine art inputbox..

also ein kleines popup, das aufgeht ähnlich wie messagebox.
bei dem der user dann TEXT eingibt.. und es diesen zurückliefert


gibts das überhaupt für TK?
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
DocJunioR
 2005-09-29 17:52
#44705 #44705
User since
2005-08-29
53 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
$dialog = $window->Dialog(    -title => "Dateneingabe",-default_button => 'Speichern',    -buttons    => 'Speichern', 'Abbrechen'],);
$dialog->add('LabEntry', -label="Eingabe", -textvariable = \$data);

if ($dialog->Show() eq 'Speichern')
{
   &do_something_on($data);
}

sowas?
master
 2005-09-29 18:45
#44706 #44706
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
ja so in der art..

:-)
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
master
 2005-09-29 19:06
#44707 #44707
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
Kannst du mir ev denn code so umbauen das er geht?
mein mainwindow heisst: "$mw"
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
Strat
 2005-09-29 20:05
#44708 #44708
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=master,29.09.2005, 17:06]Kannst du mir ev denn code so umbauen das er geht?
mein mainwindow heisst: "$mw"[/quote]
was geht denn nicht? hast du $window durch $mw ersetzt? was kommen fuer fehlermeldungen?

Wenn du willst,
dass man dir hilft,
sorg auch dafür,
dass man dir überhaupt helfen kann
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
master
 2005-09-30 10:22
#44709 #44709
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
habs nun selber zusammengebastelt...

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    my $data = '';

    my $DialogRef = $mw->Dialog(
            -title          => 'Neue Kategorie...',
            -text           => '',
            -bitmap         => '',
            -default_button => 'Hinzufügen',
            -buttons        => ['Hinzufügen','Abbrechen'],
        );

    my $Entry140 = $DialogRef->Entry(-textvariable => \$data, -relief => "sunken",);
    $Entry140->place( -x => 8, -y => 15, -height => 20, -width => 130);

      if ($DialogRef->Show() eq 'Hinzufügen')
      {
        print "\n\n  DATEN: $data";
      }
\n\n

<!--EDIT|master|1128061446-->
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
<< >> 6 Einträge, 1 Seite



View all threads created 2005-09-29 17:01.