File: ca_i18n.t

package info (click to toggle)
libqt-perl 3.008-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 4,204 kB
  • ctags: 1,367
  • sloc: perl: 16,531; sh: 9,686; cpp: 6,711; makefile: 125
file content (23 lines) | stat: -rw-r--r-- 326 bytes parent folder | download | duplicates (3) 
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 Qt;

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

{
  use bytes;
  $pb->setText( "lgant" );

  $b = $pb->text();
  $b2 = Qt::Widget::tr("lgant");
}


$c = $pb->text();
$c2= Qt::Widget::tr("lgant");

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