my $menu = $mw->Menu(-tearoff=>0, -postcommand => sub { return if $obj->getSelected eq "" }, -menuitems=>[
	[command=>$messagePopupSave, -command=>[sub {
        my $UserInput=$obj->getSelected;
        print $UserInput;
		}, $obj,]],
	[qw/command Copy/, -command=>['clipboardCopy', $obj,]],
	]);