Tkx - messageBox Font für Message ändern - #167194 (Graphische Oberflächen)

JVBSOFT

2013-04-22 16:30

User since
2013-01-19
16 Artikel
BenutzerIn

user image

Ich habe heute noch einmal etwas getestet und eine Lösung gefunden.

Mit messageBox geht es nicht !!! Die messageBox kann wohl unter Linux einen anderen Font erhalten aber nicht unter MSWin und MacOS. Hier wird sie laut Beschreibung auf die nativen MessageBoxen umgeleitet.

http://wiki.tcl.tk/1062

Aber es geht folgendermaßen:

Code (perl): (dl )

      my $message = "Das Betriebssystem wird nicht unterstützt !\n'";

      Tkx::font_create( 'message_font', -family => 'Arial'      , -size => 12, -weight => 'bold' );
      Tkx::font_create( 'button_font' , -family => 'Courier New', -size => 10, -weight => 'bold' );

      Tkx::option_add( '*Dialog.msg.font'   , 'message_font' );
      Tkx::option_add( '*Dialog.Button.font', 'button_font'  );
      Tkx::option_add( '*Dialog.msg.wrapLength', '6i' );

      my $top = Tkx::widget->new(q{.});

      my $box = Tkx::tk___dialog( './message', 'System Fehler', $message, 'error', 'Beenden', ['Beenden'], );

Diese Version habe ich unter MSWin, Linux und MacOS getestet und sie macht das was sie soll.

Die Icons (error, warning usw.) sind etwas altbacken, sollten sich aber auch noch austauschen lassen.

Gruß
JVBSOFT