免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
123下一页
最近访问板块 发新帖
查看: 14122 | 回复: 22

共享一些Gtk2-Perl源码 [复制链接]

论坛徽章:
0
发表于 2010-12-11 01:42 |显示全部楼层
本帖最后由 黑色阳光_cu 于 2010-12-11 02:27 编辑

以前写过的例子


简单的多标签记事本:
notebook.JPG
notebook.zip (2.72 KB, 下载次数: 1371)

论坛徽章:
0
发表于 2010-12-11 02:11 |显示全部楼层
本帖最后由 黑色阳光_cu 于 2010-12-11 02:21 编辑

在activeperl 5.10下装Gtk2-perl的办法:

1 装GTK2运行时:
http://gladewin32.sourceforge.net/

装    Gtk+ 2.12.9 Runtime Environment Revision 2 (7,206)
或者 Gtk+ 2.12.9 Development Environment Revision 2 (17,172KB)

2 安装Perl的Gtk2模块:
在cmd命令行下:
ppm repo add http://trouchelle.com/ppm10/
ppm install Gtk2

或者用ppm的图形前端,加源:
repo.JPG

然后就可以搜到Gtk2了:
search.JPG

简单的测试例子:
  1. #!/bin/env perl

  2. # helloGtk2.pl
  3. # appleii
  4. # newestbie@gmail.com

  5. use strict;
  6. use warnings;
  7. use Gtk2;
  8. use Glib qw(TRUE FALSE);
  9. use Win32 ();

  10. Gtk2->init();
  11. my $mw = Gtk2::Window->new();
  12. $mw->set_default_size(200, 200);

  13. my $vbox = Gtk2::VBox->new();
  14. my $hbox = Gtk2::HBox->new();
  15. my $btn = Gtk2::Button->new("Click me");

  16. # 几何管理
  17. $mw->add($vbox);
  18. $vbox->pack_start($hbox, TRUE, FALSE, 0);
  19. $hbox->pack_start($btn, TRUE, FALSE, 0);

  20. $btn->signal_connect(clicked => sub
  21. {
  22.         Win32::MsgBox("Hello Gtk2", 0, "Hello");
  23. });

  24. $mw->show_all();
  25. Gtk2->main();
复制代码

论坛徽章:
0
发表于 2010-12-11 02:36 |显示全部楼层
本帖最后由 黑色阳光_cu 于 2010-12-11 03:11 编辑

简易的html显示,自定义的gtk2-hypertextview:

gtk2-hyperview.JPG
  1. #!/bin/env perl

  2. use strict;
  3. use warnings;
  4. use Gtk2;
  5. use Glib qw(TRUE FALSE);
  6. use Gtk2::HyperTextView;

  7. Gtk2->init();
  8. my $window = Gtk2::Window->new("toplevel");
  9. $window->set_size_request(400, 400);

  10. my $vbox = Gtk2::VBox->new();
  11. my $hbox = Gtk2::HBox->new();

  12. my $sw = Gtk2::ScrolledWindow->new();
  13. $sw->set_policy("automatic", "automatic");
  14. my $hypertext_view = Gtk2::HyperTextView->new();

  15. $sw->add($hypertext_view);
  16. $vbox->pack_start($sw, TRUE, TRUE, 0);
  17. $vbox->pack_start($hbox, FALSE, FALSE, 0);
  18. $window->add($vbox);

  19. $window->signal_connect("delete-event" => sub {Gtk2->main_quit()});

  20. my $html = do { local $/; <DATA> };
  21. $hypertext_view->load_string($html);

  22. $window->show_all();
  23. Gtk2->main();

  24. __DATA__
  25. <html>
  26. <body bgcolor="white"></body>
  27. <img src="data:image/gif;base64,R0lGODlhUAAPAKIAAAsLav///88PD9WqsYmApmZmZtZfYmdakyH5BAQUAP8ALAAAAABQAA8AAAPbWLrc/jDKSVe4OOvNu/9gqARDSRBHegyGMahqO4R0bQcjIQ8E4BMCQc930JluyGRmdAAcdiigMLVrApTYWy5FKM1IQe+Mp+L4rphz+qIOBAUYeCY4p2tGrJZeH9y79mZsawFoaIRxF3JyiYxuHiMGb5KTkpFvZj4ZbYeCiXaOiKBwnxh4fnt9e3ktgZyHhrChinONs3cFAShFF2JhvCZlG5uchYNun5eedRxMAF15XEFRXgZWWdciuM8GCmdSQ84lLQfY5R14wDB5Lyon4ubwS7jx9NcV9/j5+g4JADs=" alt="British Blog Directory" width="80" height="15" />
  28. <img src="data:stock;gtk-ok" width=40 />
  29. <img src="file://gtk.png" />
  30. <br />
  31. <H1>header 1</h1>
  32. <h2>header 2</h2>
  33. <h3>header 3</h3>
  34. <h4>header 4</h4>
  35. <h5>header 5</h5>
  36. <h6>header 6</h6>
  37. <b>Bold String</b>
  38. <br>
  39. <i>Italic String</i>
  40. <br />
  41. <b><i>Bold Italic String</i></b>
  42. <br />
  43. <u>Underline String</u>
  44. <br />
  45. <p>Perl is a high-level, general-purpose, interpreted, dynamic programming language. Perl was originally developed by Larry Wall in 1987 as a general-purpose Unix scripting language to make report processing easier.[1][2]  Since then, it has undergone many changes and revisions and become widely popular amongst programmers. Larry Wall continues to oversee development of the core language, and its upcoming version, Perl 6.</p>
  46. <big>Big String</big>
  47. <br />
  48. <small>Small String</small>
  49. <br />
  50. <center><u><font color="blue" bgcolor="gray" size="60pt" family="Tahoma">Formatted String</font></u></center>
  51. <center><u><font color="red" size="30pt" family="Tahoma">Formatted String</font></u></center>
  52. </html>
复制代码

论坛徽章:
0
发表于 2010-12-11 08:04 |显示全部楼层
现在,做UI的,有多少人用GRK-2呢?

论坛徽章:
0
发表于 2010-12-11 13:09 |显示全部楼层
非常感谢
5.10装成功了 Gtk2
不知道哪儿有 提供 Gtk2::GladeXML的

论坛徽章:
0
发表于 2010-12-11 16:40 |显示全部楼层
学习了。。。

论坛徽章:
1
未羊
日期:2014-09-08 22:47:27
发表于 2010-12-11 21:53 |显示全部楼层
现在,做UI的,有多少人用GRK-2呢?
2gua 发表于 2010-12-11 08:04



    那么用最多的UI库又是什么呢?

论坛徽章:
0
发表于 2010-12-11 21:57 |显示全部楼层
回复 7# wxlfh


    现在,基本都做Web UI了。

论坛徽章:
0
发表于 2010-12-12 00:27 |显示全部楼层
Web UI怎么做呢?

论坛徽章:
0
发表于 2010-12-12 13:13 |显示全部楼层
回复 9# kingwmj


    用HTML/JS/CSS、JQuery、ExtJS、Flex、Silverlight......等等纷繁复杂、眼花缭乱的技术。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP