PerlTQt/t/ca_i18n.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

BEGIN { print "1..1\n" }

use TQt;

$a = TQt::Application();
$pb=TQt::PushButton("Foooo", undef);

{
  use bytes;
  $pb->setText( "�l�gant" );

  $b = $pb->text();
  $b2 = TQt::Widget::tr("�l�gant");
}


$c = $pb->text();
$c2= TQt::Widget::tr("�l�gant");

{
  use bytes;
  print +($b ne $c and $b2 ne $c2) ? "ok 1\n":"not ok\n";
}