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

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

95: _gunzip [sage] 2001/07/02(月) 23:40 ID:???

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

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

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

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

ぬこの手ぬこTOP 0.771s*