Mehrzeilige Texte in Buttons?: geht das? (Graphische Oberflächen)

Crian

2003-08-08 14:24

User since
2003-08-04
5872 Artikel
ModeratorIn

Ist es möglich, Tk-Buttons mit mehrzeiligen Texten zu versehen?

Mit \n geht es jedenfalls nicht... oder nicht trivial.

Man kann natürlich ein Bild eines mehrzeiligen Textes darauflegen, aber das ist nicht das, was mir eigentlich vorschwebt, da dieser dann ev. auf anderen Systemen anders aussieht als der Text auf normalen Buttons. Oder ich müsste alle Buttons mit Text-Bildern versehen, was irgendwie etwas schwachsinnig ist.

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

Strat

2003-08-08 21:03

User since
2003-08-04
5246 Artikel
ModeratorIn

Bei mir funktioniert es mit \n, siehe Tk-Mines auf meiner HP...
z.B.

Code: (dl )

$text = "1\n2\n3";
$headline[$j] = $MainFrame->Button(
  -text => $text, -width => 2, -height => 6,
);

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2003-08-08 23:28

User since
2003-08-04
5872 Artikel
ModeratorIn

Verrückt ... ich probier mal ein minimales Beispiel zu machen wo es nicht geht... vielleicht hatte ich es heute Nachmittag aber auch mit /n statt \n versucht, keine Ahnung :D

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

Crian

2003-08-08 23:31

User since
2003-08-04
5872 Artikel
ModeratorIn

ich habs gerade mit

Code: (dl )

    $bf->Button(-text    => 'ab\ncd',
                -command => sub{print "\a"},
               )
         ->pack(-side    => 'right',
                -expand  => 1,
                -fill    => 'x',
               );

probiert, der Text war "ab\ncd" wörtlich, also nicht ab über cd...

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

Crian

2003-08-08 23:38

User since
2003-08-04
5872 Artikel
ModeratorIn

Also... dieses Programm

Code: (dl )

#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

use Tk;

my $mw = new MainWindow;
$mw->title('Button mit geteiltem Text?');

$mw->Button(-text    => 'ab\ncd',
            -command => sub{print "\a"},
           )
     ->pack(-side    => 'right',
            -expand  => 1,
            -fill    => 'x',
           );

MainLoop();

erzeugt bei mir diese Tk-Oberfläche:

http://www.duehl.de/lay_back/bilder/f/button_text....

Ich bin ja sooo doof ... es mit '...' zu versuchen - aua http://forum.ingame.de/diablo2/images/smilies/hamm...

Mit "..." siehts doch gleich viel besser aus:

http://www.duehl.de/lay_back/bilder/f/button_text2...\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

Relais

2003-08-09 01:21

User since
2003-08-06
2246 Artikel
ModeratorIn

und wie geht es in HTML Submit-Buttons?

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

Crian

2003-08-09 01:39

User since
2003-08-04
5872 Artikel
ModeratorIn

Die werden nicht in diesem Forum besprochen ;)

Keine Ahnung ehrlich gesagt... :(

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

Relais

2003-08-09 01:42

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=Crian,08.08.2003, 23:39]Die werden nicht in diesem Forum besprochen ;)[/quote]
ich weiß, aber es gibt noch immer kein Followup-to: hier... 8)

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

meier19

2009-02-26 02:08

User since
2009-02-03
73 Artikel
BenutzerIn

Wäre jemand so freundlich und würde die Lösung in einem vollständigen Code-Beispiel aufzeigen? Verstehe nicht, was mit "..." gemeint ist, um "ab" und "cd" untereinander hinzukriegen.

Der Mensch schöpft seine Gesetze nicht aus der Natur, sondern schreibt sie dieser vor (Immanuel Kant).

Crian

2009-02-26 13:55

User since
2003-08-04
5872 Artikel
ModeratorIn

Threadnekromantie! Das sieht so verhunzt aus, weil es aus dem alten Forum stammt.

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw = new MainWindow;
$mw->title('Button mit geteiltem Text?');

$mw->Button(-text    => "ab\ncd",
            -command => sub{print "\a"},
           )
     ->pack(-side    => 'right',
            -expand  => 1,
            -fill    => 'x',
           );

MainLoop();

Sollte es sein. Also einfach " sattt ', weil das \n innerhalb von ' nicht interpretiert wird.

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