sub Popup{
  my ($mw, $obj) = @_;
  my $menu = $mw->Menu(-tearoff=>0, -menuitems=>[
	[ checkbutton => "My Checkbox",
		-variable   => \$var1,
		-onvalue    => '1',
		-offvalue   => '0',
		-compound   => 'left',
		-command    => [ sub { doSomething($var1) }, $obj ]
	],
	]);
	$obj->menu($menu);
	$obj->bind('<ButtonPress>', ['PostPopupMenu', Ev('X'), Ev('Y'), ]);
	return $obj;
}