view release on metacpan or  search on metacpan

t/test_notify.pm  view on Meta::CPAN

   elm_notify_orient_set($notify2, ELM_NOTIFY_ORIENT_BOTTOM);
   elm_notify_timeout_set($notify2, 5);

   $bx = elm_box_add($win);
   elm_notify_content_set($notify2, $bx);
   elm_box_horizontal_set($bx, 1);
   evas_object_show($bx);

   $lb = elm_label_add($win);
   elm_label_label_set($lb, "Bottom position. This notify use a timeout of 5 sec.<br>" .
	 "<b>The events outside the window are blocked.</b>");
   elm_box_pack_end($bx, $lb);
   evas_object_show($lb);

   $bt = elm_button_add($win);
   elm_button_label_set($bt, "Close");
   evas_object_smart_callback_add($bt, "clicked", \&_bt_close, \$notify2);
   elm_box_pack_end($bx, $bt);
   evas_object_show($bt);

   $bt = elm_button_add($win);