高级点了的notify

Python/PHP/Perl 开发与设计
回复
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

高级点了的notify

#1

帖子 eexpress » 2011-05-06 22:34

代码: 全选

● cat test.pl 
#!/usr/bin/perl -w
use Glib;

use Net::DBus::GLib;
my $loop = Glib::MainLoop->new();

my $bus = Net::DBus::GLib->session->get_service('org.freedesktop.Notifications')->get_object('/org/freedesktop/Notifications','org.freedesktop.Notifications');
$bus->connect_to_signal('ActionInvoked', \&callback_notification_action);

$bus->Notify("flash", 0, "sunny", "notify", "共获取个地址。", 
[touch=>"打开", ignore=>"忽略",], {}, -1);

$loop->run();

sub callback_notification_action {
	my ($id, $action) = @_;
	`echo "open" >~/tmp`;
	print "id=$id\n";
	if ($action eq 'touch'){
#my $bus = Net::DBus->session->get_service('org.freedesktop.Notifications')->get_object('/org/freedesktop/Notifications','org.freedesktop.Notifications');
#$bus->Notify("flash", 0, "sunny", "notify", "open", [],{}, -1);
	`echo "touch" >>~/tmp`;
	}
	$loop->quit();
}
附件
flash_001.png
flash_001.png (15.57 KiB) 查看 673 次
● 鸣学
头像
月下叹逍遥
论坛版主
帖子: 33994
注册时间: 2010-10-07 14:23
系统: Archdows10
来自: 某系某星某洲某国某省某市
送出感谢: 8 次
接收感谢: 63 次
联系:

Re: 高级点了的notify

#2

帖子 月下叹逍遥 » 2011-05-06 22:34

不懂…… :em06
心似浮云常自在,意如流水任东西。
此事背后一定有个天大的咪咪
广告:
1、走过路过,不要错过,dropbox网盘2.25G大放送
py大法好,退C保平安
java多妖孽,VB本异端
日诵一千遍,快活似神仙
头像
acer4740
帖子: 1405
注册时间: 2010-09-13 19:04
来自: 0xFF00EE
送出感谢: 1 次
接收感谢: 3 次

Re: 高级点了的notify

#3

帖子 acer4740 » 2011-05-06 22:49

我怎么看是个对话框,连关闭按钮都有
回复

回到 “Python/Php/Perl”