12
$canvas -> create('polygon',5,100,50,5,150,5,200,100,5,100, -stipple='transparent');
-command => \&show_popup