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'], );