[Mlterm-dev-ja] w3mmlconfig (was: image escape sqeuence)

[Araki K. <j00...@ip...>]

	荒木です:-)

        最初に、さきほど以下の修正を commit しました。
        
* MSB of single shifted G3 characters in EUCJP(EUCJISX0213) is set.
* ESC]5379;wall_picture=BEL stops wall picture.

	Subject: Re: [Mlterm-dev-ja] image escape sqeuence
	From: hs...@mt... (Hironori Sakamoto)
	Message-ID: <200...@mt...>
	Date: Sat, 12 Jan 2002 10:13:42 +0900 (JST)

> 作ってみました。

        すばらしいツールを作っていただき、ありがとうございます _o_

> テストできないので、全然動作しないかもしれません。
> # 特に値を受け取る部分。STDIN/STDOUT は w3m との交信につかうので、
> # open(TTY, "+>/dev/tty"); としてますが、いいかな。

        少なくとも手元では問題ありませんでした。

        ただ、前回あげました

        1. true/false な値をもつキー(checkbox) について、そのキーが選択されない場
           合に、たとえば、
           use_anti_alias=false
           ではなく、
           use_anti_alias=
           を投げてしまう。
        2. ESC]5379;wall_picture=[path];BEL シーケンスを投げてくれないため、壁紙を
           変更できない。

        の問題、および、新たに判明しました

        3. Wall picture を off にしたときに、ESC]5379;wall_picture=;BEL をなげてく
           れない

        という問題につきまして、添付のパッチのような修正が必要でした。

        # とりあえず動きゃいい、という修正なので、坂本さんの手で適切な修正を施し
        # てください _o_
        
        ところで、このツールについて、坂本さんがメンテ・配布されるか、こちらでひき
        とるか、著作権はどうするか、など、取り扱いの選択肢がいろいろあると思います
        が、どうしましょうか?

        # 坂本さんの方でメンテしていただけると、こちらとしましては、楽でええなぁ、
        # ということになるのですが ^_^;
        # もちろん、その場合でも、release の配布アーカイブに含めさせていただけると、
        # 大変ありがたいのですけれど。

	では
--
kiken
j00...@ip...

diff -u w3mmlconfig/mlconfig.cgi.in w3mmlconfig.new/mlconfig.cgi.in
--- w3mmlconfig/mlconfig.cgi.in	Sat Jan 12 10:03:50 2002
+++ w3mmlconfig.new/mlconfig.cgi.in	Sun Jan 13 16:21:31 2002
@@ -205,7 +205,7 @@
 		$k =~ /^_/ && next;
 		print TTY "\033]5380;$k\007";
 		$_ = <TTY>;
-		s/^${k}=// || next;
+		s/^#${k}=// || next;
 		chop;
 		$value->{$k} = $_;
 	}
@@ -223,10 +223,17 @@
 		$val = $value;
 	}
 
+	push( @key , "wall_picture") ;
+
 	open(TTY, ">/dev/tty");
 	for $k (@key) {
 		$k =~ /^_/ && next;
-		$val->{$k} eq $val->{"default-$k"} && next;
+		if($val->{$k} eq "" && exists $key_attr->{$k} && $key_attr->{$k}->{type} eq 'checkbox') {
+			$val->{$k} = "false";
+		}
+		if(exists $val->{"default-$k"}) {
+			$val->{$k} eq $val->{"default-$k"} && next;
+		}
 		print TTY "\033]5379;$k=$val->{$k}\007";
 	}
 	close(TTY);