Re: [Shellweb-main] Re: [Shellweb-main] =?GB2312?B?6lDstohExqy94g==?= =?GB2312?B?4YyGlu59?=
Status: Alpha
Brought to you by:
alexe_cn
|
From: Anthony WU <ant...@gm...> - 2005-12-25 17:01:34
|
汗...才的那段是我第一次GTK(著perl-GTK 的例作修改而已)...我GUI
有感冒的...只在VB 上GUI而已...
但是即即用方面我比可以吧...
ale...@gm... 提到:
>Anthony WU ,不好意思,抱歉,这两天都在休息白天没太工作,你稍微慢一下,由于程序大结构还没写完,所以你现在的代码很有可能无法正常使用。
>TK模组很早我就关注了,但是根据我的测试它的显示效果,易用性后期的延展等各方面都不利于建造一个成熟软件。我们是使用gtk2-perl来写,后期我们可以有能力变换底层的显示,例如使用cairo,更容易显示向量图形等等,毕竟这是现在持续开发的项目,比tk这种老古董要好的多。
>
>还有,我看你对gtk2-perl挺熟的,是吗?如果可以的话那就专门写显示支持的部分如何?
>如果你认为可以的话,咱们可以专门的讨论一下关于这方面如何来写,然后我们再动手。
>其他的工作方面有http数据的收发(https的支持,proxy的支持),
>html数据的解析。
>
>明天我就可以正式的工作了,我是这个项目的全职,所以时间充裕,我现在在整理目录。
>
>2005/12/26, Anthony WU <ant...@gm...>:
>
>
>>在所使用的 my $buffer=Gtk2::TextBuffer->new(); 不支援片示,估要重
>>我的片解概念代是
>>
>>##################################
>>use Gtk2 -init;
>>use LWP::UserAgent;
>>my $ua = LWP::UserAgent->new ();
>>$ua->timeout (30);
>>
>>my @question_xpm = (
>>'24 24 12 1',
>>' c Black',
>>'. c #b2b2b2',
>>'X c Gray100',
>>'o c #808080',
>>'O c #c0c0c0',
>>'+ c #008000',
>>'@ c Green',
>>'# c Blue',
>>'$ c Red',
>>'% c Cyan',
>>'& c Magenta',
>>'* c #000080',
>>' .',
>>' XXXXXXXXXXXXXXXXXXXXXX.',
>>' XXXXXXXXXXXXXXXXXXXXXX.',
>>' XXXXXXXXXXXXXXXXXXXXXX.',
>>' XXX oXXXXXXXX.',
>>' XXX XXXXXXXXXooXXXXXXX.',
>>' XXX XOOOOOOOOoXoXXXXXX.',
>>' XXX XOOO++OOOoXXoXXXXX.',
>>' XXX XOO+@+ OO XXXXX.',
>>' XXX XOO+++ OOOOX XXXXX.',
>>' XXX XOOO OOOOOX XXXXX.',
>>' XXX XOOOOOO### XXXXXXX.',
>>' XXX XO$OOOO#%# XXXXXXX.',
>>' XXX XO&$OOO##*XXXXXXXX.',
>>' XXX XO&&$OO XXX XXXXX.',
>>' XXX XO&&&$OXXXOX XXXXX.',
>>' XXX XO XXXXXOX XXXXX.',
>>' XXX XOOXXXXXOOOX XXXXX.',
>>' XXX XXXXXXXXXXXX XXXXX.',
>>' XXX XXXXXX XXXXX.',
>>' XXXXXXXXXXXXXXXXXXXXXX.',
>>' XXXXXXXXXXXXXXXXXXXXXX.',
>>' XXXXXXXXXXXXXXXXXXXXXX.',
>>' .......................');
>>my $pixbuf_from_xpm_data = Gtk2::Gdk::Pixbuf->new_from_xpm_data
>>(@question_xpm);
>>$dlg = Gtk2::Dialog->new ();
>>my $hbox = Gtk2::HBox->new ();
>>my $entry = Gtk2::Entry->new ();
>>$entry->set_text ('http://www.perl.com/images/75-logo.jpg');
>>$hbox->pack_start ($entry, 1, 1, 0);
>>my $button = Gtk2::Button->new_from_stock ('gtk-apply');
>>$button->can_focus (0);
>>$button -> signal_connect ('released', \&get_url_content);
>>$hbox->pack_start ($button, 0, 0, 0);
>>$dlg->vbox->add ($hbox);
>>$dlg->add_button ('gtk-close' => 'close');
>>$dlg->show_all ();
>>$dlg->run ();
>>
>>
>>sub getimg
>>{
>>my $file = shift;
>>my $a;
>>eval ('$a = Gtk2::Gdk::Pixbuf->new_from_file ($file);');
>>if ($@)
>>{
>>return $pixbuf_from_xpm_data;
>>} else {
>>return $a;
>>}
>>}
>>
>>sub get_url_content
>>{
>>my $url = $entry->get_text ();
>>my $resp = $ua->get ($url);
>>unless ($resp->is_success ())
>>{
>>my $error_dialog = Gtk2::MessageDialog->new (undef, 'modal', 'error',
>>'close', 'File not found!');
>>if ($error_dialog->run ())
>>{
>>$error_dialog->destroy ();
>>}
>>return ;
>>}
>>my $file = $resp->content;
>>$url = unpack ('H*', $url);
>>$url =~ s/(..)/\%$1/g;
>>open (my $FILE, '>', $url);
>>binmode ($FILE);
>>print $FILE $file;
>>close ($FILE);
>>$dlg->vbox->add (Gtk2::Image->new_from_pixbuf (&getimg ($url)));
>>$dlg->show_all;
>>return ;
>>}
>>##################################
>>
>>
>>
>>
>>#提外,什不直接使用 Tk 模呢?
>>
>>
>>-------------------------------------------------------
>>This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
>>for problems? Stop! Download the new AJAX search engine that makes
>>searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
>>http://ads.osdn.com/?ad_id=7637&alloc_id=16865&op=click
>>
>>
>>
>>
>
>
>--
>+--------------------------------------------+
> |By Alexe (http://www.alexe.cn)|
>+--------------------------------------------+
>NY薜'
>蕈㈣!kC 濉蘩@^^j!2㈥澧辨,悍a{,H蛟4i(辟堍o'锃Yhr'庄:rX===
>
|