~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to t/balloon.t

• browse files at revision 3
• compare with another revision
• download diff
• download tarball
• view history from revision 3

Show diffs side-by-side

added

removed

t/balloon.t

4

4

use Test;

5

5

use Tk;

6

6

 

7

 

BEGIN { plan tests => 8 };

 

7

BEGIN { plan tests => 10 };

8

8

 

9

9

my $mw = Tk::MainWindow->new;

10

10

eval { $mw->geometry('+10+10'); };  # This works for mwm and interactivePlacement

44

44

eval { $balloon->configure(-motioncommand => \&motioncmd); };

45

45

ok($@, "", "Can't set motioncommand option");

46

46

 

 

47

my $lb = $mw->Listbox->pack;

 

48

$lb->insert("end",1,2,3,4);

 

49

eval { $balloon->attach($lb, -msg => ['one','two','three','four']); };

 

50

ok($@, "", 'Problem attaching message to Listbox items');

 

51

 

 

52

my $slb = $mw->Scrolled('Listbox')->pack;

 

53

$lb->insert("end",1,2,3,4);

 

54

eval { $balloon->attach($slb->Subwidget('scrolled'),

 

55

                        -msg => ['one','two','three','four']); };

 

56

ok($@, "", 'Problem attaching message to scrolled Listbox items');

 

57

 

47

58

## not yet:

48

59

#  $l->eventGenerate("<Motion>");

49

60

#  sub motioncmd {

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1