ギコタクの「だから逝ってないでしょ」出張所

>>14
Perlでブラウザって作れるんですか？（厨房質問ｽﾏｿ ﾃﾞﾓ知りたいの）
どこかにサンプル無いですか？

>>15
perlだからブラウザ作れないって事はないと思うぞ。
ウインドウベースにするとめんどくさそうだが・・・・
作ってみようかなー。

>>15
http://fsinfo.cs.uni-sb.de/~abe/wApua/

>>16
目から鱗がボロボロと出てきました。
作ってみてくださいよ〜
>>17
ありがとうございます。これカッコイイかも…

>>17
そのページの下にあるスクリプトが最高。

% perl
$$=42;$_=qq 93233313242132627322017304228173024422013152317309;while(!!$_){$:=
$|++;s$[1-4][0-8]$$e;$==$&;$\=pack c,$;=$|.$:;$=+=$=!=$$?$$:-$=-$;;$,=$=+$$;$@
.=pack c,$!!=$$-$;?!!$!!=$:?$=+$$:$,-$$:$,^$|<<chr$;+$|+$$;$!=$,;$|=$:}print$@

Just Another Perl Hacker

>>20
ｶｺｲｲﾅ…

＞＞１７
Perlを侮っていた…

>>17
むむ。
使ってみたいですがActevPerlだとうまくいかないっぽいです…無念。

# まずmakeは失敗
# binでperl -Mlib=../ wApuaでも動かず…

しかしこれならPerlによる2chブラウザも夢ではないような…(笑)

ブラウザじゃなくて2chクライアントを作ろうぜ。

>いかんせんTixGridウィジェットが重たすぎる.......。
Listbox並べればｲｲだけか。

>>27
>ちなみに、かちゅーしゃライクなポップアップは$TextWidget->tagBind()で簡単に実装できるよ。
もっと詳しく教えて_gunzipたん

>>34
一例だよ。
---------------------------------------
#!/usr/bin/perl -w

use Tk;
use strict;

our $mw = MainWindow->new();
our $text = $mw->Scrolled('Text', -scrollbars => 'e')->pack(-expand => 'yes', -fill => 'both');

our $pop_message = $text->Message(
    -background => 'white',
    -relief => 'raised',
    -foreground => 'blue',
    -text => "the straight-line distance as the crow flies.\n(Euclid: fl 370 B.CE)"
);

#make 'desc' tag
$text->tagConfigure('desc', -foreground => 'blue');
$text->tagBind('desc', '<Enter>', [\&popup, Ev('x'), Ev('y')]);
$text->tagBind('desc', '<Leave>', sub { $pop_message->placeForget() } );

$text->insert('end',"There are many ways to define the distance between two points. the most intuitive and common definition is ");
$text->insert('end', "Eucidean distance", 'desc');

MainLoop;

sub popup{
my($x, $y) = @_[1,2];
$pop_message->place(-x => $x, -y => $y);
}
---------------------------------------

今度新しく5,000サイトとの共有を目指す
宣伝掲示板、その名もおりーぶおじさんの
超共有宣伝掲示板を設置しました。是非み
なさん、共有してください。先着50名様だ
けバナーリンクします。26番目の掲示板と
して設置してますので、そこをクリックして
参加の方法を見て早くご参加くださいませ。

おりーぶおじさんのホームページ
http://home9.highway.ne.jp/cym10262/

>>35
なるほどーサンクスｖ
Perl/Tkって面白いな♪

わー本当に作ってくれたんですか！ありがとうですです。
とりあえず使ってみた感想…
を書こうとしたら031の方はメニューは大丈夫なんだけど下の部分が文字化け。（うちの設定が悪いんかな？）
033の方はなんかWidget.pmとAfter.pmがbad anchor positionだと怒られる…
んー厨房ですまんです。。

age

なんでだろう？
うちだと動いてるけど。
Tkが4.x系統だったりしないよねぇ？

っつーか誰も反応ないから破棄しようかと思ってたんだが（ｗ
これからLinuxにもTk入れてみるか・・・・

あーなんかMakeにやたら時間かかった。さすがPentium133だけのことはあるな。
そりゃともかく、うちでは31も33もちゃんと動いたぞ。
Linuxだとすごい勢いで文字化けしてた風だけど、半角カナのせいみたい。
どうしたらいいんだろ・・・・
文字がずれるのはモナーフォントとか入れてもらうとして。

>>45
とりあえず $textfont = ... と $menufont = をいじってみてー。

>>48
そんなにリンク地味だった？（ｗ