というわけでついでにもうひとつ。
すみませんすみません。
今度はsageレスのみで逝ってみます。
すみません。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
定期書き込み。
答えの半分はラウンジで出たようだ。
取り敢えず実験は終了と致します。
いずれ表に出ると思いますがご自由に再利用して下さい。
15 :
名無しさん@お腹いっぱい。:2001/04/19(木) 20:51 ID:2F6bVvP6
表にでたーよ
定期書き込み。
17 :
名無しさん@お腹いっぱい。:2001/05/25(金) 02:11 ID:4DPA4vRI
1の主治医はどこ?
1が脱走するときに殺害しました。
testかきこみ
ergergergergergerger1
aaaaaaaaaaaaaaa0
sasasasasasasasasas2
aaa1
aaa4
rthrthrth
[ioly;yio
test!
sub writeres{
my $wf = $mw->Toplevel;
my $now = $f->{nowtab};
$wf->title($now->{name} .jcode("にレス")->sjis);
#----------------------------#
$wf->Label( -text => "Subject: ")
->form( -top => '%3', -left => '%3', -right => '%15');
$wf->Entry( -font => $textfont , )
->form( -top => '%3', -left => '%15', -right => '%65' )
->insert('0.0', $now->{name} );
#----------------------------#
$wf->Label( -text => "Name: " )
->form( -top => '%10', -left => '%3', -right => '%10' );
my $namef = $wf->Entry( -font => $textfont )
->form( -top => '%10', -left => '%10', -right => '%35' );
#----------------------------#
$wf->Label(-text => "Mail: ")
->form( -top => '%10', -left => '%35', -right => '%42' );
my $mailf = $wf->Entry( -font => $textfont )
->form( -top => '%10', -left => '%42', -right => '%67' );
#----------------------------#
my $mode = 'AGE';
$wf->Checkbutton(
-text => 'sage', -variable => \$mode,
-onvalue => 'SAGE', -offvalue => 'AGE',
-command => sub {
if($mode eq 'SAGE'){
$mailf->delete(0, 'end');
$mailf->insert(0, 'sage');
$mailf->configure( -state => 'disabled' );
}else{
$mailf->configure( -state => 'normal' );
}
}
)->form( -top => '%10', -left => '%67', -right => '%80' );
aaaaaaaaaaaaaaa1
test
t e s t
あああああああああああああ
魂の叫び。
朝からラーメンとは体に悪いな。
むかし、多浪生(宅浪)の家庭教師を引き受けたことがあったなあ。
蛸わさびって美味いな。
京阪/JR京橋駅の広場で楽器をならしている
ペルー人(???)らしき団体は一体何者だ?
彼はわりと真面目な方だった。
・・・化学が酷かったが....。
天神祭は何時だろう?
もう終わったのだろうか。
去年は行ったが。
今年は忙しいからな。
test
36 :
#:2001/08/13(月) 14:07 ID:???
te
tes.
きゃるーん