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

ギコタクの「だから逝ってないでしょ」出張所 (427ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

35: _gunzip [_crescent] 2001/06/18(月) 08:42 ID:???

>>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);
}
---------------------------------------

http://medaka.5ch.io/test/read.cgi/php/991966646/35

上下前次 1-新書関写板覧索設栞歴

あと 372 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.023s