Font
[thread]5093[/thread]

inputbox?



<< >> 6 entries, 1 page
master
 2005-09-29 17:01
#44704 #44704
User since
2003-10-20
610 articles
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 articles
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 articles
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 articles
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 articles
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 articles
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 entries, 1 page



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