ギコタクの「だから逝ってないでしょ」出張所 (427ﾚｽ)
上下前次1-新

---

95: _gunzip 2001/07/02(月)23:40 ID:??? AAS
    #----------------------------#
    my $tab = 'EXTRACT';
    
    $wf->Checkbutton(
        -text => 'convert tabs', -variable => \$tab,
        -onvalue => 'EXTRACT', -offvalue => 'IGNORE',
    )->form( -top => '%10', -left => '%80', -right => '%95' );
    #----------------------------#
    my $txt = $wf->Scrolled( 'Text',
        -scrollbars => 'e', -width=>50 -height => 15,, -font => $textfont
    )->form( -top => '%20', -bottom => '%85', -left => '%1', -right => '%99');
    
    #----------------------------#
    $wf->Button( -text => "write" , -command => sub {
        my $thread = $now;
        my $name = $namef->get;
        my $mail = $mailf->get;
        my $text = $txt->get('0.0','end');
        my ($cat, $server, $dir, $bbsname, $file) = split /\t/, $thread->{etc}->[0];
        my $key; ($key = $file) =~ s/\D//g;
        
        if($tab eq 'EXTRACT'){
            $text =~ s/^(\t+)/' ' x (4 * length($1))/gme;
        }
        write_res($server, $dir, $key, $name, $mail, $text);
        $wf->destroy;
        
    })->form( -top => '%90', -left => '%30', -right => '%45');
    
    $wf->Button( -text => "cancel", -command => sub { $wf->destroy } )
        ->form( -top => '%90', -left => '%60', -right => '%75' );
    
}

---

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

---

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

---

ぬこの手 ぬこTOP 0.802s*